set.seed(123)
x=list()
x[[1]]=stats::rnorm(10,0,1)
x[[2]]=stats::rnorm(10,0.8,1)
x[[3]]=stats::rnorm(10,0.5,1)
x[[4]]=stats::rnorm(10,1.3,1)
vec=c(-1,1,-1,1)/2
RandomizedBlocksAnalysis(x,con=vec,alpha=0.05)
# $n
# [1] 10 10 10 10
# $test
# test crit se df
# [1,] 4.432644 2.038622 0.2798104 31.33793
# $psihat
# psihat ci.lower ci.upper p.value
# [1,] 1.2403 0.6698721 1.810728 0.0001062952
# dat=c(x[[1]],x[[2]],x[[3]],x[[4]])
# matx=matrix(dat,nrow=10,ncol=4)
# RandomizedBlocksAnalysis(matx,con=c(-1,1,-1,1)/2,alpha=0.05)
#$n
#[1] 10 10 10 10
#$test
# test crit se df
#[1,] 4.432644 2.038622 0.2798104 31.33793
#$psihat
# psihat ci.lower ci.upper p.value
#[1,] 1.2403 0.6698721 1.810728 0.0001062952
Run the code above in your browser using DataLab