Skip to content

Instantly share code, notes, and snippets.

View szilard's full-sized avatar

Szilard Pafka szilard

View GitHub Profile
@szilard
szilard / rpart_pruning.R
Created February 8, 2020 10:17
rpart pruning
library(data.table)
library(rpart)
d_train <- fread("https://s3.amazonaws.com/benchm-ml--main/train-0.1m.csv")
md <- rpart(ifelse(dep_delayed_15min=="Y",1,0) ~ ., d_train,
control = rpart.control(cp = 0.001))
plotcp(md)
printcp(md)
@szilard
szilard / ML_pkgs.R
Last active October 1, 2020 19:18
ML R packages (my focus: supervised learning) by CRAN downloads
##install.packages("cranlogs")
library(data.table)
library(cranlogs)
##caret/models/file
## grep "library =" * | sed 's/.*=//' | sed 's/c(//' | sed 's/),/,/' | grep -v NULL | sed 's/,.*$/,/' | sort | uniq | tr -d '\n'
caret_pkgs <- c("rpart", "C50", "CHAID", "Cubist", "FCNN4R", "HDclassif", "HiDimDA", "KRLS", "LiblineaR",
@szilard
szilard / lightgbm-R-gpu-fix.patch
Created June 6, 2024 20:35
fixing compilation error of lightgbm R package with GPU support
--- build_r.R 2024-06-06 20:27:58.458131823 +0000
+++ build_r.R-fixed 2024-06-06 20:27:54.254093172 +0000
@@ -106,9 +106,9 @@
install_libs_content <- gsub(
pattern = paste0("command_line_args <- NULL")
, replacement = paste0(
- "command_line_args <- c(\'"
- , paste(cmake_args_to_add, collapse = "', '")
- , "')"
+ "command_line_args <- c(\""