R: A function to cut follow-up at intermediate event times.

rcutLexis {Epi}

R Documentation

A function to cut follow-up at intermediate event times.

Description

Cuts follow-up at intermediate event times, multiple event per pseron are allowed, as well as recurrences. The states only refer to the last assued state, unlike the result from mcutLexis.

Usage

rcutLexis( Lx,
          cut,
    timescale = 1,
    precursor.states)

Arguments

`Lx`	A `Lexis` object to be amended,.
`cut`	A data frame with columns `lex.id`, `cut` (event times) and `new.state` (event type, character)
`timescale`	What time scale do values in `cut$cut` refer to. Numeric or character.
`precursor.states`	an optional vector of states to be considered as "less severe" than `new.state`. See Details in the documentation of `cutLexis`

Value

A Lexis object with follow-up cut at the event times supplied in cut

Author(s)

Bendix Carstensen, http://bendixcarstensen.com

Examples

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")

[Package Epi version 2.42 Index]