data("Coll_Blasco_2006")
data_example <- make_deadata(Coll_Blasco_2006,
ni = 2,
no = 2)
result <- model_basic(data_example,
orientation = "io",
rts ="crs")
rts(result)
Run the code above in your browser using DataLab