 Hi R-users,
   
  I have 48 blocks like below
   
    1 2 3 4
  5 6 7 8
  9 10 11 12
 13 14 15 16
 17 18 19 20
 21 22 23 24
 25 26 27 28 
 29 30 31 32
 33 34 35 36
 37 38 39 40
 41 42 43 44 
 45 46 47 48
   
  in each block there are 18 cloumns and 18 rows which give 18*18*48 observations. The matrix looks like 
   
   
     1 2 3 .... 17 18 1 2 3. ..1 7 18 1 2 3. ..1 7 18 1 2 3  ... 17 18 
  1                        
  2     Block 1         Block 2           block 3              Block 4
  3
  .
  .
  17
  18 
  ------------------------------------------------------------------------------------------------------
  1
  2  block 5          block 6           block 7            block 8
  3
  .
  .
  17
  18
  ----------------------------------------------------------------------------------------------------------
  1
  2
  3  block 9       block 10           block11          block12  
  .
  .
  17
  18  
  -----------------------------------------------------------------------------------------------------------
  1
  2
  3  block 13   block 14        block 15              block 16
  .
  .
  17
  18
  --------------------------------------------------------------------------------------------------------
  .
  .
  .
   
  til the last row with blocks 45 46 47 48 
   
   
  What i want to do is to add column and row positions  to block 2-48 so that the matrix will look like
   
     1 2 3....17 18  19 20 21...35 36  37 38 39 ...53 54  55 56 ...71 72
  1 
  2   block 1           block 2                 block 3        block 4                                
  3
  .
  .
  17
  18 
  ------------------------------------------------------------------------------------------------------
  19
  20  block 5        block 6                     block 7      block 8
  21
  .
  .
  35
  36
  ----------------------------------------------------------------------------------------------------------
  37
  38
  39
  .
  .
  53
  54  
  -----------------------------------------------------------------------------------------------------------
  55
  56
  57
  .
  .
  71
  72
  --------------------------------------------------------------------------------------------------------
  .
  .
  .
  .
  .
  -------------------------------------------------------------------------------------------------------
  198
  199 block 45             block 46             block 47      block 48
  .
  .
   
  215
  216   
   
  How can I do this in R ? 
   
  I try
       
   layout is a matrix contains columns:block, row, column, id name 
   
  ##  Column positions ###
   
   blockcol<-rep(0,nrow(layout))
  if(layout$Block%%4==2)
  {blockcol=layout$Column+18}
      if(layout$Block%%4==3){blockcol=layout$Column+36} else      {blockcol=layout$Column+54}
   
  ## Row positions ###
                      
  blockrow<-rep(0,nrow(layout))
  if(layout$Block<=4) {blockrow=layout$Row}
          for (j in 2:12){
               if((j-1)*4<layout$Block<=j*4) 
                        {blockrow=layout$Row+(j-1)*18}
                         }     
   
  but didn't get the desirable result.
   
   
   
  Thanks for your help,
   
  Jenny                    

	[[alternative HTML version deleted]]

