update zadanie_4.R

zadania/zadanie_4.R

@@ -1,13 +1,13 @@
-# Instalacja i załadowanie potrzebnych pakietów
+# Załadowanie pakietu
 library(terra)
 
-# Pobranie danych z Geoportalu (przykładowy link do granic powiatów)
+# Pobranie danych (przykładowy link do granic powiatów)
 url <- "https://www.gis-support.pl/downloads/2022/powiaty.zip"
 download.file(url, "powiaty.zip", mode = "wb")
 wektor <- unzip("powiaty.zip", exdir = "powiaty_dir")
 
 # Wczytanie danych
-f <- "~/powiaty.shp"
+f <- "powiaty_dir/powiaty.shp"
 powiaty <- terra::vect(f)
 powiaty
 
@@ -23,14 +23,13 @@ macierz_odleglosci = as.matrix(odleglosci)
 macierz_odleglosci[1:5, 1:5]
 colnames(macierz_odleglosci) = rownames(macierz_odleglosci) = centroidy$JPT_NAZWA_
 
-
 # Zastąpienie zer
 diag(macierz_odleglosci) = NA
 
 # Znalezienie indeksów minimalnej i maksymalnej odległości
 min_index <- which(macierz_odleglosci == min(macierz_odleglosci, na.rm = TRUE), arr.ind = TRUE)
-min_index #zwraca parę powiatów: powiat Rybnik i powiat rybnicki, co oznacza, że są to powiaty położone najbliżej siebie pod względem odległości 
+min_index # zwraca parę powiatów: powiat Rybnik i powiat rybnicki, co oznacza, że są to powiaty położone najbliżej siebie pod względem odległości 
 
 max_index <- which(macierz_odleglosci == max(macierz_odleglosci, na.rm = TRUE), arr.ind = TRUE)
-max_index #zwraca parę powiatów: powiat bieszczadzki i powiat Świnoujście, co oznacza, że są to powiaty położone najdalej siebie pod względem odległości 
+max_index # zwraca parę powiatów: powiat bieszczadzki i powiat Świnoujście, co oznacza, że są to powiaty położone najdalej siebie pod względem odległości