In [1]:

    

setwd('/Users/erinlarson/Dropbox/Documents/GIT/DDESSS_Stream_Dream_Team')

install.packages("dplyr")
library(dplyr)


    

    




The downloaded binary packages are in
	/var/folders/7d/vkx258d969q4tfdk2vgfff0r0000gn/T//Rtmpy8uRrD/downloaded_packages






    




Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

In [2]:

    

landuse_data<-read.csv("LanduseComplete.csv")
landuse_data<-data.frame(landuse_data)


    

In [3]:

    

group_by(landuse_data, HUC8) %>% 
    summarise(STRAHLER2 = mean(STRAHLER, na.rm = TRUE)) %>% write.csv("StrahlerOrder.csv")