aliens/tekuti
1
0
Fork 0
Code Activity

Commit pending changes

Browse source
This commit is contained in:
Andy Wingo 2022-10-08 07:51:39 +00:00
parent ae3d83d5f2
commit e62d37ae7f
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
tekuti/classifier.scm
View file

@ -135,11 +135,17 @@
(total-legit-features (feature-count legit-features)))
(hash-for-each
(lambda (feature _)
(let ((bogus-count (hash-ref bogus-features feature 0))
(let ((bogus-count (hash-ref bogus-features feature))
(legit-count (hash-ref legit-features feature 0)))
(hash-set! log-bogosities feature
(log (/ (/ (+ bogus-count 0.001) total-bogus-features)
(/ (+ legit-count 0.001) total-legit-features))))))
(cond
(bogus-count
(hash-set! log-bogosities feature
(log (/ (/ (+ bogus-count 0.001) total-bogus-features)
(/ (+ legit-count 0.001) total-legit-features)))))
(else
(hash-set! log-bogosities feature
(log (/ (/ 0.01 total-bogus-features)
(/ (+ legit-count 0.01) total-legit-features))))))))
changed-features)))
(define (compute-bogus-probability comment log-bogosities bogus-prior

1
tekuti/config.scm
View file

@ -27,6 +27,7 @@
(define-module (tekuti config)
#:use-module (tekuti util)
#:use-module ((sxml ssax) #:select (define-parsed-entity!))
#:declarative? #f
#:export (*public-scheme* *public-host* *public-port* *public-path-base*
*private-host* *private-port* *private-path-base*
*git-dir* *git* *debug* *admin-user* *admin-pass*