ecoval (version 1.2.10)

ecoval-package: Procedures for the Ecological Assessment of Surface Waters

Description

Functions for evaluating and visualizing ecological assessment procedures for surface waters.

Functions to generate branches (modules) of the assessment value function:

Swiss river assessment program and individual modules (MSK, https://modul-stufen-konzept.ch):

msk.create,
msk.morphol.1998.create,
msk.hydrol.2011.create,
msk.physapp.2007.create,
msk.nutrients.2010.create,
msk.diatoms.2007.create,
msk.invertebrates.2010.create,
msk.fish.2004.create,
msk.macrophytes.2017.create.

Additional modules in the evaluation state:

val.pesticides.create,
val.micropoll.create,
val.heavymetals.create,
val.spear.create,

val.invertebrates.create,

Integrative assessment value function considering modules of the Swiss assessment program and modules at the evaluation stage:

ecoval.river.create,

Moduls of the Swiss lake assessment program (see https://modul-stufen-konzept.ch):

lake.morphol.2016.create,

Node names, attribute names and identifiers for attribute levels (if not numeric) can be translated into different languages. See:

ecoval.dict,
ecoval.translate,
ecoval.dictionaries.default,

Author

Nele Schuwirth <[e-mail]> and Peter Reichert <[e-mail]> with contributions by Simone Langhans and Christian Michel

Maintainer: Nele Schuwirth <[e-mail]>

Details

Package:	ecoval
Type:	Package
Version:	1.2.10
Date:	2025-11-19
License:	GPL-3
Depends:	utility, rivernet, jpeg

References

Langhans, S.D., Lienert, J., Schuwirth, N. and Reichert, P. How to make river assessments comparable: A demonstration for hydromorphology, Ecological Indicators 32, 264-275, 2013. tools:::Rd_expr_doi("10.1016/j.ecolind.2013.03.027")

Langhans, S.D., Reichert, P. and Schuwirth, N. The method matters: indicator aggregation in ecological river assessment. Ecological Indicators 45, 494-507, 2014. tools:::Rd_expr_doi("10.1016/j.ecolind.2014.05.014")

Reichert, P., Schuwirth, N. and Langhans, S. Constructing, evaluating and visualizing value and utility functions for decision support, Environmental Modelling & Software 46, 283-291, 2013. tools:::Rd_expr_doi("10.1016/j.envsoft.2013.01.017")

Reichert, P., Borsuk, M., Hostmann, M., Schweizer, S., Sporri, C., Tockner, K. and Truffer, B. Concepts of decision support for river rehabilitation, Environmental Modelling and Software 22, 188-201, 2007.

https://modul-stufen-konzept.ch

See Also

utility.

Examples

# creation of individual modules:

morphol <- msk.morphol.1998.create()
plot(morphol)

hydrol <- msk.hydrol.2011.create()
plot(hydrol)

physapp <- msk.physapp.2007.create()
plot(physapp)

nutrients <- msk.nutrients.2010.create()
plot(nutrients)

micropoll <- val.micropoll.create()
plot(micropoll)

heavymetals <- val.heavymetals.create()
plot(heavymetals)

spear <- val.spear.create()
plot(spear)

diatoms <- msk.diatoms.2007.create()
plot(diatoms)

invertebrates <- msk.invertebrates.2010.create()
plot(invertebrates)

fish <- msk.fish.2004.create()
plot(fish)

# creation of three versions of assessment programs:

msk <- msk.create(language="EnglishNodes",col="blue")
plot(msk)
plot(msk,with.attrib=FALSE)

ecoval <- ecoval.river.create(language="EnglishNodes",col="red")
plot(ecoval)
plot(ecoval,with.attrib=FALSE)

beetles_richness <- utility.endnode.parfun1d.create(name.node   = "richness", 
                                                    name.attrib = "gb_richness", 
                                                    range       = c(0,1), 
                                                    name.fun    = "utility.fun.exp", 
                                                    par         = c(2,0,1), 
                                                    utility     = FALSE)
beetles_concordance <- utility.endnode.parfun1d.create(name.node   = "concordance", 
                                                       name.attrib = "gb_concordance", 
                                                       range       = c(0,1), 
                                                       name.fun    = "utility.fun.exp", 
                                                       par         = c(1,0,1), 
                                                       utility     = FALSE)
beetles <-utility.aggregation.create(name.node = "ground beetles",
                                     nodes     = list(beetles_richness,beetles_concordance),
                                     name.fun  = "utility.aggregate.add",
                                     par       = c(0.5,0.5))

ecoval2 <- ecoval.river.create(phys     = list(msk.morphol.1998.create),
                               chem     = list(msk.nutrients.2010.create,
                                               val.pesticides.create,
                                               val.heavymetals.create),
                               biol     = list(msk.invertebrates.2010.create,
                                               msk.fish.2004.create,
                                               beetles),
                               language = "EnglishNodes")
plot(ecoval2)
plot(ecoval2,with.attrib=FALSE)