The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
library(SamsaRaLight)
# Load example inventory
data("data_cloture20")
# Create virtual stand
stand <- create_sl_stand(
trees_inv = data_cloture20$trees,
cell_size = 5,
latitude = 50.03617,
slope = 0,
aspect = 0,
north2x = 90,
sensors = data_cloture20$sensors,
core_polygon_df = data_cloture20$core_polygon,
fill_around = TRUE
)
# Observe input stand
summary(stand)
plot(stand)
plot(stand, top_down = TRUE)
# Get radiation data from PVGIS online database
rad <- get_monthly_radiations(
latitude = 50.03617,
longitude = 5.20634
)
# Run the model
out <- run_sl(
sl_stand = stand,
monthly_rad = rad
)
# Plot results
summary(out)
plot(out)
plot(out, show_trees = FALSE)These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.