Changed german_data$gb to factor.