A function to cut follow-up at intermediate event times.
Cuts follow-up at intermediate event times, multiple events per person
are allowed, as well as recurrences of the sme type of event. The
resulting states only refer to the last assumed state, unlike the result
from mcutLexis
.
rcutLexis( Lx, cut, timescale = 1, precursor.states = transient(Lx))
Lx |
A |
cut |
A data frame with columns |
timescale |
What time scale do values in |
precursor.states |
an optional vector of states to be considered
as "less severe" than |
A Lexis
object with follow-up cut at the event
times supplied in cut
Bendix Carstensen, http://bendixcarstensen.com
df <- data.frame(lex.id = rep(c(3, 7), c(3, 5))) df$new.state <- sample(LETTERS[2:4], 8, r = TRUE) df$cut <- round(runif(8) * 100) + 1 df Lx <- Lexis( exit = list(time=c(89, 97)), id = c(3, 7), exit.status = factor(c("A", "X")) ) Lx rcutLexis(Lx, df, pre = "A")
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.