data_import.R
In dendrometeR: Analyzing Dendrometer Data

## ---- 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)