knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
# p.description.version.number <- '0.0.0.0001' # p.path.git <- "C:/Users/talon_000/git/" # Lenovo # install.packages(paste0(p.path.git, p.package.name,"_",p.description.version.number,".tar.gz")) # use the same version number as in DESCRIPTION library(RuuviR)
Ruuvitag analysis.
# path = 'C:\\Users\\talon_000\\Dropbox\\2021\\ruuvi\\m210801saunakahala' ruuvi.data <- RuuviR::LoadRuuviExports( path = 'C:\\Users\\talon_000\\Dropbox\\2021\\ruuvi\\m210829') library(ggplot2) # visualization print(lapply(ruuvi.data, class)) print(summary(ruuvi.data))
ggplot2::ggplot(ruuvi.data, aes(x = paivamaara, y = liikelaskuri, color = ruuvitag_name)) + geom_point() ggplot2::ggplot(ruuvi.data, aes(x = paivamaara, y = kiihtyvyys_y, color = ruuvitag_name)) + geom_point()
ggplot2::ggplot(ruuvi.data, aes(x = paivamaara, y = lampotila_C, color = id)) + geom_point()
ggplot2::ggplot(ruuvi.data, aes(x = paivamaara, y = lampotila_C, color = id)) + ggplot2::geom_point()
# todo # calculate difference! Note, timetags are different. Some kind of difference, mapping needed # zoo, xts
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.