Monday, November 12, 2012

Video: Bayesian Methods Interpret Data Better

Another 15 minute talk, (to be) presented at the Psychonomic Society Special Session on Improving the Quality of Psychological Science. This talk briefly discusses sequential testing, the goal of achieving precision (as opposed to rejecting a null value), and multiple comparisons. The video can be found here.

Posted by at
Labels:

7 comments:

  1. Eric BrownNovember 15, 2012 at 11:00 AM

    Hi John,

    This is a fantastic video! The baseball example is directly applicable to a problem that I have currently. Would like to see more of these. One general suggestion for future videos: would you be able to post your (R)JAGS code, and/or point to the chapters in your book that best describe the topics?

    Very very nice. I appreciate this supplemental information to your text and look forward to the second edition.

    Best regards,
    Eric

    ReplyDelete
  2. Eric BrownNovember 15, 2012 at 11:14 AM

    Ah, your code is posted in a previous post! Sorry about that. My compliments on the video stand :-)

    ReplyDelete
  3. John K. KruschkeNovember 15, 2012 at 11:17 AM


    Thanks very much for the kind remarks about the video. Greatly appreciated.

    For more about the baseball example, see this blog post: http://doingbayesiandataanalysis.blogspot.com/2012/10/abelsons-paradox-baseball-null.html
    and the links it has to a previous blog post.

    Thanks again.

    ReplyDelete
  4. MattchewNovember 17, 2012 at 10:57 PM

    Hi John,

    Excellent video, and I think the baseball example will prove to be a great motivator and learning tool for me.

    In case you or others are interested, I'm including some R code that will create a data.frame of 2012 batting stats for all MLB players (so you don't have to copy/paste from ESPN):


    require(XML)

    #read in the html page and subset to just player data
    #note the MLB could be substituted for NL or AL to get a single league of data
    bref.link<-"http://www.baseball-reference.com/leagues/MLB/2012-standard-batting.shtml"
    baseball<-readHTMLTable(bref.link)
    baseball.tbl<-baseball$players_standard_batting
    baseball.tbl<-baseball.tbl[!(baseball.tbl$Rk %in% c("Rk","")),]

    #These variables make the data compatible with the rest of Kruschke's code
    baseball.tbl$AB<-as.numeric(as.character(baseball.tbl$AB ))
    baseball.tbl$H<-as.numeric(as.character(baseball.tbl$H ))
    baseball.tbl$AVG<-as.numeric(as.character(baseball.tbl$BA))
    colnames(baseball.tbl)[2]<-"PLAYER"

    #Subset to people with at-bats (currently includes those who never came to the plate, or those with PA but not AB)
    baseball.ab<-baseball.tbl[as.numeric(as.character(baseball.tbl$AB)) > 0 & is.finite(as.numeric(as.character(baseball.tbl$AB))),]

    #remove doppelgangers for traded players--just keep the players' TOTAL line
    baseball.ab.total<-baseball.ab[!(baseball.ab$PLAYER %in% baseball.ab[duplicated(baseball.ab$PLAYER),"PLAYER"]) | baseball.ab$Tm=="TOT",]

    #alternately, only delete the players' TOTAL lines, and keep their partial seasons
    #baseball.ab.nototal<-baseball.ab[baseball.ab$Tm !="TOT",]

    #make it compatible with Kruschke's script
    dataFrame<-baseball.ab.total

    ReplyDelete
  5. John K. KruschkeNovember 19, 2012 at 9:28 AM


    Dear Matthew:

    Thank you for the very useful code! Greatly appreciated!

    --John

    ReplyDelete
  6. AnonymousNovember 23, 2012 at 2:53 PM

    Great video it helped me complement the book reading.
    Please make more of these, recorded short capsules on those key concepts where people usually get stuck.
    Thank you again for your great contributions.
    Luis Enrique Romero
    Houston Texas

    ReplyDelete
  7. UnknownFebruary 4, 2013 at 4:26 AM

    This comment has been removed by a blog administrator.

    ReplyDelete

Subscribe to: Post Comments (Atom)