У меня есть
c('a', 'b', 'c', 'd')
и я бы хотел вызвать функцию foo() с
foo()
foo('a', 'b') foo('b', 'c') foo('c', 'd')
С #R@irc.freenode.org:
x<-letters[1:10]; mapply(function(y,z) paste(y,z), head(x, -1), tail(x, -1))
Быстрый и грязный цикл for для выполнения работы:
foo <- function(a, b) { print(a) print(b) } a <- c('a', 'b', 'c', 'd') for (i in 1:(length(a)-1)) { foo(a[i], a[i+1]) }