# set global chunk options:
library(knitr)
opts_chunk$set(cache=FALSE, fig.align='center')
rm(list = ls()) #Clear your work environment
abd.sp.allsp.pa<-abd.sp.allsp
abd.sp.allsp.pa[abd.sp.allsp.pa > 0] <- 1
(colSums(abd.sp.allsp.pa))
## AchMil AgrMer AlnVir AmeBar AndPol AnePar AntAlp AntMon ArcAlp ArnAng
## 7 2 10 1 6 12 1 1 12 1
## BarAlp BetGla BisViv CalCan CarAqu CarBig CarBru CarCap CarCat CarDef
## 7 70 17 10 7 16 2 7 1 2
## CarDis CarGyn CarLep CarLim CarMag CarSci CarTri CarUtr CarVag CasSep
## 3 31 1 6 2 32 2 1 68 2
## CerAlp ChaAng CopTri CorCan CysMon DasFru AveFle DiaLap DipCom DryExp
## 1 2 40 83 4 1 25 2 3 2
## DryInt ElyTra EmpNig EpiHor EquArv EquSci EquSyl EquVar EriVir EurRad
## 12 5 64 1 19 4 36 5 2 12
## FraVir GauHis GeoLiv HupApr JunCom JunTri KalPol LinBor LisCor LonVil
## 2 23 49 3 8 3 13 76 7 5
## LuzPar LycAno MaiTri MinBif MitNud MoeMac MonUni MyrGal OrtSec PacAur
## 2 42 7 1 40 0 1 3 23 1
## ParKot PetFri PhyCae PoaArc PyrAsa PyrGra RhiMin RhoGro RhoLap RibGla
## 0 17 0 1 3 3 2 91 7 8
## RubArc RubCha RubIda SalArc SalArg SalGla SalHum SalPed SalPla SalUva
## 27 19 6 13 1 8 1 1 8 5
## SalVes SchPur SelSel SolMac SolMul SteBor SteLon TofPus TriAlp TriBor
## 55 2 1 39 18 2 0 14 1 36
## TriCes TriSpi VacCes VacMyr VacOxy VacUli VacVit VibEdu VioAdu VioRen
## 16 1 34 31 18 79 107 4 21 17
## AbiBal LarLar PicGla PicMar AreHum BetMin BetPum CarBel CarGla CopLap
## 5 14 40 62 0 0 0 0 0 0
## CorTri LuzSpi PoaAlp SalHer SalMyr
## 0 0 0 0 0