R/caiman.train.R

In pedroaraujo9/caiman2: CAIMAN models

Defines functions caiman.train

Documented in caiman.train

library(tidyverse)

caiman.train <-
function(y, x) {
  classes = levels(y)
  df = x %>% as.data.frame()
  df$y = y 
  
  list(xtx=.genXtX(df, classes), centroid=.genCentroide(df, classes), classes=classes)
}