typo fixed
renamed loops.R to computeDisc.R for matching the function name