Rのkde2d関数の多次元版…スケーリングとか、bandwidth.nrd関数からの出力の補正とかの点でちょっと怪しい… kdeNd<-function (x,h, n = 25) { max<-apply(x,2,max) min<-apply(x,2,min) nx <- ncol(x)#No. axis ns <- nrow(x)#No. samples g<-mapply(seq.int,…