stdist<-matrix(c(0.4, 1.2, 3.8, 0.1, 0.7, 1.2, 1.8, 3.5, 5.4, 0.1, 0.4, 5.6, 4.4, 2.6, 0.9, 1), 4, 4)
 colnames(stdist)<-paste("Area", 1:4, sep=".")
 rownames(stdist)<-paste("Station", 1:4, sep=".")

 Within<-list()
 for (i in 1:nrow(stdist)) {
     Within[[i]]<-which(stdist[i,]<=1)
 }
 names(Within)<-rownames(stdist)