RosettaCodeData/Task/CSV-data-manipulation/R/csv-data-manipulation-2.r

df <- read.csv(textConnection(
"C1,C2,C3,C4,C5
1,5,9,13,17
2,6,10,14,18
3,7,11,15,19
4,8,12,16,20"))

df$sum <- rowSums(df)
write.csv(df,row.names = FALSE)
Family Day update 2020-02-17 23:21:07 -08:00			`df <- read.csv(textConnection(`
			`"C1,C2,C3,C4,C5`
			`1,5,9,13,17`
			`2,6,10,14,18`
			`3,7,11,15,19`
			`4,8,12,16,20"))`

			`df$sum <- rowSums(df)`
			`write.csv(df,row.names = FALSE)`