# NOT RUN {
df1 <- dataCensored[dataCensored$station=="CB3.3C","chla"][1:30]
colnames(df1)
# Default values
df2 <- unSurv(df1)
colnames(df2)
# User values
df3 <- unSurv(df1, "LOW", "HIGH")
colnames(df3)
# }
Run the code above in your browser using DataLab