Cannot plot a sit_survival object with a single population.
library(sit)
packageVersion("sit")
#> [1] '1.1.2.9008'
s1 <- sit_survival(
sit_prototype,
following_releases = sit_revents(sit_prototype)[1,],
following_days = 5
)
plot(s1)
#> Error in `contrasts<-`(`*tmp*`, value = contr.funs[1 + isOF[nn]]): contrasts can be applied only to factors with 2 or more levels
s_pool <- sit_survival(sit_prototype, pool = TRUE)
plot(s_pool)
#> Error in `contrasts<-`(`*tmp*`, value = contr.funs[1 + isOF[nn]]): contrasts can be applied only to factors with 2 or more levels
Created on 2022-08-31 with reprex v2.0.2