Jaccard distance

jaccard_examples.r

install.packages("readxl")
# install.packages("clusteval")
install.packages("prabclus")
install.packages("vegan")
library(readxl)
# library(clusteval)
library(prabclus)
library(vegan)

setwd("~/Downloads/") #Working directory

jaccard_data<-read_excel("S1.1 SYNTACTIC - JACCARD.xlsx")

jaccard_matrix<-t(as.matrix(jaccard_data[,-1]))

#Matrix
jaccard(jaccard_matrix)

vegdist(t(jaccard_matrix),method="jaccard")

#Minimal Example
#Jaccard distance
#1-sum(data3$tot)/(sum(data3$IDS)+sum(data3$CESD)-sum(data3$tot))
# data3<-data.frame(IDS=c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0),CESD=c(1,1,1,0,1,1,0,0,0,0,0,1,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1))
# data3$tot<-data3$IDS*data3$CESD

# jaccard(as.matrix(data3))
# vegdist(t(data3[,-3]),method="jaccard")