Create estimatePatterns.R