Multiplizieren jeder Komponente des Vektors durch einen anderen Vektor (was Vektor von m * n Länge)

Question

sagen, dass ich Teile mache, die in drei Größen, und jede Größe hat eine gewisse Toleranz:

target <- c(2, 4, 6) 
tolerance <- c(0.95, 1.05) 

Was ich d mag bis Ende mit einem Array, das für jedes Ziel (dh Ziel * 0,95, Ziel * 1,05) die Grenzen der Toleranz enthält:

tol = (2*0.95, 2*1.05, 4*0.95, 4*1.05, 6*0.95, 6*1.05) 

Hier ist eine wirklich hässliche Art und Weise dorthin zu gelangen, aber ich weiß, dass es ist eine einfache Möglichkeit, dies zu tun.

j<-1 
tol<-NULL 
for (i in target){ 
tol[j] <- i*tolerance[1] 
tol[j+1] <- i*tolerance[2] 
j<-j+2 
} 

Answer 1

Der Vektor tol berechnet werden kann outer() wie folgt aus:

tol <- c(outer(tolerance,target)) 
#> tol 
#[1] 1.9 2.1 3.8 4.2 5.7 6.3 

Answer 2

können Sie erreichen, dass die Verwendung von Matrixprodukt:

target <- c(2, 4, 6) 
tolerance <- c(0.95, 1.05) 
target %*% t(tolerance) 
    [,1] [,2] 
[1,] 1.9 2.1 
[2,] 3.8 4.2 
[3,] 5.7 6.3 

Answer 3

Die andere Antwort wäre meine Präferenz, aber diese Alternative könnte sich in einem bestimmten Kontext (mehr als zwei Vektoren) besser verallgemeinern

Reduce("*", expand.grid(list(tolerance, target))) 

Answer 4

Vor allem für Spaß - mit R-Recycling:

rep(target, each = length(tolerance)) * tolerance 
#[1] 1.9 2.1 3.8 4.2 5.7 6.3