#to add to SFBcontact:

SFBcontact$datamanager_email = NA

SFBcontact$datamanager_email [SFBcontact$SFB =="trr135"] <- "thorsten.arendt@uni-marburg.de"	
write.csv(SFBcontact, sep = "/t")

+49 6421 28-23555