# Both y and x are censored
data(PbHeron)
with(PbHeron,cenken(Blood,BloodCen,Kidney,KidneyCen))
# x is not censored
data(TCEReg)
with(TCEReg, cenken(log(TCEConc), TCECen, PopDensity))
# Synthetic time-series with trend analysis
set.seed(123)
## Parameters
n <- 15 # 15 years of data
time <- 1:n
## Components
trend <- 0.235 * time
noise <- rnorm(n, mean = 5, sd = 1.5)
syn_dat <- data.frame(Yr = 1989 + time, value = trend + noise)
syn_dat$censored <- syn_dat$value < quantile(syn_dat$value, 0.2)
with(syn_dat,cenken(value,censored,Yr))
if (FALSE) {
plot(value~Yr,syn_dat,pch=21,bg=ifelse(syn_dat$censored==TRUE,"red","blue",cex=1.5))
abline(h=quantile(syn_dat$value, 0.2),lty=2,col="red")
}
Run the code above in your browser using DataLab