Tuesday, January 24, 2017

Elvis and Vaccines

‘I want to remain apolitical because I don’t think it’s right for me to use my celebrity and fame to persuade other people' Elvis quoted in this piece by Piers Morgan
Elvis is credited with saving thousands of lives by helping to advertise the new Salk Polio vaccine

It could be argued that vaccinations are medical and scientific and not political. But if you argue this you can't then bring science and vaccines into politics.

Thursday, January 19, 2017

Measures for a successful Trump

What falsifiable metric could be used to say Trump was successful by his own and by Republican aims?
Things he claims
1. Better healthcare. Cover Everybody, cost less and have lower deducables
2. More GDP Growth. Obama never had a year of 3% economic growth. "Obama is the first president in modern history not to have a single year of 3 percent growth. If Trump can deliver an average of more than 3% over his 4 years in office I think an impartial observer would agree the economy has done well.
3. A balanced Budget.
4. Infrastructure improvements are a big part of Trumps promise. These are measured here

Carbon emissions I would like to see improve or not get worse but Trump did not campaign on improving. If Carbon emissions increase as predicted Trump is only doing something he has campaigned on doing.

There are many things like this but by picking a small number of things that they claim will improve I want to make a easy to check test.

Trump and the Republican party aim to deliver 3%+ Growth. A healthcare plan that covers more people and reduces deductibles. Improved infrastructure. And a budget position that is improving. If they do not do this by their own terms they have not succeeded.

Immigration and Birthrate

"Let’s talk about the link between immigration and low reproduction rates"
This is a really weird article. It talks about how below replacement birth rates mean the population will decline. Which is true by definition.
Then about how some countries have lots of immigrants. Then it does nothing to link the two. So in spite of asking to talk about the link it doesn't.


I wanted to look first to see if there was a link. As the article does nothing to show there is.
I took a list of countries by their percentage of immigrants
And one of countries by their birthrate
I created this combined dataset of Country, Birthrate and Immigrant % and put it here

The correlation between birthrate and the percentage of immigrants in a country is weak.

> cor(data$FertilityRate, data$ImmigrantPer)
[1] -0.3463663
I am willing to bet you at odds that the correlation between wealth and birth rate and between wealth and % of immigrants is higher. That having money causes immigrants to come to your country and you to have less children. Not that people choose between having a child and a 25 year old Ethiopian.

So Irish Times please do talk about what is at best a weak link between immigration and low reproductive rates.

Wednesday, January 18, 2017

Brexit 12 objectives

These are the 12 objectives for Britain’s Brexit negotiations, as set out in prime minister Theresa May

Issues Brexiters really care about and will likely get
2. Control of our own laws
5. Control of immigration. Net migration seems to now be about 300k to the UK each year. The Tories promised to bring it below 100K. If immigration drops below 100k that probably means the people who voted to leave the EU have the immigration control they want.

Things that are not measurable
1. Certainty wherever possible
11. Co-operation on crime, terrorism and foreign affairs
12. A phased approach, delivering a smooth, orderly Brexit

Things they had before Brexit
4. Maintaining the common travel area with Ireland
6. Rights for EU nationals in Britain and British nationals in the EU
8. Free trade with European markets

Measurable things (I think they won't get)
3. Strengthening the United Kingdom
7. Enhancing rights for workers
9. New trade agreements with other countries. This probably breaks down to improved economy. So measures of the economic trade could be used to measure this one.
10. A leading role in science and innovation

I am willing to pick measurable metrics on these last four. % of people in Scotland who want independance. Where UK stands in global metrics of workers rights. Patents or and journal paper outputs and their are other metrics of countries innovation. University league tables are another possible metric for example.

Trade agreements are mainly about the economy. Inflation, consumer debt, Sterlings value, GDP growth, export growth are all useful metrics.


I can't think of an obvious metric that shows making your own laws in Parliament has been a good idea. But there are 8 other objectives May wants that are measurable. And general economic metrics most people accept as important.


With at least 10 things to measure to decide if Brexit is going well or badly I think it is reasonable for Leavers and Remainers to define what they would see as success for Brexit. This wont take into account big downside economic or military risks. Or peoples happiness at increased national sovereignty, though national happiness metrics might work.
But you can measure some things people say are important so why not define metrics of what would mean Brexit was a success?

Friday, January 13, 2017

Irish Election Spending 2016

In the Irish election 2016 who paid the most for each vote and for each seat?
8394832.89 total spending (report here) Electorate: 3305110 so €2.50 was spent on each vote. That is under half what is spend on a US presidential vote.
On a per seat and per vote basis

And on a Per Seat Basis


Party,"Votes,1st pref.",Seats,Spending
Fine Gael,544140,50,2768881.50
Fianna Fáil,519356,44,1687916.29
Sinn Féin,295319,23,650190.38
Labour Party,140898,7,1083718.38
AAA–PBP,84168,6,266942.48
Ind 4 Change,31365,4,51669.18
Social Dem,64094,3,190586.93
Green Party,57999,2,146792.27
and the r package code is

data <-  read.csv("spending.csv", header=TRUE)
datat <- mutate(data, perV = Spending/Votes.1st.pref., perS= Spending/Seats)

q<-  ggplot(data=datat, aes(x=Party, y=perV, fill=Party)) + geom_bar(stat="identity") +      scale_fill_manual(values=c("#E5E500", "#66BB66", "#6699FF", "#99CC33", "#FFC0CB","#CC0000", "#008800", "#752F8B"))
q <-q + theme(axis.text.x = element_text(angle = 90, hjust = 1))
q <-q + theme(legend.position="none")
q <-q + labs(title = "General Election Spending 2016")
q <-q + labs(y = "Euros Per Vote")

q<-  ggplot(data=datat, aes(x=Party, y=perS, fill=Party)) + geom_bar(stat="identity") +      scale_fill_manual(values=c("#E5E500", "#66BB66", "#6699FF", "#99CC33", "#FFC0CB","#CC0000", "#008800", "#752F8B"))
q <-q + theme(axis.text.x = element_text(angle = 90, hjust = 1))
q <-q + theme(legend.position="none")
q <-q + labs(title = "General Election Spending 2016")
q <-q + labs(y = "Euros Per Seat")