R/ismdi.R

In RcmdrDevel: R Commander

# last modified 2014-04-06 by J. Fox

# this function by Uwe Ligges; used with permission

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