R/read_3d.R

In fzwaeustc/pcrfn: Peng's Collection of R Functions at Nielsen

read_3d <- function(name, folder="I:/Dropbox/1_STB Project/R scripts/Output 3D"){
  if (!is.character(name))
    stop("the name of your data has to be a character string, the name of the csv file saved.")
  
  eval(parse(text=paste('data <- read.csv("', folder, "/", name, '.csv", header=TRUE)', sep="")))
  data[data<=0] = NA
  return(data)
}