#Multiclass example
#Generate example data as data frame of class predictions
inDF <- data.frame(ref = sample(c("Class A", "Class B", "Class C"), 1000, replace=TRUE),
pred = sample(c("Class A", "Class B", "Class C"), 1000, replace=TRUE))
#Calculate metrics
metsOut <- assessPnts(reference=inDF$ref,
predicted=inDF$pred,
multiclass=TRUE,
mappings = c("Class A", "Class B", "Class C"),
decimals=4)
print(metsOut)
#Binary example
#Generate example data as data frame of class predictions
inDF <- data.frame(ref = sample(c("Background", "Positive"), 1000, replace=TRUE),
pred = sample(c("Background", "Positive"), 1000, replace=TRUE))
#Calculate metrics
metsOut <- assessPnts(reference=inDF$ref,
predicted=inDF$pred,
multiclass=FALSE,
mappings = c("Background", "Positive"),
decimals=4)
print(metsOut)
Run the code above in your browser using DataLab