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 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`.

### Usage

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

### 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.44 Index]