proportional odds assumption in r

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.

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