AdjustAbbott {ecotoxicology}

Calculate corrected efficacy % with Abbott's formula

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])