Я делаю упражнение, чтобы попрактиковаться в написании функций.
Я пытаюсь выяснить общий код, прежде чем писать функцию, которая воспроизводит выходные данные функции table
. Пока у меня есть следующее:
set.seed(111)
vec <- as.integer(runif(10, 5, 20))
x <- sort(unique(vec))
for (i in x) {
c <- length(x[i] == vec[i])
print(c)
}
Но это дает мне следующий вывод:
[1] 1
[1] 1
[1] 1
[1] 1
[1] 1
[1] 1
[1] 1
[1] 1
[1] 1
Я не думаю, что правильно поднастроил в своем l oop , Я смотрел видео, но я не совсем уверен, где я иду не так. Буду признателен за любую информацию!
Спасибо!