moved programs in prjct file into separate prog.R