inst/examples/coeffarray.R

In unfoldr: Stereological Unfolding for Spheroidal Particles

\dontrun{
## Comment: Set breaks vector and compute the coefficient matrix 
## for spheroid unfolding
	
options(par.unfoldr=2L)
breaks <- setbreaks(c(6,5,6),maxSize=0.37,kap=1.25)
breaks

P <- coefficientMatrixSpheroids(breaks,check=FALSE)
c(min(P),max(P),sum(P))

}