library(stpm)
#Prepare data for optimization
data <- prepare_data(x=system.file("data","longdat.csv",package="stpm"),
y=system.file("data","vitstat.csv",package="stpm"))
#Parameters estimation (default model: discrete-time):
p.discr.model <- spm(data)
p.discr.model
# Continuous-time model:
p.cont.model <- spm(data, model="continuous")
p.cont.model
#Model with time-dependent coefficients:
data <- prepare_data(x=system.file("data","longdat.csv",package="stpm"),
y=system.file("data","vitstat.csv",package="stpm"),
covariates="BMI")
p.td.model <- spm(data, model="time-dependent")
p.td.model
Run the code above in your browser using DataLab