## 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)estimatorbootstrap.lvm object.confint.lvmfitm <- lvm(y~x)
d <- sim(m,100)
e <- estimate(y~x, d)
## Reduce Ex.Timings
B <- bootstrap(e,R=100)
BRun the code above in your browser using DataLab