R/ismdi.R

# this function by Uwe Ligges; used with permission

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

Try the Rcmdr205 package in your browser

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

Rcmdr205 documentation built on May 2, 2019, 5:52 p.m.