Nothing
R/removeRedundancy.R
Defines functions `removeRedundancy`
`removeRedundancy` <-
function(mat,vec.ia,red=0){
mat<-as.data.frame(mat)
for(i in 1:length(vec.ia))
vec.ia[i]<-evalRedundancy(mat,vec.ia[i],red=red)
vec.ia
}
Try the scrime package in your browser
Any scripts or data that you put into this service are public.
