Rで2次元ヒストグラムを書く。 hist2db<-function(x,y,kugirix,kugiriy){ sx<-kugirix[1:(length(kugirix)-1)] sy<-kugiriy[1:(length(kugiriy)-1)] fx<-kugirix[2:(length(kugirix))] fy<-kugiriy[2:(length(kugiriy))] counts<-0 i1<-0 i2<-0 j1<-0 j2<-0 …