numeric<-sample(c(0,1), 100, replace=TRUE)

factor<-factor(numeric, levels=c(0,1), labels=c("nein", "Ja"))

mean(numeric)
mean(factor)
mean(as.numeric(factor))