Control Chart In R