# NOT RUN {
#some variables
samplesize <- 1000
classsize <- 6
etasize <- 3
alphasize <- 2
#test of Ggenerate
Xtest <- data.frame(matrix(rnorm(samplesize*etasize),samplesize,etasize))
etatest <- matrix(seq(1.15,1,length=etasize*classsize),etasize,classsize)
Gtest1 <- Ggenerate(etatest,Xtest)
Gtest2 <- Ggenerate(etatest,Xtest,1)
# }
Run the code above in your browser using DataLab