R语言编写函数寻找最后的山峰

问题遇到的现象和发生背景

山峰元素是指其值大于或等于左右相邻值的元素。给定一个输入向量nums，任意两个相邻元素值不相等，数组可能包含多个山峰，第一个和最后一个数字不可能为山峰。找到索引最大的那个山峰元素并返回其索引。

  • 试创建一个寻找最后的山峰的自定义函数peak，其输入为由一行整数组成的向量nums，其输出为索引最大的山峰的索引值，如果没有山峰，则返回一行字符："There is no peak!"
  • 输入例子1:
    2 4 1 2 7 8 4
  • 输出例子1:
    6
  • 例子说明1:索引最大的山峰的高度为8，其索引为6
    用代码块功能插入代码，请勿粘贴截图
我的解答思路和尝试过的方法

```r

peak<-function(nums)
{
for(i in nums)
{if(i)}}

```###### 我想要达到的结果

同学，我们是一个班的吧，哈哈哈哈哈，我也不会，哭了