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))] boxf<-function(x){ j1<-max(which(sx