cleaning

cleaning.r

make.numeric <- function(data, x) {
  for (i in x) {
  data[ , i] <- as.numeric(data[ , i])
  }
data
}



make.char <- function(data, x) {
  for(i in x) {
    data[ , i] <- as.character(data[ , i])
  }
  data
}


make.factor <- function(data, x) {
  for (i in x) {
    data[ , i] <- as.factor(data[ , i])
  }
}