fail.time <- c(10,20)
# set attributes
label(fail.time) <- 'Failure Time'
SASformat(fail.time) <- 'Numeric2'
SASiformat(fail.time) <- 'Numeric2'
# display individual attributes
label(fail.time)
SASformat(fail.time)
SASiformat(fail.time)
# display all attributes
attributes(fail.time)
# Example showing specification of default return value
a <- 70
label(a, default="no label")
# for a nice display
library(Hmisc)
describe(fail.time)
f <- cph(Surv(fail.time, event) ~ xx)
plot(xx,xx2,xlab=label(xx),"s",sep=""))Run the code above in your browser using DataLab