renamed t-test example file, where it fits in the hierarchy. It's still BROKEN.
[CommonLispStat.git] / Data / puromycin.lsp
blob6554d2031095265b9043d483d747f2ecac5e3012
2 ;;; From LispStat 1 : need to document source appropriately.
4 (in-package :lisp-stat-data-examples)
6 ;;; FIXME: Shutup compiler warnings, need to clean up and
7 ;;; appropriately initialize.
10 ;;(require "nonlin")
12 (def x1 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1 1.1))
14 (def x2 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1))
16 (def y1 (list 76 47 97 107 123 139 159 152 191 201 207 200))
18 (def y2 (list 67 51 84 86 98 115 131 124 144 158 160))
20 (defun f1 (theta)
21 "The Michaelis-Menten function for the velocity of an enzymatic reaction
22 as a function of the substrate concentration. THETA is a parameter
23 vector of length 2 consisting of the asymptotic velocity and the
24 concentration at which half the asymptotic velocity is attained."
25 (/ (* (select theta 0) x1) (+ (select theta 1) x1)))
27 (defun f2 (theta)
28 "The Michaelis-Menten function for the velocity of an enzymatic reaction
29 as a function of the substrate concentration. THETA is a parameter
30 vector of length 2 consisting of the asymptotic velocity and the
31 concentration at which half the asymptotic velocity is attained."
32 (/ (* (select theta 0) x2) (+ (select theta 1) x2)))