Recount - 2016/11/25+

Pretty much unknown to all but family and friends, someone called Jill Stein, the leader of an organization termed the ‘Green Party’, ran a pointless Presidential campaign.

All she achieved from that effort was to siphon off votes from #CrookedHillary™. I’m guessing some of CH’s butch friends have been strong-arming her (or worse) in the washrooms and in an attempt to redeem herself with the feministas she has suggested the need for a recount in three states with the implication of a rigged election. What a far-fetched and un-American suggestion!

Somehow, she has raised enough money from her buddies to actually enact this. You would think it would be better used in rescuing a few Polar Bears from over heating.

or maybe some cosmetic surgery (just banter girls :))

Anyways there’s no chance of it coming to anything according to some expert called Nate Silver(Ed. uh-oh)

UPDATE 2016/11/28

Well crookedHillary has decided after all to join in this farce! Proving two things

  1. She will always be a follower - even of someone with barely 1% of the vote
  2. She can’t even keep her word for three weeks. Remember this

We must accept this result, and then look to the future. Donald Trump is going to be our president. We owe him an open mind and the chance to lead.

— humiliated Democrat candidate

So much for taking the high road. She wouldn’t even recognize it if she was at Everest base camp looking at an arrow pointing up

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

library(tidyverse)
library(plotly)

wealth=c(50,100)
pop=c(50,6500000000)
df <- tibble(wealth,pop)

df %>% 
  plot_ly(x=~pop,y=~wealth)
library(babynames)
glimpse(babynames)
## Observations: 1,825,433
## Variables: 5
## $ year <dbl> 1880, 1880, 1880, 1880, 1880, 1880, 1880, 1880, 1880, 188...
## $ sex  <chr> "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F...
## $ name <chr> "Mary", "Anna", "Emma", "Elizabeth", "Minnie", "Margaret"...
## $ n    <int> 7065, 2604, 2003, 1939, 1746, 1578, 1472, 1414, 1320, 128...
## $ prop <dbl> 0.072383587, 0.026678961, 0.020521490, 0.019865786, 0.017...
hadley <- babynames %>% 
  filter(name=="Hadley")