Create transmission-contours.R