~l3on/ubuntu/precise/rkward/rebuild1

« back to all changes in this revision

Viewing changes to rkward/plugins/analysis/variances/bartlett_test.php

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Friedrichsmeier
  • Date: 2008-04-20 21:30:00 UTC
  • mfrom: (1.2.2 upstream) (3.1.9 hardy)
  • Revision ID: james.westby@ubuntu.com-20080420213000-fs4i8efmfc793bnn
new upstream release
closes: #475175
closes: #463348
closes: #475982

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
<?
 
2
function preprocess () {
 
3
}
 
4
 
 
5
function calculate () {
 
6
        global $vars;
 
7
        $vars = str_replace ("\n", ", ", trim (getRK_val ("x")));
 
8
?>
 
9
result <- bartlett.test (list (<? echo ($vars); ?>))
 
10
<?
 
11
}
 
12
 
 
13
function printout () {
 
14
        global $vars;
 
15
?>
 
16
names <- rk.get.description (<? echo ($vars); ?>)
 
17
 
 
18
rk.header (result$method)
 
19
 
 
20
rk.results (list (
 
21
        'Variables'=names,
 
22
        'Bartlett s K-squared'=result$statistic,
 
23
        'df'=result$parameter,
 
24
        'p-value'=result$p.value))
 
25
<?
 
26
}
 
27
?>