Changeset 20610 in project


Ignore:
Timestamp:
10/03/10 16:55:22 (9 years ago)
Author:
petercrlane
Message:

release 0.1

Location:
release/4/statistics
Files:
10 added
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/statistics/tests/run.scm

    r18757 r20610  
    117117       => 2)
    118118
     119; variance
     120; standard-deviation
     121; coefficient-of-variation
     122; standard-error-of-the-mean
     123; mean-sd-n
     124
    119125;; -- tests of distributional functions
    120126
  • release/4/statistics/trunk/statistics.meta

    r18757 r20610  
    1 ((author "Peter C. R. Lane")
     1((author "Peter Lane")
    22 (synopsis "Statistics library")
    33 (license "GPL-3")
  • release/4/statistics/trunk/statistics.scm

    r18757 r20610  
    600600  ;; Rosner 115
    601601  ;; The probability density function (PDF) for a normal distribution
    602   ;; with mean mu and variance sigma at point x.
    603   (define (normal-pdf x mu sigma)
    604     (* (/ (* (sqrt (* 2 PI)) sigma))
    605        (exp (* (- (/ (* 2 (square sigma))))
    606                (square (- x mu))))))
     602  ;; with mean mu and variance sigma-squared at point x.
     603  (define (normal-pdf x mu sigma-squared)
     604    (* (/ (sqrt (* 2 PI sigma-squared)))
     605       (exp (- (/ (square (- x mu))
     606                  (* 2 sigma-squared))))))
    607607
    608608  ;; CONVERT-TO-STANDARD-NORMAL
     
    15031503
    15041504  (define (t-significance t-statistic dof . args)
     1505    (set! t-statistic (exact->inexact t-statistic))
     1506    (set! dof (exact->inexact dof))
    15051507    (let ((tails (get-keyword :tails args ':both)))
    15061508      (let ((a (beta-incomplete (* 0.5 dof) 0.5 (/ dof (+ dof (square t-statistic))))))
  • release/4/statistics/trunk/statistics.setup

    r18757 r20610  
    66 'statistics
    77 '("statistics.o" "statistics.so" "statistics.import.so")
    8  '((version 1.0)
     8 '((version trunk)
    99   (static "statistics.o")))
Note: See TracChangeset for help on using the changeset viewer.