Multiplier récursivement en r

Question

Avoir la matrice et le vecteur suivants.

x<-matrix(c(1,4,7, 
     2,5,8, 
     3,6,9), nrow = 3) 
w <- c(1,1,1) 
res <- c() 

Quelle est la meilleure façon de multiplier recursiverly till obtenir une somme de désir des résultats comme en témoigne:

res[1]<-w %*%x[1,] 
res[2]<-w %*%x[2,] 
res[3]<-w %*%x[3,] 
res[4]<-w %*%x[1,] 
res[5]<-w %*%x[2,] 

sum(res)>1000 #Multiply recursiverly till the sum of the results sum(res) goes further than 1000. 

Answer 1

Voici comment faire récursive:

f <- function(x, w, res){ 
    if (sum(res)>1000) 
     return(res) 
    res <- c(res, x%*%w) 
    f(x,w,res) 
} 

Appelez-le avec vos objets prédéfinis. C'est:

f(x, w, res) 

Ce qui vous donnera:

# [1] 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 15 24 6 
# [62] 15 24 6 15 24 6 15 24 

Answer 2

Si vous avez toujours des données sur le même format alors quelque chose le long des lignes

res <- min(floor(1000/cumsum(rowSums(x)))) * cumsum(rowSums(x)) + cumsum(rowSums(x)) 
min(res[res>1000]) 

donnera la réponse à vous sans avoir à boucler. Peut-être enveloppé dans une fonction pour gérer une autre valeur que 1000.

Au moins la façon dont je comprends votre question