On Tue, Oct 19, 2010 at 11:30 AM, <Richard.Cotton@hsl.gov.uk> wrote:

> > x <- c(1, 2, 3)
> > n <- 10
> > ## so using the recycling rules, I would like to get from FUN(x, n)==1
> > ## I am doing:
> > xRecycled <- rep(x, length.out=n)[n]
> >
> > This works, but it seems to me that I am missing something really basic
> here
> > - is there  more straightforward way of doing this?
>
> x[n %% length(x)] gives you the same answer as rep(x, length.out=n)[n],
> without having to create the longer vector.
>

Thanks a lot - works perfectly and looks much nicer,

Rainer


>
> Regards,
> Richie.
>
> Mathematical Sciences Unit
> HSL
> 4D Pie Charts
>
>
>
> ------------------------------------------------------------------------
> ATTENTION:
>
> This message contains privileged and confidential information intended
> for the addressee(s) only. If this message was sent to you in error,
> you must not disseminate, copy or take any action in reliance on it and
> we request that you notify the sender immediately by return email.
>
> Opinions expressed in this message and any attachments are not
> necessarily those held by the Health and Safety Laboratory or any person
> connected with the organisation, save those by whom the opinions were
> expressed.
>
> Please note that any messages sent or received by the Health and Safety
> Laboratory email system may be monitored and stored in an information
> retrieval system.
> ------------------------------------------------------------------------
> Think before you print - do you really need to print this email?
> ------------------------------------------------------------------------
>
> ------------------------------------------------------------------------
> Scanned by MailMarshal - Marshal's comprehensive email content security
> solution. Download a free evaluation of MailMarshal at www.marshal.com
> ------------------------------------------------------------------------
>



-- 
NEW GERMAN FAX NUMBER!!!

Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology,
UCT), Dipl. Phys. (Germany)

Centre of Excellence for Invasion Biology
Natural Sciences Building
Office Suite 2039
Stellenbosch University
Main Campus, Merriman Avenue
Stellenbosch
South Africa

Cell:           +27 - (0)83 9479 042
Fax:            +27 - (0)86 516 2782
Fax:            +49 - (0)321 2125 2244
email:          Rainer@krugs.de

Skype:          RMkrug
Google:         R.M.Krug@gmail.com

	[[alternative HTML version deleted]]

