EvapoTransp: Evapotranspiration

Description

a pseudo-panel of 86 areas

number of observations : 430

number of individual observations : 5

country : France

Chapter : 10

Usage

data(EvapoTransp)

Arguments

Format

A dataframe containing:

id: observation site
period: measuring period
et: evapotranspiration
prec: precipitation
meansmd: mean soil moisture deficit
potet: potential evapotranspiration
infil: infiltration rate
biomass: biomass
biomassp1: biomass in early growing season
biomassp2: biomass in main growth period
biomassp3: peak biomass
biomassp4: peak biomass after clipping
biomassp5: biomass in autumn
plantcover: plant cover
softforbs: soft-leaved forbs
tallgrass: tall grass
diversity: species diversity
matgram: mat-forming graminoids
dwarfshrubs: dwarf shrubs
legumes: abundance of legumes

References

Obojes, N.; Bahn, M.; Tasser, E.; Walde, J.; Inauen, N.; Hiltbrunner, E.; Saccone, P.; Lochet, J.; Cl<U+00E9>ment, J. and S. Lavorel (2015) “Vegetation Effects on the Water Balance of Mountain Grasslands Depend on Climatic Conditions”, Ecohydrology, 8(4), 552-569, 10.1002/eco.1524 .

Examples

Run this code

# NOT RUN {
#### Example 10-14

## ------------------------------------------------------------------------
# }
# NOT RUN {
data("EvapoTransp", package = "pder")
library("splm")
data("etw", package = "pder")
evapo <- et ~ prec + meansmd + potet + infil + biomass + plantcover +
  softforbs + tallgrass + diversity + matgram + dwarfshrubs + legumes
semsr.evapo <- spreml(evapo, data=EvapoTransp, w=etw,
                      lag=FALSE, errors="semsr")
summary(semsr.evapo)

## ------------------------------------------------------------------------
library("lmtest")
library("plm")
coeftest(plm(evapo, EvapoTransp, model="pooling"))

## ------------------------------------------------------------------------
coeftest(spreml(evapo, EvapoTransp, w=etw, errors="sem"))



#### Example 10-17

## ------------------------------------------------------------------------
saremsrre.evapo <- spreml(evapo, data = EvapoTransp,
                          w = etw, lag = TRUE, errors = "semsr")
summary(saremsrre.evapo)$ARCoefTable
round(summary(saremsrre.evapo)$ErrCompTable, 6)
# }

Run the code above in your browser using DataCamp Workspace