modelfreq <- list(dist1 = "pois",
par1 = list(lambda = quote(Lambda * weights)),
dist2 = "gamma",
par2 = c(shape = 2, rate = 1))
modelsev<-list(dist1 = "lnorm",
par1 = list(meanlog = quote(Theta), sdlog = 1),
dist2 = "norm",
par2 = c(mean = 5, sd = 1))
( x <- simpf(25, 4, modelfreq, modelsev) )
rearrangepf(x$data)
Run the code above in your browser using DataLab