dış ilgi

Question

unsurları olarak iki matrisin sütunları alarak işlevini uygulayın dim(d) = J x D ve dim(r) = J x R ile matrisler d ve r düşünün. Eğlenin (a, b) aynı uzunluktaki iki vektörü alan ve bir sayı döndüren bir işlev olsun.
d ve r sütunlarını ilgili birimlerim olarak ele almak ve bunlara outer uygulamak istiyorum.

Aşağıdaki kod d ve r sütunlarda listelerini oluşturarak ve ardından hem outer ve sapply kullanarak gerçekleştirmektedir:

kodu ne istediğiniz ve nispeten verimlidir ama hantal ve belirsizdir

d.cols <- split(d, col(d)) 
r.cols <- split(r, col(r)) 
outer(d.cols, r.cols, 
     function(x,y) { 
      sapply(seq_along(x), 
       function(i) { 
        Fun(x[[i]], y[[i]]) })}) 

. Almaya çalıştığım şeyi başarmanın daha iyi bir yolu var mı?

Answer 1

Oldukça yakınsınız.

Sonra

VecFun <- Vectorize(Fun) 

sadece yapabilirsiniz:

outer(d.cols, r.cols, VecFun) 

Ör this related question açıklandığı gibi, tek ihtiyacınız bir vektörleşen sürüme Fun() fonksiyonunu dönüştürmek için Vectorize() işlevdir aşağıdaki gibi

Fun <- function(a,b) sum(a+b) 

ve r,d matrisler tanımlanır tanımlarsanız:

J <- 5 
D <- 3 
R <- 4 

d <- matrix(1:(J*D), J, D) 
r <- matrix(1:(J*R), J, R) 

o zaman bu olsun:

> outer(d.cols, r.cols, VecFun) 

    1 2 3 4 
1 30 55 80 105 
2 55 80 105 130 
3 80 105 130 155