質問編集履歴
3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -67,3 +67,7 @@
|
|
|
67
67
|
|
|
68
68
|
|
|
69
69
|
このようなエラーが出てしまうのですが、エラー１から４の意味と解除方法を教えて頂けますでしょうか？
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
if内とelse if内のコードを一つづつ分解して入力する方法も教えて頂きたいです。
|
2
題名の変更
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
エラーの
|
|
1
|
+
data.frame(CHR37, CPG37)のエラーの解除方法が知りたい
|
test
CHANGED
|
File without changes
|
1
文法の修正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
エラーの意味と解除方法が知りたい
|
test
CHANGED
|
@@ -1,16 +1,14 @@
|
|
|
1
|
-
|
|
1
|
+
if(!sampling == FALSE & length(DMP_IDs) >= sampling){
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
+ DMP_IDs <- DMP_IDs[floor(runif(sampling,1,length(DMP_IDs)))]
|
|
4
4
|
|
|
5
|
+
+ }
|
|
5
6
|
|
|
7
|
+
> allProbe_IDs <- rownames(selDataMatrix)
|
|
6
8
|
|
|
9
|
+
> if(version=="450"){
|
|
7
10
|
|
|
8
|
-
|
|
9
|
-
|
|
10
|
-
|
|
11
|
-
if(version=="450"){
|
|
12
|
-
|
|
13
|
-
+ target_position <- na.omit(probeID2position(probe_IDs
|
|
11
|
+
+ target_position <- na.omit(probeID2position(probe_IDs=DMP_IDs,anno_info=Methyl450anno))
|
|
14
12
|
|
|
15
13
|
+ library(dplyr)
|
|
16
14
|
|
|
@@ -22,16 +20,50 @@
|
|
|
22
20
|
|
|
23
21
|
+ CPG37 <- anno_info %>% select("MAPINFO")
|
|
24
22
|
|
|
25
|
-
+ print(CHR37)
|
|
26
|
-
|
|
27
|
-
+ print(CPG37)
|
|
28
|
-
|
|
29
23
|
+ bg_position <- na.omit(cbind(CHR37,CPG37))
|
|
30
24
|
|
|
31
25
|
+ positionsList <- list("target" = target_position, "background" = bg_position)
|
|
32
26
|
|
|
33
|
-
+ s
|
|
27
|
+
+ }else if ((version=="EPIC")||(version=="850")){
|
|
34
28
|
|
|
29
|
+
+ target_position <- na.omit(probeID2position(probe_IDs = DMP_IDs, anno_info = EPICanno))
|
|
30
|
+
|
|
31
|
+
+ library(dplyr)
|
|
32
|
+
|
|
33
|
+
+ anno_info <- EPICanno
|
|
34
|
+
|
|
35
|
+
+ CHR37 <- unlist(anno_info %>% select("CHR"))
|
|
36
|
+
|
|
35
|
-
+ t
|
|
37
|
+
+ print(CHR37)
|
|
38
|
+
|
|
39
|
+
+ CHR37 <- paste("chr", CHR37, sep="")
|
|
40
|
+
|
|
41
|
+
+ print(CHR37)
|
|
42
|
+
|
|
43
|
+
+ CPG37 <- anno_info %>% select("MAPINFO")
|
|
44
|
+
|
|
45
|
+
+ bg_position <- na.omit(cbind(CHR37, CPG37))
|
|
46
|
+
|
|
47
|
+
+ positionsList <- list("target" = target_position, "background" = bg_position)
|
|
36
48
|
|
|
37
49
|
+ }
|
|
50
|
+
|
|
51
|
+
data.frame(CHR37, CPG37) でエラー:
|
|
52
|
+
|
|
53
|
+
arguments imply differing number of rows: 1, 0
|
|
54
|
+
|
|
55
|
+
> traceback()
|
|
56
|
+
|
|
57
|
+
4: stop(gettextf("arguments imply differing number of rows: %s",
|
|
58
|
+
|
|
59
|
+
paste(unique(nrows), collapse = ", ")), domain = NA)
|
|
60
|
+
|
|
61
|
+
3: data.frame(CHR37, CPG37)
|
|
62
|
+
|
|
63
|
+
2: probeID2position(probe_IDs = DMP_IDs, anno_info = EPICanno)
|
|
64
|
+
|
|
65
|
+
1: na.omit(probeID2position(probe_IDs = DMP_IDs, anno_info = EPICanno)) at #11
|
|
66
|
+
|
|
67
|
+
|
|
68
|
+
|
|
69
|
+
このようなエラーが出てしまうのですが、エラー１から４の意味と解除方法を教えて頂けますでしょうか？
|