Displaying 1 result from an estimated 1 matches for "disdice".
Did you mean:
dievice
2007 Mar 02
0
Dice dissimilarity output and 'phylo' function in R
...ules)
library(ape)
#CFI<- numeric (M)
CFI <- function(ctree)
{
(ctree$Nnode -1)/(length(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...