Fabian Mundt inventionate

## convert_youtube.sh
#!/bin/bash

# YouTube Transkript konvertieren
# Copyright (c) 2017 Fabian Mundt

# Datei benennen
echo "Bitte Dateinamen eingeben:"

read filename

## README.md

      
              2 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                inventionate
                / README.md
            
            
              Last active
              September 19, 2017 07:48
            
              
                BibDesk BibLaTeX Mode
              
          
    Installation

Copy to ~/Library/Application Support/BibDesk/

  
## install-r.sh
# Stat Installation

# XCode CLT
xcode-select --install

# Update Homebrew
brew update

# Check for broken dependencies and/or outdated packages
brew doctor

## spHMFA.R
# Implementation of spHMFA. Use a list to exlcude junk modalities.
# All changes are marked with @info and @info END.

spHMFA<-function (X, H, type = rep("s", length(H[[1]])), excl = NULL, ncp = 5, graph = TRUE, axes=c(1,2), name.group = NULL) {

    # @info generate exclude lists
    ind.grpe <- group.mod <- ind.col <- 0
    group.mod <- ind.excl <- ind.excl.act <- NULL

    if(!is.null(excl)) {

## r-markdown-header.tex
% LuaLaTeX Standardpakete
\usepackage{luatextra} % lädt fontspec, luacode, metacode, fixltx2e, luatexbase, lualibs

% Standardschriften
\setmainfont{Minion Pro}
\setsansfont{Myriad Pro}
\setmonofont{Consolas}

% Formelschrift
% Minion Math ist leider eine kommerzielle Schrift

## reinstall-all-r-packages.R
update.packages(ask = FALSE, checkBuilt = TRUE)

## example_concentration_ellipse.R
# Strukturierte Datenanalyse (grafische Umsetzung in ggplot2 2.0.0)

 # Datensätze für die Ellipsen zusammenstellen
  coord_ind <- data.frame(ergebnis_korrespondenzanalyse$ind$coord[, c(1:2)], geschlecht = ergebnis_korrespondenzanalyse$call$X[,7])
  coord_quali <- coord_sup %>% group_by(geschlecht) %>% summarise_each(funs(mean))


  # Korrespondenzanalyse plotten
  fviz_mca_ind(ergebnis_korrespondenzanalyse, habillage = 7, addEllipses = FALSE, label = "none", pointsize = 0, col.ind = "black") + theme_minimal() +
    theme( legend.position = "none") + geom_hline(yintercept = 0, color = "black", linetype="solid", size = 0.75) +

## Revolution R Open default CRAN
options(repos = c(CRAN = "https://cran.revolutionanalytics.com"))

## Prevent ZRay Composer and PHP Unit errors
sudo rm /etc/php5/cli/conf.d/zray.ini

## gist:8910ef0a35b1de40bf34
In der Darei "Info.plist" folgendes hinzufügen:

<key>LSUIElement</key>
<true/>
	#!/bin/bash

	# YouTube Transkript konvertieren
	# Copyright (c) 2017 Fabian Mundt

	# Datei benennen
	echo "Bitte Dateinamen eingeben:"

	read filename
	# Stat Installation

	# XCode CLT
	xcode-select --install

	# Update Homebrew
	brew update

	# Check for broken dependencies and/or outdated packages
	brew doctor
	# Implementation of spHMFA. Use a list to exlcude junk modalities.
	# All changes are marked with @info and @info END.

	spHMFA<-function (X, H, type = rep("s", length(H[[1]])), excl = NULL, ncp = 5, graph = TRUE, axes=c(1,2), name.group = NULL) {

	# @info generate exclude lists
	ind.grpe <- group.mod <- ind.col <- 0
	group.mod <- ind.excl <- ind.excl.act <- NULL

	if(!is.null(excl)) {
	# Strukturierte Datenanalyse (grafische Umsetzung in ggplot2 2.0.0)

	# Datensätze für die Ellipsen zusammenstellen
	coord_ind <- data.frame(ergebnis_korrespondenzanalyse$ind$coord[, c(1:2)], geschlecht = ergebnis_korrespondenzanalyse$call$X[,7])
	coord_quali <- coord_sup %>% group_by(geschlecht) %>% summarise_each(funs(mean))


	# Korrespondenzanalyse plotten
	fviz_mca_ind(ergebnis_korrespondenzanalyse, habillage = 7, addEllipses = FALSE, label = "none", pointsize = 0, col.ind = "black") + theme_minimal() +
	theme( legend.position = "none") + geom_hline(yintercept = 0, color = "black", linetype="solid", size = 0.75) +
	In der Darei "Info.plist" folgendes hinzufügen:

	<key>LSUIElement</key>
	<true/>