Data on 102 male and 100 female athletes collected at the Australian Institute of Sport.
This data frame contains the following columns:
(0 = male or 1 = female)
lean body mass
red cell count
white cell count
body mass index, weight/(height)**2
sum of skin folds
Percent body fat
S. Weisberg (2005). Applied Linear Regression, 3rd edition. New York: Wiley, Section 6.4
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
##Load the data library(ssmn) data(ais) attach(ais) #Set the response y and covariate x x1 <- cbind(1,SSF,Ht) y <- Bfat ##Fits a Skew Scale Mixtures of Normal Distributions to the data fit.ssmn <- ssmn(y, x1, family="sn", method="EM", error = 1e-6, maxit=1000, show.envelope=FALSE) #Show envelope theta <- c(fit.ssmn$beta,fit.ssmn$sigma2,fit.ssmn$lambda) envel(y,x1,theta,family="sn",alpha=0.05)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.