Displaying 1 result from an estimated 1 matches for "tjacc".
Did you mean:
tacc
2007 Mar 02
0
Dice dissimilarity output and 'phylo' function in R
...(ctree$tip.label) - 2)
}
#calculation of dissimilarities & construction of
trees#
#Calc Jacc disimi#
disjacc <- dissimilarity(samptest4,
y=NULL,method="jaccard")
#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...