knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%" )
Estimation des réserves profondes en milieu karstique
# install.packages("devtools") devtools::install_github("ONF-AURA/geoDalle")
En milieu karstique, la possibilité d'accéder a des réserves profondes est fondamentales pour la survie de certaines essences comme le sapin et le cèdre. Cette possibilité dépend de la présence d'une dalle compacte non fissurée. Dans ce cas de figure, le pendage de la strate géologique est souvent conforme (parallèle au sol) et la pente du terrain régulière. Partant de ces caractéristiques, l'objet est de prédire le risque de présence d'une telle contrainte.
library(geoDalle)
dir <- system.file(package = "geoDalle") mnt <- raster::raster(file.path(dir, "data","mnt0.tif")) zn_prf <- sf::read_sf(file.path(dir,"data","zn_prf.shp")) geo_meuble <- sf::read_sf(file.path(dir,"data","geo_meuble.shp")) p.pendage <- sf::read_sf(file.path(dir,"data","p.pendage.shp")) res <- geo_dalle(mnt0=mnt, zn_prf=zn_prf, geo_meuble=geo_meuble, p.pendage=p.pendage)
Carte des prédictions du potentiel de réserves profonde
qm(res$raster) + tmap::tm_shape(zn_prf) + tmap::tm_borders(col="black")
Voir la vignette du package:
library(geoDalle) vignette("geoDalle")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.