1`%*%` input.r /^`%*%` <- function (v, p) {$/;" f 2v input.r /^`%*%` <- function (v, p) {$/;" z function:`%*%` 3p input.r /^`%*%` <- function (v, p) {$/;" z function:`%*%` 4r input.r /^ r <- 1$/;" v function:`%*%` 5i input.r /^ for (i in 1:p) {$/;" v function:`%*%` 6j input.r /^for (j in 1:3) {$/;" g 7