# NOT RUN {
#Set up data:
namAtlantic=CanadianWeather$region[as.character(colnames(CanadianWeather$monthlyTemp))]
atlanticCities=which(namAtlantic=="Atlantic")
matAtlantic=CanadianWeather$monthlyTemp[, names(atlanticCities)]
namContinental=CanadianWeather$region[as.character(colnames(CanadianWeather$monthlyTemp))]
continentalCities=which(namContinental=="Continental")
matContinental=CanadianWeather$monthlyTemp[, names(continentalCities)]
#find a set of points that helps capture the difference
#between Atlantic and Continental cities, normalised by the variance
#make numPerts >=20 for real data
# }
# NOT RUN {
a=findPathF3(c(1:12), matAtlantic, matContinental, 5, numPerts=3)
# }
# NOT RUN {
print(a) #indices of months to select for follow-up experiments
# }
# NOT RUN {
print(rownames(CanadianWeather$monthlyTemp)[a]) #month names selected
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab