#Some data
ID = 1:10
Age = round(rnorm(10,50,1))
diag = c("Depression","Bipolar");
Diagnosis = sample(diag, 10, replace=TRUE)
data = data.frame(ID, Age, Diagnosis)
factorize(data$Diagnosis)
str(factorize(data))
Run the code above in your browser using DataLab