wffc.points {VGAM} | R Documentation |
Point system for the 2008 World Fly Fishing Championships: current and some proposals.
wffc.P1(length, c1 = 100, min.eligible = 0.18, ppm = 2000) wffc.P2(length, c1 = 100, min.eligible = 0.18, ppm = 2000) wffc.P3(length, c1 = 100, min.eligible = 0.18, ppm = 2000) wffc.P1star(length, c1 = 100, min.eligible = 0.18, ppm = 2000) wffc.P2star(length, c1 = 100, min.eligible = 0.18, ppm = 2000) wffc.P3star(length, c1 = 100, min.eligible = 0.18, ppm = 2000)
length |
Length of the fish, in meters. Numeric vector. |
c1 |
Points added to each eligible fish. |
min.eligible |
The 2008 WFFC regulations stipulated that the smallest eligible fish was 0.180 m, which is 180 mm. |
ppm |
Points per meter of length of the fish. |
The official website contains a document with the official rules and
regulations of the competition.
The function wffc.P1()
implements the current WFFC point system,
and is ‘discrete’ in that fish lengths are rounded up to the nearest
centimeter (provided it is greater or equal to min.eligible
m).
wffc.P1star()
is a ‘continuous’ version of it.
The function wffc.P2()
is a new proposal which
rewards catching bigger fish.
It is based on a quadratic polynomial.
wffc.P2star()
is a ‘continuous’ version of it.
The function wffc.P3()
is another new proposal which
rewards catching bigger fish.
Named a cumulative linear proposal,
it adds ppm
to each multiple of min.eligible
of length.
One adds one lot of c1
to each eligible fish.
wffc.P3star()
is a ‘continuous’ version of wffc.P3()
.
A vector with the number of points.
wffc.P2
and wffc.P2star
may change in the future,
as well as possibly
wffc.P3
and wffc.P3star
.
T. W. Yee.
Yee, T. W. (2011) On strategies and issues raised by an analysis of the 2008 World Fly Fishing Championships data. In preparation.
wffc
.
## Not run: fishlength = seq(0.0, 0.72, by = 0.001) plot(fishlength, wffc.P2star(fishlength), type = "l", col = "blue", las = 1, lty = "dashed", lwd = 2, las = 1, cex.main = 0.8, xlab = "Fish length (m)", ylab = "Competition points", main = "Current (red) and proposed (blue and green) WFFC point system") lines(fishlength, wffc.P1star(fishlength), type = "l", col = "red", lwd = 2) lines(fishlength, wffc.P3star(fishlength), type = "l", col = "darkgreen", lwd = 2, lty = "dashed") abline(v = (1:4) * 0.18, lty = "dotted") abline(h = (1:9) * wffc.P1star(0.18), lty = "dotted") ## End(Not run) # Successive slopes: (wffc.P1star((2:8)*0.18) - wffc.P1star((1:7)*0.18)) / (0.18 * 2000) (wffc.P3star((2:8)*0.18) - wffc.P3star((1:7)*0.18)) / (0.18 * 2000)