Dear list, 
  I have following table
   
  ee<-table(ID,Day)
  ee
      Day
  ID    2  3  4 5 6  7  9 10 14 16
    35  5  0  0 3 1  0  0  5  0  0
    36  0  0  0 0 0  0  0  1  0  0
    43 13 15 15 0 0 13 13 15 13 15
    46  0  1  0 0 0  0  0  0  0  0
    58  0  0  0 0 0  0  4  4  0  0
  and want to calculate the sum for each row and column and then append the sums to the table matrix.
   
  kk<cbind(ee,as.matrix(apply(ee,1,sum)))
  dd<-rbind(kk,apply(ee,2,sum))
   
  Warning message:
  number of columns of result
          is not a multiple of vector length (arg 2) in: rbind(1, kk, apply(ee,2, sum))
   
  rownames(dd)<-c(rownames(dd)[-6],"Total:")
  colnames(dd)<-c(colnames(dd)[-11],"Total:")
   
  I got a table as wanted (see below), except that the variable names Day and ID are missing. Is there a way to add back these variable names to the table "dd" as shown in "ee". Also I got a warning message that I'm not exactly know how to skip. Can I make the table "dd" in a different and easier way ? Any suggestions are highly appreciated.
   
  Thanks,
  Tom
   
  dd
   
          2  3  4 5 6  7  9 10 14 16 Total:
  35      5  0  0 3 1  0  0  5  0  0     14
  36      0  0  0 0 0  0  0  1  0  0      1
  43     13 15 15 0 0 13 13 15 13 15    112
  46      0  1  0 0 0  0  0  0  0  0      1
  58      0  0  0 0 0  0  4  4  0  0      8
  Total: 18 16 15 3 1 13 17 25 13 15     18
   

       
---------------------------------
Går det långsamt? Skaffa dig en snabbare bredbandsuppkoppling.

	[[alternative HTML version deleted]]

