Nothing
impliedModel <- function(model, types, all = FALSE){
# What model?
framework <- model@model
# Get the function:
if (model@cpp){
impFun <- switch(framework,
"lvm" = implied_lvm_cpp, #< - updated!
"varcov" = implied_varcov_cpp, # <- Updated!
# "gvar" = implied_gvar_norawts,
"var1" = implied_var1_cpp, # <- updated!
# "panelvar1" = implied_panelvar1,
"dlvm1" = implied_dlvm1_cpp, # <- Updated!
"tsdlvm1" = implied_tsdlvm1_cpp, # <- Updated!
"meta_varcov" = implied_meta_varcov_cpp, # <- Updated!
"Ising" = implied_Ising_cpp, # <- Updated!
"ml_lvm" = implied_ml_lvm_cpp # <- Updated!
)
} else {
impFun <- switch(framework,
"lvm" = implied_lvm,
"varcov" = implied_varcov,
# "gvar" = implied_gvar_norawts,
"var1" = implied_var1,
# "panelvar1" = implied_panelvar1,
"dlvm1" = implied_dlvm1,
"tsdlvm1" = implied_tsdlvm1,
"meta_varcov" = implied_meta_varcov,
"Ising" = implied_Ising,
"ml_lvm" = implied_ml_lvm
)
}
# implied:
# mats <- formModelMatrices(model)
imp <- impFun(model, all)
# Return:
return(imp)
}
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.