# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab