Nothing
#' @include semrepr.R
#' @include semfit.R
{}
#' @S3method plot semspec
plot.semspec <- function(x, y = NULL, ...) {
vars <- summary(x)$variables$details
manifest <- subset(vars, Type == "Manifest")$Variable
sem_syntax2semmod <- function(sem_syntax, ...){
tmp=file()
cat(sem_syntax, file=tmp)
sem_model <- specifyEquations(file = tmp, ...)
close(tmp)
return(sem_model)
}
sem_model <- sem_syntax2semmod(as_sem_syntax(x), ...)
qgraph(sem_model, layout = "tree", manifest = manifest)
}
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.