如何在R中使用循环查找随机向量的最大值

Question

我创建了一个带有随机数的100位向量，我必须在不使用min（）或max（）函数的情况下找到r中的最小值和最大值。我必须使用条件逻辑和比较运算符，因此我设法找到了最低限度的内容：

findMin <- function(x) {
minX <- x[1] 
for (i in (seq_along(x[-1]) + 1)) { 
if(x[i] < minX) 
minX <- x[i] 
 }
minX
}
findMin(myVector) ##'myVector' is the name of the random number vector.

有人会为相似的最大值提供解决方案吗？当我尝试将其更改为与Max配合使用时，我仅收到警告。任何帮助将不胜感激！

edit：这是无效的代码的改编版本。它只是返回向量中的第100个值。我还认为seq_along函数可能是使它混乱的原因，但是在尝试了几个小时的不同变体之后，我仍然感到迷茫

findMax<- function(x) {
MaxX<- x[100]
for (i in (seq_along(x[100]) - 1))
if (x[i]> MaxX)
 MaxX<-x[i]
 }
  MaxX
  }