comparison featureselect/changes_to_be_made_in_script @ 0:a4a2ad5a214e draft default tip

Uploaded

0:a4a2ad5a214e

dy1 <- as.vector(dy)
dy1 <- t(dy1)
colnames(dy1) <- c("A001","A002","B001")

names1 <- rownames(dx)

dy2 <- dy1[,names1]
dy3 <- t(dy2)
colnames(dy3) <- NULL
dx$out <- as.factor(dy3)



####################################
if not factor


dyy <- t(dy1)
colnames(dyy) <- rownames(datax)
dyyy2 <- dyy[,names1]



##################################



 if(is.factor(dataY)){
                                       dataY <- as.vector(dataY)
                                       dataY <- t(dataY)
                                       colName1 <- rownames(dataX)
                                       colnames(dataY) <- colName1
                                       dataY <- dataY[,d1]
                                      # dataY <- t(dataY)
                                       colnames(dataY) <- NULL
                                       dataY <- as.factor(dataY)
                                        } 



###############################################
                               if(is.factor(dataY)){
                                       dataY <- as.vector(dataY)
                                       dataY <- t(dataY)
                                       colName1 <- rownames(dataX)
                                       colnames(dataY) <- colNames1
                                       names11 <- rownames(rawData)
                                       dataY <- dataY[,names11]
                                       #dataY <- t(dataY)
                                       colnames(dataY) <- NULL
                                       dataY <- as.factor(dataY)
                                        }