df1 <- dataCensored[dataCensored$station=="CB3.3C"
& dataCensored$date < as.POSIXct("1985-08-01")
, c("station","date","chla")]
colnames(df1)
# Default values
chla_1 <- unSurv(df1$chla)
colnames(chla_1)
# User values
chla_2 <- unSurv(df1$chla, "LOW", "HIGH")
colnames(chla_2)
Run the code above in your browser using DataLab