R/as.ifile.R

In Rwinsteps: Running Winsteps in R

Defines functions as.ifile

Documented in as.ifile

as.ifile <- function(x) {

  if(!is.data.frame(x) | length(dim(x)) != 2)
    stop("'x' must be a data frame with dim(x) = 2")

  varcheck(x, c("entry", "measure"))

  class(x) <- c("ifile", "data.frame")

  return(x)
}

Try the Rwinsteps package in your browser