phenology (version 10.1)

plot.TableECFOCF: Plot a TableECFOCF dataset.

Description

This function plots a CMR file summarized using TableECFOCF().

Usage

# S3 method for TableECFOCF
plot(
  x,
  ...,
  result = "ecfocf",
  period = 1,
  cex.points = 4,
  pch = 19,
  col = "black",
  cex.axis = 0.8,
  cex.labels = 0.5,
  col.labels = "red",
  show.labels = FALSE,
  show.0 = FALSE,
  pch.0 = 4,
  cex.0 = 0.5,
  col.0 = "blue",
  show.scale = TRUE,
  max.scale = NULL
)

Value

Nothing

Arguments

x

A CMR file summarized using TableECFOCF()

...

Graphic parameters

result

What should be plotted: ECFOCF or data, ECF, OCF.

period

The period that will be plotted.

cex.points

The maximum magnification to be used for points relative to the current setting of cex.

pch

Character to be used for points.

col

Color to be used for points.

cex.axis

The magnification to be used for axis annotation relative to the current setting of cex.

cex.labels

The magnification to be used for figures.

col.labels

Color of figures.

show.labels

Logical to be used to show figures.

show.0

Logical to show 0 counts.

pch.0

Character used for 0 counts.

cex.0

The magnification to be used for character for 0 counts.

col.0

Color of characters for 0 counts.

show.scale

If TRUE, show the scale as a legend

max.scale

Maximum value for scale; if NULL it is maximum of observations.

Author

Marc Girondot

Details

plot.TableECFOCF plots a TableECFOCF dataset.

See Also

Other Model of Clutch Frequency: ECFOCF_f(), ECFOCF_full(), TableECFOCF(), fitCF(), fitCF_MHmcmc(), fitCF_MHmcmc_p(), generateCF(), lnLCF(), logLik.ECFOCF(), plot.ECFOCF()

Examples

if (FALSE) {
library(phenology)
# Example
data(MarineTurtles_2002)
ECFOCF_2002 <- TableECFOCF(MarineTurtles_2002)
par(mar=c(4, 4, 1, 1)+0.4)
plot(ECFOCF_2002, bty="n", las=1, cex.points=3, 
     cex.axis = 0.8, main="Year 2002")
plot(ECFOCF_2002, bty="n", las=1, cex.points=5, cex.0=0.2, 
     col="red", show.0 = TRUE, col.0="blue")
plot(ECFOCF_2002, bty="n", las=1, cex.points=3, col="lightgrey",  
     col.labels = "red", show.labels=TRUE)
plot(ECFOCF_2002, bty="n", las=1, cex.points=3, pch=NA, 
     col.labels = "red", show.labels=TRUE)
plot(ECFOCF_2002, bty="n", las=1, cex.points=3, pch=NA, 
     col.labels = "red", show.labels=TRUE, cex.0=0.2, 
     show.0 = TRUE, col.0="blue", pch.0=4)
plot(ECFOCF_2002, bty="n", las=1, result="OCF")
plot(ECFOCF_2002, bty="n", las=1, result="ECF")
plot(ECFOCF_2002, bty="n", las=1, result="ECF", type="l", main="2002 season", 
     xlab="Clutch frequency")
par(new=TRUE)
plot(ECFOCF_2002, bty="n", las=1, result="OCF", type="l", main="", 
     ylim=ScalePreviousPlot()$ylim[c("begin", "end")], 
     xlab="", ylab="", 
     col="red", 
     xaxt="n", yaxt="n", axes=FALSE)
legend("topright", legend=c("OCF", "ECF"), lty=1, col=c("red", "black"))

ECFOCF_2002 <- TableECFOCF(MarineTurtles_2002, date0=as.Date("2002-01-01"))

plot(ECFOCF_2002, period=13)
}