R/ismdi.R

# this function by Uwe Ligges; used with permission

ismdi <- function(){
    return(mdi = as.logical(.C("ismodemdi", as.integer(0), PACKAGE = "Rcmdr1")[[1]]))
}

Try the Rcmdr1 package in your browser

Any scripts or data that you put into this service are public.

Rcmdr1 documentation built on May 2, 2019, 4:30 p.m.