Is this what you want? It returns a character vector with the values:
> generate.index<-function(n.item){
+ .return <- character() # initialize vector
+ for (i in 1:n.item)
+ {
+ for (j in ((i+1):n.item))
+ {
+ # concatenate the results
+ .return <- c(.return,
paste("i",formatC(i,digits=2,flag="0"),".",formatC(j,digits=2,flag="0"),sep=""))
+
+ }
+
+ }
+ .return
+ }>
>
> generate.index(10)
[1] "i001.002" "i001.003" "i001.004"
"i001.005" "i001.006" "i001.007"
[7] "i001.008" "i001.009" "i001.010"
"i002.003" "i002.004" "i002.005"
[13] "i002.006" "i002.007" "i002.008"
"i002.009" "i002.010" "i003.004"
[19] "i003.005" "i003.006" "i003.007"
"i003.008" "i003.009" "i003.010"
[25] "i004.005" "i004.006" "i004.007"
"i004.008" "i004.009" "i004.010"
[31] "i005.006" "i005.007" "i005.008"
"i005.009" "i005.010" "i006.007"
[37] "i006.008" "i006.009" "i006.010"
"i007.008" "i007.009" "i007.010"
[43] "i008.009" "i008.010" "i009.010"
"i010.011" "i010.010">
On 2/4/06, Taka Matzmoto <sell_mirage_ne@hotmail.com>
wrote:>
> Hi R users
>
> I wrote a function that generates some character strings.
>
> generate.index<-function(n.item){
> for (i in 1:n.item)
> {
> for (j in ((i+1):n.item))
> {
>
>
>
cat("i",formatC(i,digits=2,flag="0"),".",formatC(j,digits=2,flag="0"),"\n",sep="")
>
> }
>
> }
> }
>
> I like to save what appears on the screen when I run using
> generate.index(10) as a character vector
>
> I used
> temp <- generate.index(10)
>
> but it didn't work.
>
> Could you provide some advice on this issue?
>
> Thanks in advance
>
> TM
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
> http://www.R-project.org/posting-guide.html
>
--
Jim Holtman
Cincinnati, OH
+1 513 247 0281
What the problem you are trying to solve?
[[alternative HTML version deleted]]