www-ai.cs.tu-dortmund.de/de/LEHRE/VORLESUNGEN/KDD/SS10/Blatt8.pdf
library(mvtnorm) set.seed(2)
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) …