Going to ask this via a simplified code (logic is kinda wonky - but it's similar to my situation), the current code I'm working with is long and might be too many words without value. I will happily add what's needed to answer this: 

I have a situation with a for loop such as:

```
data2 <- data.frame("Chocolate" = c(0.25), "Strawberry" = c(.16),
                "Vanilla" = c(0.64), "Blueberry" = c(.75))

for (i in 1:4) { 
    freqSim <- data.frame(sample(0:1, length(1:100), replace=T, prob = c(1-data2[i],data2[i])))  

    lossCol <- freqSim*(runif(n=100, min=0, max=7000))

    costAvg <- mean(as.numeric(unlist(lossCol)))
    costSD <- sd(as.numeric(unlist(lossCol)))

    costAvg <- formatC(costAvg, format='d', big.mark=",")
    costSD <- formatC(costSD, format='d', big.mark= ",")

    stats <- list()
    stats[[i]] <- list(costAvg,costSD)

    print(stats[[i]])
}

```

where I get returned a vector such as:

```
[[1]] 
[1] "1,261" 

[[2]] 
[1] "2,103"

[[1]] 
[1] "313"

[[2]] 
[1] "1,165"

[[1]] 
[1] "2,073"

[[2]] 
[1] "2,206"

[[1]] 
[1] "2,417"

[[2]] 
[1] "2,258"

```

I would ideally like a matrix that looks like: 

```
          Chocolate    Strawberry   Vanilla   Blueberry
Label A     1,261       313          2,073      2,417  
Label B     2,103       1,165        2,206      2,258

```

Any way to do this without throwing myself off a cliff?