I am attempting to represent dispersion models from multiple fire sources using splitR (v0.4) in R.
I have a dataframe with different hotspot with different lat/lon values.
I tried with add_grid function but doesn't work with create_dispersion model.
I also tried "lat = fire$lat, lon = fire$lon" but it requires only one value to function.
Do you have an idea?
Thank you very much
So, here is my code:
Code: Select all
library(devtools)
install_github("rich-iannone/splitr")
library(splitr)
library(tidyverse)
fire <- read.csv("E:/Doctorat Montpellier/csv_fires/13072022_fire.csv", sep = ";")
#Create the HYSPLIT Particle Dispersion Model
#fonctionne
dispersion_model_2 <-
create_dispersion_model() |>
add_source(
name = "particle",
lat = 44.58,lon = -1.17,height = 50,
rate = 3000, pdiam = 2.5, density = 1.5, shape_factor = 0.6,
release_start = lubridate::ymd_hm("2022-07-16 00:00"),
release_end = lubridate::ymd_hm("2022-07-17 00:00") + lubridate::hours(1)
) |>
add_dispersion_params(
start_time = lubridate::ymd_hm("2022-07-16 00:00"),
end_time = lubridate::ymd_hm("2022-07-17 00:00") + lubridate::hours(6),
direction = "forward",
met_type = "reanalysis",
met_dir = NULL,
exec_dir = NULL
) |>
run_model()
#Extract the Dispersion Data Table
dispersion_tbl_20 <- dispersion_model_2 %>% get_output_tbl()
dispersion_model_2 %>% dispersion_plot