Appendix
Program in R checks have the infected ticks focused on certain birds. 
Porównanie procentu zarażonych kleszczy na ptakach z co najmniej jednym zarażonym kleszczem w sytuacji rzeczywistej i przy losowym rozmieszczeniu zarażonych kleszczy. 


KnaP96=c(3,4,2,2,1,12,2,6,21,5) #number of ticks on the birds in 1996
iK96=5 #number if infected ticks
pK96=12.82051282 #percent of infected ticks on birds with an infected tick

#Simulating program
nP=length(KnaP96)
nK=sum(KnaP96)
K=NULL
for (i in 1:nP) K=rbind(K,cbind(rep(i,KnaP96[i]),rep(0,KnaP96[i])))
rep=1:100000
p.value=0
for (j in 1:100000){
K[,2]=rep(0,nK)
K[,2][sample(nK,iK96)]=1
infK=0
for (i in 1:nP) if (table(K[,1],K[,2])[i,2]>0) infK=infK+KnaP96[i]
rep[j]=iK96/infK*100
if (rep[j]<pK96) p.value=p.value+1}
mean(rep)
sd(rep)
p.value/100000