## Not run:
# # Exchangable correlation structure
# # Rho.YX <- c(.3, .3, .3, .3, .3)
# # RHO.XX <- rbind(c(1, .5, .5, .5, .5), c(.5, 1, .5, .5, .5), c(.5, .5, 1, .5, .5),
# # c(.5, .5, .5, 1, .5), c(.5, .5, .5, .5, 1))
# # ss.aipe.reg.coef(width=.1, which.width="Full", sigma.Y=1, sigma.X=1, RHO.XX=RHO.XX,
# # Rho.YX=Rho.YX, which.predictor=1, Noncentral=FALSE, conf.level=1-.05,
# # degree.of.certainty=NULL, Suppress.Statement=FALSE)
#
# # ss.aipe.reg.coef(width=.1, which.width="Full", sigma.Y=1, sigma.X=1, RHO.XX=RHO.XX,
# # Rho.YX=Rho.YX, which.predictor=1, Noncentral=FALSE, conf.level=1-.05,
# # degree.of.certainty=.85, Suppress.Statement=FALSE)
#
# # ss.aipe.reg.coef(width=.1, which.width="Full", sigma.Y=1, sigma.X=1, RHO.XX=RHO.XX,
# # Rho.YX=Rho.YX, which.predictor=1, Noncentral=TRUE, conf.level=1-.05,
# # degree.of.certainty=NULL, Suppress.Statement=FALSE)
#
# # ss.aipe.reg.coef(width=.1, which.width="Full", sigma.Y=1, sigma.X=1, RHO.XX=RHO.XX,
# # Rho.YX=Rho.YX, which.predictor=1, Noncentral=TRUE, conf.level=1-.05,
# # degree.of.certainty=.85, Suppress.Statement=FALSE)## End(Not run)
Run the code above in your browser using DataLab