функции выбора случайной величины в r

Question

Я пытаюсь использовать выборочную функцию для случайного выбора 10 целых чисел от 1 до 100. путем создания вектора y, который удовлетворяет следующим условиям: если выбранное целое число является четным число, то y возвращает «четный», в противном случае y возвращает «нечетный». Я опробовал следующие коды, но я не получаю его.]

Любая помощь в этом? Спасибо

vec<-rnorm (100)
myf <- function(vec){ 
  y = 
   for (i in vec) { 

      if (i %% 2 == 0) k <- k + 1

  return(y) 
   }
}
myf(vec)

vec <-rnorm (100)
myf <- function(vec){ 
  y = 
   for (i in vec) { 

      if (i %% 2 == 0) k <- k + 1

  return(y) 
   }
}
myf(vec)

Answer 1

Оба следующих подхода эквивалентны:

set.seed(123)
# Straight forward
res0 <- sample(x = c("even", "odd"), size = 10, replace = TRUE, prob = c(.5, .5) )
res0
#>  [1] "odd"  "even" "odd"  "even" "even" "odd"  "even" "even" "even" "odd"

# as you said
spl <- sample(x = 1:100, size = 10, replace = TRUE )
res1 <- ifelse(spl%%2 == 0, "even", "odd")
res1
#>  [1] "even" "even" "even" "even" "odd"  "even" "odd"  "odd"  "odd"  "even"