Dış() ve kullanıcı tanımlı işlevlerin kullanımıyla ilgili basit soru?

Question

> fun1 <- function(x,y){x+y} 
> outer(seq(1,5,length=5),seq(6,10,length=5),fun1) 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 7 8 9 10 11 
[2,] 8 9 10 11 12 
[3,] 9 10 11 12 13 
[4,] 10 11 12 13 14 
[5,] 11 12 13 14 15 
> fun2 <- function(x,y){z<-c(x,y);z[1]+z[2]} 
> outer(seq(1,5,length=5),seq(6,10,length=5),fun2) 
Error in dim(robj) <- c(dX, dY) : 
    dims [product 25] do not match the length of object [1] 

Neden fun2() çalışmıyor? Fun2() ve fun1() aslında aynı şey değil mi?

Details: 

    ‘X’ and ‘Y’ must be suitable arguments for ‘FUN’. Each will be 
    extended by ‘rep’ to length the products of the lengths of ‘X’ and 
    ‘Y’ before ‘FUN’ is called. 

    ‘FUN’ is called with these two extended vectors as arguments. 
    Therefore, it must be a vectorized function (or the name of one), 
    expecting at least two arguments. 

ne yaptığını, sen sonra bu vektörün birinci ve ikinci elemanları toplamı, bir vektörü içine iki vektör bitiştirmek vardır düşünün: ?outer okursanız

Answer 1

cevap açıktır olur . Diğer taraftan, fun1(), girişlerin vektörlenmiş toplamını yapar, böylece döndürülen nesne, girişlerin bireysel uzunlukları ile aynı uzunluktadır. fun2() yılında çıkış uzunluğu 1 bir vektör olup, fun2() eser cbind()değilc() iki girişine arkasında bir fikir yapmak 25.

yolu bekliyordum: Bir As

> fun3 <- function(x, y) { z <- cbind(x, y); z[,1] + z[,2]} 
> outer(seq(1,5,length=5),seq(6,10,length=5),fun3) 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 7 8 9 10 11 
[2,] 8 9 10 11 12 
[3,] 9 10 11 12 13 
[4,] 10 11 12 13 14 
[5,] 11 12 13 14 15 

Answer 2

outer için argüman olarak geçerken alternatif, sadece Vectorize(fun2) ile fun2 değiştirebilirsiniz:

fun2 <- function(x,y){z<-c(x,y);z[1]+z[2]} 
outer(seq(1,5,length=5),seq(6,10,length=5), Vectorize(fun2))