Solucionado
Aplicando no RStudio a mesma fórmula do professor no 5'40" { probabilidade <- choose(n, k) * (p ** k) * (q ** (n - k)) } apareceu o seguinte argumento e resultado:
{> probabilidade <- choose(n, k) * (p ** k) * (q ** (n - k)) Error in q^(n - k) : argumento não-numérico para operador binário
probabilidade [1] 1.882176e-05
Reforçando que conferi se n, p e k estavam atribuídos corretamente
Gostaria de um apoio nessa questão
Olá Eduardo, tudo bem? Espero que sim!
Ocorreu algum erro que talvez tenha deixado incompleto a operação, como pode ser visto em: Error in q^(n - k) : argumento não-numérico para operador binário. Eu não sei o que ocasionou o erro, mas pode ter sido algum problema de atribuição na variável q, que foi entendida como um texto e não como um número.
Rodando o código abaixo, no Rstudio:
n <- 10
k <- 5
p <- 1/3
q <- 1 - p
probabilidade <- choose(n, k) * (p ** k) * (q^(n - k))
probabilidadeObtenho o resultado 0.1365645, assim como o resultado da aula.
Tente executar o código acima para ver se há algum problema.
Espero que tenha ajudado.
Estou à disposição. Bons estudos!
Muito obrigado João!