François Briatte briatte

Political scientist interested in network analysis. Speaks English, French, R, Stata.

briatte / cleanup.sh

Created June 26, 2012 01:40

SRQM scripts (deprecated by GitHub and Stata magics)

	### delete tex files in slides folder

	cd ~/Documents/Teaching/SRQM/Course

	rm .aux .dvi .toc .log .nav .out .snm .synctex.gz .tex.bak .vrb .run.xml -blx.bib .idx .fdb_latexmk

	### delete log files in replication folder

	cd ~/Documents/Teaching/SRQM/Replication/

briatte / print.css

Last active October 8, 2015 13:08

SRQM style for README files

	/*
	Styling for Markdown preview in TextMate, copty to:
	~/Library/Application Support/TextMate/Managed/Bundles/Themes.tmbundle/Support/web-themes/SRQM/style.css
	*/

	@import url(http://fonts.googleapis.com/css?family=Ubuntu:400,500,400italic);
	@import url(http://fonts.googleapis.com/css?family=Ubuntu+Mono);

	*, p {
	font-family: "Ubuntu", sans-serif;

briatte / lookfor.R

Last active September 21, 2017 17:07

lookfor -- an equivalent to the -lookfor- Stata command that supports foreign and memisc data objects (part of the questionr package)

	lookfor <- function(data,
	keywords = "weight\|sample",
	labels = TRUE,
	ignore.case = TRUE) {
	# search scope
	n <- names(data)
	if(!length(n)) stop("there are no names to search in that object")
	# search function
	look <- function(x) { grep(paste(keywords, collapse="\|"), x, ignore.case = ignore.case) }
	# names search

briatte / ggplot2-map-theme.R

Last active December 12, 2015 04:59

a ggplot2 theme for maps, by Osmo Saloma

	# ggplot2 map themes by Osmo Saloma

	theme_map = function(base_size=9, base_family="")
	{
	require(grid)
	theme_osa(base_size=base_size, base_family=base_family) %+replace%
	theme(axis.line=element_blank(),
	axis.text.x=element_blank(),
	axis.text.y=element_blank(),
	axis.ticks=element_blank(),

briatte / imf.R

Last active January 22, 2016 08:10 — forked from chrishanretty/imf.R

remixing Chris Giles' analysis of IMF WEO, threading on Chris Hanretty's R code

	# Chris Giles:
	#
	# "Robustness of IMF data scrutinised", Oct 12 2012:
	# http://www.ft.com/intl/cms/s/0/85a0c6c2-1476-11e2-8cf2-00144feabdc0.html#axzz2LKQkV3SH
	#
	# "Has the IMF proved multipliers are really large? (wonkish)" Oct 12 2012:
	# http://blogs.ft.com/money-supply/2012/10/12/has-the-imf-proved-multipliers-are-really-large-wonkish/
	#
	# "The IMF and multipliers, again", Jan 7 2013:
	# http://blogs.ft.com/money-supply/2013/01/07/the-imf-and-multipliers-again/

briatte / svyplot.ado

Last active September 19, 2019 10:17

svyplot -- a wrapper for catplot (Stata)

	*! 0.2.3 F. Briatte 20mar2013

	cap pr drop svyplot
	program svyplot
	syntax varlist(max=3) [if] [in] [aweight fweight iweight/] ///
	[, Reds Blues Ascending Descending Horizontal Ymax(int 100) ///
	Float(int 0) Size(real 3.5) ANGLE(int 0) NOPercent XLAb *]

	// parse options

briatte / lp_plots.do

Created March 9, 2013 22:14

Stata code for the religious majority variables by La Porta et al. in the QOG dataset

	use data/qog2011, clear

	// religious populations

	d lp_*80
	local vars = "lp_catho80 lp_muslim80 lp_protmg80 lp_no_cpm80"

	// kernel densities

	local plot = ""

briatte / ggcorr.R

Created March 29, 2013 17:32

ggcorr -- a ggplot2 implementation of arm::corrplot

	#' If you like [this approach][1] to correlation matrixes, you might also like
	#' the `arm::corrplot` function. Here's a ggplot2 implementation.
	#' [1]: http://stackoverflow.com/questions/12196756/significance-level-added-to-matrix-correlation-heatmap-using-ggplot2

	ggcorr <- function(x, method = "pairwise", palette = "RdYlGn") {
	require(ggplot2)
	require(reshape) # edit when reshape2 reaches maturity

	M <- cor(x[1:ncol(x)], use = method)
	M <- M * lower.tri(M)

briatte / findCreditCards.R

Created April 6, 2013 10:06

find credit card information on your disk files (by Jeroen Ooms, arXiv:1303.4808v2)

	findCreditCards <- function() {
	pattern <- "([0-9]{4}[- ]){3}[0-9]{4}"
	path <- "~/Documents"
	filelist <- list.files(path, full.names=TRUE, recursive=TRUE)
	for (filename in filelist){
	if(file.info(filename)$size > 1e6) next
	doc <- readLines(filename)
	results <- gregexpr(pattern, doc)
	output <- unlist(regmatches(doc, results))
	if(length(output) > 0){

briatte / piketty_saez.r

Last active December 16, 2015 00:39

Piketty and Saez data: U.S. real income (incl. capital gains), 1917-2011; check original for updated values