pphsm                 package:Design                 R Documentation

_P_a_r_a_m_e_t_r_i_c _P_r_o_p_o_r_t_i_o_n_a_l _H_a_z_a_r_d_s _f_o_r_m _o_f _A_F_T _M_o_d_e_l_s

_D_e_s_c_r_i_p_t_i_o_n:

     Translates an accelerated failure time (AFT) model fitted by 'psm'
     to proportional hazards form, if the fitted model was a Weibull or
     exponential model (extreme value distribution with "log" link).

_U_s_a_g_e:

     pphsm(fit)
     ## S3 method for class 'pphsm':
     print(x, correlation=TRUE, ...)

_A_r_g_u_m_e_n_t_s:

     fit: fit object created by 'psm'

       x: result of 'psm'

correlation: set to 'FALSE' to suppress printing of correlation matrix
          of parameter estimates

     ...: ignored

_V_a_l_u_e:

     a new fit object with transformed parameter estimates

_A_u_t_h_o_r(_s):

     Frank Harrell
      Department of Biostatistics
      Vanderbilt University
      f.harrell@vanderbilt.edu

_S_e_e _A_l_s_o:

     'psm', 'summary.Design', 'print.pphsm'

_E_x_a_m_p_l_e_s:

     set.seed(1)
     S <- Surv(runif(100))
     x <- runif(100)
     dd <- datadist(x); options(datadist='dd')
     f <- psm(S ~ x, dist="exponential")
     summary(f)        # effects on log(T) scale
     f.ph <- pphsm(f)
     summary(f.ph)     # effects on hazard ratio scale
     options(datadist=NULL)

