Lodgepole pine basal area and canopy cover

Description

Analysis comparing measures of the proportion of basal area to the proportion of canopy cover of lodgepole pine (Pinus contorta) in 31 stands of subalpine forest in Colorado (Cade 1997).

Usage

data(agree2)

Format

A data frame with 62 observations on the following 6 variables.

pctscc

The response variable for proportion Englemann spruce.

pctfcc

The response variable for proportion subalpine fir.

pctlcc

The response variable for proportion lodgepole pine.

pctacc

The response variable for proportion aspen.

stand

The grouping variable specifying the 31 sample plots.

method

The blocking variable specifying whether the proportion was measured either for basal area (method = 2) or canopy cover (method = 1).

Source

Cade, B.S. 1997. Comparison of tree basal area and canopy cover in habitat models: Subalpine forest. Journal of Wildlife Management 61, 326–335.

Examples

str(agree2)

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 * 3*r)
}

pairs(agree2[,1:4],pch = 21,bg = c("red","grey")[agree2$method],cex = 1.5,
upper.panel = panel.cor)

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/agree2.Rd_%03d_medium.png", width=480, height=480)
> ### Name: agree2
> ### Title: Lodgepole pine basal area and canopy cover
> ### Aliases: agree2
> ### Keywords: datasets
> 
> ### ** Examples
> 
> str(agree2)
'data.frame':	62 obs. of  6 variables:
 $ pctscc: num  0.2333 0.1509 0.0533 0.3117 0.15 ...
 $ pctfcc: num  0.4 0.0943 0.1333 0.6623 0.475 ...
 $ pctlcc: num  0.367 0.755 0.813 0.026 0.375 ...
 $ pctacc: num  0 0 0 0 0 0 0 0 0 0 ...
 $ stand : int  1 2 3 4 5 6 7 8 9 10 ...
 $ method: int  1 1 1 1 1 1 1 1 1 1 ...
> 
> 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 * 3*r)
+ }
> 
> pairs(agree2[,1:4],pch = 21,bg = c("red","grey")[agree2$method],cex = 1.5,
+ upper.panel = panel.cor)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>