1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/saemix.R
\name{saemix}
\alias{saemix}
\alias{saemix.mmkin}
\alias{saemix_model}
\alias{saemix_data}
\title{Create saemix models}
\usage{
saemix(model, data, control, ...)
\method{saemix}{mmkin}(
model,
data,
control = list(displayProgress = FALSE, print = FALSE, save = FALSE, save.graphs =
FALSE),
verbose = FALSE,
...
)
saemix_model(object, cores = 1, verbose = FALSE, ...)
saemix_data(object, verbose = FALSE, ...)
}
\arguments{
\item{model}{For the default method, this is an \link[saemix:saemixModel]{saemix::saemixModel} object.
If this is an \link{mmkin} row object, the \link[saemix:saemixModel]{saemix::saemixModel} is created
internally from the \link{mmkin} object.}
\item{\dots}{Further parameters passed to \link[saemix:saemixData]{saemix::saemixData}
and \link[saemix:saemixModel]{saemix::saemixModel}.}
\item{verbose}{Should we print information about created objects?}
\item{object}{An \link{mmkin} row object containing several fits of the same
\link{mkinmod} model to different datasets}
\item{cores}{The number of cores to be used for multicore processing using
\code{\link[parallel:mclapply]{parallel::mclapply()}}. Using more than 1 core is experimental and may
lead to uncontrolled forking, apparently depending on the BLAS version
used.}
}
\value{
An \link[saemix:SaemixObject-class]{saemix::SaemixObject}.
An \link[saemix:SaemixModel-class]{saemix::SaemixModel} object.
An \link[saemix:SaemixData-class]{saemix::SaemixData} object.
}
\description{
The saemix function defined in this package is an S3 generic function
using \code{\link[saemix:saemix]{saemix::saemix()}} as its method for \link[saemix:SaemixModel-class]{saemix::SaemixModel} objects.
}
\details{
The method for mmkin row objects sets up a nonlinear mixed effects model 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.
Starting values for the fixed effects (population mean parameters, argument psi0 of
\code{\link[saemix:saemixModel]{saemix::saemixModel()}} are the mean values of the parameters found using
\link{mmkin}.
}
\examples{
\dontrun{
library(saemix)
ds <- lapply(experimental_data_for_UBA_2019[6:10],
function(x) subset(x$data[c("name", "time", "value")]))
names(ds) <- paste("Dataset", 6:10)
f_mmkin_parent_p0_fixed <- mmkin("FOMC", ds, cores = 1,
state.ini = c(parent = 100), fixed_initials = "parent", quiet = TRUE)
f_saemix_p0_fixed <- saemix(f_mmkin_parent_p0_fixed)
m_saemix_p0_fixed <- saemix_model(f_mmkin_parent_p0_fixed["FOMC", ])
d_saemix_parent <- saemix_data(f_mmkin_parent_p0_fixed)
saemix_options <- list(seed = 123456, displayProgress = FALSE,
save = FALSE, save.graphs = FALSE, nbiter.saemix = c(200, 80))
f_saemix_p0_fixed <- saemix(m_saemix_p0_fixed, d_saemix_parent, saemix_options)
f_mmkin_parent <- mmkin(c("SFO", "FOMC", "DFOP"), ds, quiet = TRUE)
m_saemix_sfo <- saemix_model(f_mmkin_parent["SFO", ])
m_saemix_fomc <- saemix_model(f_mmkin_parent["FOMC", ])
m_saemix_dfop <- saemix_model(f_mmkin_parent["DFOP", ])
d_saemix_parent <- saemix_data(f_mmkin_parent["SFO", ])
f_saemix_sfo <- saemix(m_saemix_sfo, d_saemix_parent, saemix_options)
f_saemix_fomc <- saemix(m_saemix_fomc, d_saemix_parent, saemix_options)
f_saemix_dfop <- saemix(m_saemix_dfop, d_saemix_parent, saemix_options)
compare.saemix(list(f_saemix_sfo, f_saemix_fomc, f_saemix_dfop))
f_mmkin_parent_tc <- update(f_mmkin_parent, error_model = "tc")
m_saemix_fomc_tc <- saemix_model(f_mmkin_parent_tc["FOMC", ])
f_saemix_fomc_tc <- saemix(m_saemix_fomc_tc, d_saemix_parent, saemix_options)
compare.saemix(list(f_saemix_fomc, f_saemix_fomc_tc))
dfop_sfo <- mkinmod(parent = mkinsub("DFOP", "A1"),
A1 = mkinsub("SFO"))
f_mmkin <- mmkin(list("DFOP-SFO" = dfop_sfo), ds, quiet = TRUE)
m_saemix <- saemix_model(f_mmkin)
d_saemix <- saemix_data(f_mmkin)
f_saemix <- saemix(m_saemix, d_saemix, saemix_options)
}
}
|
