Я хотел бы создать форму и извлечь ограничивающие координаты.Вы можете заполнить форму случайными точками, используя пакет splancs
.
Вот небольшой фрагмент одной из моих программ:
# First we create a circle, into which uniform random points will be generated (kudos to Barry Rowlingson, r-sig-geo).
circle <- function(x = x, y = y, r = radius, n = n.faces){
t <- seq(from = 0, to = 2 * pi, length = n + 1)[-1]
t <- cbind(x = x + r * sin(t), y = y+ r * cos(t))
t <- rbind(t, t[1,])
return(t)
}
csr(circle(0, 0, 100, 30), 1000)
Feel freeдобавить выбросы.Одним из способов добиться этого является выборка различных форм и соединение их по-разному.