n <- 5 ; p <- 3
Xtrain <- matrix(rnorm(n * p), ncol = p)
Xtest <- Xtrain[1:2, , drop = FALSE]
gamma <- .8
krbf(Xtrain, gamma = gamma)
krbf(Xtest, Xtrain, gamma = gamma)
exp(-.5 * euclsq(Xtest, Xtrain) / gamma^2)
kpol(Xtrain, degree = 2, gamma = .5, coef0 = 1)
Run the code above in your browser using DataLab