# Classic instantiation
print(Acid.SpecificPair(list(c(1.245, 5.47))))
## acid {{alpha=1.245, MIC=5.47g/L}, concentration=1g/L}
# Classic instantiation by specifying a concentration
print(Acid.SpecificPair(list(c(1.245, 5.47)), 3))
## acid {{alpha=1.245, MIC=5.47g/L}, concentration=3g/L}
# Instantiation with multiple couples (`alpha`, `MIC`) (see details section)
aceticAcid <- Acid.SpecificPair(list(c(0.98,5.68),c(1.51,5.26)))
print(aceticAcid)
## acid {{alpha=0.98, MIC=5.68g/L},
## {alpha=1.51, MIC=5.26g/L}, concentration=1g/L}
# Generic operators (`+`, `*`, etc.) can change the `concentration` of the acid.
print(aceticAcid / 2)
## acid {{alpha=0.98, MIC=5.68g/L},
## {alpha=1.51, MIC=5.26g/L}, concentration=0.5g/L}
print(aceticAcid + 2)
## acid {{alpha=0.98, MIC=5.68g/L},
## {alpha=1.51, MIC=5.26g/L}, concentration=3g/L}
# Without having to pre-define specific concentrations, and with the default `concentration` (1g/L),
# you can dynamically change the acid concentration as follows:
for (concentration in c(0.5, 1, 5, 10)) {
print(concentration * aceticAcid)
}
## acid {{alpha=0.98, MIC=5.68g/L},
## {alpha=1.51, MIC=5.26g/L}, concentration=0.5g/L}
## acid {{alpha=0.98, MIC=5.68g/L},
## {alpha=1.51, MIC=5.26g/L}, concentration=1g/L}
## acid {{alpha=0.98, MIC=5.68g/L},
## {alpha=1.51, MIC=5.26g/L}, concentration=5g/L}
## acid {{alpha=0.98, MIC=5.68g/L},
## {alpha=1.51, MIC=5.26g/L}, concentration=10g/L}
try({
# Acid can be applied to a MicrobilogicalGrowth-object with the `+` addition operator.
# Note that the acid should be on the right side, otherwise an error is raised.
MyMicrobialGrowthObject + aceticAcid
## returns the MicrobialGrowth-object affected by the acid (several acids can be applied)
})
Run the code above in your browser using DataLab