Problem 1 - 2 pts

library(tidyr)
spread_bovids <- spread(bovids, key=site, value=count)
#convert the taxon column to row.names instead, as these will be preserved in the matrix
#that we later use for the analysis
row.names(spread_bovids) <- spread_bovids$taxon
spread_bovids<-spread_bovids[,2:9]
spread_bovids