# NOT RUN {
ts <- data.frame(lh=lh,time=seq(48)) ## using 'lh' data from 'stats' package
myARp <- ARp # defines 'new' corrFamily from built-in one
register_cF("myARp") # register it
fitme(lh ~ 1 + myARp(1|time), data=ts, method="REML")
#
# same as
#
fitme(lh ~ 1 + corrFamily(1|time), data=ts, method="REML",
covStruct=list(corrFamily=myARp()))
## Specifying arguments of the corrFamily constructor:
fitme(lh ~ 1 + myARp(1|time, p=3), data=ts, method="REML")
#
# same as
#
fitme(lh ~ 1 + corrFamily(1|time), data=ts, method="REML",
covStruct=list(corrFamily=ARp(p=3)))
register_cF(reset=TRUE) # Tidy things before leaving.
# }
Run the code above in your browser using DataLab