-1
f3 <- function(n) {
dados <- rnorm(n, mean = 0, sd = 1)
matrizB <- matrix(0,2, n)
for (i in 1:length(dados)) {
s <- 1
if (i <= 0.2) {
matrizB[1,] <- 1
matrizB[2,] <- 0.2
}
if (i > 0.2 | i<=0.7) {
matrizB[1,] <- 2
matrizB[2,] <- 0.5
}
else {
matrizB[1,] <- 3
matrizB[2,] <- 0.3
s <- s + 1
}
return(matrizB)
}
}
f3(3) # o loop não está caminhando, não sai da primeira posição
The exercise was: Consider the random variable Y with the following probability distribution:
y 1 2 3
P(Y=y) 0,2 0,5 0,3
It is possible to generate a value of this probability distribution initially generating an X value of a uniform distribution(0,1). If X 0, 2 then Y = 1, if 0, 2 < X 0, 7 then Y = 2, if X > 0, 7 then Y = 3. a) Using and generating values of the Uniform distribution(0,1), do a function to generate a sample of size n (only argument of the function) of the probability distribution of Y.