John Horton johnjosephhorton

Papers

Published & Forthcoming Papers in Economics

"The Online Laboratory: Conducting Experiments in a Real Labor Market" (with David Rand and Richard Zeckhauser) Experimental Economics, 14:3 (2011), 399-425.


	<html lang="en">
	<title>Obot</title>

	<head>
	<meta charset="utf-8">
	<meta http-equiv="X-UA-Compatible" content="IE=edge">
	<meta name="viewport" content="width=device-width, initial-scale=1">
	<meta name="description" content="">
	<meta name="author" content="">

	library(JJHmisc)
	library(oDeskTools) #internal package for working with oDesk data
	library(ggplot2)
	library(reshape2)
	library(scales)

	connectDB(get_credentials())

	df.wide <- dbGetQuery(con, "select * from active_window_trends")

	response knew_count learned_formal learned_social learned_inferred
	Yes, because it was through school and I knew the particular amount of interview spots that were open. 1 0 0 1
	Yes the last time I applied for a job they were considering two people. My friend that work there told me. 1 0 1 0
	The last time I tried to apply for a job, I did not know how many people the firm was considering since it was a blind interview. 0 0 0 0
	No, I had no idea. The only indication was I was not told anything other than they had "several" other people to interview. "Several" could mean anything, although I doubt they would interview more than 10-15. 0 0 0 0
	I had no idea how many candidates were being considered for the position. I was only aware that the position was available. 0 0 0 0
	no, I had no idea. 0 0 0 0
	Yes, I knew how many because associate conducting the interview mentioned that there were two other applicants coming in for interviews in the coming days so the final decision would not come for a few day afterwar

	#!/usr/bin/Rscript

	# Can title predicto log wages?
	# Author: John Horton <http://john-joseph-horton.com>

	library(JJHmisc) # available on Github
	library(oDeskTools) #oDesk-specific package
	library(ggplot2)
	library(scales)
	library(RTextTools)

	#!/usr/bin/python
	# John Horton
	import argparse
	import sys
	import os

	parser = argparse.ArgumentParser(description='Make tarball and upload to s3')

	parser.add_argument('-d','--dir', help='Input directory',required=True)

	tableContinuous <- function (vars, weights = NA, subset = NA, group = NA, stats = c("n",
	"min", "q1", "median", "mean", "q3", "max", "s", "iqr", "na"),
	prec = 1, col.tit = NA, col.tit.font = c("bf", "", "sf",
	"it", "rm"), print.pval = c("none", "anova", "kruskal"),
	pval.bound = 10^-4, declare.zero = 10^-10, cap = "", lab = "",
	font.size = "footnotesize", longtable = TRUE, disp.cols = NA,
	nams = NA, caption.placement = "bottom")
	{
	print.pval <- match.arg(print.pval)
	if (identical(disp.cols, NA) == FALSE) {

	############################################################################
	# AUTHOR: John Horton
	# PURPOSE: Extract by-country minimum hourly wages from the Wikipedia page
	# LAST MODIFIED: May 22, 2013
	############################################################################

	library(XML)
	library(ggplot2)
	library(scales)

	df.odw <- data.frame(application = df$application, p = df$p)
	if(dbExistsTable(con, "predicted_response_probabilities")){
	dbRemoveTable(con, "predicted_response_probabilities")
	}
	dbWriteTable(con, "predicted_response_probabilities", df.odw)

	(add-to-list 'load-path "~/.emacs.d/")
	(add-to-list 'load-path "/usr/share/emacs/site-lisp/ess")

	;; LaTeX stuff
	(load "auctex.el" nil t t)
	(load "preview-latex.el" nil t t)

	;; browse the kill ring
	(load "browse-kill-ring.el" nil t t)