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

### See Also

`cutLexis`, `mcutLexis`, `addCov.Lexis`, `Lexis`, `splitLexis`

### 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]