EvapoTransp {pder}

Evapotranspiration

Description

a pseudo-panel of 86 areas from 2008

number of observations : 430

number of individual observations : 5

country : France

package : panel

Chapter : 10

Usage

data(EvapoTransp)

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

Source

kindly provided by the authors

References

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

Examples

#### Example 10-14

## ------------------------------------------------------------------------
## Not run: 
data("EvapoTransp", package = "pder")
data("etw", package = "pder")
if (requireNamespace("splm")){
    library("splm")
    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("plm")
if (requireNamespace("lmtest")){
    coeftest(plm(evapo, EvapoTransp, model="pooling"))
}

## ------------------------------------------------------------------------

if (requireNamespace("lmtest") & requireNamespace("splm")){
    coeftest(spreml(evapo, EvapoTransp, w=etw, errors="sem"))
}



#### Example 10-17

## ------------------------------------------------------------------------

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

## End(Not run)