Skip to content

Instantly share code, notes, and snippets.

View finiterank's full-sized avatar

Javier Moreno finiterank

101 followers · 35 following
View GitHub Profile
@finiterank
finiterank / verificados-buenos-aires.md
Last active August 29, 2015 14:27
Verificados cerca a Buenos Aires (14-22 de agosto/2015)
  • 16BL (16 Bit Lolitas)
  • 678elprograma (6-7-8)
  • AmericaTV (América TV)
  • Anboy88 (Angelique Boyer)
  • CN23 (CN23)
  • DeLaGhettoReal (De La Ghetto)
  • ExaFM (Exa FM )
  • FernetBrancaARG (Fernet Branca. Único)
  • Independiente (C. A. Independiente)
  • Isacastillo7 (Isabella Castillo)
@finiterank
finiterank / colombianos-verificados.md
Last active August 29, 2015 14:27
Cuentas 'Verificadas' cerca de Colombia (14-22 de agosto/2015)

Para intentar resolver una duda de @yoresongo.

La búsqueda: geocode:4.5981,-74.0758,500mi filter:verified

Ahí se colaron igual algunas cuentas ecuatorianas y venezolanas. Hay harto político pero también mucha 'farándula'.

  • ANAVILLALBA (Ana Karina Villalba)
  • ANDRES_MOTTA (MOTTA)
  • ATR_official (Atari Teenage Riot)
  • AdrianaLucia_ (Adriana Lucía Music)
@finiterank
finiterank / Gender Parity
Last active August 29, 2015 14:02
Gender Parity Plot
library(plyr)
library(reshape2)
library(ggplot2)
edx <- read.csv("data//HMXPC13_DI_v2_5-14-14.csv")
#Gender parity by Country
gender.table <- ddply(edx, .(final_cc_cname_DI, gender), summarise, number = length(userid_DI))
levels(gender.table$gender) <- c("none", "female", "male", "other")
@finiterank
finiterank / distancias.R
Last active August 29, 2015 14:01
Generador de una representación gráfica de la matriz de distancias entre candidatos
require(stats)
# Datos
candidatos <- c(1, 0, 0, 0, 0, 1, 1, 0, 0, 0.5, 0, 0.5, 0, 0, 0.5, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0.5, 0, 1, 1, 0, 0.5, 1, 0, 0.5, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0.5, 1, 1, 0, 0, 0.5, 0, 0, 1, 0, 0.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.5, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1)
candidatos <- t(matrix(candidatos, nrow=5, ncol=18))
dimnames(candidatos) <- list(1:18, c("Peñalosa", "López", "Zuluaga", "Ramírez", "Santos"))
distancias <- dist(t(candidatos), method = "euclidean", diag = T, upper = T)
distancias <- data.matrix(distancias)
@finiterank
finiterank / README.md
Last active July 3, 2022 08:59
Paleta de colores

Este script toma una imagen de 900px de ancho y altura arbitraria, genera una paleta de 256 colores que aproximadamente componen la imagen y despliega la paleta como un árbol-mapa donde el tamaño de la celda es dado por el uso del color en la imagen.

Javascript todavía no es suficientemente rápido como para pedirle al browser que haga el cálculo de la paleta con todos los píxels de la imagen (o al menos yo no pude), así que aquí tomo una muestra uniforme de píxels y basados en ellos calculo la paleta. El algoritmo para generar la paleta es una versión del que proponen acá.

Haga click aquí para ver la imagen (un pedazo de Nightlife, de John Motley) y su paleta.

La idea proviene de este tumblr.

(Vía Twitter me entero de que Gabriel Gianordoli hizo [algo similar](https://www.flickr.com/photo