felixlindemann

cf <- 30
cm <- c(0,3,10,25, 10)
cmf <- matrix(c(
  2.5, 0.24,
  1.9,0.32,
  1.7,0.24,
  1.5, 0.21,
  2.25, 0.26
  ), 
  byrow = FALSE,  nrow = 2)

felixlindemann

--
-- Change TV-Shows Name for compatibility with DLNA-Server
-- by Felix Lindemann
-- no warrenty !
-- 

set iconPath to (path to applications folder as text) & "iTunes.app:Contents:Resources:iTunes.icns"
set counter to 0
-- init Progressbar
tell application "SKProgressBar"

felixlindemann

Public Sub demo_Modul_Userform()

    Dim frm As Object
    Set frm = getEmptyForm()
    
    frm.Properties("Height") = 100 
    frm.Properties("Width") = 200 
    
    'add control
    Dim NewButton As Msforms.CommandButton

felixlindemann

Option Compare Database

Public Function getEmptyForm() As Object
 
    'This is to stop screen flashing while creating form
    ' Application.VBE.MainWindow.Visible = False
    Set getEmptyForm = Application.VBE.ActiveVBProject.VBComponents.Add(3)
     
End Function

felixlindemann

\NeedsTeXFormat{LaTeX2e}
\documentclass[a4paper]{scrartcl}
 
\usepackage[left=1.5cm,right=1.5cm,top=1cm,bottom=1cm,includeheadfoot]{geometry} %4
\usepackage{tikz}
\usepackage{here}
\usepackage{listings}
%
\newcommand{\defineR}{	 \lstset{ %
language=R,                % choose the language of the code

felixlindemann

require(tikzDevice)  #require this package

set.seed(1) # Output will always be the same
inch<- 0.3937008  # give units

h <- 10 # define height of tikz in cm
w <- 10 # define width of tikz in cm
td <- getwd() 
tf<- file.path(td, 'tikz.tex') #set file
# tikz(tf,standAlone=TRUE) # if single doc

felixlindemann

function duplicatepages() {
         
  try {
     var r = this.getPageBox();
        var w = r[2] - r[0];
        var h = r[1] - r[3];
        var oldD = this;
        var newD = app.newDoc({ nWidth: w, nHeight: h }); 
        for(var p=oldD.numPages-1; p>=0; p--) {

felixlindemann

sudo ln -s /usr/bin/tar /usr/bin/gnutar

felixlindemann

library(devtools)
install_github("RDemo", "felixlindemann") 

library(RDemo) 
foo(7)

felixlindemann

package.skeleton("RDemo")