search for: fit_dbeta2

Displaying 2 results from an estimated 2 matches for "fit_dbeta2".

Did you mean: fit_dbeta1
2017 Dec 21
0
Fitting Beta Distribution
...res <- -sum(log(R)) return(res) } set.seed(124) x <-rbeta(1000, 0.2, 0.2) fit_dbeta1 <- fitdistr( x , dbeta1, start=list(shape=0.5) , method="Brent", lower=c(0), upper=c(1)) print("estimate of shape from fit_dbeta1 is") print(fit_dbeta1$estimate) fit_dbeta2 <- fitdistr( x , dbeta2, start=list(shape=0.5) , method="Brent", lower=c(0), upper=c(1)) print("estimate of shape from fit_dbeta2 is") print(fit_dbeta2$estimate) fit_LL1 <- mle(LL1, start=list(shape=0.5)) print("estimate of from fit_LL1") print(summary(fit_L...
2017 Dec 21
1
Fitting Beta Distribution
...res <- -sum(log(R)) return(res) } set.seed(124) x <-rbeta(1000, 0.2, 0.2) fit_dbeta1 <- fitdistr( x , dbeta1, start=list(shape=0.5) , method="Brent", lower=c(0), upper=c(1)) print("estimate of shape from fit_dbeta1 is") print(fit_dbeta1$estimate) fit_dbeta2 <- fitdistr( x , dbeta2, start=list(shape=0.5) , method="Brent", lower=c(0), upper=c(1)) print("estimate of shape from fit_dbeta2 is") print(fit_dbeta2$estimate) fit_LL1 <- mle(LL1, start=list(shape=0.5)) print("estimate of from fit_LL1") print(summary(fit_L...