## ---- include = FALSE----------------------------------------------------
library(dendrometeR)
## ---- echo = FALSE, results = 'asis'-------------------------------------
data(dmCDraw)
knitr::kable(head(dmCDraw, 5))
## ---- eval = FALSE-------------------------------------------------------
# dm.data <- data.frame(timestamp = ISOdate(year = dmCDraw$year, month = dmCDraw$Month,
# day = dmCDraw$Day, hour = dmCDraw$H, min = dmCDraw$M))
## ---- eval = FALSE-------------------------------------------------------
# dm.data$dendro <- dmCDraw$dendro
## ---- eval = FALSE-------------------------------------------------------
# rownames(dm.data) <- dm.data$timestamp
# dm.data$timestamp <- NULL
## ---- echo = FALSE, results = 'asis'-------------------------------------
data(dmCD)
knitr::kable(head(dmCD, 5))
## ---- echo = FALSE, results = 'asis'-------------------------------------
data(dmHSraw)
knitr::kable(head(dmHSraw, 5))
## ---- eval = FALSE-------------------------------------------------------
# dm.data <- data.frame(timestamp = as.POSIXct(strptime(dmHSraw$TIMESTAMP, '%Y-%m-%d %H:%M:%S'), tz = "GMT"))
## ---- eval = FALSE-------------------------------------------------------
# dm.data$dBUP2 <- dmHSraw$dBUP2
## ---- eval = FALSE-------------------------------------------------------
# rownames(dm.data) <- dm.data$timestamp
# dm.data$timestamp <- NULL
## ---- echo = FALSE, results = 'asis'-------------------------------------
data(dmEDraw)
knitr::kable(head(dmEDraw, 5))
## ---- eval = FALSE-------------------------------------------------------
# dm.data <- data.frame(timestamp = as.POSIXct(strptime(dmEDraw$TIMESTAMP, '%Y-%m-%d %H:%M:%S'), tz = "GMT"))
## ---- eval = FALSE-------------------------------------------------------
# # option 1: select series by typing column names:
# dm.data[,c("Beech03","Beech04")] <- dmEDraw[,c(2,3)]
#
# # option 2: select series from the character vector produced by names:
# dm.data[,names(dmEDraw)[c(2,3)]] <- dmEDraw[,c(2,3)]
## ---- eval = FALSE-------------------------------------------------------
# dm.data[,names(dmEDraw)[2:3]] <- dmEDraw[,2:3]
## ---- eval = FALSE-------------------------------------------------------
# rownames(dm.data) <- dm.data$timestamp
# dm.data$timestamp <- NULL
## ------------------------------------------------------------------------
is.dendro(dmCDraw)
is.dendro(dmCD)
## ------------------------------------------------------------------------
dendro.resolution(dmCD)
dendro.resolution(dmCD, unts = "hours")
## ------------------------------------------------------------------------
TRUE %in% is.na(dmCD)
data(dmED)
TRUE %in% is.na(dmED)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.