set.seed(4)
count_table<-hist_3d(x = rnorm(1000),
y = rnorm( 1000,5,0.1),
z = rnorm( 1000,2,1),
breaks_x = seq(-4, 4, by =1),
breaks_y = seq(2, 8, by =1),
breaks_z = seq(-3, 6, by =1))$Hist.Values
df.x<-as.data.frame.table(count_table)
x<-df.x$Freq
names(x)<-paste0(df.x$Var1,"_",df.x$Var2,"_",df.x$Var3)
res.fm3d<- finemeshed3d(x,10,50,100)
dim(res.fm3d$finemeshed.array)
Run the code above in your browser using DataLab