Anonymous user
CSV data manipulation: Difference between revisions
→{{header|R}}
Line 3,543:
=={{header|R}}==
<lang
df <- read.csv(textConnection(
"C1,C2,C3,C4,C5
Line 3,553:
df <- transform(df,SUM = rowSums(df))
write.csv(df,row.names = FALSE)
</lang>
{{Slightly different way of doing the above }}
<lang rsplus>
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)
</lang>
|