4
function calculate () {
5
echo ('result <- mood.test (' + getValue ("x") + ', ' + getValue ("y") + ', alternative = "' + getValue ("alternative") + '")\n');
9
echo ('names <- rk.get.description (' + getValue ("x") + ', ' + getValue ("y") + ')\n');
11
echo ('rk.header (result$method,\n');
12
echo (' parameters=list ("Alternative Hypothesis", rk.describe.alternative (result)))\n');
14
echo ('rk.results (list (\n');
15
echo (' \'Variables\'=names,\n');
16
echo (' \'Z\'=result$statistic,\n');
17
echo (' \'p-value\'=result$p.value))\n');