p6e7p7/intro_to_ml
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

minor. rename gausskernel fnc

Browse Source
This commit is contained in:
Pierre-Edouard Portier 2023-01-29 17:53:32 +01:00
parent 38d8f0a401
commit 104fc0c95c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
19_nystroem_approximation_code.R
View File

@ -1,6 +1,6 @@
# compute the gaussian kernel between each row of X1 and each row of X2
# should be done more efficiently
gausskernel <-
gausskernel.nakr <-
function(X1, X2, sigma2)
{
n1 <- dim(X1)[1]
@ -34,7 +34,7 @@ function(X, y, sigma2=NULL, lambda=1E-4, landmarks=NULL, nb.landmarks=NULL)
X <- scale(X)
y <- scale(y)
C <- gausskernel(X, as.matrix(X[splidx,]), sigma2)
C <- gausskernel.nakr(X, as.matrix(X[splidx,]), sigma2)
K11 <- C[splidx,]
svdK11 <- svd(K11)
@ -80,7 +80,7 @@ function(o, newdata)
}
newdata <- scale(newdata,center=attr(o$X,"scaled:center"),
scale=attr(o$X,"scaled:scale"))
Ktest <- gausskernel(newdata, as.matrix(o$X[o$splidx,]), o$sigma2)
Ktest <- gausskernel.nakr(newdata, as.matrix(o$X[o$splidx,]), o$sigma2)
yh <- Ktest %*% o$beta
yh <- (yh * attr(o$y,"scaled:scale")) + attr(o$y,"scaled:center")
}