Create RSG.Expand.R

Expansion function similar to model.matrix, but returns a basic matrix objects.