Create facWithin.R

All current functions for the factorial study with all within variables.