FrontPage command: R ex1
R: a1 <- c(5,2,7,3,5) R: a2 <- c(1,9,7,0,3) R: a1[5 < a1] R: a2[5 < a2] R: a3 <- c(a1,a2) R: a3[5 < a3] command: end ex1 command: run ex1 command: getOutput ex1 command: sendResults. result: