Create averagetemp.r