Lily seedling counts

Description

Glacier lily (Erythronium grandiflorum) seedlings as a function of number of flowers and an index of rockiness in n = 256 contiguous 2 x 2 m quadrats

Usage

data(lily)

Format

A data frame with 256 observations on the following 3 variables.

seedlings

The number of glacier lily seedlings in a given 2 x 2 m quadrat.

flowers

Number of flowers in the 2 x 2 m quadrat.

rockiness

The rockiness index (a number between 1 and 256) for the 2 x 2 m quadrat.

Source

Cade, B.S., Terrell, J.W. and Schroeder, R.L.. 1999. Estimating effects of limiting factors with regression quantiles. Ecology 80, 311–323.

Examples

panel.cor <- function(x, y, digits = 2, prefix = "", cex.cor, ...)
{
    usr <- par("usr"); on.exit(par(usr))
    par(usr = c(0, 1, 0, 1))
    r <- abs(cor(x, y,method = "spearman"))
    txt <- format(c(r, 0.123456789), digits = digits)[1]
    txt <- paste(prefix, txt, sep = "")
    if(missing(cex.cor)) cex.cor <- 0.8/strwidth(txt)
    text(0.5, 0.5, txt, cex = cex.cor * r)
}
pairs(lily, lower.panel = panel.smooth, upper.panel = panel.cor,col = "grey38",
    pch = 19,lwd = 2,
    main = "Glacier lily seedlings relationship to \nnumber of flowers and rockiness")

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(Blossom)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Blossom/lily.Rd_%03d_medium.png", width=480, height=480)
> ### Name: lily
> ### Title: Lily seedling counts
> ### Aliases: lily
> ### Keywords: datasets
> 
> ### ** Examples
> 
> 
> panel.cor <- function(x, y, digits = 2, prefix = "", cex.cor, ...)
+ {
+     usr <- par("usr"); on.exit(par(usr))
+     par(usr = c(0, 1, 0, 1))
+     r <- abs(cor(x, y,method = "spearman"))
+     txt <- format(c(r, 0.123456789), digits = digits)[1]
+     txt <- paste(prefix, txt, sep = "")
+     if(missing(cex.cor)) cex.cor <- 0.8/strwidth(txt)
+     text(0.5, 0.5, txt, cex = cex.cor * r)
+ }
> pairs(lily, lower.panel = panel.smooth, upper.panel = panel.cor,col = "grey38",
+     pch = 19,lwd = 2,
+     main = "Glacier lily seedlings relationship to \nnumber of flowers and rockiness")
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>