Question

How to export data and its label, heading, information-about data for layman understanding- into a single excel sheet when the data is generated through double-for-loop at different stages within single iteration.
Code:

 k=3
 t=2
   o=seq(from=1, to=t, by=1)
    for(i in 1:t){
        v=((o[i])+1)
        print ("treatments")
        print (v)
        h=seq(from=0, to=o[i], by=1)
        q1=NULL
        q2=NULL
        x1=NULL
           for(j in 1:o[i]){
              q1=c((v-(4*h[j]+1)))
              q2=c(((4*h[j])+2))
              T=c(q1,q2)
              y=c(0)
              IB=c(y,cumsum(T)%%v)
              print("The Initial Block(s) is/are=")
              print(IB)
                   p=seq(from=0, to=v-1, by=1)
                   l=NULL
                     for(i in 1:k){
                     for(j in 1:v){
                     l=c(l,rep((IB[i]+p[j]+v)%% v))
                     }
                    }
              x= matrix(c(l),nrow=k,ncol=v,byrow = TRUE)
              x1=cbind(x1,x)
                }
         print ("Design Matrix is")
         print (x1)
       }

At first iteration, the output is:

        [1] "treatments"
        [1] 3
        [1] "The Initial Block(s) is/are="
        [1] 0 2 1
        [1] "Design Matrix is"
        [,1] [,2] [,3]
 [1,]    0    1    2
 [2,]    2    0    1
 [3,]    1    2    0

At 2nd iteration, the output is

  [1] "treatments"
  [1] 5
  [1] "The Initial Block(s) is/are="
  [1] 0 4 1
  [1] "The Initial Block(s) is/are="
  [1] 0 0 1
  [1] "Design Matrix is"
       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    0    1    2    3    4    0    1    2    3     4
 [2,]    4    0    1    2    3    0    1    2    3     4
 [3,]    1    2    3    4    0    1    2    3    4     0

and so on …

please consider

1. The output may be in the sequence as mentioned on single excel sheet of a file.

2. Matrix may be cell by cell– I have tried but it pasted in single cell.

3. Please ask if something ambiguous.

4. Codes are very lengthy so one may take his/her own example please.

Answer 1

For the record, this is a terrible, terrible way to display information.

library(XLConnect)
wb <- loadWorkbook("~/Desktop/so/terrible_idea.xlsx",create = TRUE)
sht <- "Horrible Way To Display Data"
createSheet(wb,name = sht)

k=3
 t=2
   o=seq(from=1, to=t, by=1)
    for(i in 1:t){
        v=((o[i])+1)
        print ("treatments")
        appendWorksheet(wb,data.frame("treatments"),sheet = sht,header = FALSE)
        row_counter <- row_counter + 1
        print (v)
        appendWorksheet(wb,as.data.frame(v),sheet = sht,header = FALSE)
        h=seq(from=0, to=o[i], by=1)
        q1=NULL
        q2=NULL
        x1=NULL
           for(j in 1:o[i]){
              q1=c((v-(4*h[j]+1)))
              q2=c(((4*h[j])+2))
              T=c(q1,q2)
              y=c(0)
              IB=c(y,cumsum(T)%%v)
              print("The Initial Block(s) is/are=")
              appendWorksheet(wb,data.frame("The Initial Block(s) is/are="),sheet = sht,header = FALSE)
              print(IB)
              appendWorksheet(wb,as.data.frame(IB),sheet = sht,header = FALSE)
              row_counter <- row_counter + nrow(as.data.frame(IB))
                   p=seq(from=0, to=v-1, by=1)
                   l=NULL
                     for(i in 1:k){
                     for(j in 1:v){
                     l=c(l,rep((IB[i]+p[j]+v)%% v))
                     }
                    }
              x= matrix(c(l),nrow=k,ncol=v,byrow = TRUE)
              x1=cbind(x1,x)
                }
         print ("Design Matrix is")
         appendWorksheet(wb,data.frame("Design Matrix is"),sheet = sht,header = FALSE)
         print (x1)
         appendWorksheet(wb,as.data.frame(x1),sheet = sht,header = FALSE)
       }

saveWorkbook(wb)