assertDeprecation <- function(expr)
tools::assertCondition(expr, "deprecatedWarning", verbose = TRUE)
assertDeprecation(
nlme::nfGroupedData(height ~ age | Subject, as.data.frame(Oxboys))
)
assertDeprecation( csId <- corIdent(~ 1 | Subject) )
assertDeprecation( csI. <- Initialize(csId, data = Orthodont) )
assertDeprecation( corMatrix(csI.) ) # actually errors
Run the code above in your browser using DataLab