is.R <- function () {
   if (exists("version") && !is.null(vl <- version$language) &&
      vl=="R") {
      return( T )
   }
   else
      return( F )
}

library(MASS)
library(Matrix)
if(is.R()) {
   library(class)
   library(e1071)
   library(KernSmooth)
   library(lokern)
   library(mgcv)
   library(modreg)
   library(mvtnorm)
   library(nls)
   library(splines)
   library(eda)
   library(mclust)
}