TUWmodel (version 1.1-1)

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_Vils vector of observed daily discharges [mm/day];

2. P_Vils matrix of observed daily precipitation [mm/day] for 6 zones;

3. T_Vils matrix of observed daily temperatures [degC] for 6 zones;

4. PET_Vils matrix of potential evapotranspiration [mm/day] for 6 zones;

5. SWE_Vils matrix of observed snow water equivalent [mm] for 6 zones;

6. areas_Vils areas of the 6 zones.

Examples

# NOT RUN {
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]")
# }