added model comparison and CCA sample script in R