This example creates downwash inputs for a 10x10x10 building that is rotated 45 degrees and located 20 meters West of the air emissions source.
library(installEPA) install_epa("bpip", dir = "EPA")
library(bpip) builds <- new_bpip() library(knitr) kable(builds)
builds$bld_rotation <- 45 builds$length_x <- 10 builds$angle_from_source <- 270 kable(builds)
plot_bpip(builds)
builds <- rbind(builds, builds) builds$building[2] <- "Bld_2" builds$angle_from_source[2] <- 90 builds$bld_rotation[2] <- 60 builds$bld_height[2] <- 15 kable(builds)
plot_bpip(builds)
write_bpip(builds, "rotated_building.bpi")
run_bpip("rotated_building.bpi", "rotated_results", exe_folder = "EPA/")
results <- read_bpip_out(file = "rotated_results.out", as_text = FALSE) kable(results)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.