实现多维高斯核

Question

如何创建一个为下面的变量计算多维高斯核的函数？

set.seed(1)
x <- matrix(rnorm(30), ncol = 3)