Dayne Batten daynebatten

daynebatten / tmerge_event.csv

Created January 26, 2016 19:23

daynebatten / tmerge_results.csv

Last active January 26, 2016 20:06

daynebatten / tmerge_merge.r

Last active January 26, 2016 19:30

newdata <- tmerge(base, support, id = id, contacted_support = tdc(time, contacted_support))

daynebatten / tmerge_build_base.r

Last active January 26, 2016 19:29

base <- tmerge(customer, event, id = id, tstop = time, had_event = event(time, event))

daynebatten / tmerge_load.r

Last active January 26, 2016 19:26

	library(survival)

	customer <- read.csv("C:/Users/dbatten/Desktop/customer.csv")
	event <- read.csv("C:/Users/dbatten/Desktop/event.csv")
	support <- read.csv("C:/Users/dbatten/Desktop/support.csv")

daynebatten / tmerge_support.csv

Last active January 26, 2016 19:25

daynebatten / tmerge_customer.csv

Last active January 26, 2016 19:22

daynebatten / LRR_import_bool.java

Last active March 21, 2016 18:21

	// Add to the list of imports
	import org.apache.hadoop.mapreduce.lib.input.*;

	// Add to the fields of the LineRecordReader class
	private boolean fileBroken;
	private String splitName;

daynebatten / LineRecordReader.java

Created January 22, 2016 19:19

	/**
	* Licensed to the Apache Software Foundation (ASF) under one
	* or more contributor license agreements. See the NOTICE file
	* distributed with this work for additional information
	* regarding copyright ownership. The ASF licenses this file
	* to you under the Apache License, Version 2.0 (the
	* "License"); you may not use this file except in compliance
	* with the License. You may obtain a copy of the License at
	*
	* http://www.apache.org/licenses/LICENSE-2.0

daynebatten / plot_hazard_ratio.r

Created January 6, 2016 20:33

	# Function to get hazard ratio for males vs. baseline at any given time
	y = function(x) exp(-.4667783 - .0008827 * x)

	# Plot it
	plot(y, ylim=c(0,1), xlim=c(0,1000), xlab = 'Time', ylab = 'Hazard Ratio')
	title('Hazard Ratio for Male')