Skip to content

Instantly share code, notes, and snippets.

View klainfo's full-sized avatar

Chakkrit (Kla) Tantithamthavorn klainfo

View GitHub Profile
@klainfo
klainfo / installBoost.sh
Last active August 29, 2015 14:26
How to use wsrf with Boost Parallel Computing library
# Download Boost C++ library
wget http://sourceforge.net/projects/boost/files/boost/1.58.0/boost_1_58_0.tar.gz/download
# Extract
tar -zxvf download
# Install http://wiki.tiker.net/BoostInstallationHowto
cd boost_1_58_0
./bootstrap.sh --prefix=/home/hpc3151/pool --libdir=/home/hpc3151/pool/lib --with-libraries=signals,thread,python,mpi
./bjam -j4 variant=release link=shared install
@klainfo
klainfo / cpusAvailable.R
Created July 25, 2015 18:51
How many cpus are available for parallel jobs?
library(parallel)
cores <- detectCores()
load <- read.table("/proc/loadavg",sep=" ")$V1
cores*.8 - load
@klainfo
klainfo / loadCaretDependency.R
Created July 23, 2015 18:14
load all caret dependency R packages
install.packages("caret", dependencies = c("Depends", "Suggests"))
@klainfo
klainfo / render_post.R
Last active August 29, 2015 14:25
Put in the Rmd directory and run ./render_post.R <file.Rmd>
#!/usr/bin/env Rscript
# Reference: http://jfisher-usgs.github.io/r/2012/07/03/knitr-jekyll/
input <- commandArgs(trailingOnly = TRUE)
KnitPost <- function(input, base.url = "/") {
require(knitr)
opts_knit$set(base.url = base.url)
fig.path <- paste0("../figs/", sub(".Rmd$", "", basename(input)), "/")
opts_chunk$set(fig.path = fig.path)
# C++ functions parser
# Reference: http://stackoverflow.com/questions/6133989/what-grep-command-will-include-the-current-function-name-in-its-output
# Usage: ./cpp-parser.sh <file.cpp>
awk -v re='return' '/^[[:alpha:]]/{f=FNR"-"$0} $0~re{printf "%s\n%d:%s\n--\n",f,FNR,$0; f="" }' $1