wps/src/main/webapp/R/scripts/test_calculator.R

19 lines
318 B
R
Executable File

# wps.des: test.calculator, process for misusing R as a calculator;
# wps.in: a, double, value=1;
# wps.in: b, double, value=1;
# wps.in: op, string, value=+;
# wps.off;
op <- "+"
a <- 23
b <- 42
# wps.on;
result <- do.call(op, list(a, b))
#wps.out: result, double, calculation result;
# wps.off;
result
# wps.on;