# get a couple of traces for demonstration purpose
a_model <- dmc_dm()
some_traces <- simulate_traces(a_model, k = 3)
# Plots for traces_dm_list objects ----------------------------------------
# basic plot
plot(some_traces)
# a slightly more beautiful plot :)
plot(some_traces,
col = c("green", "red"),
xlim = c(0, 0.35),
xlab = "Time [s]",
ylab = bquote(Realizations ~ of ~ X[t]),
legend_pos = "bottomright"
)
# Plots for traces_dm objects ---------------------------------------------
# we can also extract a single set of traces and plot them
one_set_traces <- some_traces$comp
plot(one_set_traces)
# modifications to the plot work in the same way
plot(one_set_traces,
col = "green",
xlim = c(0, 0.35),
xlab = "Time [s]",
ylab = bquote(Realizations ~ of ~ X[t]),
legend = "just comp"
)
Run the code above in your browser using DataLab