library(tidyverse)
caiman.pred <-
function(CT, newx) {
classes = CT[['classes']]
Xtx = CT[['xtx']]
m = CT[['centroid']]
K = (classes, newx, Xtx, m)
classes = .genmin(CT$classes, K)
return(list(classes, K))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.