Revisando los ejercicios para loops de este sitio
https://www.r-bloggers.com/loops-in-r-exercises/
Me causó curiosidad el número 5: "Usar un for loop para simular 20 lanzamientos de una moneda 20 veces, registrando los resultados (1 = heads, 0 = tails) en un vector preestablecido" (traducción propia)
La solución que propone el autor es esta
n <- 20
coin_outc <- vector(length = n, mode = "integer")
for (i in 1:20) {
coin_outc[i] <- sample(c(0L, 1L), 1)
}
coin_outc
## [1] 0 1 1 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0
Aunque yo pude obtener un acercamiento similar con
for (i in 1:20) {
x[i] <- sample(c(0,1), 1)
}
table(x)
x
0 1
11 9
##Ojo: El número de 0 y 1 varía por cada llamada al loop.
Que además genera la tabla de frecuencias.
Ahora bien, quiero ir un poco más allá para que, en lugar de solo reportar la frecuencia de 0 y 1, la table indique el número de heads y de tails, pero con los nombres, es decir algo como:
x
tails heads
11 9
He intentado cosas como
for (i in 1:20) {
x[i] <- sample(c(0,1), 1)
}
if (x[i] == 0) {
i <- "head"
} else {
i <- "tail"
}
table(x)
O esto
for (i in 1:20) {
x[i] <- sample(c(0,1), 1)
}
for (i in x) {
if (i==0) {
print("heads")
} else {
print("tails")
}
}
table(x)
Que da como resultado (omití algunos renglones)
[1] "heads"
[1] "tails"
[1] "tails"
[1] "tails"
[1] "heads"
[1] "tails"
[1] "heads"
[1] "heads"
> table(x)
x
0 1
14 6
¿Alguna sugerencia de cómo lograr el resultado deseado? Mi interés es que pueda hacerse desde un for, no utilizando algún otro método. Gracias de antemano