# required fxn: 'density'

ants=read.csv('http://webpages.uidaho.edu/~renaes/Data/anthills.csv',header=T)
View(ants)

density.est('fire ants',ants$freq,ants$hills,16,100,'square metres','quadrat')

# 200-acre plantation with trees
# there are 20 quadrats of 0.5 acre each
# presense/absense of fusiform rust in 4 quadrats

density.est('trees',4,20,.5,200,'acre','stockedq')