Nothing
##' @export
model.frame.lvmfit <- function(formula, all=FALSE,...) {
mydata <- formula$data$model.frame
if (!is.data.frame(mydata) & !is.matrix(mydata))
return(mydata)
if (all) return(mydata)
## xfix <- colnames(mydata)[(colnames(mydata)%in%parlabels(formula$model0,exo=TRUE))]
xfix <- colnames(mydata)[(colnames(mydata)%in%parlabels(formula$model0))]
return( mydata[,c(manifest(formula),xfix),drop=FALSE] )
}
##' @export
model.frame.multigroupfit <- function(formula,...) {
mydata <- formula$model$data
return(mydata)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.