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

Introduction

Ruuvitag analysis.

Data

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

Experiments

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

Results


# todo
# calculate difference! Note, timetags are different. Some kind of difference, mapping needed
# zoo, xts

Conclusions