回答編集履歴
3
微修正
test
CHANGED
|
@@ -26,7 +26,9 @@
|
|
|
26
26
|
|
|
27
27
|
}
|
|
28
28
|
|
|
29
|
+
xn
|
|
30
|
+
|
|
29
|
-
|
|
31
|
+
# [1] 1 283281 283344 283371 378933 378975
|
|
30
32
|
|
|
31
33
|
|
|
32
34
|
|
2
変数名修正
test
CHANGED
|
@@ -18,15 +18,19 @@
|
|
|
18
18
|
|
|
19
19
|
xn <- c()
|
|
20
20
|
|
|
21
|
-
for (i in 1:length(
|
|
21
|
+
for (i in 1:length(target)) {
|
|
22
22
|
|
|
23
|
-
xn
|
|
23
|
+
xnum <- grep(target[i], y ,FALSE, TRUE, FALSE)
|
|
24
24
|
|
|
25
|
+
xn <- c(xn, xnum)
|
|
26
|
+
|
|
27
|
+
}
|
|
28
|
+
|
|
25
|
-
|
|
29
|
+
xn # 1 283281 283344 283371 378933 378975
|
|
26
30
|
|
|
27
31
|
|
|
28
32
|
|
|
29
|
-
ans2 <- apply(
|
|
33
|
+
ans2 <- apply(target, 1, function(xx) grep(xx, y, FALSE, TRUE, FALSE))
|
|
30
34
|
|
|
31
35
|
unlist(ans2)
|
|
32
36
|
|
1
日本語追記
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
愚直に質問に回答するならば、grepのtargetを
|
|
1
|
+
愚直に質問に回答するならば、grepのtargetに用いたい候補を or を意味する正規表現"|"でpaste利用することとなります。
|
|
2
2
|
|
|
3
3
|
```r
|
|
4
4
|
|