Тем кто знает R(код простой)

[Lena13_08]

Я должна сделать игру, когда у меня есть 3 варианта(3 двери в одной из них приз) , когда я открою один из них, случайно!! будет открыта одна дверь, если это одна из тех, что я выбрала или! там есть приз =игра закончена. Если это не так продолжайте, если выбор open не имеет приза, я должна решить перейти на другою дверь, не открытую или остаться с моим выбором.
choice <- c('A','B','D')
mdata=c()
for (j in 1:1000)
{
prize <- sample(choice)[1]
pick <- sample(choice)[1]
open <- sample(choice)[1] #здесь начинаеться loop
if(open==prize | open ==pick){mdata=c(mdata,'game over')}
change <- choice[which(choice != pick & choice !=open)]
if(pick==prize){mdata=c(mdata, 'nochange')}
if(change==prize){mdata=c(mdata,'ch ange')}
}
#потом мне нужно как то показать результаты:

length(which(mdata =='change'))
length(which(mdata=='notchange'))
length(which(mdata=='game over'))