data.frame
## 'data.frame': 51 obs. of 6 variables:
## Formal class 'WaterLevelDataFrame' [package "hyd1d"] with 9 slots
## ..@ .Data :List of 6
## ..@ river : chr "Elbe"
## ..@ time : POSIXct, format: "2016-12-21"
## ..@ gauging_stations :'data.frame': 4 obs. of 27 variables:
## ..@ gauging_stations_missing: chr
## ..@ comment : chr "Computed by waterLevel()."
## ..@ names : chr "station" "station_int" "w" ...
## ..@ row.names : chr "1" "2" "3" ...
## ..@ .S3Class : chr "data.frame"
## station station_int w section weight_x weight_y
## 1 257.0 257000 55.35 1 0.06557377 0.1833680
## 2 257.1 257100 55.33 1 0.05737705 0.1845542
## 3 257.2 257200 55.31 1 0.04918033 0.1857403
## 4 257.3 257300 55.29 1 0.04098361 0.1869264
## 5 257.4 257400 55.27 1 0.03278689 0.1881126
## 6 257.5 257500 55.25 1 0.02459016 0.1892987
## 'data.frame': 4 obs. of 27 variables:
## $ id : int 13 14 15 16
## $ gauging_station : chr "VOCKERODE" "ROSSLAU" "DESSAU" ...
## $ uuid : chr "ae93f2a5-612e-4514-b5fd-9c8aecdd73c7" "e97116a4-7d30-4671-8ba1-cdce0a153d1d" "1edc5fa4-88af-47f5-95a4-0e77a06fe8b1" ...
## $ km : num 246 258 261 275
## $ km_qps : num 246 258 261 275
## $ river : chr "ELBE" "ELBE" "ELBE" ...
## $ longitude : num 12.4 12.2 12.2 12.1
## $ latitude : num 51.9 51.9 51.9 51.9
## $ mw : num 2.35 2.11 2.27 2.15
## $ mw_timespan : chr "2000-11-01 - 2010-10-31" "2000-11-01 - 2010-10-31" "2000-11-01 - 2010-10-31" ...
## $ pnp : num 55.9 53.8 52.9 50.2
## $ w : num 152 137 165 150
## $ wl : num 57.5 55.2 54.6 51.7
## $ n_wls_below_w_do : int NA 3 4 4
## $ n_wls_above_w_do : int NA 27 26 26
## $ n_wls_below_w_up : int 3 3 4 NA
## $ n_wls_above_w_up : int 27 27 26 NA
## $ name_wl_below_w_do: chr NA "0.5MQ" "0.5MQ" ...
## $ name_wl_above_w_do: chr NA "a" "0.75MQ" ...
## $ name_wl_below_w_up: chr "0.5MQ" "0.5MQ" "a" ...
## $ name_wl_above_w_up: chr "a" "0.75MQ" "0.75MQ" ...
## $ w_wl_below_w_do : num NA 55.1 54.2 51.7
## $ w_wl_above_w_do : num NA 55.4 54.8 51.9
## $ w_wl_below_w_up : num 57.4 55.1 54.5 NA
## $ w_wl_above_w_up : num 57.7 55.7 54.8 NA
## $ weight_up : num 0.0481 0.1 0.2654 NA
## $ weight_do : num NA 0.193 0.646 0.173
qpf
)dgm
)station_int
auf die Querprofilflächen
(qpf
)ufd[qpf > dgm] = ufd[qpf > dgm] + 1
flood3()
Überflutungsflächen und -dauern zu berechnenSpatRaster
dgm
) und der Querprofilflächen (qpf
)dgm
) zur VerfügungSpatRaster
müssen nur die Ausdehnung (ext
) und
das Koordinatensystem (crs
) angegeben werdenhydSpatRaster
mit Nutzer-eigenen
Datensätzenx <- hydSpatRaster(filename_dem = "data-raw/raster.dem.tif",
filename_csa = "data-raw/raster.csa.tif")
extent(x)
und CRS(x)
SpatRaster
initialisieren und Daten herunterladen## S4 class 'SpatRaster' [package "terra"]
# Initialisierung von x mit eigenen Datensätzen
x <- hydSpatRaster(filename_dem = "data-raw/raster.dem.tif",
filename_csa = "data-raw/raster.csa.tif")
# Sequenz des Berechnungszeitraums
seq <- seq.Date(from = as.Date("2017-01-01"),
to = as.Date("2017-12-31"),
by = "day")
# Berechnung der Ãœberflutungsdauer
ufd <- flood3(x = x, seq = seq)