R/evaluate.Features.R

In kuppal2/xMSanalyzer: xMSanalyzer: R package for data analysis, comparison, and annotation of metabolomics data.

evaluate.Features <-
function(curdata,numreplicates,min.samp.percent=0.6,alignment.tool,  impute.bool,missingvalue=0)
{
	
        if(numreplicates==2)
        {
		print("**calculating percent intensity difference**")
                eval.feat.results<-getPID(curdata, alignment.tool,missingvalue)
        }
        else
        {
                  if(numreplicates>2)
                  {
			  print("**calculating CV**")
                          eval.feat.results<-getCVreplicates(curdata, alignment.tool, min.samp.percent=0.6, numreplicates,impute.bool,missingvalue)
                  }
        
        }
	return(eval.feat.results)
}