Displaying 1 result from an estimated 1 matches for "ndgenes".
Did you mean:
dgenes
2005 Jul 05
1
Getting runtime error in stepclass
...method to
work with stepclass. Is there any way to get around this?
Thanks,
Soma
library("e1071")
library("randomForest")
library("klaR")
td <- read.table("dgdata1.txt", header=TRUE, sep=",")
dgenes <- subset(td, dg == 1, select = dg:eg)
ndgenes <- subset(td, dg == 0, select = dg:eg)
n1 <- nrow(dgenes)
n2 <- nrow(ndgenes)
ndgrows <- 1:n2
selrows <- sample(ndgrows)
sndgenes <- ndgenes[selrows[1:n1],]
train <- rbind(dgenes, sndgenes)
attach(train)
traind <- subset(train, select = -dg)
trainr <- factor(dg)
detach(t...