Lance um dado e uma moeda

augustofilho — Dec 16, 2013, 9:26 PM

#Lance um dado e uma moeda
#a) Construa o espaco amostral

dado=c(1,1,2,2,3,3,4,4,5,5,6,6)
moeda=c("ca","ko","ca","ko","ca","ko","ca","ko","ca","ko","ca","ko")
omega=rbind(dado,moeda)
omega

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
dado  "1"  "1"  "2"  "2"  "3"  "3"  "4"  "4"  "5"  "5"   "6"   "6"  
moeda "ca" "ko" "ca" "ko" "ca" "ko" "ca" "ko" "ca" "ko"  "ca"  "ko" 

#b) Enumere os seguintes eventos
#A = {coroa, marcada por numero par}
#B = {cara, marcado por numero impar}
#C = {multiplo de 3}

A=c(omega[,4],omega[,8],omega[,12])
A

 dado moeda  dado moeda  dado moeda 
  "2"  "ko"   "4"  "ko"   "6"  "ko" 

B=c(omega[,1],omega[,5],omega[,9])
B

 dado moeda  dado moeda  dado moeda 
  "1"  "ca"   "3"  "ca"   "5"  "ca" 

C=c(omega[,5],omega[,6],omega[,11],omega[,12])
C

 dado moeda  dado moeda  dado moeda  dado moeda 
  "3"  "ca"   "3"  "ko"   "6"  "ca"   "6"  "ko" 

#c) Expresse os eventos
#complementar de B
letrab=c("1k","2k","3c","3k","4k","4c","5k","6k","6c")
letrab

[1] "1k" "2k" "3c" "3k" "4k" "4c" "5k" "6k" "6c"

auniaob=c("2k","4k","6k","1c","3c","5c")
auniaob

[1] "2k" "4k" "6k" "1c" "3c" "5c"

binterc=c("6k")
binterc

[1] "6k"

auniaobcomp=c("1k","2c","3k","4c","5k","6c")
auniaobcomp

[1] "1k" "2c" "3k" "4c" "5k" "6c"