У меня есть data.frame следующего содержания:
Код: Выделить всё
a1 a2
1 3 3
2 4 5
3 2 3
4 5 1
5 1 1
6 3 2
7 3 4
8 4 5
9 1 3
10 4 2
0 0 0 1 1 1 0 0 0 0
0 0 0 0 1 1 1 1 1 0
...
Т.е. сначала идут нули, их количество соответствует значению a1, потом единицы, их количество соответствует значению a2. И в конце вектор дополняется нулями, чтобы его длинна равнялась 10.
Для формирования вектора написал функцию
Код: Выделить всё
FF <- function(x, y){
B <- rep(0, x)
B <- append(B, rep(1, y))
B <- append(B, rep(0, 10 - x - y))
return(B)
}
И второй вопрос - как написать код цикла для заполнения Таблицы? Пытался сделать это с помощью sapply(), но пока не получается.
Спасибо!
P.S.
Код: Выделить всё
a1 <- sample(1:5, 10, replace = TRUE)
a2 <- sample(1:5, 10, replace = TRUE)
A <- data.frame(a1, a2)
FF <- function(x, y){
B <- rep(0, x)
B <- append(B, rep(1, y))
B <- append(B, rep(0, 10 - x - y))
return(B)
}