Не удалось найти "DouglasPeuckerEpsilon" на языке R

Question

Я пытаюсь использовать алгоритм Дугласа Пекера в R. Выполнив следующий код, я получаю следующую ошибку:

Px <- (1:100)/10
Py <- dnorm(Px,3,1)+dnorm(Px,7,1)+Px/10

### Example 1
### Simplification using epsilon

par(mfrow=c(2,2))
plot(Px,Py,type="l")
plot(DouglasPeuckerEpsilon(Px,Py,0.01),type="b",col=4)
Could not find the "DouglasPeuckerEpsilon" in R language.

Это потому что у меня не установлен пакет DP?

Answer 1

Выполните следующие шаги:

1. Установите пакет (kmlShape)

2. Затем загрузите библиотеку (kmlShape)

   install.packages("kmlShape")
   
   library("kmlShape")
   

Тогда беги plot(DouglasPeuckerEpsilon(Px,Py,0.01),type="b",col=4) для алгоритма Рамера-Дугласа-Пекера (RDP)