R Solutions¶

#. Imagine rolling a fair, six-sided die, and then flipping a fair, two-sided coin the number of times specified with the die (i.e., if we roll a 3, flip the coin 3 times). Let X be the number of heads you get in this experiment. Use a simulation in R to estimate the mean, median and mode of X.

#replicate
set.seed(110)
sims = 1000

#keep track of X
X = rep(0, sims)


#run the loop
for(i in 1:sims){

  #generate a roll
  roll = sample(1:6, 1)

  #flip the coin the specified number of times
  for(j in 1:roll){

    #flip the coin
    #recall that 'runif(1)' draws a random value between 0 and 1, so
    #   count 'heads' as getting a value below 1/2
    flip = runif(1)

    #see if we got heads; increment if we did
    if(flip <= 1/2){
      X[i] = X[i] + 1
    }
  }
}

#find the mean and median
mean(X); median(X)

The default highlighting language is Python: it can be be changed using the highlight directive within a document:

.. highlight:: html

The literal blocks are now highlighted as HTML, until a new directive is found.

::
   <html><head></head>
   <body>This is a text.</body>
   </html>

The following directive changes the hightlight language to SQL.

.. highlight:: sql

::
   SELECT * FROM mytable

.. highlight:: none

From here on no highlighting will be done.

::
   SELECT * FROM mytable

def some_function():
    interesting = False
    print 'This line is highlighted.'
    print 'This one is not...'
    print '...but this one is.'