[R] how to remove NaN columns ?

[Giovanni Petris]

> > xs <- lapply(xdata, function(x){(x - mean(x))/sqrt(var(x))})

Incidentally, the function 'scale' does just that.

-- 

 __________________________________________________
[                                                  ]
[ Giovanni Petris                 GPetris at uark.edu ]
[ Department of Mathematical Sciences              ]
[ University of Arkansas - Fayetteville, AR 72701  ]
[ Ph: (479) 575-6324, 575-8630 (fax)               ]
[ http://definetti.uark.edu/~gpetris/              ]
[__________________________________________________]