Nothing
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 plotFrequencies = FALSE output = knitrFIM(object) if ( output$typeOfFIM[1] == "BayesianFim" ){ title_shrinkage = TRUE variance_components = FALSE }else{ title_shrinkage = FALSE variance_components = TRUE } if ( output$typeOfFIM[1] == "PopulationFim" ){ plotFrequencies = 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 ( plotFrequencies ) '# Graph for the optimal frequencies'
output = plotFrequenciesOptimisation( object ) 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.