Sākums Izpētīt Palīdzība
Pierakstīties
ZelphirKaltstahl
/
guile-ml
Vērot 2
Pievienot zvaigznīti 1
Atdalīts 0
Faili Problēmas 0 Izmaiņu pieprasījumi 0 Vikivietne

This repository is supposed to contain all my GNU Guile or Scheme machine learning algorithm implementations.

Koks: 459e0564a1
Atzari Tagi
guile-ml
ZIP TAR.GZ
zelphir.kaltstahl 459e0564a1 remove todo, usage of car is OK here 4 gadi atpakaļ
old-racket-code 05f7208871 add racket code test file 5 gadi atpakaļ
scripts 7adfd9baf1 run metrics tests in run test script 5 gadi atpakaļ
test b0d6075bc1 renaming of utils modules 4 gadi atpakaļ
utils b0d6075bc1 renaming of utils modules 4 gadi atpakaļ
.gitignore 81913d80f7 update gitignore to include Emacs files 5 gadi atpakaļ
LICENSE 198d22ffbb Initial commit 7 gadi atpakaļ
README.org fde8c7b798 update readme 5 gadi atpakaļ
columns.csv ced580d8b0 initial commit 7 gadi atpakaļ
data-point.scm 3df084f217 add missing procedure 5 gadi atpakaļ
data_banknote_authentication.csv ced580d8b0 initial commit 7 gadi atpakaļ
dataset.scm b0d6075bc1 renaming of utils modules 4 gadi atpakaļ
decision-tree.scm 459e0564a1 remove todo, usage of car is OK here 4 gadi atpakaļ
metrics.scm 51ef8a8b35 update comment 4 gadi atpakaļ
notes.org 77f93cb446 add more notes about using fibers 4 gadi atpakaļ
prediction.scm 90a79c8f89 separate prediction module 5 gadi atpakaļ
pruning.scm b0d6075bc1 renaming of utils modules 4 gadi atpakaļ
split-quality-measure.scm 0111a9d334 remove commented out Racket expression 5 gadi atpakaļ
todo.org 2dfaac0ed1 update todo 4 gadi atpakaļ
tree.scm b0d6075bc1 renaming of utils modules 4 gadi atpakaļ
utils.scm 74e8f4af8a move list procedures from utils into list utils 5 gadi atpakaļ

README.org

Tests

You can run the tests by running the script run-tests.bash in the scripts/ directory as follows:


# from the root directory of this project:
bash scripts/run-tests.bash

Usage (outdated example)

This example is outdated and still for the older Racket code.


(define shuffled-dataset (shuffle dataset))

(define small-dataset
  (data-range shuffled-dataset
              0
              ;; take only a fifth of the data to make this example run faster
              (exact-floor (/ (dataset-length shuffled-dataset)
                              5))))

;; be sure to collect all garbage, apparently this should be called thrice
(collect-garbage)
(collect-garbage)
(collect-garbage)

;; requires a ~time~ macro
(time
 ;; ~for/list~ -- a Racketism, needs to be rewritten
 (for/list ([i (in-range 1)])
   (mean
    (evaluate-algorithm #:dataset (shuffle dataset)
                        #:n-folds 10
                        #:feature-column-indices (list 0 1 2 3)
                        #:label-column-index 4
                        #:max-depth 5
                        #:min-data-points 24
                        #:min-data-points-ratio 0.02
                        #:min-impurity-split (expt 10 -7)
                        #:stop-at-no-impurity-improvement #t
                        #:random-seed 0))))

;; be sure to collect all garbage, apparently this should be called thrice
(collect-garbage)
(collect-garbage)
(collect-garbage)

(time
 ;; ~for/list~ -- a Racketism, needs to be rewritten
 (for/list ([i (in-range 1)])
   ;; run with the whole dataset as an example, no random seed
   (define tree (fit #:train-data dataset
                     #:feature-column-indices (list 0 1 2 3)
                     #:label-column-index 4
                     #:max-depth 5
                     #:min-data-points 12
                     #:min-data-points-ratio 0.02
                     #:min-impurity-split (expt 10 -7)
                     #:stop-at-no-impurity-improvement #t))
   'done))

Approach

Data representation

  • A dataset is currently represented by a list of vectors. Rows are represented by vectors.