inst/examples/printExample.R

In germaine86/eefAnalytics_v10: Robust Analytical Methods for Evaluating Educational Interventions using Randomised Controlled Trials Designs

if(interactive()){

  #### read data
  data(mstData)
  data(crtData)


  ###############
  ##### SRT #####
  ###############

  outputSRT <- srtFREQ(Posttest~ Intervention + Prettest,
                       intervention = "Intervention",data = mstData)
  print(outputSRT)


  outputSRTB <- srtBayes(Posttest~ Intervention + Prettest,
                         intervention = "Intervention", data = mstData)
  print(outputSRTB)

  ###############
  ##### MST #####
  ###############


  #### Random intercepts
  outputMST <- mstFREQ(Posttest~ Intervention + Prettest,
                       random = "School", intervention = "Intervention", data = mstData)
  print(outputMST)



  ###############
  ##### CRT #####
  ###############

  #### Random intercepts
  outputCRT <- crtFREQ(Posttest~ Intervention + Prettest,
                       random = "School", intervention = "Intervention", data = crtData)
  print(outputCRT)

}