R/XI.gen.R

Defines functions XI.gen

XI.gen <- function(k, kd) {

  tempA <- - (1.0 + sqrt(kd)) / ((kd - 1.0)^(1.5))
  tempB <- tempA + sqrt(kd / (kd - 1.0))

  XI <- matrix(data = tempA, nrow = k-1L, ncol = k)

  XI[,1L] <- 1.0/sqrt(kd - 1.0)

  for( ii in 2L:k ) XI[ii-1L,ii] <- tempB

  return(XI)
}

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.