R/run_adaptive.R

In redaq/atMPRA: Analysis Toolset for MPRA data

run_adaptive <- function(combos, inputCutoff, ntag, nsim, res_MW, res_matching, inputTest)
{ 		result = data.frame(combos, res_adaptive=NA)
   		for(x in 1:length(combos))
   		{
  			if(is.na(inputTest[x])|inputTest[x] >= inputCutoff)
  			{		result$res_adaptive[x] = res_MW[x]
  			}else
  			{		result$res_adaptive[x] = res_matching[x]
  			}
   		}
   		return (result)
}