dyn.load('Eubank-Hello.so')
is.loaded('hello')

.C("hello",as.integer(3))

#############################################

dyn.load('X.so')
is.loaded('func')
.C('func',as.integer(3))
dyn.unload('X.so')

#############################################
dyn.load('rngEX.so')

x<-vector("double",3)
set.seed(123)
result<-.C("rngFunc", as.integer(3), as.double(1), as.double(2), x)
result[[4]]

.C("rngFunc", as.integer(3), as.double(1), as.double(2), x)[[4]]

set.seed(123)
.C("rngFunc", as.integer(3), as.double(1), as.double(2), x)[[4]]

#############################################
dyn.load("fmR.so")
is.loaded("rngFM")

rngFM<-function(N,seed){
  .C("rngFM", as.integer(N), as.integer(seed))
}

rngFM(5,123)