density4<-function(z1,v=seq(-10,10,length.out=120),base_dx=0.04,min_count=3,smooth=TRUE){ #v<-sample(unique(z1),100) #v<-seq(-10,10,length.out=120) #base_dx<-0.04 count<-NULL dx_b<-NULL cou_c<-min_count cou_b<-NULL for(i in 1:length(v)){ j2…