VGAM (version 0.9-1)

wffc.points: Point System for the 2008 World Fly Fishing Championships

Description

Point system for the 2008 World Fly Fishing Championships: current and some proposals.

Usage

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)

Arguments

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.

Value

• A vector with the number of points.

Details

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().

References

Yee, T. W. (2013) On strategies and issues raised by an analysis of the 2008 World Fly Fishing Championships data. In preparation.

See Also

wffc.

Examples

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

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