1
function calculate () {
2
if (getValue ("length.enabled.numeric")) {
3
length = getValue ("length");
4
} else { // this happens when the saveto.parent is a data.frame, only.
5
length = "dim (" + getValue ("saveto.parent") + ")[1]";
8
echo (".GlobalEnv$" + getValue ("saveto") + " <- rnorm (" + length + ", mean=" + getValue ("mean") + ", sd=" + getValue ("sd") + ")\n");