R/bedNA.R

Defines functions bedNA

bedNA <- function(bed1){
  for(j in 1:ncol(bed1)){
    temp <- bed1[,j]
    temp[is.na(temp)] <- mean(temp,na.rm=T)
    bed1[,j] <- temp
    #print(j)
  }
  return(bed1)
}
shuangsong0110/LDER documentation built on April 6, 2024, 4:17 a.m.