R/na.zero.r

#' @export
	
na.zero <- function(x){
 for(i in 1:length(x[1,])){
  if(length(which(is.na(x[,i])))>0){
  x[which(is.na(x[,i])),i] <- 0}
  }
  return(x)
 } 
 
AMCOOK/FoodHabits documentation built on May 5, 2019, 11:34 a.m.