... or even simpler:
levels(interaction(e,d,sep=""))
... and PLEASE read "An Introduction to R" before further posting to learn
how to program in R rather than trying to fit what you do in other
languages to R.
Cheers,
Bert
On Fri, Jun 29, 2012 at 12:48 AM, Rui Barradas <ruipbarra...@sapo.pt> wrote:
> Hello,
>
> Try, in one line and no loops, surely not nested,
>
> apply(rev(expand.grid(e, d, stringsAsFactors = FALSE)), 1, paste,
> collapse="")
>
> Hope this helps,
>
> Rui Barradas
>
> Em 28-06-2012 22:03, arun.gurubaramurugeshan escreveu:
>
>> I am creating a nested for loop and following are the codes I'm using,
>> but I
>> am not acheiving what I want.
>>
>> I have a vector
>>
>> d<-151:159
>>
>> I have another vector
>>
>> e<-e<-c("apple", "orange", "banana")
>>
>> I need to create f as
>> 151apple
>> 151orange
>> 151banana
>> .
>> .
>> 159apple
>> 159orange
>> 159banana
>>
>> Here is how I wrote nested for loop...
>>
>> for (i in 1:length(d))
>> { for (j in 1:length(e))
>> {
>> x[j]<-paste(d[i],e[j],sep="")
>> print(x[j])
>> }
>> }
>>
>> The result of the above codes is....
>>
>> for (i in 1:length(d))
>>>
>> + { for (j in 1:length(e))
>> + {
>> + x[j]<-paste(d[i],e[j],sep="")
>> + print(x[j])
>> + }
>> + }
>> [1] "151apple"
>> [1] "151orange"
>> [1] "151banana"
>>
>>>
>>>
>>
>> What do I need to do this looping produce the desired result.
>>
>> Thanks
>> Arun
>> ----
>>
>>
>>
>>
>>
>> --
>> View this message in context: http://r.789695.n4.nabble.com/**
>> Nested-For-Loop-tp4634804.html<http://r.789695.n4.nabble.com/Nested-For-Loop-tp4634804.html>
>> Sent from the R help mailing list archive at Nabble.com.
>>
>> ______________________________**________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/**listinfo/r-help<https://stat.ethz.ch/mailman/listinfo/r-help>
>> PLEASE do read the posting guide http://www.R-project.org/**
>> posting-guide.html <http://www.R-project.org/posting-guide.html>
>> and provide commented, minimal, self-contained, reproducible code.
>>
>>
> ______________________________**________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/**listinfo/r-help<https://stat.ethz.ch/mailman/listinfo/r-help>
> PLEASE do read the posting guide http://www.R-project.org/**
> posting-guide.html <http://www.R-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>
--
Bert Gunter
Genentech Nonclinical Biostatistics
Internal Contact Info:
Phone: 467-7374
Website:
http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm
[[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.
