View source: R/project_emissions.R
project_emission | R Documentation |
project emissions using growth factors.
project_emission(r, shape, factor = rep(1, nrow(shape)), background = 1)
r |
raster object |
shape |
sf object from a shapefile containing 5 regions |
factor |
numeric vector with 5 growth factors |
background |
growth factors to be used outside the domain (default is 1) |
regions <- sf::read_sf(paste0(system.file("extdata",package="hackWRF"),"/BR_regions.shp"))
factors <- c(1.1,1.5,2,1.5,0.75)
# using XLAT only for test purposis
x <- eixport::wrf_raster(paste0(system.file("extdata",package="hackWRF"),"/wrfinput_d01"),'XLAT')
project_x <- project_emission(x,regions,factors)
plot_raster(project_x,proj = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.