---
title: "Location Based Services Assignment 03"
author: "Erik Neller"
date: "`r Sys.Date()`"
output:
  pdf_document: default
  html_document:
    df_print: paged
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
# Task 1
```{r}
library(stats)
mean <- 2
variance <- 2
alpha <- mean ^ 2 / variance
beta <- variance / mean
shp <- alpha
scale <- beta
v <- rgamma(n=100, shape = shp, scale = scale)
plot(density(v))
```
