diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-25 13:01:23 +0200 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-25 13:01:23 +0200 |
commit | 9f9336d59e68690472888bfdeb12944176d7d272 (patch) | |
tree | 0d50debb2a06daa506e8c45925637ccb862a8787 /man | |
parent | f345762ddcdac65b0d565c7a622d32c1f849e7c7 (diff) |
First working version of saemix helper functions
saemix_data depends on a development version of saemix, see
pull request saemixdevelopment/saemixextension#2
Diffstat (limited to 'man')
-rw-r--r-- | man/saemix.Rd | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/man/saemix.Rd b/man/saemix.Rd new file mode 100644 index 00000000..292c25aa --- /dev/null +++ b/man/saemix.Rd @@ -0,0 +1,43 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/saemix.R +\name{saemix_model} +\alias{saemix_model} +\alias{saemix_data} +\title{Create saemix models from mmkin row objects} +\usage{ +saemix_model(object) + +saemix_data(object, ...) +} +\arguments{ +\item{object}{An mmkin row object containing several fits of the same model to different datasets} + +\item{\dots}{Further parameters passed to \link[saemix:saemixData]{saemix::saemixData}} +} +\value{ +An \link[saemix:SaemixModel]{saemix::SaemixModel} object. + +An \link[saemix:SaemixData]{saemix::SaemixData} object. +} +\description{ +This function sets up a nonlinear mixed effects model for an mmkin row +object for use with the saemix package. An mmkin row object is essentially a +list of mkinfit objects that have been obtained by fitting the same model to +a list of datasets. +} +\examples{ +ds <- lapply(experimental_data_for_UBA_2019[6:10], + function(x) subset(x$data[c("name", "time", "value")])) +names(ds) <- paste("Dataset", 6:10) +sfo_sfo <- mkinmod(parent = mkinsub("SFO", "A1"), + A1 = mkinsub("SFO")) +f_mmkin <- mmkin(list("SFO-SFO" = sfo_sfo), ds, quiet = TRUE, cores = 5) +\dontrun{ +if (require(saemix)) { + m_saemix <- saemix_model(f_mmkin) + d_saemix <- saemix_data(f_mmkin) + saemix_options <- list(seed = 123456, save = FALSE, save.graphs = FALSE) + saemix(m_saemix, d_saemix, saemix_options) +} +} +} |