R/xinner.R

Defines functions xinner_linear xinner_kernel

xinner_kernel <- function(x, y, kernel, kparam){

  K.train <- Kmat(x = x, 
                  y = x, 
                  kernel = kernel, 
                  kparam = kparam)

  xinner <- K.train + 1.0

  return(xinner)

}

xinner_linear <- function(x){
  xinner <- x %*% t(x)
  return(xinner)
}

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.