Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, echo = TRUE, results = 'hide', warning = FALSE, message = FALSE, eval = FALSE----
# ## First, we save your current workspace
# save.image(file=paste(tempdir(), "currsession.RData", sep = "/"))
# ## make sure you start with a clean session.
# rm(list = ls(all = TRUE))
# install.packages("SleepCycles", repos = "http://cran.us.r-project.org")
## ----echo=TRUE, warning=FALSE, results='asis'---------------------------------
library(SleepCycles)
data(sleepstages2)
## save current working directory so we can reset this later.
olddir <- getwd()
## create a new directory in the temporary directory (don't worry, it will automatically be deleted
## when you restart your computer)
newdir <- file.path(tempdir(),"SleepCycles_exmpl2")
dir.create(newdir, showWarnings = FALSE)
## write the sleepstages2 file to this new directory
write.table(sleepstages2, file = paste(newdir, "sleepstages2.txt", sep = "/"),
row.names=FALSE, col.names = TRUE, quote = FALSE, sep = ",")
## ----echo=TRUE, warning=FALSE, results='asis', eval = FALSE-------------------
# SleepCycles::SleepCycles(newdir, filetype = "txt")
#
# ## We again load the workspace image from before the code above was executed
# save.image(file=paste(tempdir(), "currsession.RData", sep = "/"))
#
# ## we set the directory back to the one we were using before as we were just working in the
# ## temp directory.
# setwd(olddir)
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.