library(tcltk)

result.MC.6taxa.ratios=NULL
pb=tkProgressBar(title = "progress bar", min = 0, max = 750, width = 300)
for(j in 0:750)
{
	setTkProgressBar(pb, j, label=paste( round(j/750*100, 0), "% done"))
	MC.AZ.abundances.faked.ratios=c(30,154,29,57,12,10,2,6,5,5,5,j*0.52,j*0.13,j*0.04,j*0.17,j*0.04,j*0.09)
	MC.AZ.abundances.faked.ratios.sub=subset(MC.AZ.abundances.faked.ratios, MC.AZ.abundances.faked.ratios>= 1)
	MC.AZ.abundances.faked.ratios.sub=round(MC.AZ.abundances.faked.ratios.sub)
	result.MC.6taxa.ratios[j]=subsampleEvenness(MC.AZ.abundances.faked.ratios.sub,Quota=0.70,Trials=1000,IgnoreSingletons=FALSE,ExcludeDominant=FALSE)
}
close(pb)

result.T.10taxa.ratios=NULL
pb=tkProgressBar(title = "progress bar", min = 0, max = 750, width = 300)
for(j in 0:750)
{
	setTkProgressBar(pb, j, label=paste( round(j/750*100, 0), "% done"))
	T.AZ.abundances.faked.ratios=c(12,3,1,4,1,2,9,j*0.54,j*0.10,j*0.20,j*0.04,j*0.04,j*0.007,j*0.02,j*0.017,j*0.017,j*0.017)
	T.AZ.abundances.faked.ratios.sub=subset(T.AZ.abundances.faked.ratios, T.AZ.abundances.faked.ratios>= 1)
	T.AZ.abundances.faked.ratios.sub=round(T.AZ.abundances.faked.ratios.sub)
	result.T.10taxa.ratios[j]=subsampleEvenness(T.AZ.abundances.faked.ratios.sub,Quota=0.70,Trials=1000,IgnoreSingletons=FALSE,ExcludeDominant=FALSE)
}
close(pb)

result.MC.6taxa.ratios.excl=NULL
pb=tkProgressBar(title = "progress bar", min = 0, max = 750, width = 300)
for(j in 0:750)
{
	setTkProgressBar(pb, j, label=paste( round(j/750*100, 0), "% done"))
	MC.AZ.abundances.faked.ratios.excl=c(30,154,29,57,12,10,2,6,5,5,5,j*0.52,j*0.13,j*0.04,j*0.17,j*0.04,j*0.09)
	MC.AZ.abundances.faked.ratios.excl.sub=subset(MC.AZ.abundances.faked.ratios.excl, MC.AZ.abundances.faked.ratios.excl>= 1)
	MC.AZ.abundances.faked.ratios.excl.sub=round(MC.AZ.abundances.faked.ratios.excl.sub)
	result.MC.6taxa.ratios.excl[j]=subsampleEvenness(MC.AZ.abundances.faked.ratios.excl.sub,Quota=0.70,Trials=1000,IgnoreSingletons=FALSE,ExcludeDominant=TRUE)
}
close(pb)

result.T.10taxa.ratios.excl=NULL
pb=tkProgressBar(title = "progress bar", min = 0, max = 750, width = 300)
for(j in 0:750)
{
	setTkProgressBar(pb, j, label=paste( round(j/750*100, 0), "% done"))
	T.AZ.abundances.faked.ratios.excl=c(12,3,1,4,1,2,9,j*0.54,j*0.10,j*0.20,j*0.04,j*0.04,j*0.007,j*0.02,j*0.017,j*0.017,j*0.017)
	T.AZ.abundances.faked.ratios.excl.sub=subset(T.AZ.abundances.faked.ratios.excl, T.AZ.abundances.faked.ratios.excl>= 1)
	T.AZ.abundances.faked.ratios.excl.sub=round(T.AZ.abundances.faked.ratios.excl.sub)
	result.T.10taxa.ratios.excl[j]=subsampleEvenness(T.AZ.abundances.faked.ratios.excl.sub,Quota=0.70,Trials=1000,IgnoreSingletons=FALSE,ExcludeDominant=TRUE)
}
close(pb)

save(result.MC.6taxa.ratios,result.T.10taxa.ratios,result.MC.6taxa.ratios.excl,result.T.10taxa.ratios.excl,file="Simulations_ratios.rda")