Я создал 100-значный вектор со случайными числами, и мне нужно найти минимальное и максимальное значения в r без использования функций min () или max ().Я должен использовать условную логику и операторы сравнения, поэтому мне удалось найти это как минимум:
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.
У кого-нибудь есть решение для максимума, которое похоже?Когда я попытался изменить его на работу с Максом, я получил только предупреждения.Любая помощь будет принята с благодарностью!
edit: Вот адаптированная версия кода, которая не работает.Он просто возвращает сотое значение в векторе.Я также думаю, что функция seq_along может быть тем, что испортило ее, но после пары часов попыток различных вариантов я все еще был так же потерян
findMax<- function(x) {
MaxX<- x[100]
for (i in (seq_along(x[100]) - 1))
if (x[i]> MaxX)
MaxX<-x[i]
}
MaxX
}