---
title: "UROP"
author: "Hunter Levine"
date: "3/1/2019"
output: html_document
---

canopy cover
floral neighborhood:
others decrease it

total abundance / coffee / species richess / non coffee / tree / herb

height of coffee plant


```{r}
library(ggplot2)
library(lme4)

pollen <- carpels.pollen
canopy <- stigma.canopy
transects <- stigma.transects

canopymodel <- glmer(coffee.pollen.final ~ scale(cover) + (1 | plant/carpel), data = canset, family = poisson)

summary(canopymodel)
plot()


```