Displaying 1 result from an estimated 1 matches for "simulasyon".
Did you mean:
simulacion
2011 Mar 12
0
"Ran out of iterations and did not converge"
...m:
Warning messages:
1: In survreg.fit(X, Y, weights, offset, init = init, controlvals = control,
:
Ran out of iterations and did not converge
2: In survreg.fit(X, Y, weights, offset, init = init, controlvals = control,
:
Ran out of iterations and did not converge
what i did is fallowing
simulasyon<-function(x,oran){
+ y<-rexp(length(oran),rate=oran)
+ z<-rexp(length(oran),rate=1/oran)
+ e1<-coxph(Surv(y,rep(1,length(oran)))~x)
+ e2<-survreg(Surv(z,rep(1,length(oran)))~x,dist="weibull")
+ return(c(e1$coef,e2$coef[2]))
+ }
result<-matrix(NA, nrow=2, ncol=100)
>...