Description Usage Format Examples
Data for examples in the package
1 |
The data are time series for the river Vils at Vils (Laende):
Q_Vils
vector of observed daily discharges [mm/day];
P_Vils
matrix of observed daily precipitation [mm/day] for 6 zones;
T_Vils
matrix of observed daily temperatures [degC] for 6 zones;
PET_Vils
matrix of potential evapotranspiration [mm/day] for 6 zones;
SWE_Vils
matrix of observed snow water equivalent [mm] for 6 zones;
areas_Vils
areas of the 6 zones.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | data(example_TUWmodel)
ls()
t <- as.Date(rownames(P_Vils))
plot(t, apply(P_Vils, 1, weighted.mean, w=areas_Vils),
type="S", xlab="", ylab="Precipitation [mm/day]")
plot(t, apply(PET_Vils, 1, weighted.mean, w=areas_Vils),
type="l", xlab="", ylab="Potential evapotranspiration [mm/day]")
plot(t, T_Vils[,1], type="l", xlab="", ylab="Temperature [degC]")
lines(t, T_Vils[,6], col=3)
plot(t, SWE_Vils[,6], col=3, type="l", xlab="", ylab="Snow water equivalent [mm]")
lines(t, SWE_Vils[,1], col=1)
plot(as.Date(names(Q_Vils)), Q_Vils, type="l", xlab="", ylab="Runoff [mm/day]")
|
[1] "PET_Vils" "P_Vils" "Q_Vils" "SWE_Vils" "T_Vils"
[6] "areas_Vils"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.