begin ex03

ex03.Rmd

@@ -0,0 +1,45 @@
+---
+title: "Location Based Services Assignment 03"
+author: "Erik Neller"
+date: "`r Sys.Date()`"
+output:
+  html_document:
+    df_print: paged
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+# Task 1
+
+```{r plot}
+
+# Load required packages
+sy <- sunspots
+plot(sunspots, col='blue', xlab='time [year]', ylab='Sunspot number')
+```
+
+```{r summary}
+print(summary(sunspots))
+print(sd(sunspots))
+```
+```{r whisker}
+boxplot(sunspots, main='Boxplot diagram', xlab='Sunspot number', ylab='quartiles')
+```
+```{r hist}
+hist(sunspots, xlab= 'Sunspot number', ylab= 'number of occurrences', main='Sunspot number histogram')
+```
+```{r density}
+plot(density(sunspots), xlab= 'Sunspot number', ylab= 'probability of occurrence', main='Experimental PDF')
+```
+# Task 2
+```{r exploratory}
+library(leaflet)
+library(sf)
+library(DataExplorer)
+library(lubridate)
+pnt_data <- read.csv('rec.csv', header=FALSE, sep='',skip=15)
+doy <- yday
+```
+
+