diff featureselect/changes_to_be_made_in_script @ 0:a4a2ad5a214e draft default tip

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/featureselect/changes_to_be_made_in_script	Thu Nov 05 02:37:56 2015 -0500
@@ -0,0 +1,74 @@
+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)
+                                        }
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+