Nothing
library(knitr) library(kableExtra) options(kableExtra.latex.load_packages = FALSE) options(kableExtra.auto_format = FALSE) knitr::opts_chunk$set(echo = TRUE)
title_shrinkage = FALSE plotWeight = FALSE variance_components = TRUE output = knitrFIM(object) if ( output$typeOfFIM[1] == "BayesianFim" ){ title_shrinkage = TRUE variance_components = FALSE } if ( output$typeOfFIM[1] == "PopulationFim" ){ plotWeight = TRUE }
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]])}
r if ( plotWeight ) '# Graph for the optimal weights'
output = plotWeightOptimisation( object, weightThreshold ) for ( i in 1:length( output$plot[[1]] ) ) { print(output$plot[[1]][[i]] ) }
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.