repo.or.cz
/
CommonLispStat.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
init is only useful for historical things, lispstat.asd now handles former activities.
[CommonLispStat.git]
/
Examples
/
fstat.lsp
blob
4b3a00bdf062532ecb15b7106a1b5333adda2085
1
(
defun
f-statistic
(
m1
m2
)
2
"
3
Args: (m1 m2)
4
Computes the F statistic for testing model m1 within model m2."
5
(
let
((
ss1
(
send
m1
:
sum-of-squares
))
6
(
df1
(
send
m1
:
df
))
7
(
ss2
(
send
m2
:
sum-of-squares
))
8
(
df2
(
send
m2
:
df
)))
9
(/ (/ (
-
ss1 ss2
) (
-
df1 df2
)) (/
ss2 df2
))))
10