Nothing
options(kableExtra.latex.load_packages = FALSE) options(kableExtra.auto_format = FALSE) knitr::opts_chunk$set(echo = TRUE)
title_shrinkage = FALSE variance_components = TRUE if ( fimType == "BayesianFim" ) { title_shrinkage = TRUE variance_components = FALSE }
tablesEvaluationFIMIntialDesignResults$tablesModelEquations$outcomes
tablesEvaluationFIMIntialDesignResults$tablesModelEquations$equations
tablesEvaluationFIMIntialDesignResults$tablesModelError
tablesEvaluationFIMIntialDesignResults$tablesModelParameters
tablesEvaluationFIMIntialDesignResults$tablesAdministration
tablesEvaluationFIMIntialDesignResults$tablesDesign
variableSelection = c("Design","Arm","Outcome", "Doses", "Initial sampling times","Fixed times", "Number of samplings optimisable") table = tablesOptimizationObject$tablesSamplingConstraints[,variableSelection] colnames( table ) = variableSelection knitr::kable( table ) %>% kable_styling( font_size = 12, latex_options = c("hold_position","striped", "condensed", "bordered" ), full_width = T)
tablesEvaluationFIMIntialDesignResults$tablesFIM$criteriaFimTable
tablesOptimizationObject$tablesDesign
tablesOptimizationObject$tablesFIM$FIMFixedEffectsTable
r if ( variance_components ) '### Variance effects'
tablesOptimizationObject$tablesFIM$FIMVarianceEffectsTable
tablesOptimizationObject$tablesFIM$correlationMatrixFixedEffectsTable
r if ( variance_components ) '### Variance effects'
tablesOptimizationObject$tablesFIM$correlationMatrixVarianceEffectsTable
tablesOptimizationObject$tablesFIM$criteriaFimTable
tablesOptimizationObject$tablesFIM$SEandRSETable
plotOutcomesEvaluation = tablesOptimizationObject$tablesPlot$plotOutcomesEvaluation designNames = names( plotOutcomesEvaluation ) for ( designName in designNames ) { armNames = names( plotOutcomesEvaluation[[ designName ]] ) for ( armName in armNames ) { outcomes = names( plotOutcomesEvaluation[[ designName ]][[armName]] ) for ( outcome in outcomes ) { print( plotOutcomesEvaluation[[designName]][[armName]][[outcome]] ) } } }
plotOutcomesGradient = tablesOptimizationObject$tablesPlot$plotOutcomesGradient designNames = names( plotOutcomesGradient ) for ( designName in designNames ) { armNames = names( plotOutcomesGradient[[ designName ]] ) for ( armName in armNames ) { outcomes = names( plotOutcomesGradient[[ designName ]][[armName]] ) for ( outcome in outcomes ) { parameterNames = names( plotOutcomesGradient[[ designName ]][[armName]][[outcome]] ) for ( parameterName in parameterNames ) { print( plotOutcomesGradient[[designName]][[armName]][[outcome]][[parameterName]] ) } } } }
plotSE = tablesOptimizationObject$tablesPlot$plotSE plotRSE = tablesOptimizationObject$tablesPlot$plotRSE designNames = names( plotSE ) for ( designName in designNames ) { print( plotSE[[designName]] ) print( plotRSE[[designName]] ) }
r if ( title_shrinkage ) '# Graph of shrinkage'
if ( title_shrinkage ==TRUE) { plotShrinkage = tablesOptimizationObject$tablesPlot$plotShrinkage designNames = names( plotShrinkage ) for ( designName in designNames ) { print( plotShrinkage[[designName]] ) } }
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.