回答編集履歴
1
修正
test
CHANGED
|
@@ -1,12 +1,14 @@
|
|
|
1
1
|
```R
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
s<- numeric(5)
|
|
4
4
|
|
|
5
5
|
for(i in c(2,3,4)){
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
s<-s+x[[i]]
|
|
8
8
|
|
|
9
9
|
}
|
|
10
|
+
|
|
11
|
+
x<-transform(x,Sum=s)
|
|
10
12
|
|
|
11
13
|
```
|
|
12
14
|
|