R/Y.matrix.gen.R

Defines functions Y.matrix.gen

Y.matrix.gen <- function(k, kd, nobs, y.train) {

  XI <- XI.gen(k = k, kd = kd)

  Y.matrix <- matrix(data = 0.0, nrow = nobs, ncol = k-1L)

  for( ii in 1L:nobs ) Y.matrix[ii,] <- XI[,y.train[ii]]

  return( Y.matrix )

}

Try the ramsvm package in your browser

Any scripts or data that you put into this service are public.

ramsvm documentation built on June 7, 2022, 1:07 a.m.