```{r}
source("http://flr-project.org/R/instFLR.R")
install.packages(c("ggplot2"))
install.packages(c("FLCore"), repos="http://flr-project.org/R")
install.packages(c("ggplotFL"), repos="http://flr-project.org/R")
library(FLCore)
library(ggplotFL)
library(tidyverse)
```
```{r}
#this is the example dataset that works for FLR Stock REcruitment code
data(nsher)
print(nsher)
```


```{r}
#read in csv file
getwd()
setwd("C:/Users/shekk477/OneDrive - Washington State Executive Branch Agencies/WDFW/1. Research/1. Adult Monitoring/2. Spring Chinook/SPCH Management Plan/WEN_SPCH_RperS")
getwd()
Nason<-read.csv('NasonSR.csv', header=TRUE, row.names=1)  
Nason
class(Nason)
```

```{r}
newFL<-FLSR()
Nason
```
```{r}
Nason.m<-as.matrix(Nason)
Nason.flq<-FLQuant(Nason.m, dimnames=list(year=1981:2017))
Nason.flq
```