# 3.1 # Współrzędne środków regionów euro.shape1<-read.shape("c:/euro/euro.shp",dbf.data=TRUE,verbose=TRUE) coord<-get.Pcent(euro.shape1) is.matrix(coord) #sprawdzenie, czy obiekt jest macierzą colnames(coord)<-c("xcoord","ycoord") # nadawanie nazw wierszom
#tworzenie obiektu współrzędnych z obiektu euro.dane coord<-as.matrix(euro.dane[,7:8]) is.matrix(coords)
# wczytywanie danych liczbowych euro.dane<-read.csv("c:/euro/euro.csv",header=T, sep=";",dec="." )
# ładowanie plików typu shapefile euro.shape<-read.shapefile("c:/euro/euro") euro.poly<-shape2poly(euro.shape) euro.nb<-poly2nb(euro.poly)
# tworzenie obiektu klasy listw euro.W.listw<-nb2listw(euro.nb, style="W") #macierz wag standaryzowana pierwszego rzędu euro.B.listw<-nb2listw(euro.nb, style="B") # binarna macierz wag
# macierz klasy nb według kryterium odległości dist <- nbdists(euro.nb, coord) # powstaje obiekt klasy nbdist, który łatwo przerobić na klasę nb dist1 <- lapply(dist, function(x) 1/x) # obiekt klasy nb # macierz klasy listw według kryterium odległości euro.dist.listw<-nb2listw(euro.nb, glist=dist1)