Miles McBain MilesMcBain
MilesMcBain
/ Australian_City_Populations
Last active
October 14, 2016 08:52
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| tribble( | |
| ~Aus.City, ~Pop, | |
| "Sydney", "4920970", | |
| "Melbourne", "4529496", | |
| "Brisbane", "2308720", | |
| "Perth", "2039193", | |
| "Adelaide", "1316779", | |
| "Gold Coast", " 624918", | |
| "Newcastle", " 434454", | |
| "Canberra", " 424666" |
MilesMcBain
/ Australian_City_Stack_Overflow_R.R
Created
October 15, 2016 11:46
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tibble) | |
| library(ggplot2) | |
| library(dplyr) | |
| library(ggrepel) | |
| library(ggthemes) | |
| stackR <- tribble( | |
| ~Aus.City, ~R, ~TotalVisits, ~Pop, | |
| "Melbourne", "23176", "1544868", "4529496", | |
| "Adelaide", "7181", "350850", "1316779", |
MilesMcBain
/ binomial_expected_response_plot.R
Created
October 20, 2016 01:49
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --- | |
| title: "Expected Repsponse plot" | |
| author: "Miles McBain" | |
| date: "20 October 2016" | |
| output: html_document | |
| --- | |
| #Read Data |
MilesMcBain
/ Mapinfo_to_geojson.R
Last active
November 11, 2016 00:32
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(rgdal) | |
| shp=readOGR('/home/milesmcbain/data/aep/vectors/ANT_EVA/GIS_EVA/EVA_Paddocks_201003.TAB', 'EVA_Paddocks_201003') | |
| writeOGR(obj = shp, | |
| dsn = 'EVA_Paddocks', | |
| layer = 'EVA_Paddocks', | |
| driver = "GeoJSON") | |
| #Extract metadata | |
| library(jsonlite) | |
| library(readr) |
MilesMcBain
/ na_block_idx.R
Created
December 27, 2016 05:30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| na_block_idx <-cppFunction("NumericVector na_block_idx(LogicalVector complete_case_vec){ | |
| int n = complete_case_vec.size(); | |
| NumericVector na_block_idxs(n); | |
| int block_counter = 0; | |
| if(complete_case_vec[0] == TRUE){ | |
| na_block_idxs[0] = ++block_counter; | |
| }else{ | |
| na_block_idxs[0] = 0; | |
| } |
MilesMcBain
/ AMSI_sum_prac1_ex1_code
Created
January 11, 2017 06:21
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ```{r} | |
| tb_cases_sep %>% | |
| group_by(gender, year) %>% | |
| summarise(total_cases = sum(num_cases, na.rm = T)) %>% | |
| ggplot(aes(x = year, y = total_cases, colour = gender)) + | |
| geom_point() + geom_path() + | |
| ggtitle("Worldwide Tuberculosis Cases Over Time vs Patient Gender", subtitle = "Reported by the WHO") | |
| ``` |
MilesMcBain
/ simple_roc.R
Created
January 17, 2017 20:57
— forked from revodavid/simple_roc.R
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| simple_roc <- function(labels, scores){ | |
| labels <- labels[order(scores, decreasing=TRUE)] | |
| data.frame(TPR=cumsum(labels)/sum(labels), FPR=cumsum(!labels)/sum(!labels), labels) | |
| } |
MilesMcBain
/ Reformat_dates.R
Created
February 11, 2017 05:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| dates <- tribble( | |
| ~dob, | |
| "10/06/1968", | |
| "16/07/1969", | |
| "01/07/1966", | |
| "15/09/1977", | |
| "29/01/1971", | |
| "12/01/1960", | |
| "05/10/1973", | |
| "21/04/1972", |
MilesMcBain
/ regex_separating_lookbehind.R
Created
February 22, 2017 14:00
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| dat <- readr::read_csv("municipality\n- Ticino\n>> Distretto di Bellinzona\n......5001 Arbedo-Castione\n......5002 Bellinzona\n......5003 Cadenazzo\n......5004 Camorino\n") | |
| dat %>% mutate(municipality = gsub(pattern = '[\\.\\>]|^-', | |
| replacement = "", | |
| municipality)) %>% | |
| separate(col = municipality, | |
| sep = '(?<=[0-9])\\s', | |
| into = c ("code","municipality"), | |
| fill = "left") |
MilesMcBain
/ phone_number_munge.R
Created
March 30, 2017 03:44
Munging and splitting phone numbers for upload. Without Excel!
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(readr) | |
| library(tidyverse) | |
| sra <- read_csv("sra (4).csv") | |
| sra_mobs <- | |
| sra %>% | |
| mutate(phone_number = ifelse(grepl(pattern = "^4", x = `Mobile Phone`), yes = paste0("0",as.character(`Mobile Phone`)), no = `Mobile Phone`), | |
| type = "Member" | |
| ) %>% |