46 lines
941 B
Plaintext
46 lines
941 B
Plaintext
---
|
|
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
|
|
```
|
|
|
|
|