Linguagem R -> simulação estatística

blanco
(usa Ubuntu)

Enviado em 11/03/2015 - 19:33h

fala galera beleza?
estou criando um código na linguagem R para simular a probabilidade de se obter cara em lançamentos de moedas.
o algoritmo se resume em gerar amostras de tamanho N com os valores 0 ou 1 ( sendo 1 = cara), repetindo esse procedimento B vezes.A probabilidade de se obter cara será a quantidade de caras obtidas nessas amostragem sobre o número total de repetições B.Vamos ao erro.
Rodei o código e o R me retornou o seguinte erro : "Error in if (M[i] == 1) cara <- cara + 1 :
missing value where TRUE/FALSE needed".
Procurei na net e não achei o que posso ter feito de errado.Os exemplos que encontrei fizeram um uso muito similar ao meu e não teve o mesmo erro, alguém pode ajudar?

N=8
cara=0
B=90


for(i in 1:B){
jogadas=sample(0:1,N,replace=TRUE)
M=matrix(c(jogadas))



if(M[i]==1)cara<-cara+1
}

cara/B

removido
(usa Nenhuma)

Enviado em 14/03/2015 - 14:39h

Sua matrix "M" possui apenas o intervalo de índices M[1][1] até M[8][1] que é justamente a quantidade de elementos previamente definidos na seu vetor "N". O teste do "if" deve funcionar apenas para este intervalo mas no seu código ele continua até o valor do vetor "B", ou seja, "M[90][1]". Após o oitavo elemento, o "if" testa se "NA == 1" e é esse o motivo do erro.