It seems no prediction function in R for censored regression. Here is my derivation and the corresponding R function.