R/utilities.R

Defines functions get_rhs get_head

## get LHS of formula (element 3), then take its head (element 1)
get_head <- function(x) deparse(get_rhs(x)[[1]])

get_rhs <- function(x) x[[3]]
parksw3/fitode documentation built on April 3, 2024, 7:45 a.m.