I need to know what the probability is that the average individual will be denied a loan in LPM. What does the number mean: 0.1197479. Is it in percentage? And does it seem reasonable? How do I know if it's reasonable? Please see the code.
koefficienter <- est_model6_adjusted[,1]
pr_medel <- as.numeric(koefficienter[1]+sum(koefficienter[-1]*colMeans(data3[c("pirat","lvrat","phist","unemp","afam","single","hschool")])))
print(pr_medel)
[1] 0.1197479