# NOT RUN {
## load preprocessed data
data(dataFinal)
## set or load params
params <- c(0, 100)
## apply model
result <- tsm.solve(params, dataFinal,
silent=FALSE, out2File=FALSE)
# }
Run the code above in your browser using DataLab