Yea I dont rly like git

Analyze.R

@@ -1,7 +0,0 @@
-setup_data <- function() {
-  system("get.data.bat")
-  diffs <- read.delim("data/diffs.txt")
-  commits <- read.csv("C:/Dev/Watchtower/data/commits.txt")
-}
-
-

Documentation.Rmd

@@ -4,7 +4,25 @@ author: "Jannis von Hagen"
 date: "`r Sys.Date()`"
 output: html_document
 ---
-```{r echo=FALSE}
-source("Analyze.R")
-setup_data()
+```{r echo=FALSE, include=FALSE, warning = FALSE}
+system("get.data.bat")
+diffs <- read.delim("data/diffs.txt")
+commits <- read.csv("C:/Dev/Watchtower/data/commits.txt")
+
+install.packages('plyr', repos = "http://cran.us.r-project.org")
+library('plyr')
 ```
+
+### Die Idee:
+Quellcode in Programme einzuschleußen kann es Angreifern ermöglichen
+Schadsoftware oder Sicherheitslücken auf einer großen Zahl an Geräten zu verteilen.  
+
+Es währe also vorteilhaft wenn man Git Repositories automatisch auf auffällige Commits
+untersuchen könnte.  
+
+Das Ziel ist es also Commits zu untersuchen, und abweichende Commits aufzuzeigen.
+
+```{r}
+commits_u <- count(commits$name, 'commits$name')
+barplot(commits_u$freq, names.arg=commits_u$commits.name)
+```