labs.Rmd

---
title: "Laboratories"
output: 
  html_document:
    includes:
      after_body: _includes/include_footer.html
      in_header: _includes/header_banner.html 
---
<!--
rmarkdown::render_site("labs.Rmd")# build website
-->





## Lab 1: Population dynamics (9/4/2018)

* Lab handout [pdf](pdfs/Lab-01-FA-2018.pdf)
* Link to enter lab questions [here](https://goo.gl/forms/Xw787V1T7jeoGaZB2)
* Repsonses to lab questions are due by 5pm 9/11/2018


## Lab 2: Population dynamics and management models (9/12/2018)

* Lab handout [pdf](pdfs/Lab-02-FA-2018.pdf)
* Link to enter lab questions [here](https://goo.gl/forms/UkZv57eOzQ8V4CMU2)
* Repsonses to lab questions are due by 5pm 9/18/2018


## Lab 3: Harvest, effort, and monitoring (9/18/2018)

* Lab handout [pdf](pdfs/Lab-03-FA-2018.pdf)
* Link to enter lab questions [here](https://goo.gl/forms/AQ3EzRDMee1Y2Ro53)
* Repsonses to lab questions are due by 5pm 9/25/2018

## Lab 4: Harvest, effort, and monitoring (9/15/2018)

* Lab handout [pdf](pdfs/Lab-04-FA-2018.pdf)
* Link to enter lab questions [here](https://goo.gl/forms/0gjNpIxeuV8aPk152)
* Repsonses to lab questions are due by 5pm 10/2/2018

## Lab 5: Stream Fish Abundance (10/1/2018)

* Lab handout [pdf](pdfs/Lab-05-FA-2018.pdf)
* Link to enter lab questions [here](https://docs.google.com/forms/d/e/1FAIpQLScI4cG4WYIS_qKHIEpa8Uy4Hne0AWCXjbiKL0BbOlnUBKGILA/viewform)
* Repsonses to lab questions are due by 5pm 10/7/2018





```{r,echo=FALSE,results='asis',eval=FALSE}
dat<-xlsx::read.xlsx("course-schedule.xlsx" ,
    sheetName="lab-schedule",
    stringsAsFactors=FALSE)
dat<-subset(dat,print==1)
dat$Date<-as.character(dat$Date)
dat$L1<-paste("Laboratory"," ",dat$Laboratory,"(",dat$Date,"): ",
    dat$L1,sep="")
x<-list()

h1<-unique(dat$L1[which(!is.na(dat$Date))])
for(i in  1:max(na.omit(dat$Laboratory)))
    {
    sub<- subset(dat,Laboratory==i)
    cat(paste0("### ", h1[i],sep=""))
    pander::pandoc.list(as.list(sub$L2))
    } 
```