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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.