# Arbeitsverzeichnis
setwd("C:/Exchange/Work/Teaching/StatistikI_WS1516/Übung/6")

# Daten laden
data <- read.csv("umfrage_daten.csv")

# Pakete
library(Epi)

# Daten
set.seed(12345)
id <- sample(1:nrow(data),6)
data$dauer_fahrt[id]
data$ring[id]!=1

# a)
# ROC-Kurve
ROC(data$dauer_fahrt[id], data$ring[id]!=1,plot="ROC")

# AUC
round(1/3*1/3+2/3,digits=4)