m <- dataUSAF
#Variable selection:
sel <- c(48,40,39,33,34,36)
#Changing to inches:
mpulg <- m[,sel] / (10 * 2.54)
#Data pre-processing:
preproc <- accommodation(mpulg,TRUE,0.95,TRUE)
preproc <- accommodation(mpulg,TRUE,0.95,FALSE)
Run the code above in your browser using DataLab