blob: fc9fe56058ebf9a9f050c7b3eebd26f9ac6e07cb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
# The maximum time weighted average concentration for a moving window
If you generate your time series using
[`sawtooth`](https://pkgdown.jrwb.de/pfm/reference/sawtooth.md), you
need to make sure that the length of the time series allows for finding
the maximum. It is therefore recommended to check this using
[`plot.one_box`](https://pkgdown.jrwb.de/pfm/reference/plot.one_box.md)
using the window size for the argument `max_twa`.
## Usage
``` r
max_twa(x, window = 21)
```
## Arguments
- x:
An object of type
[one_box](https://pkgdown.jrwb.de/pfm/reference/one_box.md)
- window:
The size of the moving window
## Details
The method working directly on fitted
[mkinfit](https://pkgdown.jrwb.de/mkin/reference/mkinfit.html) objects
uses the equations given in the PEC soil section of the FOCUS guidance
and is restricted SFO, FOMC and DFOP models and to the parent compound
## References
FOCUS (2006) “Guidance Document on Estimating Persistence and
Degradation Kinetics from Environmental Fate Studies on Pesticides in EU
Registration” Report of the FOCUS Work Group on Degradation Kinetics, EC
Document Reference Sanco/10058/2005 version 2.0, 434 pp,
<http://esdac.jrc.ec.europa.eu/projects/degradation-kinetics>
## See also
[`twa`](https://pkgdown.jrwb.de/pfm/reference/twa.md)
## Examples
``` r
pred <- sawtooth(one_box(10),
applications = data.frame(time = c(0, 7), amount = c(1, 1)))
max_twa(pred)
#> $max
#> parent
#> 0.9537545
#>
#> $window_start
#> parent
#> 0
#>
#> $window_end
#> parent
#> 21
#>
pred_FOMC <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE)
max_twa(pred_FOMC)
#> 21
#> 18.22124
```
|
