"sme"(object,tme,ind,verbose=F,lambda.mu=NULL,lambda.v=NULL,maxIter=500,
knots=NULL,zeroIntercept=F,deltaEM=1e-3,deltaNM=1e-3,criteria="AICc",...)data.frame with named variables y, tme, ind and,
optionally, variable. The first three represent observations, corresponding time points and
correpsonding subjects respectively. If variable is missing then these are used to carry
out a single model fit. If variable is present then it denotes variable membership, and a
separate smoothing-splines mixed-effects model is fit to each unique variableTRUE, debug information will be output while fitting the model(s)NULL if the optimal values for this and
lambda.v should be found according to criteria using Nelder-Mead search. For the
case of multiple model fits, either a single smoothing parameter to be used for all fits, or a
vector of smoothing parameters, one for each fit, or NULL if Nelder-Mead search should be
used to find the optimal values for this and lambda.v for all variablesNULL if the optimal values for this and
lambda.mu should be found according to criteria using Nelder-Mead search. For the
case of multiple model fits, either a single smoothing parameter to be used for all fits, or a
vector of smoothing parameters, one for each fit, or NULL if Nelder-Mead search should be
used to find the optimal values for this and lambda.mu for all variablesNULL, an incidence matrix representation will be
used. See `Details'TRUE, the fitted values of the fixed- and
random-effects functions at the intercept will be zero"AICc", "AIC", "BICN" or "BICn" indicating
which criteria to use to score a particular combination of lambda.mu and lambda.v in
the Nelder-Mead searchnumberOfThreads indicating the number of threads used to carry out the multiple fits in
parallel. See sme.list for detailssme. For multiple model fits, a list
of such objects. See smeObject for the components of the fit and plot.sme for
visualisation options
knots of length (much) less than the number of
distinct time points.
smeObject, sme, sme.list, plot.sme data(MTB)
system.time(fits <- sme(MTB,numberOfThreads=1))
sapply(fits,logLik)
system.time(fits <- sme(MTB,numberOfThreads=10))
sapply(fits,logLik)
Run the code above in your browser using DataLab