[R] [S] lapply?

Daniel_J_Celta at fpl.com
Sat, 19 Aug 2006 19:10:05 -0000

Eugene,
Try

> lapply(c(4,6,7,8), function(x) rep(5, x))

I think this would do what you are trying to do.


Daniel J Celta
Project Valuation - Special Valuations
561 691 7653



                      "eugene dalt"
                      <eugenedalt at yahoo.com>           To:       s-news
at lists.biostat.wustl.edu, r-help at stat.math.ethz.ch
                      Sent by:                         cc:
                      s-news-owner at lists.biosta        Subject:  [S] lapply?
                      t.wustl.edu


                      08/19/2006 10:01 AM






Hi folks,

I would like to know if the following loop can be
rewritten with lapply


list1 <- as.list(0)

testv <- c(4,6,7,8)

for( i in 1:4){

list1[[i]] <- rep(5,testv[i])

}

Thanks in Advance. - Eugene

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--------------------------------------------------------------------
This message was distributed by s-news at lists.biostat.wustl.edu.  To
...(s-news.. clipped)...