Get the elapsed time for estimating the given model.
For lcModel
: Get the estimation time of the model, determined by the time taken for the associated fit()
function to finish.
estimationTime(object, unit = "secs", ...)
# S4 method for class 'lcModel'
estimationTime(object, unit = "secs", ...)
# S4 method for class 'lcModels'
estimationTime(object, unit = "secs", ...)
# S4 method for class 'list'
estimationTime(object, unit = "secs", ...)
The model.
The time unit in which the estimation time should be outputted. By default, estimation time is in seconds. For accepted units, see base::difftime.
Not used.
A non-negative scalar numeric
representing the estimation time in the specified unit..
Other lcModel functions:
clusterNames()
,
clusterProportions()
,
clusterSizes()
,
clusterTrajectories()
,
coef.lcModel()
,
converged()
,
deviance.lcModel()
,
df.residual.lcModel()
,
externalMetric()
,
fitted.lcModel()
,
fittedTrajectories()
,
getCall.lcModel()
,
getLcMethod()
,
ids()
,
lcModel-class
,
metric()
,
model.frame.lcModel()
,
nClusters()
,
nIds()
,
nobs.lcModel()
,
plot-lcModel-method
,
plotClusterTrajectories()
,
plotFittedTrajectories()
,
postprob()
,
predict.lcModel()
,
predictAssignments()
,
predictForCluster()
,
predictPostprob()
,
qqPlot()
,
residuals.lcModel()
,
sigma.lcModel()
,
strip()
,
time.lcModel()
,
trajectoryAssignments()
data(latrendData)
method <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time")
model <- latrend(method, latrendData)
estimationTime(model)
#> [1] 0.008
estimationTime(model, unit = 'mins')
#> [1] 0.0001333333
estimationTime(model, unit = 'days')
#> [1] 9.259259e-08