\name{nbOccByGeneInComp}
\alias{nbOccByGeneInComp}
\title{nbOccByGeneInComp}
\description{For each feature/gene, this function returns the indices of the components they contribute to. }
\usage{nbOccByGeneInComp(Slist, cutoff, sel)}
\arguments{
  \item{Slist}{A list whose each element contains projection values of
    features/genes on a component.}
  \item{cutoff}{A threshold to be used to define a gene as contributor}
  \item{sel}{A list whose each element contains projection values of
    contributing features/genes on a component (the difference with arg
   \code{Slist} is that \code{sel} is already restricted to the contributing genes).}
}

\value{This function returns a list which gives for each feature/gene the indices of the components it contributes to.}

\examples{
 c1 <- rnorm(100); names(c1) <- paste("g",100:199,sep="")
 c2 <- rnorm(100); names(c2) <- paste("g",1:99,sep="")
 MineICA:::nbOccByGeneInComp(Slist=list(c1,c2), cutoff= 0.5)

 }
\author{Anne Biton}