Displaying 1 result from an estimated 1 matches for "errvec".
2007 Jan 22
0
Recursive-SVM (R-SVM)
...ladder[1] != ncol(x) )
{
ladder <- c(ncol(x), ladder)
}
nSample <- nrow(x)
nGene <- ncol(x)
SampInd <- seq(1, nSample)
if( CVtype == "LOO" )
{
CVnum <- nSample
} else
{
if( CVnum == 0 )
{
CVnum <- nSample
}
}
## vector for test error and number of tests
ErrVec <- vector( length=length(ladder))
names(ErrVec) <- paste("Lev_", ladder, sep="")
nTests <- 0
SelFreq <- matrix( 0, nrow=nGene, ncol=length(ladder))
colnames(SelFreq) <- paste("Lev_", ladder, sep="")
## for each CV
for( i in 1:CVnum )
{...