# Aufgabe 1
cr<-read.table("Desktop/crabs.txt",TRUE)
attach(cr)
library(rpart)
t<-rpart(sex~FL+RW+CL+CW+BD,cr)
plot(CL,RW,col=sex)
abline(h=15.9)
lines(rep(35.9,2),c(15.9,5))
lines(c(10,35.9),rep(13.1,2))
lines(rep(30.15,2),c(13.1,5))
lines(c(10,30.15),rep(11.35,2))
lines(rep(25.9,2),c(11.35,5))
lines(c(10,25.9),rep(9.45,2))
table(predict(t,type="c"),sex)

# Aufgabe 2

pc<-princomp(cr[4:8])
pp<-as.data.frame(predict(pc))
t<-rpart(as.factor(sex)~.,pp)
plot(pp[2:3],col=sex)
abline(v=-0.02025)
abline(v=0.382)
lines(c(-3,-0.02025),rep(0.74355,2))
lines(c(-0.02025,0.382),rep(0.7998,2))

ssp<-as.factor(paste(sex,sp,sep=''))
l<-lda(ssp~FL+RW+CL+CW+BD,cr)
ltcr<-as.data.frame(as.matrix(cr[4:8]) %*% l$scaling)
t<-rpart(ssp~., ltcr)
plot(ltcr[1:2],col=sex-1+sp*2)
abline(v=-1.5494)
lines(c(-9,-1.5494),rep(-3.10444,2))
lines(c(-1.5494,5),rep(-4.27266,2))
table(predict(t,type="c"),ssp)

# Aufgabe 3

ms<-read.table("Desktop/Math.txt",T)
t<-rpart(Studienrichtung~.,ms)

# t<-rpart(Dnote ~ ., ms)
# ... uA...