R/print.wcmd.R

print.wcmd <- function(x, ...) {

  cat("\nWinsteps Command File\n\n")
  if(!is.null(x$title))
    cat("Title:", x$title, "\n")
  cat("Data: ", x$data, "\n\n")

}
talbano/rwinsteps documentation built on May 24, 2019, 7:31 a.m.