Displaying 2 results from an estimated 2 matches for "erind".
Did you mean:
erin
2003 Jan 17
1
(no subject)
Dear R-help,
Why does the second grep reject when the first grep accepts?
Why does regexpr accept what grep rejects?
>eqtn
[1] "(1.2*A%*%B)/2"
>if(grep("A\\%\\*\\%B",eqtn)==1)erind<-1
>if(grep("A\\%\\*\\%A",eqtn)==1)erind<-1
Error in if (grep("A\\%\\*\\%A", eqtn) == 1) erind <- 1 :
missing value where logical needed
>if(regexpr("A\\%\\*\\%A",eqtn)==1)erind<-1
>
TIA
graham lawrence
2007 Jan 22
0
Recursive-SVM (R-SVM)
...ain[svmres$index]) %*% svmres$SV * md[SelInd]
rkW <- rank(W)
if( gLevel < length(ladder) )
{
SelInd <- SelInd[which(rkW > (ladder[gLevel] - ladder[gLevel+1]))]
}
}
}
ret <- list(ladder=ladder, Error=ErrVec/nTests, SelFreq=SelFreq)
}
SummaryRSVM <- function( RSVMres )
{
ERInd <- max( which(RSVMres$Error == min(RSVMres$Error)) )
MinLevel <- RSVMres$ladder[ERInd]
FreqVec <- RSVMres$SelFreq[, ERInd]
SelInd <- which( rank(FreqVec) >= (ladder[1]-MinLevel) )
# print("MinCV error of", min(RSVMres$Error), "at", MinLevel, "genes"...