Blue grouse migration data

Description

The distance and elevation change (in meters) for male and female blue grouse (Dendragapus obscurus) migrating from where they were marked on their breeding range to their winter range.

Usage

data(bgrouse)

Format

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

sex

Bird gender, 4 = adult female, 3 = adult male.

distance

The distance traveled from their breeding to their winter range.

elev

The elevation change from breeding to winter range.

Source

Cade, B.S., and R.W. Hoffman. 1993. Differential migration of blue grouse in Colorado. Auk 110, 70–77.

Examples

str(bgrouse)

plot(bgrouse$distance,bgrouse$elev,pch=c(17,19)[(bgrouse$sex==4)+1],
  col = c("red","blue")[(bgrouse$sex==4)+1],xlab = "Migration distance (m)",
  ylab = "Change in Elevation (m)",
  main = "Migration distance and elevation change for blue grouse")
  
legend(22000,150,c("Female","Male"),pch = c(17,19),col = c("red","blue"))

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/bgrouse.Rd_%03d_medium.png", width=480, height=480)
> ### Name: bgrouse
> ### Title: Blue grouse migration data
> ### Aliases: bgrouse
> ### Keywords: datasets
> 
> ### ** Examples
> 
> str(bgrouse)
'data.frame':	21 obs. of  3 variables:
 $ sex     : int  4 3 3 3 3 3 3 3 3 3 ...
 $ distance: int  800 6400 7800 10500 10600 11800 12500 14100 17400 29400 ...
 $ elev    : int  0 503 488 457 610 183 549 549 671 427 ...
> 
> plot(bgrouse$distance,bgrouse$elev,pch=c(17,19)[(bgrouse$sex==4)+1],
+   col = c("red","blue")[(bgrouse$sex==4)+1],xlab = "Migration distance (m)",
+   ylab = "Change in Elevation (m)",
+   main = "Migration distance and elevation change for blue grouse")
>   
> legend(22000,150,c("Female","Male"),pch = c(17,19),col = c("red","blue"))
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>