weather script written in R