问题遇到的现象和发生背景
山峰元素是指其值大于或等于左右相邻值的元素。给定一个输入向量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)}}
```###### 我想要达到的结果
