Вычтите каждый элемент вектора A из каждого элемента вектора B

Question

Кто-нибудь знает какой-либо способ выполнить следующее в векторизованном формате?

Вместо того, вычитая член-накрест test1 из test, я хотел бы вычесть каждый элемент test1 от каждого элемента test. Таким образом, вместо:

test = c(1:10) 
test1 = seq(0.1, 1, 0.1) 

test - test1 
[1] 0.9 1.8 2.7 3.6 4.5 5.4 6.3 7.2 8.1 9.0 

Я хочу:

test2=vector("list") 
for(i in 1:length(test)){ 
    test2[[i]] = test[i] - test1 
} 
test2 
[[1]] 
[1] 0.9 0.8 0.7 0.6 0.5 0.4 0.3 0.2 0.1 0.0 

[[2]] 
[1] 1.9 1.8 1.7 1.6 1.5 1.4 1.3 1.2 1.1 1.0 

[[3]] 
[1] 2.9 2.8 2.7 2.6 2.5 2.4 2.3 2.2 2.1 2.0 

[[4]] 
[1] 3.9 3.8 3.7 3.6 3.5 3.4 3.3 3.2 3.1 3.0 

[[5]] 
[1] 4.9 4.8 4.7 4.6 4.5 4.4 4.3 4.2 4.1 4.0 

[[6]] 
[1] 5.9 5.8 5.7 5.6 5.5 5.4 5.3 5.2 5.1 5.0 

[[7]] 
[1] 6.9 6.8 6.7 6.6 6.5 6.4 6.3 6.2 6.1 6.0 

[[8]] 
[1] 7.9 7.8 7.7 7.6 7.5 7.4 7.3 7.2 7.1 7.0 

[[9]] 
[1] 8.9 8.8 8.7 8.6 8.5 8.4 8.3 8.2 8.1 8.0 

[[10]] 
[1] 9.9 9.8 9.7 9.6 9.5 9.4 9.3 9.2 9.1 9.0 

Даже для векторов разной длины?

Answer 1

outer(test, test1, `-`) 
#  [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] 
# [1,] 0.9 0.8 0.7 0.6 0.5 0.4 0.3 0.2 0.1  0 
# [2,] 1.9 1.8 1.7 1.6 1.5 1.4 1.3 1.2 1.1  1 
# [3,] 2.9 2.8 2.7 2.6 2.5 2.4 2.3 2.2 2.1  2 
# [4,] 3.9 3.8 3.7 3.6 3.5 3.4 3.3 3.2 3.1  3 
# [5,] 4.9 4.8 4.7 4.6 4.5 4.4 4.3 4.2 4.1  4 
# [6,] 5.9 5.8 5.7 5.6 5.5 5.4 5.3 5.2 5.1  5 
# [7,] 6.9 6.8 6.7 6.6 6.5 6.4 6.3 6.2 6.1  6 
# [8,] 7.9 7.8 7.7 7.6 7.5 7.4 7.3 7.2 7.1  7 
# [9,] 8.9 8.8 8.7 8.6 8.5 8.4 8.3 8.2 8.1  8 
# [10,] 9.9 9.8 9.7 9.6 9.5 9.4 9.3 9.2 9.1  9 

Answer 2

Это делает трюк:

lapply(test,function(x) x - test1) 

Answer 3

> test = c(1:10) 
> test1 = seq(0.1, 1, 0.1) 
> lapply(test,function(e) e-test1) 
[[1]] 
[1] 0.9 0.8 0.7 0.6 0.5 0.4 0.3 0.2 0.1 0.0 

[[2]] 
[1] 1.9 1.8 1.7 1.6 1.5 1.4 1.3 1.2 1.1 1.0 

[[3]] 
[1] 2.9 2.8 2.7 2.6 2.5 2.4 2.3 2.2 2.1 2.0 

[[4]] 
[1] 3.9 3.8 3.7 3.6 3.5 3.4 3.3 3.2 3.1 3.0 

[[5]] 
[1] 4.9 4.8 4.7 4.6 4.5 4.4 4.3 4.2 4.1 4.0 

[[6]] 
[1] 5.9 5.8 5.7 5.6 5.5 5.4 5.3 5.2 5.1 5.0 

[[7]] 
[1] 6.9 6.8 6.7 6.6 6.5 6.4 6.3 6.2 6.1 6.0 

[[8]] 
[1] 7.9 7.8 7.7 7.6 7.5 7.4 7.3 7.2 7.1 7.0 

[[9]] 
[1] 8.9 8.8 8.7 8.6 8.5 8.4 8.3 8.2 8.1 8.0 

[[10]] 
[1] 9.9 9.8 9.7 9.6 9.5 9.4 9.3 9.2 9.1 9.0 

Answer 4

Векторизованных подход дает вам нужный список:

x = rep(test, each=length(test)) 
split(x- test1, x) 

#$`1` 
# [1] 0.9 0.8 0.7 0.6 0.5 0.4 0.3 0.2 0.1 0.0 

#$`2` 
# [1] 1.9 1.8 1.7 1.6 1.5 1.4 1.3 1.2 1.1 1.0 

#$`3` 
# [1] 2.9 2.8 2.7 2.6 2.5 2.4 2.3 2.2 2.1 2.0 

#$`4` 
# [1] 3.9 3.8 3.7 3.6 3.5 3.4 3.3 3.2 3.1 3.0 

#$`5` 
# [1] 4.9 4.8 4.7 4.6 4.5 4.4 4.3 4.2 4.1 4.0 

#$`6` 
# [1] 5.9 5.8 5.7 5.6 5.5 5.4 5.3 5.2 5.1 5.0 

#$`7` 
# [1] 6.9 6.8 6.7 6.6 6.5 6.4 6.3 6.2 6.1 6.0 

#$`8` 
# [1] 7.9 7.8 7.7 7.6 7.5 7.4 7.3 7.2 7.1 7.0 

#$`9` 
# [1] 8.9 8.8 8.7 8.6 8.5 8.4 8.3 8.2 8.1 8.0 

#$`10` 
# [1] 9.9 9.8 9.7 9.6 9.5 9.4 9.3 9.2 9.1 9.0