如何使用切换功能切换向量

Question

我正在尝试学习切换，示例问题之一涉及定义一个函数，该函数将返回setosa花的萼片尺寸（长度和宽度）并返回花瓣尺寸（长度和宽度）

更具体地说，是使用switch创建函数，然后使用apply调用函数。

这是使用默认的虹膜数据集

source（“ https://www.r-statistics.com/wp-content/uploads/2012/01/source_https.r.txt”）＃确保我们可以从github上获取源代码 source_https（“ https://raw.github.com/talgalili/R-code-snippets/master/clustergram.r”）

数据（虹膜）

下面是我到目前为止已经完成的工作，但是我遇到了太多错误，因此我认为我走错了方向