Displaying 1 result from an estimated 1 matches for "tdicephylo".
2007 Mar 02
0
Dice dissimilarity output and 'phylo' function in R
...d")
#Calc Dice disimi#
disdice <- dissimilarity(samptest4,
y=NULL,method="dice")
#Construct Jacc dendro#
tjacc<- hclust(disjacc, method = "average")
tjaccphylo<- as.phylo(tjacc)
#Construct Dice dendro#
tdice<- hclust(disdice, method = "average")
tdicephylo<- as.phylo(tdice)
pdf (file = paste("TJD4", ".pdf", sep = ""))
par(mfrow = c(1,2))
plot (tjacc, hang = -1)
plot (tdice, hang = -1)
dev.off()
#Construct consensus tree#
ctree<-consensus(tdicephylo,tjaccphylo)
plot(ctree)
CFI(ctree)
I will appreciate any help...