Create windchill.R