updating to re-written corpus.R

needs documentation