A program to recognize and reward our most engaged community members
library(mclust)library(profdpm)## "data" is defined as the input in the inputs## each column is referred to by name using $ ## because the input is a data frame.ARI = adjustedRandIndex(data$cluster1, data$cluster2)ARI = as.data.frame(ARI)pci=as.data.frame(t(pci(data$cluster1, data$cluster2)))## using the variable ari sets the name of the returned data frame column ## and avoids having to use a rename process## "x" is the output defined in the results ## it must be a data framex = as.data.frame(cbind(ARI,pci))