# Distribution Free CUSUM for Turin 1961-2003
testTurin<- DistributionFreeCUSUM(yearly.average.temperature.Turin.Milan[,2])
# Distribution Free CUSUM for Milan 1961-2003
testMilan<- DistributionFreeCUSUM(yearly.average.temperature.Turin.Milan[,3])
Run the code above in your browser using DataLab