figure 2.4について library(MASS) blue_ave<-c(1,0) red_ave<-c(0,1) blue<-mvrnorm(100,blue_ave,diag(2)) red<-mvrnorm(100,red_ave,diag(2)) cl<-factor(c(rep("blue",100),rep("red",100))) train<-rbind(blue,red) test<-rbind(mvrnorm(5000,blue_ave,…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。