回答編集履歴
1
書式改善
test
CHANGED
|
@@ -52,7 +52,9 @@
|
|
|
52
52
|
|
|
53
53
|
> data.frame(
|
|
54
54
|
|
|
55
|
-
q=as.vector(sapply(seq(2, ncol(df1), 4), function(x){df1[,x]})),
|
|
55
|
+
q=as.vector(sapply(seq(2, ncol(df1), 4), function(x){df1[,x]})),
|
|
56
|
+
|
|
57
|
+
H=as.vector(sapply(seq(3, ncol(df1), 4), function(x){df1[,x]})))
|
|
56
58
|
|
|
57
59
|
q H
|
|
58
60
|
|