Dear All,

I have data some thing like this:

    State Jan Feb Mar Apr May Jun  AAA 1 1 0 2 2 0  BBB 1298 1195 1212 1244
1158 845  CCC 0 0 0 1 2 1  DDD 5 11 17 15 10 9  EEE 18 28 27 23 23 16  FFF
68 152 184 135 111 86


I want to sum all the column(Jan, Feb, Mar ...) and have to merge the total
at last row. like this:

StateJanFebMarAprMayJunAAA110220BBB12981195121212441158845CCC 000121DDD51117
15109EEE182827232316FFF6815218413511186Total    1390 1387 1440 1420 1306
957


I am doing some thing like this, but I don't know how to merge "Total" to
"data"  Or I don't know there may be a alternative way.

> data <- read.csv(file='ipsample.csv',sep=',' , header=TRUE)
> data
  State  Jan  Feb  Mar  Apr  May Jun
1   AAA    1    1    0    2    2   0
2   BBB 1298 1195 1212 1244 1158 845
3  CCC     0    0    0    1    2   1
4   DDD    5   11   17   15   10   9
5   EEE   18   28   27   23   23  16
6   FFF   68  152  184  135  111  86

> attributes(data)
$names
[1] "State" "Jan"   "Feb"   "Mar"   "Apr"   "May"   "Jun"

$class
[1] "data.frame"

$row.names
[1] 1 2 3 4 5 6


> x <- data[,2:ncol(data)]

> x

   Jan  Feb  Mar  Apr  May Jun
1    1    1    0    2    2   0
2 1298 1195 1212 1244 1158 845
3    0    0    0    1    2   1
4    5   11   17   15   10   9
5   18   28   27   23   23  16
6   68  152  184  135  111  86

> Total <- sapply(x,sum,na.rm=T)

> Total
 Jan  Feb  Mar  Apr  May  Jun
1390 1387 1440 1420 1306  957

I hope there may be alternative way.  Any help will be appreciated.

Thanks & Rg
Mohan L

	[[alternative HTML version deleted]]

