R/except.R

Defines functions except

except=function(index,K,nstu){
  list_l<-list()
  for(i in 1:K){
    list_k<-list()
    for(j in 1:nstu){
      if(index[j,i]==2) list_k<-c(list_k,j)
    }
    list_l[[i]]<-list_k
  }
  return(list_l)
}

Try the NMADiagT package in your browser

Any scripts or data that you put into this service are public.

NMADiagT documentation built on Feb. 26, 2020, 9:06 a.m.