Creating a Data frame from a for loop in R

Question

I am trying to create a Data Frame out of a For loop, how ever in all the recommendations I have found, I only get the last value of the loop and not the whole result.

I have tried creating an empty list before the loop, an empty data.frame, matrix and in the loop defined such element and after the loop again call it, but it only takes the last value of the loop.

random_growth <- rnorm(n=10000, mean=0.11, sd=0.3560766)
fcf0 <- 3619
 for (i in random_growth){
  fcf1= fcf0 *(1+i)
  fcf2= fcf1*(1+i)
  fcf3= fcf2*(1+i)
  fcf4= fcf3*(1+i)
  fcf5= fcf4*(1+i)
  fcf6= fcf5*(1+i)
  ffcfs = c(fcf1,fcf2,fcf3,fcf4,fcf5,fcf6)
  print(rbind(ffcfs))
    }

I would like to have a data frame of 6 columns and 10.000 rows. I know my loop is not the best way of doing such calculation, but I didn't find another way. Please, I would be really glad if you could help me.

I found a way to creating the data frame, but I tried to create inside the loop different if-else statements, as some values on the random_growth can be negative and it would not be applied if I do the straight formula. So I came up with this change but somehow the calculations are wrong:

random_growth <- rnorm(n=10000, mean=0.11, sd=0.3560766)
fcf0 <- 3619
ffcfs <- data.frame()
  for (i in random_growth){
    if (i>0){
  fcf1= fcf0*(1+i)
  fcf2= fcf1*(1+i)
  fcf3= fcf2*(1+i)
  fcf4= fcf3*(1+i)
  fcf5= fcf4*(1+i)
  fcf6= fcf5*(1+i)
    }
  else{
  fcf1= if ((fcf0*i)>0){fcf0*(1+i)} else {fcf0-(fcf0*i)}
  fcf2= if ((fcf1*i)>0){fcf1*(1+i)} else {fcf1-(fcf1*i)}
  fcf3= if ((fcf2*i)>0){fcf2*(1+i)} else {fcf2-(fcf2*i)}
  fcf4= if ((fcf3*i)>0){fcf3*(1+i)} else {fcf3-(fcf3*i)}
  fcf5= if ((fcf4*i)>0){fcf4*(1+i)} else {fcf4-(fcf4*i)}
  fcf6= if ((fcf5*i)>0){fcf5*(1+i)} else {fcf5-(fcf5*i)}
  }
  row_i = c(fcf1,fcf2,fcf3,fcf4,fcf5,fcf6)
  ffcfs = rbind(ffcfs,row_i)
    }

Could you help me to identify what is wrong?? Thank you very much!!

Peer Christensen · Accepted Answer · 2019-08-12 18:16:32Z

1

The loop you're running keeps declaring, or updating, the ffcfs vector.

Try this instead:

random_growth <- rnorm(n=10000, mean=0.11, sd=0.3560766)
fcf0 <- 3619
ffcfs = data.frame()

for (i in random_growth){
  fcf1 = fcf0 *(1+i)
  fcf2 = fcf1*(1+i)
  fcf3 = fcf2*(1+i)
  fcf4= fcf3*(1+i)
  fcf5 = fcf4*(1+i)
  fcf6 = fcf5*(1+i)

  row_i = c(fcf1,fcf2,fcf3,fcf4,fcf5,fcf6)

  ffcfs = rbind(ffcfs,row_i)

}

This way, the ith row is added to your data frame without creating a new data frame for each iteration. Hope it helps!

answered Aug 12, 2019 at 18:16

Peer Christensen

1047 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

PAlvarez Over a year ago

As you helped me before, I was wondering if you could take a look to the new edited part of this question about an if-else statement inside the same loop. Thank you very much!

Shree · Accepted Answer · 2019-08-13 02:27:30Z

0

A loop is not necessary for this. Here's a succinct way using lapply -

set.seed(2)
random_growth <- rnorm(n=10000, mean=0.11, sd=0.3560766)

df <- data.frame(
  setNames(
    lapply(1:6, function(x) {
      3619*(1 + random_growth)^x
    }),
    c("fcf1","fcf2","fcf3","fcf4","fcf5","fcf6")
  )
)

head(df)

      fcf1      fcf2      fcf3       fcf4       fcf5       fcf6
1 2861.289  2262.220  1788.578  1414.1033  1118.0321   883.9494
2 4255.294  5003.462  5883.173  6917.5554  8133.8033  9563.8924
3 6063.253 10158.341 17019.229 28513.9244 47772.0740 80037.0733
4 2560.441  1811.511  1281.644   906.7625   641.5342   453.8852
5 3913.674  4232.342  4576.957  4949.6326  5352.6526  5788.4882
6 4187.732  4845.842  5607.374  6488.5831  7508.2754  8688.2141

edited Aug 13, 2019 at 2:27

answered Aug 12, 2019 at 18:19

Shree

11.2k1 gold badge16 silver badges38 bronze badges

Collectives™ on Stack Overflow

Creating a Data frame from a for loop in R

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related