My Preface
My problem was to prepare a healthcare summary with comparitive stats
along with driver or the cause for a condition or poor or superb
performance of a healthcare institution!
As this Author rightly put, I was not confident on the p-calues or
coeffients or accuracies, to consider a diagnosis or a procedure as a
driver. I needed to tell a story for a medical director or physician to
consider these drivers as a takeaway to investigate or ponder
further!
At this juncture of dilemma, I got introduced to Bayes Network!
I ran from end to end, reviewing many pdfs, youtube snippets and even
the famous coursera course on Bayesian Network aka Probabilitic
Graphical models, with less return on the effort put! They initial
chapters were easy, later they were getting too complex.
Then I landed on the The book Think Bayes by Allen Downey was savior,
along with his youtube tutorial Bayesian Decision
Analysis on the same!
Now trying to expand with Richard McElreath, whose book has been
called out by many authors & readers! Lets see how far can I go…
fingers crossed!!!!
DELETE LATER
Try executing this chunk by clicking the Run button within
the chunk or by placing your cursor inside it and pressing
Ctrl+Shift+Enter.
All models are wrong, but some are useful.
# Load the data:
# car braking distances in feet paired with speeds in km/h
# see ?cars for details
data(cars)
# fit a linear regression of distance on speed
m <- lm( dist ~ speed , data=cars )
# estimated coefficients from the model
coef(m)
(Intercept) speed
-17.579095 3.932409
# plot residuals against speed
plot( resid(m) ~ speed , data=cars )

