Skip to content

Instantly share code, notes, and snippets.

View even4void's full-sized avatar

chl even4void

View GitHub Profile
https://github.com/eliben/4clojure-solutions.git
https://github.com/bcc32/99.git
https://github.com/politrons/Dive_into_Haskell.git
https://github.com/hbctraining/Intro-to-R.git
https://github.com/ppham27/MLaPP-solutions.git
https://github.com/ArthurZC23/Machine-Learning-A-Probabilistic-Perspective-Solutions.git
https://github.com/nayuki/Nayuki-web-published-code.git
https://github.com/davidemms/OrthoFinder.git
https://github.com/ctgk/PRML.git
https://github.com/wentaocn/Programming-in-Haskell.git
@even4void
even4void / make_package.R
Last active June 1, 2022 13:03
ROCAD analysis
# Time-stamp: <2010-04-05 17:11:20 chl>
#
# Automaticaly collate R file and try to build a package with
# documentation generated by Roxygen.
#
require(roxygen)
rm(list=ls())
package.skeleton('rocad',code_files=c('rocad.R','rocad-package.R'),force=T)
roxygenize('rocad',roxygen.dir='rocad',copy.package=F,unlink.target=F)
try(system("R CMD build rocad"))
@even4void
even4void / pdf2img.sh
Created January 11, 2022 17:29
Convert page from a PDF to a PNG
#!/usr/bin/env bash
# Note: pdftoppm has page range so the first line is probably not necessary.
f="/tmp/tmp.$RANDOM"
pdftk "$1" cat $2 output $f
pdfcrop $f $f.crop
pdftoppm -png -rx 300 -ry 300 $f.crop $HOME/"$1".png
rm $f $f.crop
@even4void
even4void / fasview.py
Created January 7, 2022 19:31
Fast Fasta TUI viewer
#!/usr/bin/env python3
import os
import statistics
import sys
from Bio import SeqIO
term_width = os.get_terminal_size().columns
term_height = os.get_terminal_size().lines
id_width = 15
@even4void
even4void / org-babel.el
Created December 20, 2021 08:29
org-babel
;;; org-babel.el --- default settings for org->pdf compilation
;;;
;;; Commentary:
;;; This is very basic stuff.
;;;
;;; Code:
(require 'org)
(add-to-list 'load-path "/home/chl/Documents/notes")
(require 'ox-bibtex)
command! -range Gist call system('gist', getbufline('%', <line1>, <line2>))
command! -bang -nargs=* History
\ call fzf#vim#history({'options': '--no-sort'})
#lang racket
;; Euler problem 15
(define (reduce f xs)
(and (not (empty? xs)) (foldl f (first xs) (rest xs))))
(define (f n)
(reduce (lambda (x y) (* x y)) (range 1 (add1 n))))
## Time-stamp: <2016-05-27 13:18:56 chl>
##
## General purpose script to illustrate the estimation of path coefficients
## in a Partial Least Squares Path Model (PLS-PM) and multi-group comparison
## using resampling (permutation test).
##
library(plspm)
library(simsem)
@even4void
even4void / 1.c
Last active December 28, 2015 00:49
Computing some probability value from Student distribution
// Time-stamp: <2013-11-11 17:58:52 chl>
// gcc -Wall 1.c -lgsl -lgslcblas -lm
#include <stdio.h>
#include <gsl/gsl_cdf.h>
int main(void) {
double p;
@even4void
even4void / .emacs
Last active September 6, 2018 15:26
A basic previewer for R Markdown files edited with Emacs
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.Rmd\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.rmd\\'" . markdown-mode))
(add-hook 'markdown-mode-hook 'turn-on-outline-minor-mode)
(defun rmarkdown-new-chunk (name)
"Insert a new R chunk."
(interactive "sChunk name: ")
(insert "\n```{r " name "}\n")
(save-excursion