**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