Nothing
if(file.access("mars.csv") < 0) setwd("./Examples")
if(file.access("mars.csv") < 0) stop("To run this example, you must download file mars.csv")
mars <- read.csv("mars.csv", skip = 5, as.is = TRUE)
dim(mars)
sapply(mars, class)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.