assertDeprecation <- function(expr)
tools::assertCondition(expr, verbose = TRUE,
if(getRversion() >= "3.6.0") "deprecatedWarning" else "warning")
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