Periphyton, which consists of algae and cyanobacteria attached to
stream sediments, was sampled at 137 locations across the Ybbs river
network. Next-generation sequencing of the 137 periphyton samples found
in total 215 species (column spec
) which were then assigned
to three main taxonomical groups (Diatoms
,
Chrysophytes
and Cyanobacteria
in the column
group
). At the same 137 locations flow velocity was
measured. Species have environmental preferences (niche optima) based on
traits (e.g.Ā morphology). One niche optimum (column vel
)
was estimated based on species distributions across the 137 locations.
(A niche optimum of a species for velocity was calculated as the mean of
the measured velocity across locations where the species occurred). E.g.
species which only occurred at locations with high flow velocities,
prefer high flow velocities, hence, have their niche optima at high flow
velocities.
Hypothesis: Closer related species have more similar traits, hence, have more similar environmental preferences (niche optima) than distant related species. (Two species within a taxonomical group are closer related than two species between groups).
data = read.table("data/nicheoptima.txt", header = TRUE)
names(data)
## [1] "spec" "group" "vel"
dim(data)
## [1] 215 3
Hall et al.Ā (2010) report microbial biomass stoichiometry measured on a per cell basis using Raman microspectroscopy. We simplified the dataset, now the experiment uses 2 species measured in 2 growth phases on 2 media differing in stoichiometry. Verrucomicroba are slow-growing soil and limnic bacteria, Pectobacterium is an opportunistic fast-growing detritivore isolated from carrots. The experiment is a complete full-factorial design.
The response variable in this design is a signature extracted from
Raman spectra collected from individual bacterial cells. This signature
is a proxy for nucleic acids (coded by na_avg
)
mic = read.table("data/MicrobesStoichiometry.txt", header = TRUE)
names(mic)
## [1] "species" "phase" "NP" "na_avg"
Start with selecting only one level of stoichiometry in the medium (either level 5 or 50).
mic$NP<-factor(mic$NP)
mic<-subset(mic,subset=(NP==5) )
mic<-droplevels(mic)
Fishermen like to catch record-breaking large fish and if successful will do a bit of effort to document their historic achievement in the local pub ;-) This dataset contains sizes of such record catches of Hucho in various Austrian streams and rivers of various size, the data was collected from various sources including the eventual black-and-white photograph hanging in a pub.
Here is one such picture from the author of the study:
The Danube salmon is an endangered species in now dwindling populations. It needs intact river corridors for migration. Hydropower facilities should have a fish ladder allowing the fish to bypass turbines. The size of such a fish ladder is a cost issue AND an ecological issue - it needs to be large enough to accommodate the expected fish size in any given system. Usually large rivers host large fish. So, river size could be taken as a proxy of fish size to be expected.
hucho = read.table("data/HuchoRatschan2012.txt", header = TRUE)
names(data)
## [1] "spec" "group" "vel"
# river: name of river
# population: categorical, size and health of adult fish population
# length: largest fish caught since 1970, body length given in cm
# mass: body mass of largest fish in kg
# discharge: annual mean discharge of river in m3 s-1
# width: width of river in m