在R中使用凸包创建图

Question

我有大学要做的任务，也不知道如何做到。我能请你帮忙吗？我不能使用任何额外的包：（

我们有带点数据

do { ptr.reset(); } while (!ptr.unique()); ptr.reset(); // To eliminate the last reference 。

我的任务是：

• 编写一个函数，该函数接受一组点并给出一组点，这些点是给定点集的凸包的顶点。

• 编写一个函数（或一组函数），对于平面上的给定点集，该函数将创建一个包含给定点和其他给定点的凸包的图形。函数必须具有指定凸包和点的绘制样式的功能。

我无法安装软件包。

示例解决方案：

std::shared_ptr::reset

随机点集

xi=(xi1, xi2), for i=1,…,n, where n is natural number

我应该创建一个函数listpoints（pts），该函数列出凸包的点

###Creating a set of random points on the plane
    pts <- list( rnorm(2))
    for(k in 1:20){ pts <- c( pts, list( rnorm(2))) }
    pts

并创建简单的情节

[[1]]
[1] -0.2895047  0.3938896

[[2]]
[1] 0.5187255 0.1691874

[[3]]
[1] 0.2310706 0.1311234

[[4]]
[1] -0.44087647  0.07283041

[[5]]
[1]  0.9438115 -1.1034222

[[6]]
[1] 0.9342882 0.9032668

[[7]]
[1] -0.3655531  1.0130261

[[8]]
[1] -2.268272 -1.278624

[[9]]
[1]  2.021061 -2.705479

[[10]]
[1] -0.9460602 -0.1185306

[[11]]
[1] -1.4656782 -0.8536016

[[12]]
[1]  1.0060148 -0.9254827

[[13]]
[1] -0.1493196  1.3880502

[[14]]
[1]  0.4846496 -0.8680879

[[15]]
[1] -0.03187148  1.03490764

[[16]]
[1] 0.3078759 0.8329899

[[17]]
[1]  1.225831 -1.492936

[[18]]
[1] -1.64684601 -0.06100802

[[19]]
[1] -0.08985374  0.62738174

[[20]]
[1] -0.8206645  0.3503755

[[21]]
[1] -0.1374857  0.4190813