kylebaron

library(mrgsolve)

## mrgsolve: Community Edition

## www.github.com/metrumresearchgroup

Setup the model

code <- '

kylebaron

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

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

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

A user-defined function

This uses just C++ for now.

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

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

  
  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

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

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(mrgsolve)
library(dplyr)
library(magrittr)
library(parallel)

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