Displaying 1 result from an estimated 1 matches for "sampind".
Did you mean:
samping
2007 Jan 22
0
Recursive-SVM (R-SVM)
...lt;- 1
yy[which(y==Ytype[2])] <- -1
y <- yy
## check ladder
if( min(diff(ladder)) >= 0 )
{
print("ERROR!! ladder must be monotonously decreasing")
return(0);
}
if( 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="")...