Simulate movement track for a particular Sample
simulate_id(data, id_nr, ctmm_selcetion_type, fitted_tib)
#> Source Code: simulate_id#> function (data, id_nr, ctmm_selcetion_type, fitted_tib) #> { #> cat(paste0(cli::rule(left = fftidy::crayon_set_clr(string = sample_ids[[id_nr]], #> clr = clr_set_base[[sample_ids[[id_nr]]]])), "\n")) #> SIMd <- ctmm::simulate(object = fitted_tib$data[[ctmm_selcetion_type]]$best_model[[id_nr]], #> data = data[[id_nr]]) #> SIMg <- ctmm::simulate(object = fitted_tib$data[[ctmm_selcetion_type]]$best_model[[id_nr]], #> t = data[[id_nr]]$timestamp %>% as.numeric()) #> sim_d_sf <- SIMd %>% sim_to_sf(id_nr = id_nr, type = "data_informed") #> sim_g_sf <- SIMg %>% sim_to_sf(id_nr = id_nr, type = "gaussian") #> data_sf <- data[[id_nr]] %>% as_tibble() %>% select(timestamp, #> x, y) %>% rename(t = "timestamp") %>% sim_to_sf(id_nr = id_nr, #> type = "data") #> tibble(id = sample_ids[[id_nr]], sim_d = list(SIMd), sim_g = list(SIMg), #> sd_sf = list(sim_d_sf), sg_sf = list(sim_g_sf), data_sf = list(data_sf)) #> } #> <bytecode: 0x55a2e87e61c8> #> <environment: namespace:fftidy>