R/gspline-package.R

In john-d-fox/gspline: Generalized Regression Splines

#' Canadian Monthly Unemployment Rate
#'
#' Monthly unemployment data for Canada for the period 1995-01-01 through
#' 2019-02-01
#'
#'
#' @name Unemployment
#' @docType data
#' @format A data frame with 290 observations on the following 2 variables.
#' \describe{ \item{date}{a \code{"Date"} object.}
#'
#' \item{unemployment}{Percentage unemployed.} }
#' @source Downloaded from \url{https://research.stlouisfed.org/} on
#' 2019-03-18.
#' @keywords datasets
#' @examples
#'
#'  plot(unemployment ~ date, type="l", lwd=2, data=Unemployment)
#'
#'
#' @importFrom stats knots cov2cor asOneSidedFormula model.frame var coef vcov na.omit formula quantile pf pt qt model.matrix lm.fit update expand.model.frame
#' @importFrom methods slot
#' @importFrom latticeExtra layer glayer
#' @importFrom lattice panel.lines panel.polygon
NULL

getModelData <- function(model) {
  data1 <- data <- model.frame(model)
  vars <- all.vars(formula(model))
  if ("pi" %in% vars) {
    vars <- setdiff(vars, "pi")
    message("the symbol 'pi' is treated as a numeric constant in the model formula")
  }
  cols <- colnames(data)
  check <- vars %in% cols
  if (!(all(check))) {
    missing.cols <- !check
    data1 <- expand.model.frame(model, vars[missing.cols])
  }
  missing.cols <- !cols %in% colnames(data1)
  if (any(missing.cols)) {
    data1 <- cbind(data1, data[missing.cols])
  }
  cols <- colnames(data1)
  valid <- make.names(cols) == cols | grepl("^\\(.*\\)$", cols)
  data1[valid]
}

#' View the Official Hex Sticker for the gspline Package
#' 
#' Open the official hex sticker for the \pkg{gspline} package in your browser.
#' 
#' @author Georges Monette and John Fox
#' @examples 
#' \dontrun{
#' gsplineHexsticker()
#' }
#' @export
gsplineHexsticker <- function(){
  utils::browseURL(paste0("file://", system.file("etc", "gspline-hex.pdf", package="gspline")))
}