TUWmodel (version 0.1-2)

example_TUWmodel: Data-sample

Description

Data for examples in the package

Usage

data(example_TUWmodel)

format

The data are time series for the river Vils at Vils (Laende):

1. Q_Vilsvector of observed daily discharges (mm/day);
2. P_Vilsmatrix of observed daily precipitation (mm/day) for 6 zones;
3. T_Vilsmatrix of observed daily temperatures (degC) for 6 zones;
4. PET_Vilsmatrix of potential evapotranspiration (mm/day) for 6 zones;
5. SWE_Vilsmatrix of observed snow water equivalent (mm) for 6 zones;
6. areas_Vilsareas of the 6 zones.

Examples

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]")