From 63e800e6ed305a34582cdeb611bcae4a79a09a13 Mon Sep 17 00:00:00 2001 From: Majid Eismann Date: Mon, 15 Jun 2026 17:55:51 +0200 Subject: [PATCH 1/2] fix to run example 1. Fix testing if test data exists for download 2. fix np call of int8 class --- R_tutorial/README.md | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R_tutorial/README.md b/R_tutorial/README.md index ff02209..7a7fac5 100644 --- a/R_tutorial/README.md +++ b/R_tutorial/README.md @@ -93,7 +93,7 @@ if (!file.exists(train_data_file_path)){ fasterrisk$utils$download_file_from_google_drive('1nuWn0QVG8tk3AN4I4f3abWLcFEP3WPec', train_data_file_path) } -if (!file.exists(train_data_file_path)){ +if (!file.exists(test_data_file_path)){ # download sample test data if it doesn't exists fasterrisk$utils$download_file_from_google_drive('1TyBO02LiGfHbatPWU4nzc8AndtIF-7WH', test_data_file_path) } @@ -106,12 +106,12 @@ np <- import("numpy", convert=FALSE) train_df <- read.csv(train_data_file_path) train_data <- data.matrix(train_df) X_train <- np$array(train_data[, 2:ncol(train_data)]) -y_train <- np$array(train_data[, 1], dtype=np$int) # Check your data! y label must be +1/-1. +y_train <- np$array(train_data[, 1], dtype=np$int8) # Check your data! y label must be +1/-1. test_df <- read.csv(test_data_file_path) test_data <- data.matrix(test_df) X_test <- np$array(test_data[, 2:ncol(test_data)]) -y_test <- np$array(test_data[, 1], dtype=np$int) # Check your data! y label must be +1/-1. +y_test <- np$array(test_data[, 1], dtype=np$int8) # Check your data! y label must be +1/-1. ``` # 3 Training the Model From 32824e709a5e3a9027398695872e6c61217c62e9 Mon Sep 17 00:00:00 2001 From: Majid Eismann Date: Mon, 15 Jun 2026 17:55:51 +0200 Subject: [PATCH 2/2] fix to run example 1. Fix testing if test data exists for download 2. fix np call of int8 class Signed-off-by: Majid Eismann --- R_tutorial/README.md | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R_tutorial/README.md b/R_tutorial/README.md index ff02209..7a7fac5 100644 --- a/R_tutorial/README.md +++ b/R_tutorial/README.md @@ -93,7 +93,7 @@ if (!file.exists(train_data_file_path)){ fasterrisk$utils$download_file_from_google_drive('1nuWn0QVG8tk3AN4I4f3abWLcFEP3WPec', train_data_file_path) } -if (!file.exists(train_data_file_path)){ +if (!file.exists(test_data_file_path)){ # download sample test data if it doesn't exists fasterrisk$utils$download_file_from_google_drive('1TyBO02LiGfHbatPWU4nzc8AndtIF-7WH', test_data_file_path) } @@ -106,12 +106,12 @@ np <- import("numpy", convert=FALSE) train_df <- read.csv(train_data_file_path) train_data <- data.matrix(train_df) X_train <- np$array(train_data[, 2:ncol(train_data)]) -y_train <- np$array(train_data[, 1], dtype=np$int) # Check your data! y label must be +1/-1. +y_train <- np$array(train_data[, 1], dtype=np$int8) # Check your data! y label must be +1/-1. test_df <- read.csv(test_data_file_path) test_data <- data.matrix(test_df) X_test <- np$array(test_data[, 2:ncol(test_data)]) -y_test <- np$array(test_data[, 1], dtype=np$int) # Check your data! y label must be +1/-1. +y_test <- np$array(test_data[, 1], dtype=np$int8) # Check your data! y label must be +1/-1. ``` # 3 Training the Model