# NOT RUN {
data(airparif)
# Clustering of the data by considering the spatial dependencies
res.spa <- spatimeclus(airparif$obs, G=3, K=4, Q=4, map = airparif$map,
nbinitSmall=50, nbinitKept=5, nbiterSmall=5)
summary(res.spa)
# Clustering of the data without considering the spatial dependencies
res.nospa <- spatimeclus(airparif$obs, G=3, K=4, Q=4, nbinitSmall=50, nbinitKept=5, nbiterSmall=5)
summary(res.nospa)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab