kylebaron

library(mrgsolve)

## Create a project directory with no spaces in the path
proj <- "c:/my_mrgsolve_models"
if(!file.exists(proj)) dir.create(proj)

code <- '
$PARAM KE = 0.1
$CMT CENT
$ODE dxdt_CENT = -KE*CENT;

kylebaron

library(shiny)
library(mrgsolve)
library(dplyr)
library(magrittr)
library(parallel)

RNGkind("L'Ecuyer-CMRG")
set.seed(101)
mc.reset.stream()

kylebaron

library(MASS)
library(shiny)
library(mrgsolve)
library(dplyr)
library(magrittr)
library(parallel)

RNGkind("L'Ecuyer-CMRG")

kylebaron

library(shiny)
library(dplyr)
library(parallel)
library(Rcpp)

RNGkind("L'Ecuyer-CMRG")
set.seed(101)
mc.reset.stream()

kylebaron

  
  library(shiny)
  library(mrgsolve)
  library(dplyr)
  library(magrittr)
  library(parallel)
  
  RNGkind("L'Ecuyer-CMRG")
  set.seed(101)
  mc.reset.stream()

kylebaron

  
  library(shiny)
  library(mrgsolve)
  library(dplyr)
  library(magrittr)
  library(parallel)
  
  RNGkind("L'Ecuyer-CMRG")
  set.seed(101)
  mc.reset.stream()

kylebaron

# Check your current path
path0 <- Sys.getenv("PATH")
path0

# You need to check the specifics of where Rtools is located on your system
path <- "C:\\Program Files\\R\\R-3.2.3\\bin\\x64;c:\\Rtools32\\bin;c:\\Rtools32\\gcc-4.6.3\\bin;"

# Create a new path
path <- paste0(path,path0,sep=";")

kylebaron

A user-defined function

This uses just C++ for now.

user <- '
#include <vector>
#include <numeric>

kylebaron

library(dplyr)
library(magrittr)
library(mrgsolve)
library(rbenchmark)


code <- '
$CMT GUT CENT PERIPH
$PKMODEL ncmt=2, trans=2
$PARAM CL=1, V2=20, Q = 12, V3 = 200, KA=2

kylebaron

library(dplyr)
library(magrittr)
library(mrgsolve)

code <- '
$CMT GUT  
$PKMODEL ncmt=1,depot=FALSE