R/formula.distfreereg.R

In distfreereg: Distribution-Free Goodness-of-Fit Testing for Regression

Defines functions formula.distfreereg

Documented in formula.distfreereg

formula.distfreereg <-
  function(x, ...){
    stopifnot(is.list(x))
    if(is.null(x[["test_mean"]])){
      output <- NULL
    } else {
      output <- tryCatch(formula(x[["test_mean"]]), error = function(e) NULL)
    }
    return(output)
  }

Try the distfreereg package in your browser