---
title: "kapid"
output: html_document
---

```{r}
auhinnakapp=sample(1:3, 1)
inimesevalik=sample(1:3, 1)
paste("Auhind kapis ", auhinnakapp, "Valiti kapp ",inimesevalik)
if(auhinnakapp==inimesevalik){
  "Pihtas"
} else {
  "Möödas"
}
```

```{r}
katseid=0
pihtaskordi=0
auhinnakapp=sample(1:3, 1)
inimesevalik=sample(1:3, 1)
paste("Auhind kapis ", auhinnakapp, "Valiti kapp ",inimesevalik)
katseid=katseid+1
if(auhinnakapp==inimesevalik){
  pihtaskordi=pihtaskordi+1
} 
paste(katseid, "katsest ", pihtaskordi, "pihtas, ", 100*(pihtaskordi/katseid), "protsenti")

```

```{r}
katseid=0
pihtaskordi=0
for(katsenr in 1:10){ #pange kümne asemele sada, veenduge, kuidas tulemus muutub
 auhinnakapp=sample(1:3, 1)
 inimesevalik=sample(1:3, 1)
 paste("Auhind kapis ", auhinnakapp, "Valiti kapp ",inimesevalik)
 katseid=katseid+1
 if(auhinnakapp==inimesevalik){
   pihtaskordi=pihtaskordi+1
 } 
 print(paste(katseid, "katsest ", pihtaskordi, "pihtas, ", 100*(pihtaskordi/katseid), "protsenti"))
}
```


```{r}
tulemused=c()
katseid=0
pihtaskordi=0
for(katsenr in 1:10){ #pange kümne asemele sada, veenduge, kuidas tulemus muutub
 auhinnakapp=sample(1:3, 1)
 inimesevalik=sample(1:3, 1)
 paste("Auhind kapis ", auhinnakapp, "Valiti kapp ",inimesevalik)
 katseid=katseid+1
 if(auhinnakapp==inimesevalik){
   pihtaskordi=pihtaskordi+1
 } 
 print(paste(katseid, "katsest ", pihtaskordi, "pihtas, ", 100*(pihtaskordi/katseid), "protsenti"))
}
tulemused=c(tulemused, pihtaskordi)
tulemused
```


```{r}
tulemused=c()
for(seerianr in 1:20){
 katseid=0
 pihtaskordi=0
 for(katsenr in 1:10){ 
  auhinnakapp=sample(1:3, 1)
  inimesevalik=sample(1:3, 1)
  #paste("Auhind kapis ", auhinnakapp, "Valiti kapp ",inimesevalik)
  katseid=katseid+1
  if(auhinnakapp==inimesevalik){
    pihtaskordi=pihtaskordi+1
  } 
  print(paste(katseid, "katsest ", pihtaskordi, "pihtas, ", 100*(pihtaskordi/katseid), "protsenti"))
 }
 tulemused=c(tulemused, pihtaskordi)
}
tulemused
hist(tulemused)
```



```{r}
  seeriapikkus=10
    #replace lubab sama kapi numbrit korduvalt väljastada
  auhinnakapid=sample(1:3, seeriapikkus, replace=TRUE) 
  valikukapid= sample(1:3, seeriapikkus, replace=TRUE)
  auhinnakapid
  valikukapid
  auhinnakapid==valikukapid
  which(auhinnakapid==valikukapid) #katse numbrid kus võideti
  length(which(auhinnakapid==valikukapid)) #võidetud katsete arv
    #Harjutus: Korjake seeriate tulemused ühte loetellu kokku
```

```{r}
tulemused=c()
seeriapikkus=10
for(seerianr in 1:80){
  auhinnakapid=sample(1:3, seeriapikkus, replace=TRUE) 
  valikukapid= sample(1:3, seeriapikkus, replace=TRUE)
  tulemused=c(tulemused, length(which(auhinnakapid==valikukapid)))
}
tulemused
hist(tulemused)
t.test(tulemused)
```


```{r}
 #sama nagu eelmine
 #for-tsükli asemel sapply käsklus
seeriapikkus=10
tulemused=sapply(1:800, function(seerianr){
  auhinnakapid=sample(1:3, seeriapikkus, replace=TRUE) 
  valikukapid= sample(1:3, seeriapikkus, replace=TRUE)
  length(which(auhinnakapid==valikukapid)) #ploki viimane käsk tulemuseks
})
tulemused
hist(tulemused)
t.test(tulemused)
```

Teine tund, vahetusega valimine
```{r}
  auhinnakapp=sample(1:3, 1)
  inimesekapp=sample(1:3, 1)
  avatavad=1:3
  auhinnakapp
  inimesekapp
  avatavad==auhinnakapp  #kas vastaval kohal kapp on auhinnakapp
  avatavad==inimesekapp
    #kas vastaval kohal on auhinna- või inimesekapp
    #püstkriips tähendab or (või)
  avatavad==inimesekapp | avatavad==auhinnakapp 
    #hüümärk ehk eitus
    #kas vastaval kohal on inimese ja auhinnata kapp, 
  lubatudmangujuhilavada=!(avatavad==inimesekapp | avatavad==auhinnakapp)
  lubatudmangujuhilavada
  avatavad[lubatudmangujuhilavada]
    #valib ainult ühe kapi
    #ühe või kahe vaba kapi hulgast
  mangujuhtavas=sample(avatavad[lubatudmangujuhilavada], 1) 
  mangujuhtavas
```

```{r}
   auhinnakapp=sample(1:3, 1)
   inimesekapp=sample(1:3, 1)
   avatavad=1:3
    #Mängujuht avab avatavate hulgast juhusliku kapi, 
    #mis ei ole ei inimese- ega auhinnakapp
   avatavad=avatavad[!(avatavad==inimesekapp | avatavad==auhinnakapp)]
   if(length(avatavad)>1){
     mangujuhtavas=sample(avatavad, 1) #võtab ühe juhusliku kahest
   } else {
     mangujuhtavas=avatavad #võtab selle ainukese, mis vaba
   }
   #leidke kapp, mille valib inimene pärast vahetamist
   avatavad=1:3
   vahetatudkapp=avatavad[!(avatavad==inimesekapp | avatavad==mangujuhtavas)]
   paste(auhinnakapp, inimesekapp, mangujuhtavas, vahetatudkapp)
   #kirjutage, kas inimene võitis auhinna
   if(auhinnakapp==vahetatudkapp){
     print("võitis")
   } else {
     print("ei võitnud")
   }
   #korrake katset 100 korda, näidake, mitmel korral võideti
```


```{r}
   katseid=100
   v6ite=0
  for(katsenr in 1:katseid){
   auhinnakapp=sample(1:3, 1)
   inimesekapp=sample(1:3, 1)
   avatavad=1:3
   avatavad=avatavad[!(avatavad==inimesekapp | avatavad==auhinnakapp)]
   if(length(avatavad)>1){
     mangujuhtavas=sample(avatavad, 1)
   } else {
     mangujuhtavas=avatavad 
   }
   avatavad=1:3
   vahetatudkapp=avatavad[!(avatavad==inimesekapp | avatavad==mangujuhtavas)]
   paste(auhinnakapp, inimesekapp, mangujuhtavas, vahetatudkapp)

   if(auhinnakapp==vahetatudkapp){
    v6ite=v6ite+1
   } 
  }
   paste("Võite ", v6ite,", ", (v6ite/katseid)*100, " protsenti")
```
```{r}

```