site <- "http://mathfaculty.fullerton.edu/mori/Math120/Data/ascii/signdist.txt"
signdist <- read.table(site, header = TRUE, sep = "")
rm(site)
save.image(file="./data/signdist.Rdata")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.