# [R] Very simple loop

John Kane jrkrideau at yahoo.ca
Fri Nov 18 20:21:15 CET 2011

```As others have said, no need for a loop
Another approach

mydata <- data.frame(A = dpois(x,exp(4.5355343)),
B = dpois(x,exp(4.5355343 + 0.0118638)),
C = dpois(x,exp(4.5355343  -0.0234615)),
D = dpois(x,exp(4.5355343 + 0.0316557)),
E = dpois(x,exp(4.5355343 + 0.0004716)),
F = dpois(x,exp(4.5355343 + 0.056437)),
G = dpois(x,exp(4.5355343 + 0.1225822)))

df1 <- rowSums(mydata)
plot(df1)

--- On Mon, 11/14/11, Davg <davidgrimsey at hotmail.com> wrote:

> From: Davg <davidgrimsey at hotmail.com>
> Subject: [R] Very simple loop
> To: r-help at r-project.org
> Received: Monday, November 14, 2011, 10:59 AM
> I'm very new to R and am trying to
> create my first loop.
>
> I have:
>
> x <-c(0:200)
> A <- dpois(x,exp(4.5355343))
> B <- dpois(x,exp(4.5355343 + 0.0118638))
> C <- dpois(x,exp(4.5355343  -0.0234615))
> D <- dpois(x,exp(4.5355343 + 0.0316557))
> E <- dpois(x,exp(4.5355343 + 0.0004716))
> F <- dpois(x,exp(4.5355343 + 0.056437))
> G <- dpois(x,exp(4.5355343 + 0.1225822))
>
> and would like to to get A[K] + B[K] + C[K] + D[K] + E[K] +
> F[K] G[K]
> for K(0:200)
>
> And then plot these cumulative values.
>
> Many thanks.
>
>
> --
> View this message in context: http://r.789695.n4.nabble.com/Very-simple-loop-tp4039895p4039895.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help at r-project.org
> mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help