Commit 7bce5627 authored by Weigert, Andreas's avatar Weigert, Andreas
Browse files

added T07 exercise file

parent f2d9a513
---
title: 'Tutorial 8: Clustering'
output: html_notebook
editor_options:
chunk_output_type: inline
---
This file is part of the lecture Business Intelligence & Analytics (EESYS-BIA-M), Information Systems and Energy Efficient Systems, University of Bamberg.
```{r Load libraries}
library(dplyr)
library(lubridate)
library(psych)
library(cluster)
library(readr)
```
```{r Read and prepare data}
# read data
consumption <- read_csv(file="../../data/clustering/bam_energy_report_consumption.csv", na = "NULL")
customer <- read_csv(file="../../data/clustering/bam_energy_report_customers.csv", na = "NULL")
logins <- read_csv(file="../../data/clustering/bam_energy_report_logins.csv", na = "NULL")
survey <- read_csv(file="../../data/clustering/bam_energy_report_survey.csv", na = "NULL")
portal_points <- read_csv(file="../../data/clustering/bam_energy_report_portal_points.csv", na = "NULL")
# convert data
# aggregate and calculate data
# Join data together
```
```{r Clustering 1 - A first try with extreme values}
# simple clustering
k <- 3
set.seed(1)
cluster1 <- kmeans()
```
```{r Clustering 2 - A second try with untransformed data}
```
```{r Clustering 3 - A third try with transformed data}
```
```{r Determine the right number of clusters}
```
```{r Clustering 4 - Using an hierarchical clustering approach}
```
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment