# NOT RUN {
m_synth_SFO_lin <- mkinmod(parent = list(type = "SFO", to = "M1"),
M1 = list(type = "SFO", to = "M2"),
M2 = list(type = "SFO"), use_of_ff = "max")
m_synth_SFO_par <- mkinmod(parent = list(type = "SFO", to = c("M1", "M2"),
sink = FALSE),
M1 = list(type = "SFO"),
M2 = list(type = "SFO"), use_of_ff = "max")
m_synth_DFOP_lin <- mkinmod(parent = list(type = "DFOP", to = "M1"),
M1 = list(type = "SFO", to = "M2"),
M2 = list(type = "SFO"), use_of_ff = "max")
m_synth_DFOP_par <- mkinmod(parent = list(type = "DFOP", to = c("M1", "M2"),
sink = FALSE),
M1 = list(type = "SFO"),
M2 = list(type = "SFO"), use_of_ff = "max")
fit <- mkinfit(m_synth_SFO_lin, synthetic_data_for_UBA_2014[[1]]$data, quiet = TRUE)
plot_sep(fit)
summary(fit)
# }
Run the code above in your browser using DataLab