powered by
histo(x, m=NULL, alpha=0.05, binned=FALSE,just="center",scale=1.0)
edf
pcb
x = rnorm(10000) m=2:100 Jh = NULL for(i in m){ out=histo(x,i) Jh=c(Jh,out$Jh) } plot(Jh~m,type='l') j = m[which(Jh==min(Jh))] (out1=histo(x,j)) plot(out1) lines(dnorm(sort(x))~sort(x))
Run the code above in your browser using DataLab