proportional odds assumption in r

#1
Dear All,

I would like to check proportional odds assumption below. I need to graph
log((1-S(t))/S(t)) versus log t. I also want to label y axis as log((1-S(t))/S(t)) and x axis as log t. Can anybody help me with below data set?
Thank you.

PHP:
data(tongue); attach(tongue)
survival=survfit(Surv(time,delta)~ 1)
 
Last edited: