## Not run:
# library(stpm)
# data.continuous <- simdata_cont(N=1000)
# data.discrete <- simdata_discr(N=1000)
# data <- list(data.continuous, data.discrete)
# p.discr.model <- spm(data)
# p.discr.model
# p.cont.model <- spm(data, model="continuous")
# p.cont.model
# p.td.model <- spm(data,
# model="time-dependent",f=list(at="aa*t+bb", f1t="f1", Qt="Q", ft="f", bt="b", mu0t="mu0"),
# start=list(a=-0.001, bb=0.05, f1=80, Q=2e-8, f=80, b=5, mu0=1e-3))
# p.td.model
# ## End(Not run)
Run the code above in your browser using DataLab