## S3 method for class 'lvm':
bootstrap(x,R=100,data,fun=NULL,control=list(),
p, parametric=FALSE, bollenstine=FALSE,
constraints=TRUE,sd=FALSE,silent=FALSE,...)## S3 method for class 'lvmfit':
bootstrap(x,R=100,data=model.frame(x),
control=list(start=coef(x)),
p=coef(x), parametric=FALSE, bollenstine=FALSE,
estimator=x$estimator,weight=Weight(x),...)
lvm
-object.estimator
)estimator
bootstrap.lvm
object.confint.lvmfit
m <- lvm(y~x)
d <- sim(m,100)
e <- estimate(y~x, d)
## Reduce Ex.Timings
B <- bootstrap(e,R=100)
B
Run the code above in your browser using DataLab