R/getSource.R

In xprimexinverse/pxRmisc: Miscellaneous helper functions for pxR package

Defines functions getSource

Documented in getSource

getSource <- function(px){
  if ("px" %in% class(px)){
    px$SOURCE
  }
}