R/dcaiman.pred.R

In pedroaraujo9/caiman2: CAIMAN models

library(tidyverse)

dcaiman.pred <-
function(CT, x, a = NULL) {
  classes = CT[['classes']]
  xtx = CT[['xtx']]
  xtk = CT[['xtk']]
  mx = CT[['cx']]
  mk = CT[['ck']]
  if(is.null(a)) {
    a = CT[['a']]
  }
  
  valx = .genhiddenSpace(classes, x = x, xxt = xtx, m = mx)
  valy = .genhiddenSpace(classes, x = valx, xxt=xtk, m = mk)
  
  k = .genhiddenSpace(classes, x, xtx, m = mx)
  
  kk = .genhiddenSpace(classes, k, xtk, m = mk)
  kf = a*k + (1-a)*kk
  .genmin(classes, kf)
  
}