The following is the R code for replacing missing values with mean, median, zero.
########################################################
# Imputing Missing Values with Mean / Median / Zero
#########################################################
#Replacing NA with zero
mydata[is.na(mydata)] <- 0
#Function: Imputing Missing Values with mean/median/min
impute <- function(data, type) {
for (i in which(sapply(data, is.numeric))) {
data[is.na(data[, i]), i] <- type(data[, i], na.rm = TRUE)
}
return(data)}
#Implementing Imputation Function (Mean/Median/Min)
newdata <- impute(mydata,median)
Post a Comment