library(plyr) points <- seq(from = 0, to = 1, by = 0.01) grid_points <- merge(x = points, y = points) fixed_point_1 <- c(0.25, 0.75) fixed_point_2 <- c(1.00, 0.00) xyz <- ddply(grid_points, .(x, y), function(point) { data.frame( V1 = kernel(fixed_point_1, c(point$x, point$y)), V2 = kernel(fixed_point_2, c(point$x, point$y)) ) }) contour_matrix_1 <- matrix(xyz$V1 , nrow = length(points), byrow = TR
![カーネル法を視覚的に理解する - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/a7c8e035f72aeb434a6cf7069e4deb83939a5397/height=288;version=1;width=512/https%3A%2F%2Fcdn.qiita.com%2Fassets%2Fqiita-fb-fe28c64039d925349e620ba55091e078.png)