as.data.frame(calculate4GType1Error(mean=0,sd=1,N=40,reps=100,type="n",seed=17+1056,StdAdj = 0.5,
Blockmean=0.5))
# Results for reps=300
# Design GrpSize BEIncluded ObsPHat ObsCliffd ObsStdES PHatType1ER CliffdType1ER StdES..
#1 4G_n_het 40 Yes 0.5034729 0.006945833 0.01316457 0.03 0.02333333 0.046..
#as.data.frame(calculate4GType1Error(mean=0,sd=1,N=40,reps=300,type="lap",seed=17+2056,
# StdAdj = 0.5,Blockmean=0.5))
# Design GrpSize BEIncluded ObsPHat ObsCliffd ObsStdES PHatType1ER CliffdType1ER Std..
#1 4G_lap_het 40 Yes 0.4992708 -0.001458333 0.0014446 0.04333333 0.04 0.06
Run the code above in your browser using DataLab