在 R 语言中找不到 "DouglasPeuckerEpsilon"

Question

我正在尝试在 R 中使用 Douglas Peucker 的算法。通过执行以下代码，出现以下错误：

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

执行以下步骤：

安装包 (kmlShape)

然后加载库 (kmlShape)

install.packages("kmlShape")

library("kmlShape")

然后运行 plot(DouglasPeuckerEpsilon(Px,Py,0.01),type="b",col=4) 用于 Ramer-Douglas-Peucker 算法 (RDP)

在 R 语言中找不到 "DouglasPeuckerEpsilon"

Could not find the "DouglasPeuckerEpsilon" in R language

r

simplify

douglas-peucker