`r projectName `"

In PFIM: Population Fisher Information Matrix

options(kableExtra.latex.load_packages = FALSE)
options(kableExtra.auto_format = FALSE)
knitr::opts_chunk$set(echo = TRUE)

Model outputs

tablesEvaluationFIMIntialDesignResults$tablesModelEquations$outcomes

Model equations

tablesEvaluationFIMIntialDesignResults$tablesModelEquations$equations

Model error

tablesEvaluationFIMIntialDesignResults$tablesModelError

Model parameters

tablesEvaluationFIMIntialDesignResults$tablesModelParameters

Initial design

tablesEvaluationFIMIntialDesignResults$tablesDesign

Administration parameters

tablesEvaluationFIMIntialDesignResults$tablesAdministration

Fisher information matrix

Fixed effects

tablesEvaluationFIMIntialDesignResults$tablesFIM$FIMFixedEffectsTable 

Variance effects

tablesEvaluationFIMIntialDesignResults$tablesFIM$FIMVarianceEffectsTable 

Correlation matrix

Fixed effects

tablesEvaluationFIMIntialDesignResults$tablesFIM$correlationMatrixFixedEffectsTable 

Variance effects

tablesEvaluationFIMIntialDesignResults$tablesFIM$correlationMatrixVarianceEffectsTable 

Determinant, condition numbers and D-criterion of the FIM

tablesEvaluationFIMIntialDesignResults$tablesFIM$criteriaFimTable 

Values for SE and RSE

tablesEvaluationFIMIntialDesignResults$tablesFIM$SEandRSETable 

Graphs for the responses

plotOutcomesEvaluation = tablesEvaluationFIMIntialDesignResults$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]] )
    }
  }
}

Graphs for the sensitivity indices

plotOutcomesGradient = tablesEvaluationFIMIntialDesignResults$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]] )
      }
    }
  }
}

Graphs for the SE and RSE

plotSE = tablesEvaluationFIMIntialDesignResults$tablesPlot$plotSE
plotRSE = tablesEvaluationFIMIntialDesignResults$tablesPlot$plotRSE

designNames = names( plotSE )

for ( designName in designNames )
{
  print( plotSE[[designName]] )
  print( plotRSE[[designName]] )
}

PFIM documentation built on Nov. 24, 2023, 5:09 p.m.