adding ExtractSamples.R, changed <- to = for Beveled Integral