R dismo package: смещение пространственной сортировки sbb() выдает ошибку "Индексирование вне границ"
У меня есть список выборочных координат для моделирования распределения, называемый species.sampl в качестве data.frame:
lon lat
1 6.996322 59.44065
2 7.018389 58.91420
3 7.334684 59.72563
4 7.285946 58.92459
5 8.237148 59.81058
6 9.208864 59.84605
7 16.672489 58.39471
8 18.104395 59.32653
Я хочу начать проверку смещения пространственной сортировки, как описано в руководстве ( Учебное пособие по Dismo, стр. 40f):
nr <- nrow(species.sampl)
s <- sample(nr, 0.25 * nr)
pres_train <- species.sampl[-s, ]
pres_test <- species.sampl[s, ]
nr <- nrow(backgr)
s <- sample(nr, 0.25 * nr)
back_train <- backgr[-s, ]
back_test <- backgr[s, ]
sb <- ssb(pres_test, back_test, pres_train)
sb[,1] / sb[,2]
В результате получается: 0,02183502. Данная процедура предлагается для удаления "смещения пространственной сортировки" (ssb) из данных оценки, используемых при перекрестной проверке моделей распределения видов только для присутствия.
Следующая часть должна сделать парную дистанционную выборку:
i <- pwdSample(pres_test, back_test, pres_train, n=1, tr=0.1)
pres_test_pwd <- pres_test[!is.na(i[,1]), ]
back_test_pwd <- back_test[na.omit(as.vector(i)), ]
sb2 <- ssb(pres_test_pwd, back_test_pwd, pres_train)
И это строка, где она остановилась (Fehler в x[i, drop = FALSE]: Indizierung außerhalb der Grenzen) или на английском: ошибка в x[i, drop = FALSE]: индексирование вне границ
У меня есть ошибка при использовании ssb() или pwdSample()? Или не хватает координат для удаления смещения пространственной сортировки?