johnmackintosh

library(ggplot2)
library(ggrepel)
library(scales)
library(ggExtra)
library(ggthemes)
n<- c(1:10)
flips<- 2*(2^n-1) #number of coin flips required
prob <- 0.5^n # probability of achieving n  in a row
percentage<-(round(prob,4)*100)

johnmackintosh

http://stackoverflow.com/questions/35386124/embedding-a-r-leaflet-map-on-a-jekyll-site-hosted-on-github
http://stackoverflow.com/questions/34341808/is-there-a-way-to-add-a-gif-to-a-markdown-file

johnmackintosh

---
layout: post
published: false
title: #Insert title here
subtitle: #Insert sub here
tags:
  - rstats
  - R
  - r-bloggers
date: '2017-01-02'

johnmackintosh

##### set up#######

library(dplyr)
library(wrapr)


data<-structure(list(Location = c("AreaZ", "AreaZ", "AreaZ", "AreaZ", 
                                  "AreaZ", "AreaZ", "AreaZ", "AreaZ", "AreaZ", "AreaZ", "AreaZ", 
                                  "AreaZ", "AreaZ", "AreaZ", "AreaZ", "AreaZ", "AreaZ", "AreaZ", 

johnmackintosh

## see http://johnmackintosh.com/2017-06-01-UPDATED-let-there-be-progress/ for background
#### direct from the expert - code kindly provided via blog comment by John Mount, Win-Vector LLC

library("dplyr")
library("wrapr")



d <- data.frame(
  location = c('AreaZ', 'AreaZ', 'AreaZ', 'AreaW', 'AreaW', 'AreaW'),

johnmackintosh

library(rtweet)
library(tidyverse)
library(dplyr)
library(hrbrthemes)
library(extrafont)
library(viridis)

## create token named "twitter_token"
twitter_token <- create_token(
  app = appname,

johnmackintosh

library(readr)
library(ggplot2)
library(dplyr)
library(ggrepel)

data <- read_delim(
  "Fixings.txt", "\t", escape_double = FALSE,
  trim_ws = TRUE)

johnmackintosh

SELECT y.MovementDateTime, 
			y.FirstName,
			y.LastName,
			y.Ward_Dept,
			y.Staging_Post,
			y.Movement_Type,
			y.IN_OUT,
			y.Movement15,
			y.[counter],
			y.[counter] * y.R_Number AS Movement_15_SEQNO 

johnmackintosh

SELECT		x.[MovementDateTime],
			x.[FirstName],
			x.[LastName],
			x.[Ward_Dept],
			x.[Staging_Post],
			x.[Movement_Type],
			x.[IN_OUT],
			x.[Movement15],
			x.[counter],
			ROW_NUMBER() OVER (PARTITION BY IN_OUT, Movement_Type,Staging_Post,Movement15 ORDER BY (MovementDateTime))AS R_Number

johnmackintosh

SELECT * ,
	ROW_NUMBER() OVER (PARTITION BY IN_OUT, Movement_Type,Staging_Post,Movement15 ORDER BY (MovementDateTime)) * [counter] AS Movement_15_SEQNO
		FROM (
			SELECT [MovementDateTime],
					[FirstName],
				 	[LastName],
					[Ward_Dept],
					[Staging_Post],
					[Movement_Type],
					[IN_OUT],