Skip to content

Instantly share code, notes, and snippets.

View JanMarvin's full-sized avatar

Jan Marvin Garbuszus JanMarvin

45 followers · 15 following
  • Düsseldorf, Germany
View GitHub Profile
@JanMarvin
JanMarvin / DSA_function.R
Created January 27, 2013 23:41
Zwei DSA Funktionen zum Bestimmen von Erfolgswahrscheinlichkeiten in R. Konvertiert von VBA und C++. Quellen verlinkt.
#Anzahl der Erfolge (von 8000 möglichen Würfen)
# VBA Code in R umgesetzt
# http://www.dsa4forum.de/viewtopic.php?f=1&t=28731&sid=3370e39d5a10edc62018a041f3274264&start=30#p1204751
# Eigenschaften 1 bis 3 und der Talentwert
e1 <- 10
e2 <- 10
e3 <- 10
taw <- 4
@JanMarvin
JanMarvin / dsa.cpp
Created February 8, 2013 15:41
http://www.wiki-aventurica.de/wiki/Wahrscheinlichkeit_f%C3%BCr_das_Bestehen_einer_Talentprobe#C.2B.2B Mit Rcpp unglaublich! test(1,1,1,1)
#include <Rcpp.h>
using namespace Rcpp;
#include <algorithm>
// [[Rcpp::export]]
double test (int e1, int e2, int e3, int taw)
{
int success = 0, restTaP = 0;
@JanMarvin
JanMarvin / DSA-Pr.R
Last active December 17, 2015 12:08
Exakt nur fuer TaW <=2; TaW 3 Naeherung.
dsa <- function(e1,e2,e3,taw){
if (taw<=0){
# Achtung: Hier werden e1:e3 ja bereits mit taw
# versehen und sind dann in der folge groesser!
# Andererseits, macht das was? Wenn spaeter dsa(e1,e2,e3,0) aufgerufen wird?
e1 <- e1+taw
e2 <- e2+taw
e3 <- e3+taw
# Egal in welche Reihenfolge
@JanMarvin
JanMarvin / PKGBUILD
Last active December 19, 2015 22:49
PKGBUILD cleand. Requires installation of intel-parallel-studio-xe.
# $Id: PKGBUILD 184431 2013-05-06 19:39:38Z foutrelis $
# Maintainer: Ronald van Haren <ronald.archlinux.org>
# Contributor: Damir Perisa <damir.perisa@bluewin.ch>
# Contributor: K. Piche <kpiche@rogers.com>
pkgname=r
pkgver=3.1.0
pkgrel=01
pkgdesc="Language and environment for statistical computing and graphics"
arch=('i686' 'x86_64')
@JanMarvin
JanMarvin / Rcpp_test.R
Created July 19, 2013 10:22
# Ein paar Werte
set.seed(123)
x <- 1:200
y <- rnorm(1:200)
# Eine ziemlich unnuetze Funktion
fun <- function(x,y){
erg <- NULL
@JanMarvin
JanMarvin / DasSchwarzeAuge.tex
Created November 9, 2013 13:40
XeLaTeX Dokument dem Layout der Das Schwarze Auge Publikationen nachempfunden. Benötigt die Schriftarten Mason und ElegaGarmnd BT.
% XeTeX
\documentclass[a4paper,12pt]{scrartcl}
% Auskommentieren!
\usepackage{blindtext}
\usepackage[ngerman]{babel}
\usepackage{url}
\usepackage[top=2.5cm,left=2cm,right=2cm,bottom=2.5cm]{geometry}
\usepackage[hidelinks]{hyperref}
@JanMarvin
JanMarvin / IndexBeamer.tex
Last active August 29, 2015 13:56
Index for LaTeX Beamer
% http://latex-community.org/forum/viewtopic.php?f=4&t=1735
\makeatletter
\newcommand\@idxitem{\par\hangindent 40\p@}
\newcommand\subitem{\@idxitem \hspace*{20\p@}}
\newcommand\subsubitem{\@idxitem \hspace*{30\p@}}
\newcommand\indexspace{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
\makeatother
\usepackage{makeidx}
@JanMarvin
JanMarvin / stata13_importer.py
Created July 17, 2014 09:40
Convert stata13 dta files to csv files. read.dta in foreign is frozen. Usage ./import_stata13.py -i somedata.dta -o somedata.csv.
#!/bin/python
import sys, getopt
import pandas as pd
try:
opts, args = getopt.getopt(sys.argv[1:], 'i:o:s')
except getopt.GetoptError as err:
# Redirect STDERR to STDOUT (insures screen display)
@JanMarvin
JanMarvin / stata13.R
Last active August 29, 2015 14:04
Read Statas dta-files Pythons Pandas and handle them with rPython.
# install.packages("rPython")
# requires pandas
stata13 <- function(dat,
convert.factors = FALSE){
require("rPython")
# make dat known to python
python.assign('dat',dat)
@JanMarvin
JanMarvin / buclogit.R
Last active September 8, 2015 18:56
BUC Estimator. Blow Up and Cluster.
# buc estimator
library("readstata13")
dat <- read.dta13("buc.dta")
buclogit <- function(eqn, data, stratum) {
require("survival")
require("Matrix")
id <- stratum