Displaying 1 result from an estimated 1 matches for "uniftest".
Did you mean:
nftest
2008 Apr 08
1
Weibull maximum likelihood estimates for censored data
...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*(nsim+1)),nrow=(nsim+1))
NSimM <- cbind(NSimM,Test)
for(i in 2:nsim+1) {...