data(abr1)
cl <- factor(abr1$fact$class)
dat <- abr1$pos
## normalise data set using "TICnorm"
z.1 <- preproc(dat, y=cl, method="TICnorm")
## scale data set using "log10"
z.2 <- preproc(dat,method="log10", add=1)
## or scale data set using "log" and "TICnorm" sequentially
z.3 <- preproc(dat,method=c("log","TICnorm"), add=0.1)
Run the code above in your browser using DataLab