Hello,
This is here for some days now, and I've decided to give it a try.
I've rewritten your fitfunction(), making it simpler. And include the
gamma distribution in the list.
require(MASS)
fitfunction <- function(Type, x) list(Type=Type, Fit=fitdistr(x, Type))
fun <- function(x, data){
Dear all,
I have wrote some sample code that would allow me easier fit fast many
distributions and check which of the fits performs better. My sample code (that
you can of course execute it looks like that)
distrList<-list( "exponential", "geometric", "log-normal", "normal",
"Poisson")
f
2 matches
Mail list logo
