|
0
|
1 dy1 <- as.vector(dy)
|
|
|
2 dy1 <- t(dy1)
|
|
|
3 colnames(dy1) <- c("A001","A002","B001")
|
|
|
4
|
|
|
5 names1 <- rownames(dx)
|
|
|
6
|
|
|
7 dy2 <- dy1[,names1]
|
|
|
8 dy3 <- t(dy2)
|
|
|
9 colnames(dy3) <- NULL
|
|
|
10 dx$out <- as.factor(dy3)
|
|
|
11
|
|
|
12
|
|
|
13
|
|
|
14 ####################################
|
|
|
15 if not factor
|
|
|
16
|
|
|
17
|
|
|
18 dyy <- t(dy1)
|
|
|
19 colnames(dyy) <- rownames(datax)
|
|
|
20 dyyy2 <- dyy[,names1]
|
|
|
21
|
|
|
22
|
|
|
23
|
|
|
24 ##################################
|
|
|
25
|
|
|
26
|
|
|
27
|
|
|
28 if(is.factor(dataY)){
|
|
|
29 dataY <- as.vector(dataY)
|
|
|
30 dataY <- t(dataY)
|
|
|
31 colName1 <- rownames(dataX)
|
|
|
32 colnames(dataY) <- colName1
|
|
|
33 dataY <- dataY[,d1]
|
|
|
34 # dataY <- t(dataY)
|
|
|
35 colnames(dataY) <- NULL
|
|
|
36 dataY <- as.factor(dataY)
|
|
|
37 }
|
|
|
38
|
|
|
39
|
|
|
40
|
|
|
41 ###############################################
|
|
|
42 if(is.factor(dataY)){
|
|
|
43 dataY <- as.vector(dataY)
|
|
|
44 dataY <- t(dataY)
|
|
|
45 colName1 <- rownames(dataX)
|
|
|
46 colnames(dataY) <- colNames1
|
|
|
47 names11 <- rownames(rawData)
|
|
|
48 dataY <- dataY[,names11]
|
|
|
49 #dataY <- t(dataY)
|
|
|
50 colnames(dataY) <- NULL
|
|
|
51 dataY <- as.factor(dataY)
|
|
|
52 }
|
|
|
53
|
|
|
54
|
|
|
55
|
|
|
56
|
|
|
57
|
|
|
58
|
|
|
59
|
|
|
60
|
|
|
61
|
|
|
62
|
|
|
63
|
|
|
64
|
|
|
65
|
|
|
66
|
|
|
67
|
|
|
68
|
|
|
69
|
|
|
70
|
|
|
71
|
|
|
72
|
|
|
73
|
|
|
74
|
