www-ai.cs.tu-dortmund.de/LEHRE/VORLESUNGEN/KDD/SS10/Blatt8.pdf
datena <- rmvnorm(n=100, mean = c(0,-1), sigma = matrix(c(0.5,0.5,0.5,5),2,2)) datenb <- rmvnorm(n=100, mean = c(0,1), sigma = matrix(c(0.5,0.5,0.5,5),2,2)) daten2 <- rbind(datena, datenb) daten2 <- data.f [...] datena <- rmvnorm(n=100, mean = c(0,-3), sigma = matrix(c(0.5,0,0,5),2,2)) datenb <- rmvnorm(n=100, mean = c(0,3), sigma = matrix(c(0.5,0,0,5),2,2)) daten1 <- rbind(datena, datenb) y <- factor(c(rep(1,100) …