Added data analysis

data_analysis/data_analysis.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

data_analysis/report.Rmd

@@ -0,0 +1,25 @@
+---
+title: "Report"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+library(ggplot2)
+knitr::opts_chunk$set(echo = TRUE)
+df <- read.csv("../data.csv", header = F)
+colnames(df) <- c("date", "name", "topic", "humidity", "temperature", "presure", "battery", "voltage", "linkquality")
+df$date <- as.POSIXct(df$date)
+```
+
+## Humidity
+```{r}
+p_humidity <- ggplot(df, aes(x=date, y=humidity, group=name, color=name)) + geom_line()
+p_humidity
+```
+
+## Temperature
+```{r}
+p_temperature <- ggplot(df, aes(x=date, y=temperature, group=name, color=name)) + geom_line()
+p_temperature
+```
+

data_analysis/report.sh

@@ -0,0 +1,3 @@
+# Compiles the markdown report into an html file
+# run for the first time install.packages("rmarkdown")
+Rscript -e 'library(rmarkdown); rmarkdown::render("report.Rmd", "html_document")'