为什么我的高斯（rbf）内核不返回正定矩阵

Question

我不明白为什么我的RBF内核代码没有产生正定内核。但是指数内核确实如此。

v=matrix(c(1,2,3,4),2,2)

gau.cov = function(x, l, ss){
  d = as.matrix(x)/l
  K = exp(-0.5*d^2)
  diag(K) = diag(K) + 1e-8
  ss*K
}

eigen(gau.cov(v,2,2))

exp.cov <- function(distmatrix,l,ss){ss*exp(-as.matrix(distmatrix)/l)}

eigen(exp.cov(v,2,2))

请问有人可以为我指出正确的功能，以实现RBF。