search for: fitscal

...ibull(10000,scale=scale,shape=shape) model<-survreg(Surv(y)~1,dist="weibull") ### Exp of coef and predict are the same exp(model$coef) predict(model,type=c("response"))[1] ### Here is the mean and median of the data mean(y) median(y) ### Fitted Mean and Median from survreg fitScale<-exp(model$coef) fitShape<-1/model$scale fitScale*gamma(1 + 1/fitShape) fitScale*(log(2))^(1/fitShape) Is this done on purpose? If so does anyone know why? Thanks in advance, Sean Brummel [[alternative HTML version deleted]]