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

minor

Browse Source
This commit is contained in:
Pierre-Edouard Portier 2023-01-18 16:32:41 +01:00
parent 919d5884cd
commit dfea1a26f2
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
pad.R
View File

@ -25,28 +25,3 @@
# adj = 0, cex = 0.6)
# points(0, 0, pch = 3)
# ```
source("01_intro_code.R")
source("04_validation_croisee_code.R")
set.seed(1123)
n <- 100
data = gendat(n,0.2)
splitres <- splitdata(data,0.8)
entr <- splitres$entr
test <- splitres$test
# K11 <- gausskernel(as.matrix(X[splidx,]), sigma2)
#
# K21 <- matrix(nrow = n-nspl, ncol = nspl)
# for(i in 1:(n-nspl))
# for(j in 1:nspl)
# K21[i,j] <- sum(X[notsplidx[i],] - X[splidx[j],])^2
# K21 <- exp(-1*K21/sigma2)
source("19_nystroem_approximation_code.R")
krm <- nakrr(entr$X, entr$Y, nspl=15)
yh <- predict(krm,test$X)
plt(test,f)
points(test$X, yh, pch=4)
# coef2 <- coef[order(strtoi(rownames(coef)))]