> > xs <- lapply(xdata, function(x){(x - mean(x))/sqrt(var(x))})
Incidentally, the function 'scale' does just that.
--
__________________________________________________
[ ]
[ Giovanni Petris [EMAIL PROTECTED] ]
[ Department of Mathematical Sciences ]
[ University of Arkansas - Fayetteville, AR 72701 ]
[ Ph: (479) 575-6324, 575-8630 (fax) ]
[ http://definetti.uark.edu/~gpetris/ ]
[__________________________________________________]
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
