Skip to content

Instantly share code, notes, and snippets.

View jaehyuk's full-sized avatar

Jaehyuk Lee jaehyuk

  • Houston, TX
View GitHub Profile
@jaehyuk
jaehyuk / file1.txt
Created September 12, 2017 09:24
the description for this gist
String file contents
@jaehyuk
jaehyuk / README.md
Last active September 11, 2015 12:26 — forked from agnoster/README.md
My ZSH Theme

agnoster.zsh-theme

A ZSH theme optimized for people who use:

  • Solarized
  • Git
  • Unicode-compatible fonts and terminals (I use iTerm2 + Menlo)

For Mac users, I highly recommend iTerm 2 + Solarized Dark

@jaehyuk
jaehyuk / gnome-terminal-zenburn.sh
Last active September 9, 2015 09:55 — forked from planbnet/gnome-terminal-zenburn.sh
Zenburn color scheme for gnome-terminal
#!/usr/bin/env bash
dir=$(dirname $0)
gconfdir=/apps/gnome-terminal/profiles
echo # This makes the prompts easier to follow (as do other random echos below)
########################
### Select a profile ###
########################
@jaehyuk
jaehyuk / AWS-RHEL
Last active September 4, 2015 08:21 — forked from Dulani/AWS-RHEL
Setup R and RStudio on RHEL on AWS
#Setup and launch an RHEL EC2 instance
#Ensure that the security group (firewall) allows access to port 8787
#Login via SSH
#Guide: https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/AccessingInstancesLinux.html
ssh -i keyfile.pem ec2-user@ec2-11-22-33-44.compute-1.amazonaws.com
#Keyfile.pem is the name of your the keyfile you generated with AWS.
#RHEL users are either root or ec2-user
#ec2-11-22-33-44.compute-1.amazonaws.com is the "actuall" public name assigned by AWS
library(KoNLP)
library(wordcloud)
library(plyr)
library(ggplot2)
library(scales)
tw <- read.delim('./data/NIS.csv', header=T, sep=',', stringsAsFactors=F)
tw.RT <- read.delim('./data/NIS_RT.csv', header=T, sep=',', stringsAsFactors=F)
tw.all <- read.delim('./data/NIS_withRT.csv', header=T, sep=',',
stringsAsFactors=F)
Interactive charts and slides with R, googleVis and knitr
========================================
```{r results='asis', echo=FALSE, message=FALSE, tidy=FALSE}
library(googleVis)
G <- gvisGeoChart(Exports, "Country", "Profit",
options=list(width=250, height=120), chartid="c1")
T <- gvisBarChart(Exports[,1:2], yvar="Profit", xvar="Country",
options=list(width=250, height=260,
legend='none'), chartid="c2")
@jaehyuk
jaehyuk / data.csv
Created August 25, 2014 20:47 — forked from d3noob/.block
date close
1-May-12 58.13
30-Apr-12 53.98
27-Apr-12 67.00
26-Apr-12 89.70
25-Apr-12 99.00
24-Apr-12 130.28
23-Apr-12 166.70
20-Apr-12 234.98
19-Apr-12 345.44