Це векторне зображення було створено з допомогою R.

library("mlbench")
library("alphahull")
library("igraph")
data(BostonHousing)
x <- cbind(BostonHousing$lstat, BostonHousing$medv)
x <- unique(x)
svg("scagnosticsBase.svg", width=10, height=3)
par(mfrow=c(1,3), mar=c(0,0,2,0))
hull  <- chull(x)
shape <- ashape(x, alpha=5)
hull <- c(hull, hull[1])
plot(x, main="Convex hull", axes=F, pch=19, cex=0.5)
lines(x[hull, ])
box()
plot(x, main="Alpha shape", axes=F, pch=19, cex=0.5)
plot(shape, add=T, wpoints=F)
box()
graph <- graph.adjacency(as.matrix(dist(x)), weighted=TRUE)
mst   <- as.undirected(minimum.spanning.tree(graph))
idx   <- get.edges(mst, E(mst))
plot(x, main="Minimal spanning tree", axes=F, pch=19, cex=0.5)
for (i in seq(nrow(idx))) {
  ft <- idx[i,]
  lines(x[ft,1], x[ft,2])
}
box()
dev.off()

Я, власник авторських прав на цей твір, добровільно публікую його на умовах такої ліцензії:

Цей файл ліцензований на умовах ліцензії Creative Commons Attribution-Share Alike 3.0 Unported

Ви можете вільно:

• ділитися – копіювати, поширювати і передавати твір
• модифікувати – переробляти твір

При дотриманні таких умов:

• зазначення авторства – Ви повинні вказати авторство, надати посилання на ліцензію і вказати, чи якісь зміни було внесено до оригінального твору. Ви можете зробити це в будь-який розсудливий спосіб, але так, щоб він жодним чином не натякав на те, наче ліцензіар підтримує Вас чи Ваш спосіб використання твору.
• поширення на тих же умовах – Якщо ви змінюєте, перетворюєте або створюєте іншу похідну роботу на основі цього твору, ви можете поширювати отриманий у результаті твір тільки на умовах такої ж або сумісної ліцензії.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue