Skip to content

Instantly share code, notes, and snippets.

View sebastiansauer's full-sized avatar
🇺🇦
🇺🇦

Sebastian Sauer sebastiansauer

🇺🇦
🇺🇦
View GitHub Profile
data(mtcars)
library(dplyr) # nicht "tidyverse", denn "dplyr" reicht
mtcars %>%
filter(am = 0) # den kürzesten Code, der Ihren Fehler entstehen lässt!
sessionInfo() # gibt Infos zur R-Version etc. aus
library(ggplot2)
source('geom_font_awesome.R')
shapes_map = c(
setosa = 'car',
virginica = 'ban',
versicolor = 'star'
)
(
@sebastiansauer
sebastiansauer / tmdb08.Rmd
Created June 21, 2022 10:32
Simple regularized model Kaggle TMDB competition
```{r libs, include = FALSE}
library(tidyverse)
```
```{r global-knitr-options, include=FALSE}
knitr::opts_chunk$set(fig.pos = 'H',
fig.asp = 0.618,
@sebastiansauer
sebastiansauer / tmdb04.Rmd
Created June 21, 2022 10:13
Simple tidymodels for the Kaggle competition "TMDB post office revenue"
```{r libs, include = FALSE}
library(tidyverse)
```
```{r global-knitr-options, include=FALSE}
knitr::opts_chunk$set(fig.pos = 'H',
fig.asp = 0.618,
@sebastiansauer
sebastiansauer / pie-chart-train-test.mmd
Created April 4, 2022 12:31
Mermaid simple pie chart
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@sebastiansauer
sebastiansauer / nops_grading.Rmd
Created February 5, 2021 09:52
Workflow of grading an R/exams nops exams. BUGGY!
---
title: "Grading BDA WS20"
author: "Sebastian Sauer"
date: "2/5/2021"
output: html_document
---
```{r global-knitr-options, include=FALSE}
knitr::opts_chunk$set(fig.pos = 'H',
fig.asp = 0.618,
@sebastiansauer
sebastiansauer / extract_solutions.R
Created November 2, 2020 14:52
Extracting solutions from metainfo file in r-exams package
extract_solutions <- function(file) {
require(tidyverse)
# input:
# file: the output file from the exam2nops call storing the exams meta info
# output:
# list of solutions for each exam variant and each question
This is pdfTeX, Version 3.14159265-2.6-1.40.20 (TeX Live 2019) (preloaded format=pdflatex 2020.1.13) 28 JAN 2020 11:54
entering extended mode
restricted \write18 enabled.
%&-line parsing enabled.
**testing.tex
(./testing.tex
LaTeX2e <2019-10-01> patch level 3
(/Users/sebastiansaueruser/Library/TinyTeX/texmf-dist/tex/latex/beamer/beamer.c
ls
We can make this file beautiful and searchable if this error is corrected: It looks like row 4 should actually have 25 columns, instead of 8. in line 3.
state,area_nr,area_name,total_n,germans_n,foreigner_n,pop_move_n,pop_migr_background_n,income,unemp_n,votes_total,afd_votes,afd_prop,east,state_id,total_n_z,germans_n_z,foreigner_n_z,pop_move_n_z,pop_migr_background_n_z,income_z,unemp_n_z,votes_total_z,afd_votes_z,afd_prop_z
Schleswig-Holstein,1,Flensburg – Schleswig,282800,266700,16100,3478440,28280,20265,20361,170396,11647000,0.06835254348693631,0,15,0.2103609895241015,0.7384953705950867,-0.6866607746103975,-0.23405819513595597,-0.8241784980071718,-0.331229037339419,0.5294325736242255,0.7420571802149715,-0.9559380206641114,-1.0844472782356187
Schleswig-Holstein,2,Nordfriesland – Dithmarschen Nord,232300,219700,12600,3066360,18584,22159,16725,138075,9023000,0.06534854245880861,0,15,-1.12317180392684,-0.9301927624096695,-0.8739260711324136,-0.5246213450924033,-1.1451159729868976,0.4782205523605706,-0.0022599637360526327,-0.8725210301240619,-1.2691398862049443,-1.1394454488402648
Schleswig-Holstein,3,Steinburg – Dithmarschen Süd,220800,209800,11000,2627520,203
@sebastiansauer
sebastiansauer / election.csv
Last active August 31, 2018 05:36
german election data
afd_votes votes_total foreigner_n
11647 170396 16100
9023 138075 12600
11176 130875 11000
11578 156268 9299
10390 150173 25099
11161 130514 13000
15977 186372 26000
17166 191937 18300
11780 137273 9400