## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
library(rnpn)

## ----eval=FALSE---------------------------------------------------------------
# LilacLeafPoints2013<-npn_download_site_phenometrics(
#   request_source = 'Your Name Here',
#   years = c('2013'),
#   num_days_quality_filter = '30',
#   species_ids = '35',
#   phenophase_ids = '373'
# )
# 

## ----eval=FALSE---------------------------------------------------------------
# plot(
#   mean_first_yes_doy~latitude,
#   data=LilacLeafPoints2013,
#   ylab=c("Day of Year"),
#   xlab=c("Latitude"),
#   cex=2,
#   cex.axis=1.5,
#   cex.lab=1.5,
#   pch=21,
#   xlim=c(30,55),
#   ylim=c(0,200)
# )

## ----echo=FALSE, out.width = "50%", fig.pos="h"-------------------------------
knitr::include_graphics("figures/site-phenometrics.png")