Permalink
Browse files

rename run.model.cpp

  • Loading branch information...
1 parent 43f77c5 commit 3ec32b6b8000ff2a90159b9a1af1245bf539f068 @armstrtw committed Aug 28, 2013
@@ -5,15 +5,13 @@ get.model <- function(model.file) {
do.call(paste,as.list(paste(readLines(model.file),"\n")))
}
-src <- get.model("run.model.cpp")
+src <- get.model("cppbugs.model.cpp")
cppbugs.plugin <- getPlugin("RcppArmadillo")
cppbugs.plugin$env$PKG_CXXFLAGS <- "-std=c++0x"
cppbugs.plugin$env$PKG_LIBS <- paste(cppbugs.plugin$env$PKG_LIBS,"-larmadillo")
-##linear.model <- cxxfunction(signature(XR="numeric", yr="numeric",iterations="integer",burn="integer",adapt="integer",adapt_interval="integer",thin="integer"), includes="#include <cppbugs/cppbugs.hpp>",body=src,settings=cppbugs.plugin)
includes <- c("#include <cppbugs/cppbugs.hpp>","#include <cppbugs/deterministics/mcmc.linear.hpp>","#include <cppbugs/deterministics/mcmc.rsquared.hpp>")
-
linear.model <- cxxfunction(signature(XR="numeric", yr="numeric",iterations="integer",burn="integer",adapt="integer",adapt_interval="integer",thin="integer"), includes=includes,body=src,settings=cppbugs.plugin)

0 comments on commit 3ec32b6

Please sign in to comment.