This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
"editor.tokenColorCustomizations": { | |
"textMateRules": [ | |
{ | |
"scope": [ | |
"support.function.general.tex", | |
"support.function.textit.latex", | |
"support.function.texttt.latex", | |
"support.function.textbf.latex", | |
"support.function.textsc.latex", | |
"support.function.url.latex", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /bin/bash | |
# required Packages: | |
# ---- zenity | |
# ---- mp3val | |
################################################# | |
# check for zenity | |
gui=$(which zenity) | |
if [ ! -x "$gui" ]; | |
then |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
### | |
#### Dies ist mein persoenliches Backup-Script | |
#### Es benoetigt folgende Pakete: - keine - | |
# Bitte geben Sie das Zielverzeichnis an | |
ZIEL="/home/produnis/Downloads/" # default =/home/produnis/Desktop/ | |
USER=produnis # default =produnis | |
MYSQLPWD=VerySecret # Set your root-pwd for MySQL | |
########################################### |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl -w | |
### User-Job-Command: | |
### /path/to/copy_and_transcode.pl -f %FILE% -p autodetect | |
# ============================================================================ | |
# = NAME | |
# copy_and_transcode.pl | |
# | |
# = PURPOSE | |
# Copy a recording before transcoding, so the user can re-cut the original | |
# |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
install.packages(c("foreign", "ggplot2", "Hmisc", "knitr", "lattice"), dependencies=TRUE) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
mma <- read.table("http://www.produnis.de/R/MMA.TXT",sep=";",header=T) | |
head(mma) | |
attach(mma) | |
# Erzeuge eine neue Spalte "time", in welcher Datum und Uhrzeit | |
# im POSIXct-Format zusammengefasst werden. | |
mma$time <- as.POSIXct(paste(Datum,Uhrzeit),format="%Y-%m-%d %H:%M") | |
#Wandle falsch-numerisches in factor() um | |
mma$Action <- factor(mma$Action) | |
mma$Person <- factor(mma$Person) | |
# fertig |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
pre { | |
width: 97%; | |
overflow-x:auto; | |
} | |
#bash { | |
color: #FFFFFF; | |
background-color: #000000; | |
font-family: Courier; | |
font-size: 0.9em; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Read texttable into R | |
# You need to specify the path to textfile (created with mailscanner.py) | |
# in the command below | |
inbox <- read.table("/Path/to/MyMail-inbox.txt", sep=",", colClasses = "character") # Read table as characters | |
colnames(inbox) <- c("Datum","Uhrzeit") # give names to colums | |
inbox$Datum <- strptime(inbox$Datum,format="%Y%m%d") # turn into format DATE | |
inbox$Uhrzeit <- strptime(inbox$Uhrzeit, format="%H%M%S") # turn into format TIME | |
plot(inbox$Datum, inbox$Uhrzeit) # plot the stuff | |
# | |
# Add data of another texttable |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
setwd('/home/produnis/Dokumente/Programmierung/R/PubMedTrend')# edit to fit your system | |
source('pubmed_trend.r') | |
source('plot_bar.r') | |
library("RColorBrewer") | |
#------------------------------------------------------------- | |
search.for1 <- "schnepp w[Author]" | |
#---------- | |
search.pub1 <- pubmed_trend(search.str = search.for1, year.span=1990:2012) | |