library(outliers)
boxplot(survey_mice[,c(2,3,6,10,12)])$out
boxplot(survey_missForest[,c(2,3,6,10,12)])$out
survey_mice2 <- survey_mice
survey_missForest2 <- survey_missForest
for(i in c(2,3,6,10,12)){
  srednia <- mean(survey_mice2[,i])
  survey_mice2[,i][which(survey_mice2[,i] %in% boxplot.stats(survey_mice2[,i])$out)] <- srednia
  srednia <- mean(survey_missForest2[,i])
  survey_missForest2[,i][which(survey_missForest2[,i] %in% boxplot.stats(survey_missForest2[,i])$out)] <- srednia
}