[R] How to loop through all the columns in dataframe

[jim holtman]

Is this what you were looking for:

> xd<-
+ c(2.2024,2.4216,1.4672,1.4817,1.4957,1.4431,1.5676)
> pd<-
+ c(0.017046,0.018504,0.012157,0.012253,0.012348,0.011997,0.012825)
> td<- c(160524,163565,143973,111956,89677,95269,81558)
>  mydf<-data.frame(xd,pd,td)
>  trans<-t(mydf)
>  trans
          [,1]        [,2]        [,3]        [,4]       [,5]
[,6]       [,7]
xd 2.20240e+00 2.42160e+00 1.46720e+00 1.48170e+00 1.4957e+00
1.4431e+00 1.5676e+00
pd 1.70460e-02 1.85040e-02 1.21570e-02 1.22530e-02 1.2348e-02
1.1997e-02 1.2825e-02
td 1.60524e+05 1.63565e+05 1.43973e+05 1.11956e+05 8.9677e+04
9.5269e+04 8.1558e+04
>  varA<- 0.0000036084
>  covAB<- (-0.0000013046)
>  varB<- 0.00000052628
>
> # create the sequences to test against
> i.seq <- lapply(seq(ncol(trans) - 1), function(x) x:(ncol(trans) - 1))
> x <- lapply(i.seq, function(.col){
+     t(varA + trans[, .col[1]] * covAB + trans[, .col + 1] * covAB +
trans[, .col[1]] * trans[, .col + 1] * varB)
+ })
> # rbind for the output
> do.call(rbind, x)
                xd           pd        td
 [1,] 3.827555e-07 3.562187e-06 13817.642
 [2,] 5.216407e-07 3.570411e-06 12162.524
 [3,] 5.195306e-07 3.570286e-06  9457.751
 [4,] 5.174933e-07 3.570163e-06  7575.638
 [5,] 5.251477e-07 3.570618e-06  8048.046
 [6,] 5.070304e-07 3.569545e-06  6889.751
 [7,] 4.049294e-07 3.568518e-06 12392.937
 [8,] 4.044920e-07 3.568394e-06  9636.924
 [9,] 4.040698e-07 3.568271e-06  7719.154
[10,] 4.056562e-07 3.568725e-06  8200.512
[11,] 4.019013e-07 3.567653e-06  7020.273
[12,] 9.053716e-07 3.576633e-06  8482.585
[13,] 8.979174e-07 3.576510e-06  6794.531
[14,] 9.259239e-07 3.576965e-06  7218.231
[15,] 8.596348e-07 3.575891e-06  6179.364
[16,] 8.904145e-07 3.576385e-06  5283.524
[17,] 9.180195e-07 3.576841e-06  5612.999
[18,] 8.526806e-07 3.575766e-06  4805.162
[19,] 9.103878e-07 3.576717e-06  4495.999
[20,] 8.459661e-07 3.575643e-06  3848.924
[21,] 8.711933e-07 3.576098e-06  4088.938
>
>
>



On 3/15/08, Felipe Carrillo <mazatlanmexico at yahoo.com> wrote:
> Hi:
> Can anyone advice me on how to loop and perform a
> calculation through all the columns.
> here's my data
> xd<-
> c(2.2024,2.4216,1.4672,1.4817,1.4957,1.4431,1.5676)
> pd<-
> c(0.017046,0.018504,0.012157,0.012253,0.012348,0.011997,0.012825)
> td<- c(160524,163565,143973,111956,89677,95269,81558)
>  mydf<-data.frame(xd,pd,td)
>  trans<-t(mydf)
>  trans
>  I have these values that I need to include while
> looping:
>  varA<- 0.0000036084
>  covAB<- (-0.0000013046)
>  varB<- 0.00000052628
>  After transposing my dataframe I need something like
> the following:
>  varA + col1*covAB + col2*covAB + col1*col2*varB
>  varA + col1*covAB + col3*covAB + col1*col3*varB
>  varA + col1*covAB + col4*covAB + col1*col4*varB
>  varA + col1*covAB + col5*covAB + col1*col5*varB
>     and so on..
>     then do it all over again but starting with col2
>   varA + col2*covAB + col3*covAB + col2*col3*varB
>   varA + col2*covAB + col4*covAB + col2*col4*varB
>  varA + col2*covAB + col5*covAB + col2*col5*varB
>  then col3
>  then col4 to col7
>  This is easy to do in Excel but I wonder if there's
> a way to do it with R
>  This is the dataframe I get while doing a loop with
> Excel(the values generated could bedifferent).Thanks
>  xd               pd            td
> 3.82755E-07     26256108060     0.000315419
> 5.21641E-07     23111121852     0.000207228
> 5.19531E-07     17971624944     0.000208865
> 5.17464E-07     14395310748     0.000210484
> 5.25148E-07     15292960956     0.000204501
> 5.0703E-07      13092016392     0.000218615
> .       .       .
> 4.04929E-07     23548943745     0.000224953
> 4.04492E-07     18312083140     0.00022673
> 4.04064E-07     14668018505     0.000228487
> 4.05656E-07     15582673985     0.000221992
> 4.01901E-07     13340034270     0.000237314
> .       .       .
> 9.05372E-07     16118641188     0.00014896
> 8.97811E-07     12911066721     0.000150115
> 9.25924E-07     13716163737     0.000145848
> 8.59635E-07     11742149934     0.000155914
> .       .       .
> 8.9031E-07      10039878212     0.0001513
> 9.1802E-07      10665936164     0.000146999
> 8.52681E-07     9130907448      0.000157145
> .       .       .
> 9.10279E-07     8543438113      0.000148139
> 8.4587E-07      7313876766      0.000158363
> .       .       .
> 8.71193E-07     7769949102      0.000153862
>
>
>
>  Felipe D. Carrillo
>  Fishery Biologist
>  Department of the Interior
>  US Fish & Wildlife Service
>  California, USA
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>


-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem you are trying to solve?