ecoval (version 1.2.9)

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,

Details

Package:	ecoval
Type:	Package
Version:	1.2.9
Date:	2021-12-10
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. 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. 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. 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

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