2
function preprocess () {
5
function calculate () {
7
$vars = str_replace ("\n", ", ", trim (getRK_val ("x")));
9
result <- bartlett.test (list (<? echo ($vars); ?>))
13
function printout () {
16
names <- rk.get.description (<? echo ($vars); ?>)
18
rk.header (result$method)
22
'Bartlett s K-squared'=result$statistic,
23
'df'=result$parameter,
24
'p-value'=result$p.value))