DEV: Add R script for copula viewing