microclustr (version 0.1.0)

mean_fdr: Calculates average FDR when ground truth is available

Description

Calculates average FDR when ground truth is available

Usage

mean_fdr(zm, id)

Arguments

zm

Matrix with posterior samples of cluster assignments

id

Vector of true cluster assignments (ground truth)

Value

Average FDR over posterior samples

Examples

# NOT RUN {
truePartition <- c(50,50,50,50)
maxPartitionSize<- length(truePartition)
uniqueNumberRecords <- sum(truePartition)
id <- rep(1:uniqueNumberRecords, times=rep(1:maxPartitionSize, times=truePartition))
numberFields <- 5
numberCategories <- rep(10,5)
trueBeta <- 0.01
simulatedData <- SimData(truePartition, numberFields, numberCategories, trueBeta)
posteriorESCD <- SampleCluster(data=simulatedData, Prior="ESCD", burn=0, nsamples=10)
mean_fdr(zm = posteriorESCD$Z, id)
# }