Re: [R] Applying a function to a subset

That's it. thanks very much, I save hours if work qith your reply - Mario Garrido Escudero PhD student Dpto. de Biología Animal, Ecología, Parasitología, Edafología y Qca. Agrícola Universidad de Salamanca -- View this message in context: http://r.789695.n4.nabble.com/Applying-a-function-to-a

Re: [R] Applying a function to a subset

Or just include is.na=TRUE in the definition of kurtosis(): kurtosis<-function(x) { m4<-sum((x-mean(x,na.rm=TRUE))^4,na.rm=TRUE)/length(x) s4<-var(x,na.rm=TRUE)^2 m4/s4 - 3 } HTH Stephan Am 29.05.2011 11:34, schrieb Jim Holtman: kurtosis(fem[!is.na(fem)]) Sent from my iPad On May 29,

Re: [R] Applying a function to a subset

kurtosis(fem[!is.na(fem)]) Sent from my iPad On May 29, 2011, at 4:54, gaiarrido wrote: > Here´s my problem, > i have developed the function kurtosis (using R-book as a guide) with this > commands: > kurtosis<-function(x) { > m4<-sum((x-mean(x))^4)/length(x) > s4<-var(x)^2 > m4/s4 - 3 } > > Th