Multi-functionality with *functClust*"

knitr::opts_chunk$set(
  collapse = TRUE,
  comment  = "#>",
  out.width = "100%"
)
library(functClust)
nbElt <- 16
dat <- CedarCreek.2004.2006.dat

Repeated observations of a given performance or multi-functionality of a system

The inputs of fclust can include several observed performances generated by the same component assemblages. The different performances can correspond to a same system function or property observed at different times, in different places or under different environmental conditions. It is then repeated observations of a given system function or property. All observed performances are of same nature : they are equivalent and, generally, do not deserve to be differently weighted. This is for instance the biomass yearly harvested in 2004, 2005 and 2006 in Biodiversity II experiment done at Cedar Creek by David Tilman and his collaborators ("y2004", "y2005" and "y2006" in CedarCreek.2004.2006.dat).

The different performances can also correspond to different functions or properties generated by a same, given collection of component assemblages belonging to a given system. The observed performances are of different nature, they are not equivalent, and each one deserves perhaps to be differently weighted. It is then about the understanding of multi-functionality of a system. This would be the case, for instance, for biomass of shoots and biomass of roots harvested for a given year in Biodiversity II experiment done at Cedar Creek.

Both the cases can be analysed by the functions fclust and plotted by the function fclust_plot. In the following, we term "experiment" the observation of a performance, whatever the performance, on a given collection of component assemblages belonging to a given system. If the inputs of fclust include several observed performances generated by the same component assemblages, the option xpr (for eXPeRiment) is activated in the code of functClust.

The option "weight" of fclust

The function fclust needs at least the name of dataset file and the number nbElt of components belonging to the interactive system in consideration (see vignette b.The simplest use of functClust ). The number nbXpr of observed performances is thus known: nbXpr = dim(dataset)[2] - (1 + nbElt). If nbXpr is higher then 1, the option xpr is activated.

res <- fclust(dat, nbElt, weight = c(1, 1, 1), opt.mod = "byelt", opt.mean = "gmean")
fclust_plot(res, main = "BioDiv2", opt.tree = list("prd"))

res2 <- fclust(dat, nbElt, weight = c(2, 3, 1), opt.mod = "byelt", opt.mean = "gmean")
fclust_plot(res2, main = "BioDiv2", opt.tree = list("prd"))

The options of fclust_plot

The function fclust returns un object that contains all necessary informations for plotting the results, especially the names of different experiments. If the number nbXpr of experiments is higher than 1, the option xpr is activated. Then, the user can require that the results of functional clustering are plotted as a whole (xpr=all) and experiment by experiment (xpr=names(xpr)). That only needs to add the option multi in the list of options. In the following, the changes are noted and illustrated for each option.

fclust_plot(res, main = "BioDiv2", opt.perf = list("multi"))
fclust_plot(res, main = "BioDiv2", opt.ass = list(who = c("20", "138")))
fclust_plot(res, main = "BioDiv2", opt.motif = list("prd", "hor", "multi", "aov", pvalue = 0.01))
fclust_plot(res, main = "BioDiv2", opt.comp = list("tree", "multi", "aov", pvalue = 0.01))


Try the functClust package in your browser

Any scripts or data that you put into this service are public.

functClust documentation built on Dec. 2, 2020, 5:06 p.m.