How do I compute total scores of a data frame and compute Cronbach's alpha using “var” function in R?

Question

I created a data frame here is the code:

item1<-c("0", "0", "0", "1", "0")
item2<-c("0", "0