AdjustAbbott: Calculate corrected efficacy % with Abbott's formula

In ecotoxicology: Methods for Ecotoxicology

Description

Returns the corrected efficacy % with Abbott's formula

Usage

AdjustAbbott(smoothedObservedProportion, ps0 = smoothedObservedProportion[1],
  p1 = 1)

Arguments

smoothedObservedProportion	numeric vector, treated population
ps0	numeric vector, control
p1	numeric vector, percentage 0 to1 or 0 to 100 (p1=1 or P1=100)

Value

the corrected efficacy %

Author(s)

Jose Gama

Source

ehabsoft, last accessed 2015 http://www.ehabsoft.com/ldpline/onlinecontrol.htm

References

Puntener W., 1981 Manual for field trials in plant protection second edition. Agricultural Division, Ciba-Geigy Limited.

Examples

#same result as example on Short-term Methods for Estimating the Chronic Toxicity of
#Effluents and Receiving Waters to Freshwater Organisms.TABLE J1. page 312
data(SheepsheadMinnow40SK)
IsMonotonicallyIncreasing(SheepsheadMinnow40SK[,2]/40)
mydata <- cbind(SheepsheadMinnow40SK,
  MakeMonotonicallyIncreasing(cbind(rep(40,6),SheepsheadMinnow40SK[,2])))
AdjustAbbott(mydata[,3])

Example output

[1] FALSE
[1] 0.0000000 0.0000000 0.0000000 0.0000000 0.6410256 1.0000000

ecotoxicology documentation built on May 2, 2019, 11:34 a.m.