# as.data.frame(calculateMAType1Error(mean=0,sd=1,N=c(5,10),reps=10,type="n",Experiments=5,
# FourG=FALSE,StdAdj=0,Blockmean=0,seed=123))
# Design BEIncluded GrpSize ObsPHat ObsCliffd ObsStdES PHatType1ER CliffdType1ER StdMDType1ER
#1 2G_n No 5 0.4848 -0.0304 -0.054156883 0 0 0.0
#2 2G_n No 10 0.5036 0.0072 0.002888142 0 0 0.1
#as.data.frame(calculateMAType1Error(mean=0,sd=1,N=c(5,10),reps=10,type="l",Experiments=5,
# FourG=FALSE,StdAdj=0,Blockmean=0,seed=123))
# Design BEIncluded GrpSize ObsPHat ObsCliffd ObsStdES PHatType1ER CliffdType1ER StdMDType1ER
#1 2G_l No 5 0.4848 -0.0304 -0.02789656 0 0 0.0
#2 2G_l No 10 0.5036 0.0072 0.06473696 0 0 0.2
#as.data.frame(calculateMAType1Error(mean=0,sd=1,N=c(5,10),reps=10,type="n",Experiments=5,
# FourG=TRUE,StdAdj=0.5,Blockmean=0.5,seed=123))
# Design BEIncluded GrpSize ObsPHat ObsCliffd ObsStdES PHatType1ER CliffdType1ER StdMDType1ER
# 1 4G_n_het Yes 5 0.5108 0.0216 0.01361820 0 0 0.1
# 2 4G_n_het Yes 10 0.5069 0.0138 0.01700672 0 0 0.0
as.data.frame(calculateMAType1Error(mean=0,sd=1,N=c(5,10),reps=5,type="l",Experiments=5,
FourG=TRUE,StdAdj=0,Blockmean=0.5,seed=123))
#Results for reps=10
# Design BEIncluded GrpSize ObsPHat ObsCliffd ObsStdES PHatType1ER CliffdType1ER StdMDType1ER
#1 4G_l Yes 5 0.5108 0.0216 0.07578257 0 0 0.2
#2 4G_l Yes 10 0.5072 0.0144 0.04839936 0 0 0.0
Run the code above in your browser using DataLab