plotHMS.at <- function() {
return(seq(0, 86400, by = 3600))
}
plotHMS.lab <- function() {
return(c(
"0000",
"0100",
"0200",
"0300",
"0400",
"0500",
"0600",
"0700",
"0800",
"0900",
"1000",
"1100",
"1200",
"1300",
"1400",
"1500",
"1600",
"1700",
"1800",
"1900",
"2000",
"2100",
"2200",
"2300",
"2400"
))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.