## Not run:
# ## load the obkData of equine influenza outbreak
# data(HorseFlu)
# x <- HorseFlu
#
# ## plot the individuals on a map
# plotGeo(x,location=c('lon','lat'),zoom=8)
#
# ## color by sex
# plotGeo(x,location=c('lon','lat'),zoom=8,colorBy='sex')
#
# ## zoom in on the small cluster, by centering on individual '9'
# plotGeo(x,location=c('lon','lat'),colorBy="sex",zoom=14,center='9',size=4,
# alpha=(.7))
#
# plotGeo(x,location=c('lon','lat'),colorBy="yardID", shapeBy="sex", zoom=14,center='9',size=4,
# alpha=(.7))
#
# ## another example ##
# ## load obkData object containing data about a simulated outbreak
# data(ToyOutbreak)
#
# ## plot the individuals on a map
# plotGeo(ToyOutbreak,location=c('lon','lat'), zoom=8)
# plotGeo(ToyOutbreak,location=c('lon','lat'), zoom=13, colorBy='Sex', size=3)
#
# ## color by age, zooming on the first case of the outbreak: indivudal 1
# plotGeo(ToyOutbreak,location=c('lon','lat'), zoom=15,
# colorBy='Age', center='1', size=5)
# ## End(Not run)
Run the code above in your browser using DataLab