[R] function to replace missing values with median value?

[Gabor Csardi]

sz <- function(x)  ifelse(is.na(x), median(x, na.rm=TRUE), x)

Gabor

On Wed, May 03, 2006 at 10:06:40AM -0700, r user wrote:
> I have a data set with ~10 variables (i.e. columns).
> 
> I wrote this little function to replace missing values
> with zero.  
> 
> “ sz <- function(x) { ifelse(is.na(x)==F,x,0) } “
> 
> Can anyone help with a function that replaces missing
> values with the median of the non-missing values?
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html

-- 
Csardi Gabor <csardi at rmki.kfki.hu>    MTA RMKI, ELTE TTK