-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathto_run.R
66 lines (42 loc) · 2.23 KB
/
to_run.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
rm(list=ls(all.names=TRUE))
#sample <- "SID"
sample <- "ein"
#sample <- "sample"
#set path libraries functions
if (!require("rstudioapi")) install.packages("rstudioapi")
projectFolder <- setwd(dirname(rstudioapi::getSourceEditorContext()$path))
source(paste0(projectFolder, "/pack_param_funct/path.R"))
source(paste0(projectFolder, "/pack_param_funct/packages.R"))
source("script_machine_learning/step_ML_2_crossvalidation.R")
#source(paste0(projectFolder, "/pack_param_funct/functions.R"))
#set the directory where the file is saved as the working directory
source("script_data_analysis/pre_step_data_einstein.R")
source("script_data_analysis/step_1_data_analysis.R")
#render(paste0(memoria_dir, "04_Stat_An.Rmd"), output_dir = output_dir)
# data prep
system.time(source("script_machine_learning/ein_step_0_datasplit.R"))
# script_machine_learning
system.time(source("script_machine_learning/ein_step_1_polr.R")) # 278
system.time(source("script_machine_learning/ein_step_2_rf.R")) #
system.time(source("script_machine_learning/ein_step_3_svm.R"))
system.time(source("script_machine_learning/ein_step_4_nb.R"))
system.time(source("script_machine_learning/ein_step_5_knn.R"))
system.time(source("script_machine_learning/ein_step_6_ann.R")) # 450
system.time(source("script_machine_learning/ein_step_7_glmnet.R")) # 751
system.time(source("script_machine_learning/ein_step_8_xgbTree.R")) # 5221
#system.time(source("script_machine_learning/ein_step_9_varimp.R"))
system.time(source("script_machine_learning/ein_step_9_varimp2.R"))
###### estimar negativos riesgo
###### positividad covid traves analisis
# olr rf xgbtree + svm
#source("script_machine_learning/step_ML_3_logreg.R")
#source("script_machine_learning/step_ML_4_randomforest.R")
#source("script_machine_learning/step_ML_5_SVM.R")
#source("script_machine_learning/step_ML_6_naivebayes.R")
#source("script_machine_learning/step_ML_7_knn.R")
#source("script_machine_learning/step_ML_8_ann.R")
#source("script_machine_learning/step_ML_9_glmnet.R")
#source("script_machine_learning/step_ML_10_xgboost.R")
#source("script_machine_learning/step_ML_12_var_imp.R")
# execute_RMarkdown
render(paste0(memoria_dir, "index.Rmd"), c("html_document", "pdf_document"), output_dir = output_dir)