Как включить пропущенный ответ в случайный двоичный вектор?

Question

Я создаю векторы длины и общей суммы на основе ответов «да» или «нет» из опроса, который я проводил в классе.Это код для векторов:

length <- 37
sum <- 29 
Q3_S1 <- c(rep(0, length - sum), rep(1, sum))

Ни один из вопросов не был пропущен, за исключением одного пропущенного вопроса 3-го студента. Как бы я включил этот пропуск в свой код?Должен ли я просто изменить длину вектора, так как это все значения 1 или O?

Я новичок в R, поэтому все еще многому учусь, любые советы полезны и спасибо за помощь с приведенным выше кодом ранее!

Answer 1

Мы можем вызвать rep один раз, указав times, который может принимать vector длин, равных той же длине, что и x

rep(0:2, c(total - yes_count - skip_count, yes_count, skip_count))
#[1] 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2

data

total <- 37
yes_count <- 29 
skip_count <- 1

Answer 2

Ваша общая длина не изменится, но вам нужно добавить другую переменную, которая имеет количество пропусков и использовать другое число для представления этого количества (скажем, 2).

total <- 37
yes_count <- 29 
skip_count <- 1

c(rep(0, total - yes_count - skip_count), rep(1, yes_count), rep(2, skip_count))
#[1] 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2