if (FALSE) {
library(fiberLD)
data(ofa)
r <- 2.5
d <- fled(data=ofa,model="lognorm",r=r)
x <- seq(0, 8,length=100)
f1 <- dx.mixture(x=x, par=d$par,r=r, model="lognorm")
plot(x,f1,type="l")
w <- seq(0, 2*r+2,length=150)
f2 <- dy.mixture(w, d$par, model="lognorm")
f3 <- dw.mixture(w, d$par, 6, model="lognorm")
plot(w,f3,type="l")
}
Run the code above in your browser using DataLab