Dear Jorge, Thanks a lot.
Regards Anup On Thu, Nov 20, 2008 at 10:19 PM, Jorge Ivan Velez <[EMAIL PROTECTED] > wrote: > > Dear Anup, > Try this: > > # Data > A <- c(1,2,3,4,5) > B <- rnorm(100) > > # Results > t(apply(sapply(A,function(x) pnorm(x*B)),2,function(x) > c(Mean=mean(x),Var=var(x)))) > > > HTH, > > Jorge > > > > On Thu, Nov 20, 2008 at 10:09 PM, Anup Menon <[EMAIL PROTECTED]>wrote: > >> Dear Friends, >> >> I'm trying to see if there is some possibility that I can do the following >> computations without a loop. I have attached a toy example below. >> >> A <- c(1,2,3,4,5) >> B <- rnorm(100) >> store <- matrix(0,5,2) >> >> for (i in 1:5) >> { >> store[i,1] <- mean(pnorm(A[i]*B)) >> store[i,2] <- var(pnorm(A[i]*B)) >> } >> store >> >> Thanks in advance for your help. >> >> Kind Regards >> >> Anup >> >> [[alternative HTML version deleted]] >> >> ______________________________________________ >> R-help@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. >> > > [[alternative HTML version deleted]] ______________________________________________ R-help@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.