## Compute the linear and squared regression for a random single-case
design <- design(slope = 0.5)
matthea <- random_scdf(design)
trend(matthea)
## Besides the linear and squared regression models compute two custom models:
## a) a cubic model, and
## b) the values predicted by the natural logarithm of the
## measurement time.
design <- design(slope = 0.3)
ben <- random_scdf(design)
trend(
ben,
model = list("Cubic" = values ~ mt^3, "Log Time" = values ~ log(mt)),
first_mt = 1 # must be set to 1 because log(0) would be -Inf
)
Run the code above in your browser using DataLab