diff --git a/01_intro/surveys/barriers.txt b/01_intro/surveys/barriers.txt
new file mode 100644
index 0000000..3e290ca
--- /dev/null
+++ b/01_intro/surveys/barriers.txt
@@ -0,0 +1,21 @@
+Remember the strategy used over time
+never gets perfected
+too many people in one project
+procrastination
+its not fun
+don't know the best tools for it
+expectation of presenting results fast (time)
+never having thought of it
+Fear of missing something
+Keeping multiple copies consistent
+When should I do this task?
+Other Priorities
+no idea where to start
+complex research design
+Defining a good concept from the beginning on
+Lack of planning
+boring task
+too much other work
+public security
+forget it
+bad time management
diff --git a/01_intro/surveys/habits.txt b/01_intro/surveys/habits.txt
new file mode 100644
index 0000000..1d947e3
--- /dev/null
+++ b/01_intro/surveys/habits.txt
@@ -0,0 +1,32 @@
+discipline
+uploading under a license (CC-BY....)
+report changes to dataset
+Do not do it in your spare time?
+Brainpower
+pseudonymizing/anonymizing data
+Trink about file names
+regular cleaning 😊
+codebook
+loading data on an archive, repository etc...
+Special time slot in calendar
+avoid redundancy
+readme
+clarity
+consistency
+Doing the archive
+report deviations from preregistration
+Read-Me
+checklists
+clear workflow
+have one place where you store the data
+Document data collection in Details
+Document yout code
+Documentation
+preregistration
+Structure Structure Structure
+recording the steps (taken through analysis)
+Be consistent
+github documentation
+consitency
+Reproducible code
+Time Investment 😄
diff --git a/01_intro/surveys/surveys.R b/01_intro/surveys/surveys.R
new file mode 100644
index 0000000..ba3de58
--- /dev/null
+++ b/01_intro/surveys/surveys.R
@@ -0,0 +1,72 @@
+#' --- 
+#' title: Analysis of slido surveys
+#' author: Nora Wickelmaier
+#' --- 
+
+#+ include = FALSE
+# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/teaching/iwm/data_management/01_intro/surveys")
+
+#' # Habits
+
+q1 <- trimws(readLines("habits.txt"))
+
+habits <- data.frame(q1,
+                     habit = c("workflow", "data sharing",
+                               "documentation", "workflow", "workflow",
+                               "data organisation", "workflow",
+                               "workflow", "documentation",
+                               "data sharing", "workflow", "data organisation",
+                               "documentation", "workflow", "workflow",
+                               "data sharing", "documentation",
+                               "documentation", "workflow", "workflow",
+                               "data organisation", "documentation",
+                               "documentation", "documentation",
+                               "documentation", "workflow",
+                               "documentation", "workflow",
+                               "documentation", "workflow", "workflow",
+                               "workflow"))
+
+table(habits$habit)
+
+habits[order(habits$habit),]
+
+#print(xtable::xtable(habits[order(habits$habit),]), include.rownames = FALSE)
+
+#' # Barriers
+
+q2 <- trimws(readLines("barriers.txt"))
+
+barriers <- data.frame(q2,
+                       barrier = c("lack of consistency", "perfectionism",
+                                   "responsibility diffusion", "low priority",
+                                   "low priority", "lack of skills",
+                                   "lack of time", "low priority",
+                                   "perfectionism", "lack of consistency",
+                                   "lack of time", "low priority",
+                                   "lack of skills", "lack of skills",
+                                   "perfectionism", "lack of time",
+                                   "low priority", "lack of time",
+                                   "lack of skills", "low priority",
+                                   "low priority"))
+
+table(barriers$barrier)
+
+barriers[order(barriers$barrier),]
+
+#' # Topics
+
+q3 <- trimws(readLines("topics.txt"))
+
+topics <- data.frame(q3,
+                     topic = c("data sharing", "workflow",
+                               "clean coding", "data organisation",
+                               "workflow", "workflow", "workflow",
+                               "data organisation", "clean coding",
+                               "version control", "clean coding",
+                               "data sharing", "workflow",
+                               "data organisation", "data sharing"))
+
+table(topics$topic)
+
+topics[order(topics$topic),]
+
diff --git a/01_intro/surveys/topics.txt b/01_intro/surveys/topics.txt
new file mode 100644
index 0000000..be9db0f
--- /dev/null
+++ b/01_intro/surveys/topics.txt
@@ -0,0 +1,15 @@
+important things before the open-access data
+Introduction into available tools
+Understandable coding 
+How to manage different data sources in one experiment (e.g. eye tracking, performance, questionnaire..)
+Upload data before or after publishing a paper? Time mangement
+going over guidelines/best practice on how to name files, folders and data as well as folder structure.
+understanding where redundancy is needed (raw data?) and where to avoid it.
+understanding what should always go into a readme file.
+Cleaning up R code for readability
+how to integrate gitHub in workflow
+Documentation of a final R script
+Where to store data for long-term accessibility (conventions?)
+Steps and when to do what
+How to best arrange the data
+Tools, where I should upload my final data