Displaying 1 result from an estimated 1 matches for "disjacc".
2007 Mar 02
0
Dice dissimilarity output and 'phylo' function in R
...ot;)
samptest4<- matrix(data = samptest4,nrow=8, ncol=4,
byrow=T)
library(MASS)
library(arules)
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#...