5
function calculate () {
6
vars = str_replace ("\n", ",", trim (getValue ("data")));
8
echo ('save (' + vars + ', file="' + getValue("file") + '", ascii=' + getValue("ascii") + ', compress=' + getValue("compress") + ')\n');
11
function printout () {
12
makeHeaderCode ("Save R objects", array ("File" , getValue ("file"), "Variables" , vars));