## create two sequences, with different parameter values
y1<- sim.GRW(ns=20, ms=0, vs=1)
y2<- sim.GRW(ns=20, ms=0, vs=0.2)
## fit some models with at least some shared dynamics across sequences
m1<- opt.RW.Mult(list(y1,y2), model="GRW")
m2<- opt.RW.SameMs(list(y1, y2))
m3<- opt.RW.SameVs(list(y1,y2))
## fit separate models to each sequence
compareModels(m1, m2, m3)
Run the code above in your browser using DataLab