R/unLexis.R

In Epi: Statistical Analysis in Epidemiology

Defines functions unLexis

Documented in unLexis

unLexis <-
function(Lx)
{
if (!inherits(Lx, "Lexis")) stop("Not a Lexis object")
attr(Lx, "time.scales") <- NULL
attr(Lx, "time.since") <- NULL
attr(Lx, "breaks") <- NULL
attr(Lx, "class") <- setdiff(attr(Lx, "class"), "Lexis")
Lx
}

Try the Epi package in your browser