Create coupmaps2013.R