Create source.R

scratch pad.