Для петли и функции distm
d
lon.x lat.x address lon.y lat.y
1: -84.51633 39.13145 Университет Цинциннати NA NA 2: NA NA Amherst College -72.51620 42.37092 3: NA NA Аппалачский государственный университет -81.68039 36.21457 4: NA NA Аризонский государственный университет -111.38770 33.77120 5: NA NA Художественная академия Цинциннати -84.45689 39.1620000
268: NA NA Уинонский государственный университет -91,64182 44,04746 269: NA NA Уинстон-Салемский государственный университет -80,22616 36,09180 270: NA NA Университет Виттенберга -83,81465 39,93478 271: NA NA Xavier University -84,47800 39.14978 272: NA NA Государственный университет Янгстауна -80,64702 41.1022
for (i == 1) {Ошибка: неожиданное '==' в "for (i ==" print (d[i,]$address) [1] "Университет Цинциннати" для (j in 2:nrow(d))) {+
+ d1 <- d [address == d [i,] $ address, distm (c (d [i,] $ lon.x, d [i,] $ lat.x), c (d [j,] $ lon.y, d [j,] $ lat.y), fun = distHaversine) / 1609,] + d1 <- d1 [, dist_to: = d [j,] $ address,] +} Ошибка в:=
(dist_to, d [j,] $ address): убедитесь, что is.data.table(DT) == TRUE. В противном случае: = и:=
(...) определены для использования в j, только один раз и определенным образом. Смотрите справку (":="). } Ошибка: неожиданное "}" в "}"