produnis

#! /bin/bash
# required Packages:
# ---- zenity
# ---- mp3val
#################################################

# check for zenity
gui=$(which zenity)
if [ ! -x "$gui" ];
then

produnis

#!/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
###########################################

produnis

#!/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
#

produnis

install.packages(c("foreign", "ggplot2", "Hmisc", "knitr", "lattice"), dependencies=TRUE)

produnis

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

produnis

pre {
  width: 97%;
  overflow-x:auto;
}

#bash {
  color: #FFFFFF;
  background-color: #000000;
  font-family: Courier;
  font-size: 0.9em;

produnis

# 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

produnis

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)