-
Notifications
You must be signed in to change notification settings - Fork 0
/
index.Rmd
136 lines (119 loc) · 5.76 KB
/
index.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
---
title: "Dr. Paul Schmidt"
image: /img/Banner/Banner 2560x1344.png
output:
html_document:
includes:
in_header: src/header.html
after_body: src/footer.html
---
```{r setup}
#| echo: false
#| warning: false
#| message: false
#| results: 'hide'
options(knitr.kable.NA = '')
pacman::p_load(kableExtra, formattable, here, htmltools, readxl, tidyverse)
```
<!-- Contact symbols left -->
<div class = "row">
<div class = "col-md-5">
Contact </br>
<i class="fa fa-envelope" style="color: #00923f;">
</i> schmidtpaul1989 [at] outlook [dot] com </a> </br>
<a href="https://github.com/SchmidtPaul/">
<i class="fa fa-github" style="color: #00923f;">
</i> GitHub </a> </br>
<a href="https://www.linkedin.com/in/schmidtpaul1989/">
<i class="fa fa-linkedin" style="color: #00923f;">
</i> LinkedIn </a> </br>
<a href="https://mastodon.social/@Schmidtpaul1989">
<span style="font-weight: bold; color: #00923f;">m</span>
</i> Mastodon </a> </br>
<a href="https://twitter.com/SchmidtPaul1989">
<i class="fa fa-twitter" style="color: #00923f;">
</i> Twitter (X) </a> </br>
<a href="https://www.researchgate.net/profile/Paul_Schmidt17">
<i class="fa fa-pencil" style="color: #00923f;">
</i> ResearchGate </a> </br>
<a href="https://www.xing.com/profile/Paul_Schmidt393/cv">
<i class="fa fa-xing" style="color: #00923f;">
</i> Xing </a> </br>
<i class="fa fa-home" style="color: #00923f;">
</i> Hamburg, Germany </br>
</div>
<!-- Contact symbols right -->
<div class = "col-md-7">
Website </br>
<a href="https://schmidtpaul.github.io/dsfair_quarto/">
<img src="https://github.com/SchmidtPaul/dsfair_quarto/blob/master/img/favicon-32x32.png?raw=true" width=16 height=16/>
</i> DSFAIR - Data Science for Agriculture in R </a> </br>
<a href="https://www.biomath.de/">
<img src="https://raw.githubusercontent.com/SchmidtPaul/Schmidtpaul.github.io/main/img/Banner/images/BioMathfavicon-32x32.png" width=16 height=16/>
</i>BioMath - Applied statistics and informatics in life sciences</a>
R-packages </br>
<a href="https://schmidtpaul.github.io/BioMathR/">
<img src="https://raw.githubusercontent.com/SchmidtPaul/BioMathR/main/docs/favicon-32x32.png" width=16 height=16/>
</i> BioMathR: Utility functions used at BioMath </a> </br>
<a href="https://schmidtpaul.github.io/CitaviR/">
<img src="https://raw.githubusercontent.com/SchmidtPaul/CitaviR/master/docs/favicon-32x32.png" width=16 height=16/>
</i> CitaviR: A set of tools for dealing with Citavi data </a> </br>
<a href="https://schmidtpaul.github.io/sankeyD3plus/">
<img src="https://raw.githubusercontent.com/SchmidtPaul/sankeyD3plus/main/docs/favicon-32x32.png" width=16 height=16/>
</i> sankeyD3plus: D3 JavaScript Sankey diagrams in R </a> </br>
</div>
</div>
<!-- Kurzbeschreibung eng -->
<div class = "row">
<div class = "col-md-5">
I completed <a href='https://opus.uni-hohenheim.de/volltexte/2020/1720/'>my **PhD** in **biostatistics**</a> at the University of Hohenheim in 2019 and have been working as a **data scientist** in life sciences at <a href="https://www.biomath.de/">
<img src="https://raw.githubusercontent.com/SchmidtPaul/Schmidtpaul.github.io/main/img/Banner/images/BioMathfavicon-32x32.png" width=16 height=16/>
</i>BioMath</a> since then. I also teach beginner and advanced **workshops** in R and Python (see table below). I like when complicated methods are explained well, when results are presented in a concise yet beautiful manner and when R does its magic.
</div>
<!-- Kurzbeschreibung deu -->
<div class = "col-md-7">
Ich habe 2019 <a href='https://opus.uni-hohenheim.de/volltexte/2020/1720/'>meine **Promotion**</a> im Fachgebiet **Biostatistik** an der Universität Hohenheim abgeschlossen und arbeite seitdem als **Data Scientist** in den Life Sciences bei <a href="https://www.biomath.de/">
<img src="https://raw.githubusercontent.com/SchmidtPaul/Schmidtpaul.github.io/main/img/Banner/images/BioMathfavicon-32x32.png" width=16 height=16/>
</i>BioMath</a>. Außerdem gebe ich **Workshops** in R und Python für Einsteiger und Fortgeschrittene (siehe Tabelle unten). Ich mag es, wenn komplizierte Methoden gut erklärt werden, wenn Ergebnisse prägnant und anschaulich präsentiert werden und wenn R auf scheinbar magische Weise Ergebnisse liefert.
</div>
</div>
<div class = "row">
<div class = "col-md-5">
<p align="center"><a href="https://github.com/SchmidtPaul/Schmidtpaul.github.io/blob/main/CV/CVeng.pdf" target="_blank" rel="noopener noreferrer">📃Curriculum Vitae (CV)</a></p>
</div>
<div class = "col-md-7">
<p align="center"><a href="https://github.com/SchmidtPaul/Schmidtpaul.github.io/blob/main/CV/CVger.pdf" target="_blank" rel="noopener noreferrer">📃Lebenslauf</a></p>
</div>
</div>
<br>
<p align="center">Below is a list of workshops given by me. Clicking on the `r sprintf('<span style="color: #00923f;">%s</span>', as.character(fontawesome::fa("ranking-star")))` symbol links to the workshop's evaluation.</p>
<!-- Workshop Tabelle -->
```{r workshops}
#| echo: false
#| warning: false
#| message: false
source(here("src", "get workshop table.R"))
workshops
```
```{r}
#| eval: false
#| echo: false
#| warning: false
#| message: false
library(knitr)
library(kableExtra)
library(dplyr)
# Create a data frame with the testimonials
testimonials_df <- tibble(
Testimonial = c(
"This workshop was incredibly insightful and engaging!",
"I've learned so much about data science and R, highly recommended."
),
Participant = c("Jane Doe", "John Smith")
)
# Use kable and kableExtra to create the table
kable(testimonials_df, format = "html", col.names = NA, align = 'l') %>%
kable_styling(full_width = F, position = "left") %>%
row_spec(0, extra_css = "border-top: hidden;") %>%
add_header_above(c(" " = 2))
```