Update cointoss.R