Nothing
title_shrinkage = FALSE variance_components = TRUE output = knitrFIM(object) if ( output$typeOfFIM[1] == "BayesianFim" ){ title_shrinkage = TRUE variance_components = FALSE }
knitrModelEquations(object)
knitrModelError(object)
knitrModelParameters(object)
knitrAdministrationParameters(object)
knitrInitialDesigns(object)
output = knitrFIM( object ) output$criteriaFimInitialDesign
knitrOptimalDesign( object )
output = knitrFIM(object) output$fIMFixedEffects
r if ( variance_components ) '### Variance components'
output = knitrFIM(object) output$fIMRandomEffects
output = knitrFIM(object) output$correlationFixedEffects
r if ( variance_components ) '### Variance components'
output = knitrFIM(object) output$correlationRandomEffects
output = knitrFIM(object ) output$criteriaFim
r if ( title_shrinkage ) '## Values for SE and RSE and shrinkage'
output = knitrFIM( object ) output$se_rse
r if ( variance_components ) '## Values for SE and RSE '
output = knitrFIM( object ) output$se_rse
for (i in 1:length(plotResponses)) { print(plotResponses[[i]]) }
SE =plotSE( object ) print(SE[[1]]) RSE = plotRSE( object ) print(RSE[[1]])
r if ( title_shrinkage ) '# Graph of shrinkage'
if ( title_shrinkage ==TRUE){ shrinkage = plotShrinkage( object ) print(shrinkage[[1]])}
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.