clean up the NAs

cleanNA.R

cleanNAs <- function(x){
    if(sum(is.na(x)) == length(x)) {
        x <- NA
    } else
        x <- x[!is.na(x)]
    x
}

dat <- read.csv("testing.csv", header = TRUE)
dat$clean <- apply(dat, 1, cleanNAs)
dat