summary(survreg(Surv(time, status) ~ 1,
        link="log",dist="extreme",data = ttt.df))


 Coefficients:
              Value Std. Error z value        p
 (Intercept)  1.904      0.220    8.64 5.73e-18
  Log(scale) -0.623      0.329   -1.89 5.87e-02

 Extreme value distribution: Dispersion (scale) = 0.5363528