Permalink
Browse files

sum needs to be defined and exported. Include in the statistics.lisp …

…toolkit in descriptives, I think? Removed since need to review API where and how.

Signed-off-by: aj rossini <blindglobe@gmail.com>
  • Loading branch information...
1 parent c7f5cf6 commit 183515f292dd06bba435163ded66d9d863da332b @blindglobe committed Oct 21, 2013
Showing with 6 additions and 2 deletions.
  1. +3 −1 Data/aircraft.lisp
  2. +3 −1 Data/leukemia.lisp
View
@@ -24,11 +24,13 @@
(def x (select failure-times 1))
-(defun gllik (theta)
+#|
+ (defun gllik (theta)
(let* ((mu (select theta 0))
(beta (select theta 1))
(n (length x))
(bym (* x (/ beta mu))))
(+ (* n (- (log beta) (log mu) (log-gamma beta)))
(sum (* (- beta 1) (log bym)))
(sum (- bym)))))
+|#
View
@@ -18,7 +18,8 @@
(def times-pos (list 65 156 100 134 16 108 121 4 39 143 56 26 22 1 1 5 65))
-(defun llik-pos (theta)
+#|
+ (defun llik-pos (theta)
(let* ((x transformed-wbc-pos)
(y times-pos)
(theta0 (select theta 0))
@@ -28,6 +29,7 @@
(* (length x) (log theta0))
(/ (sum (* y (exp t1x)))
theta0))))
+|#
(defun lk-sprob (theta)
(let* ((time 52.0)

0 comments on commit 183515f

Please sign in to comment.