Add a new chunk by clicking the Insert Chunk button on the
toolbar or by pressing Ctrl+Alt+I.
When you save the notebook, an HTML file containing the code and
output will be saved alongside it (click the Preview button or
press Ctrl+Shift+K to preview the HTML file).
The preview shows you a rendered HTML copy of the contents of the
editor. Consequently, unlike Knit, Preview does not
run any R code chunks. Instead, the output of the chunk when it was last
run in the editor is displayed.
LS0tCnRpdGxlOiAiTGVhcm5pbmcgLSBCYXllcyBTdGF0aXN0aWNhbCBSZXRoaW5raW5nIGJ5IFJpY2hhcmQgTWNFbHJlYXRoIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgoqKioqCiMjIyBNeSBQcmVmYWNlCk15IHByb2JsZW0gd2FzIHRvIHByZXBhcmUgYSBoZWFsdGhjYXJlIHN1bW1hcnkgd2l0aCBjb21wYXJpdGl2ZSBzdGF0cyBhbG9uZyB3aXRoIGRyaXZlciBvciB0aGUgY2F1c2UgZm9yIGEgY29uZGl0aW9uIG9yIHBvb3Igb3Igc3VwZXJiIHBlcmZvcm1hbmNlIG9mIGEgaGVhbHRoY2FyZSBpbnN0aXR1dGlvbiEgCgpBcyB0aGlzIEF1dGhvciByaWdodGx5IHB1dCwgSSB3YXMgbm90IGNvbmZpZGVudCBvbiB0aGUgcC1jYWx1ZXMgb3IgY29lZmZpZW50cyBvciBhY2N1cmFjaWVzLCB0byBjb25zaWRlciBhIGRpYWdub3NpcyBvciBhIHByb2NlZHVyZSBhcyBhIGRyaXZlci4gSSBuZWVkZWQgdG8gdGVsbCBhIHN0b3J5IGZvciBhIG1lZGljYWwgZGlyZWN0b3Igb3IgcGh5c2ljaWFuIHRvIGNvbnNpZGVyIHRoZXNlIGRyaXZlcnMgYXMgYSB0YWtlYXdheSB0byBpbnZlc3RpZ2F0ZSBvciBwb25kZXIgZnVydGhlciEgCgpBdCB0aGlzIGp1bmN0dXJlIG9mIGRpbGVtbWEsIEkgZ290IGludHJvZHVjZWQgdG8gQmF5ZXMgTmV0d29yayEgCgpJIHJhbiBmcm9tIGVuZCB0byBlbmQsIHJldmlld2luZyBtYW55IHBkZnMsIHlvdXR1YmUgc25pcHBldHMgYW5kIGV2ZW4gdGhlIGZhbW91cyBjb3Vyc2VyYSBjb3Vyc2Ugb24gQmF5ZXNpYW4gTmV0d29yayBha2EgUHJvYmFiaWxpdGljIEdyYXBoaWNhbCBtb2RlbHMsIHdpdGggbGVzcyByZXR1cm4gb24gdGhlIGVmZm9ydCBwdXQhIFRoZXkgaW5pdGlhbCBjaGFwdGVycyB3ZXJlIGVhc3ksIGxhdGVyIHRoZXkgd2VyZSBnZXR0aW5nIHRvbyBjb21wbGV4LgoKVGhlbiBJIGxhbmRlZCBvbiB0aGUgVGhlIGJvb2sgVGhpbmsgQmF5ZXMgYnkgQWxsZW4gRG93bmV5IHdhcyBzYXZpb3IsIGFsb25nIHdpdGggaGlzIHlvdXR1YmUgdHV0b3JpYWwgW0JheWVzaWFuIERlY2lzaW9uIEFuYWx5c2lzXShodHRwczovL3d3dy55b3V0dWJlLmNvbS93YXRjaD92PWZzZGJuZUhnaTU4KSBvbiB0aGUgc2FtZSEgCgpOb3cgdHJ5aW5nIHRvIGV4cGFuZCB3aXRoIFJpY2hhcmQgTWNFbHJlYXRoLCB3aG9zZSBib29rIGhhcyBiZWVuIGNhbGxlZCBvdXQgYnkgbWFueSBhdXRob3JzICYgcmVhZGVycyEgTGV0cyBzZWUgaG93IGZhciBjYW4gSSBnby4uLiBmaW5nZXJzIGNyb3NzZWQhISEhCgoqKioqCiMjIyMjIERFTEVURSBMQVRFUgpUcnkgZXhlY3V0aW5nIHRoaXMgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpSdW4qIGJ1dHRvbiB3aXRoaW4gdGhlIGNodW5rIG9yIGJ5IHBsYWNpbmcgeW91ciBjdXJzb3IgaW5zaWRlIGl0IGFuZCBwcmVzc2luZyAqQ3RybCtTaGlmdCtFbnRlciouIAoKKioqKgoKIyMjIEFsbCBtb2RlbHMgYXJlIHdyb25nLCBidXQgc29tZSBhcmUgdXNlZnVsLgoKYGBge3J9CiMgTG9hZCB0aGUgZGF0YToKIyBjYXIgYnJha2luZyBkaXN0YW5jZXMgaW4gZmVldCBwYWlyZWQgd2l0aCBzcGVlZHMgaW4ga20vaAojIHNlZSA/Y2FycyBmb3IgZGV0YWlscwpkYXRhKGNhcnMpCiMgZml0IGEgbGluZWFyIHJlZ3Jlc3Npb24gb2YgZGlzdGFuY2Ugb24gc3BlZWQKbSA8LSBsbSggZGlzdCB+IHNwZWVkICwgZGF0YT1jYXJzICkKIyBlc3RpbWF0ZWQgY29lZmZpY2llbnRzIGZyb20gdGhlIG1vZGVsCmNvZWYobSkKIyBwbG90IHJlc2lkdWFscyBhZ2FpbnN0IHNwZWVkCnBsb3QoIHJlc2lkKG0pIH4gc3BlZWQgLCBkYXRhPWNhcnMgKQpgYGAKCkFkZCBhIG5ldyBjaHVuayBieSBjbGlja2luZyB0aGUgKkluc2VydCBDaHVuayogYnV0dG9uIG9uIHRoZSB0b29sYmFyIG9yIGJ5IHByZXNzaW5nICpDdHJsK0FsdCtJKi4KCldoZW4geW91IHNhdmUgdGhlIG5vdGVib29rLCBhbiBIVE1MIGZpbGUgY29udGFpbmluZyB0aGUgY29kZSBhbmQgb3V0cHV0IHdpbGwgYmUgc2F2ZWQgYWxvbmdzaWRlIGl0IChjbGljayB0aGUgKlByZXZpZXcqIGJ1dHRvbiBvciBwcmVzcyAqQ3RybCtTaGlmdCtLKiB0byBwcmV2aWV3IHRoZSBIVE1MIGZpbGUpLgoKVGhlIHByZXZpZXcgc2hvd3MgeW91IGEgcmVuZGVyZWQgSFRNTCBjb3B5IG9mIHRoZSBjb250ZW50cyBvZiB0aGUgZWRpdG9yLiBDb25zZXF1ZW50bHksIHVubGlrZSAqS25pdCosICpQcmV2aWV3KiBkb2VzIG5vdCBydW4gYW55IFIgY29kZSBjaHVua3MuIEluc3RlYWQsIHRoZSBvdXRwdXQgb2YgdGhlIGNodW5rIHdoZW4gaXQgd2FzIGxhc3QgcnVuIGluIHRoZSBlZGl0b3IgaXMgZGlzcGxheWVkLgo=