R file which produces the png image MPattersonShirtImage