回答編集履歴
1
修正
answer
CHANGED
|
@@ -1,8 +1,9 @@
|
|
|
1
1
|
```R
|
|
2
|
-
|
|
2
|
+
s<- numeric(5)
|
|
3
3
|
for(i in c(2,3,4)){
|
|
4
|
-
|
|
4
|
+
s<-s+x[[i]]
|
|
5
5
|
}
|
|
6
|
+
x<-transform(x,Sum=s)
|
|
6
7
|
```
|
|
7
8
|
連番なら
|
|
8
9
|
```R
|