@@ -0,0 +1,6 @@
+#to add to SFBcontact:
+
+SFBcontact$datamanager_email = NA
+SFBcontact$datamanager_email [SFBcontact$SFB =="trr135"] <- "thorsten.arendt@uni-marburg.de"
+write.csv(SFBcontact, sep = "/t")