# \donttest{
# Example 1 dataset
dat <- data.frame("ry" = c(65,80,85,88,90,94,93,96,97,95,98,100,99,99,100),
"stv" = c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15))
# Run
fit_example_cn_1971 <- cate_nelson_1971(data = dat,
ry = ry, stv = stv, tidy=FALSE, plot=FALSE)
fit_example_cn_1971
# }
Run the code above in your browser using DataLab