R/svyjskm.R
changed.
Other files ignored by Codecov
148 | 148 | } |
|
149 | 149 | } |
|
150 | 150 | ||
151 | - | df$strata <- as.factor(df$strata) |
|
151 | + | df$strata <- factor(df$strata, levels = names(sfit)) |
|
152 | 152 | times <- seq(0, max(sapply(sfit, function(x){max(x$time)})), by = timeby) |
|
153 | 153 | if (is.null(ystratalabs)){ |
|
154 | - | ystratalabs <- names(sfit) |
|
154 | + | ystratalabs <- levels(df$strata) |
|
155 | 155 | } |
|
156 | 156 | if (is.null(xlims)){ |
|
157 | 157 | xlims <- c(0,max(sapply(sfit, function(x){max(x$time)}))) |
Files | Coverage |
---|---|
R | 68.26% |
Project Totals (2 files) | 68.26% |