get.rid.fc <- function(binIDs, referenceBinID) {
ind.match <- .Call("test_fc", binIDs, referenceBinID)
data.frame(
fc = ind.match<0,
binaryID = substr(binIDs, 1, abs(ind.match)),
stringsAsFactors = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.