plot.TableECFOCF: Plot a TableECFOCF dataset.

In phenology: Tools to Manage a Parametric Function that Describes Phenology and More

Plot a TableECFOCF dataset.

Description

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

Usage

## S3 method for class '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
)

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.

Details

plot.TableECFOCF plots a TableECFOCF dataset.

Value

Nothing

Author(s)

Marc Girondot

See Also

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

Examples

## Not run: 
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)

## End(Not run)

phenology documentation built on Oct. 16, 2023, 9:06 a.m.