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-23 22:04:52 +01:00
parent d3639fe2ef
commit 472b35e38c
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
19_b_nystroem_approximation_housing_experiment_code.R
View File

@ -32,8 +32,10 @@ function()
dat <- dat[,!(colnames(dat) %in% c('ocean_proximity'))]
dat.all <- dat
dat <- list(X = dat[,!(colnames(dat) %in% c('median_house_value'))],
Y = dat[,c('median_house_value')])
X <- dat[,!(colnames(dat) %in% c('median_house_value'))]
Y <- dat[,c('median_house_value')]
names(Y) <- rownames(X)
dat <- list(X = X, Y = Y)
split <- splitdata(dat, 0.8)
entr <- split$entr
test <- split$test
@ -103,4 +105,7 @@ nb.landmarks <- round(sqrt(nrow(X.entr)))
landmarks <- landmarks.by.ca.clst(hous.cam, X.entr, nb.landmarks)
nakrm <- kfold.nakr(X.entr, Y.entr, landmarks=landmarks)
nakrm.yh <- predict(nakrm, X.test)
nakrm.mae <- mean(abs(nakrm.yh - Y.test))
nakrm.mae <- mean(abs(nakrm.yh - Y.test))
# nakrm.yh.train <- predict(nakrm, X.entr)
# rev(order(abs(nakrm.yh.train - Y.entr)))[1:20]
# hist(Y.entr[rev(order(abs(nakrm.yh.train - Y.entr)))[1:200]])

2
pad.R
View File

@ -2,6 +2,8 @@
# rm(list=ls())
# bookdown::render_book()
# :/^\#
# save.image(file="~/tmp/202301231942.Rdata")
# load(file = "~/tmp/202301231942.Rdata")
# bash make_chapter 19_nystroem_approximation.Rmd