Skip to content

Instantly share code, notes, and snippets.

@krlmlr
krlmlr / output.log
Last active December 27, 2015 13:29
processing 'Z:\home\muelleki\Downloads\kimisc-master'
a directory
* installing to library 'C:/Program Files/R/R-3.0.2/library'
* build_help_types=
* DBG: 'R CMD INSTALL' now doing do_install()
* created lock directory 'C:/Program Files/R/R-3.0.2/library/00LOCK-kimisc-master'
* installing *source* package 'kimisc' ...
** libs
about to run R CMD SHLIB -o kimisc.dll rcpp_hello_world.cpp RcppExports.cpp --debug
fixme:ntdll:NtSetInformationToken unimplemented class 4
@krlmlr
krlmlr / .gitignore
Created December 15, 2013 13:48
Managing contents of another "sub" repo inside a "main" repo using `git subtree`
/main
/sub
/.main
/.sub
$ git branch -r --merged origin/master |
grep -v '>' |
grep -v master |
cut -d "/" -f 2- |
xargs git push origin --delete
@krlmlr
krlmlr / script.sh
Created January 3, 2014 15:14
Various scripts for transcoding images (2010, IVT)
#!/bin/sh
# -dt = draw text as curves
# -rgb = use rgb color model
pstoedit -rgb -dt -f ps sc-logo.pdf sc-logo.ps
# above command produces invalid PostScript with two restores too much
# remove the two restores
head -n -9 sc-logo.ps > sc-logo2.ps
echo "%%EOF" >> sc-logo2.ps
#!/bin/sh
CVS_REPO=/mnt/sshfs/cvs-repo
SVN_REPO=$PWD/repos2
CHECKOUT
cvs2svn --no-cross-branch-commits --use-internal-co --encoding latin1 --username cvs2svn -s $SVN_REPO/doc $CVS_REPO/ivt/doc --trunk=trunk --branches=!BRANCHES --tags=!TAGS
svn checkout file://$SVN_REPO $CHECKOUT
#cvs2svn --no-cross-branch-commits --use-internal-co --encoding latin1 --username cvs2svn -s repos/src /mnt/sshfs/cvs-repo/ivt/src --trunk=cvs/trunk --branches=cvs/branches --tags=cvs/tags
#cvs2svn --no-cross-branch-commits --use-internal-co --encoding latin1 --username cvs2svn -s repos/studies /mnt/sshfs/cvs-repo/ivt/studies --trunk=cvs/trunk --branches=cvs/branches --tags=cvs/tags
#cvs2svn --no-cross-branch-commits --use-internal-co --encoding latin1 --username cvs2svn -s repos/src /mnt/sshfs/cvs-repo/ivt/src --trunk=trunk --branches=branches --tags=tags
<script language="javascript">
function safe_value(v, def) {
if (/^Fehler/.test(v)) return def;
return v;
}
anzahl_zimmer = safe_value("{INSERTANS:31795X4X2}");
anzahl_zimmer = parseInt(anzahl_zimmer.charAt(0));
wohnstandard = safe_value("{INSERTANS:31795X4X37}");
library(reshape2)
N <- 100000L
d.m <- data.frame(q1=runif(N), q2=runif(N), q3=runif(N),
f=sample(letters, N, replace=T), w=runif(N))
print(head(d.m))
print(summary(d.m))
sessionInfo()
---
title: "Test"
output: html_document
---
```{r setup}
knitr::dep_prev()
summary(cars)
```
m1 <- png::readPNG("~/Downloads/m1.png")
m2 <- png::readPNG("~/Downloads/m2.png")
m1r <- m1[,,1]
m2r <- m2[,,1]
m1r1 <- m1r[,1]
m2r1 <- m2r[,1]
sim <- llply(
@krlmlr
krlmlr / gist:80f5050a33e98de23671
Created April 14, 2015 21:25
Bootstrap wercker for R packages
curl http://krlmlr.github.io/makeR/install | sh
make dt_test
make init-wercker
make init-gh-pages