data(iris)
X <- iris[, 1:2]
Xtrain <- X[1:40, ]
Xtest <- X[40:50, ]
fm <- dmnorm(Xtrain)
fm
k <- 50
x1 <- seq(min(Xtrain[, 1]), max(Xtrain[, 1]), length.out = k)
x2 <- seq(min(Xtrain[, 2]), max(Xtrain[, 2]), length.out = k)
zX <- expand.grid(x1, x2)
pred <- predict(fm, zX)$pred
contour(x1, x2, matrix(pred, nrow = 50))
points(Xtest, col = "red", pch = 16)
Run the code above in your browser using DataLab