Displaying 1 result from an estimated 1 matches for "nsimm".
Did you mean:
nsim
2008 Apr 08
1
Weibull maximum likelihood estimates for censored data
...le(lLne,start = list(A = 0.02))
Lw <- lLnw(coef(fit1)) # Maximum log likelihood :
Weibull
Le <- lLne(coef(fit2)) # Maximum log likelihood :
Exponential
LR0 <- (Le/Lw) # Likelihood ratio with duration
sample
NSimM <- cbind(as.matrix(sort(rchisq(nsim,1,0))),runif(nsim,0,1)) #
chi-square df1 simulations, uniform rvs
Uniftest <- runif(1,0,1)
firstrow <- cbind(LR0,Uniftest) #
use sample LR as LR
NSimM <- rbind(firstrow,NSimM)
Test <- matrix(rep(0,2*(nsi...