# NOT RUN {
masses <- 1
dampers <- as.matrix(1.5)
springs <- as.matrix(4)
odenet <- ODEnetwork(masses, dampers, springs)
eventdat <- data.frame( var = c("x.1", "x.1")
, time = c(1, 3)
, value = c(1, 3)
, stringsAsFactors = TRUE
)
odenet <- setState(odenet, 0, 0)
odenet <- setEvents(odenet, eventdat)
odenet <- simuNetwork(odenet, seq(0, 10, by = 0.1))
plot(odenet)
# }
Run the code above in your browser using DataLab