download.file("https://rsleep.org/data/hypnodensity.csv", "hypnodensity.csv")
hypnodensity <- read.csv2("hypnodensity.csv")
unlink("hypnodensity.csv")
events <- hypnogram(hypnodensity)
transitions(events)
transitions(events, format = "dataframe")
transitions(events, format = "heatmap")
events <- data.frame(event = c(
"AWA","N1","N2","N2", "N3","N3",
"REM","N2","REM","REM", "N2","REM","AWA"))
events$begin <- as.POSIXlt(seq(from = 0, to = 30*(nrow(events)-1), by = 30),origin = "1970-01-01")
events$end <- as.POSIXlt(seq(from = 30, to = 30*nrow(events), by = 30), origin = "1970-01-01")
transitions(events)
transitions(events, format = "dataframe")
transitions(events, format = "heatmap")
Run the code above in your browser using DataLab