. phylogenetic hill number of q=0
faith
faith/T
hill.phylodiv.q0
#Allen's H vs. phylogenetic hill number...OTU12=0)
S2 0,OTU2=0,OTU3=0,OTU4=0,OTU5=1,OTU6=1,OTU7=1,OTU8=1,OTU9=0,OTU10=0,OTU11=0,OTU12...=0,OTU7=0,OTU8=0,OTU9=0,OTU10=0,OTU11=0,OTU12=0)
S2 0,OTU2=0,OTU3=0,OTU4=1,OTU5=0,OTU6=1,OTU7...=1,OTU8=1,OTU9=0,OTU10=0,OTU11=0,OTU12=0)
S3 0,OTU2=0,OTU3=0,OTU4=0,OTU5=0,OTU6=0,OTU7=1,OTU8...=0,OTU11=0,OTU12=0)
modelD <- cbind(S1,S2,S3)
div.part(modelD,qvalue=0)
?