# Q&A session:

## Lectures:/mnt/storageBig7/work/joikkone/ctDNA/coveragelinks
### 1. Lecture on 26 Oct 2020:

### 2. Lecture on 2nd Nov 2020:

### 3. Lecture on 9 Nov 2020:

### 4. Lecture on 16 Nov 2020:

## Programming:
#### *R exercise*
##### 5 Nov 2020

simul = function(doors,simulator=10000){
	change = 0; fix = 0
	simulator = simulator
	for (i in 1:simulator){
		prize = sample(doors,1)
		guess = sample(doors,1)
		host.opens = sample(doors[doors!=guess & doors!=prize],1)
		new.guess = sample(doors[doors!=guess & doors!=host.opens],1)
		if (prize == guess){
			fix = fix + 1
			}
		if (prize == new.guess){
			change = change + 1
			}
	}
cat('rate of wins when changing is: ', change/simulator, 
    ' and rate when not changing is: ', fix/simulator)
}

#### b. *SQL exercise*