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=