# NOT RUN {
# Restricted G-StMAR-model without data
params42gsr <- c(0.11, 0.03, 1.27, -0.39, 0.24, -0.17, 0.03, 1.01, 0.3, 2.03)
gstmar42r <- GSMAR(p=4, M=c(1, 1), params=params42gsr,
model="G-StMAR", restricted=TRUE)
gstmar42r
# Add data to the model
gstmar42r <- add_data(data=T10Y1Y, gstmar42r)
gstmar42r
# }
Run the code above in your browser using DataLab