Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Supported by

Plotting different models

Hello!

I'm wondering how I could reproduce the two-panels figure comparing a model with interaction and a model without interaction on the Bayes Factor page:
https://richarddmorey.github.io/BayesFactor/#glm
Anyone knows the r code for plotting this?

Thank you in advance!

Comments

  • The basic steps are:

    1. Make a scatterplot
    2. Fit the model
    3. Extract the model parameters from the object (whatever it is)
    4. Use abline() to plot the lines

    You can do this with either lm() estimates or BayesFactor::posterior() estimates (or whatever). I'll demonstrate below with lm() because it is slightly easier.

    # scatter plot
    plot(len ~ dose, data = ToothGrowth, log = "x", 
         pch = as.integer(ToothGrowth$supp)+20,
         bg = as.integer(ToothGrowth$supp), 
         las = 1)
    
    # Use log10 because I plotted the log of x above
    cf = coef(lm(len ~ log10(dose)*supp, data = ToothGrowth))
    # coef extracts the coefficients
    abline(a = cf["(Intercept)"], b = cf["log10(dose)"])
    abline(a = cf["(Intercept)"] + cf["suppVC"], 
           b = cf["log10(dose)"] + cf["log10(dose):suppVC"], col= "red")
    
    
    ## Now for the no-interaction model
    # scatter plot
    plot(len ~ dose, data = ToothGrowth, log = "x", 
         pch = as.integer(ToothGrowth$supp)+20,
         bg = as.integer(ToothGrowth$supp), 
         las = 1)
    
    # Use log10 because I plotted the log of x above
    cf = coef(lm(len ~ log10(dose) + supp, data = ToothGrowth))
    # coef extracts the coefficients
    abline(a = cf["(Intercept)"], b = cf["log10(dose)"])
    abline(a = cf["(Intercept)"] + cf["suppVC"], 
           b = cf["log10(dose)"], col= "red")
    
  • For many supported models, you can also the tidyverse approach, with the ggeffects package.

Sign In or Register to comment.

agen judi bola , sportbook, casino, togel, number game, singapore, tangkas, basket, slot, poker, dominoqq, agen bola. Semua permainan bisa dimainkan hanya dengan 1 ID. minimal deposit 50.000 ,- bonus cashback hingga 10% , diskon togel hingga 66% bisa bermain di android dan IOS kapanpun dan dimana pun. poker , bandarq , aduq, domino qq , dominobet. Semua permainan bisa dimainkan hanya dengan 1 ID. minimal deposit 10.000 ,- bonus turnover 0.5% dan bonus referral 20%. Bonus - bonus yang dihadirkan bisa terbilang cukup tinggi dan memuaskan, anda hanya perlu memasang pada situs yang memberikan bursa pasaran terbaik yaitu http://45.77.173.118/ Bola168. Situs penyedia segala jenis permainan poker online kini semakin banyak ditemukan di Internet, salah satunya TahunQQ merupakan situs Agen Judi Domino66 Dan BandarQ Terpercaya yang mampu memberikan banyak provit bagi bettornya. Permainan Yang Di Sediakan Dewi365 Juga sangat banyak Dan menarik dan Peluang untuk memenangkan Taruhan Judi online ini juga sangat mudah . Mainkan Segera Taruhan Sportbook anda bersama Agen Judi Bola Bersama Dewi365 Kemenangan Anda Berapa pun akan Terbayarkan. Tersedia 9 macam permainan seru yang bisa kamu mainkan hanya di dalam 1 ID saja. Permainan seru yang tersedia seperti Poker, Domino QQ Dan juga BandarQ Online. Semuanya tersedia lengkap hanya di ABGQQ. Situs ABGQQ sangat mudah dimenangkan, kamu juga akan mendapatkan mega bonus dan setiap pemain berhak mendapatkan cashback mingguan. ABGQQ juga telah diakui sebagai Bandar Domino Online yang menjamin sistem FAIR PLAY disetiap permainan yang bisa dimainkan dengan deposit minimal hanya Rp.25.000. DEWI365 adalah Bandar Judi Bola Terpercaya & resmi dan terpercaya di indonesia. Situs judi bola ini menyediakan fasilitas bagi anda untuk dapat bermain memainkan permainan judi bola. Didalam situs ini memiliki berbagai permainan taruhan bola terlengkap seperti Sbobet, yang membuat DEWI365 menjadi situs judi bola terbaik dan terpercaya di Indonesia. Tentunya sebagai situs yang bertugas sebagai Bandar Poker Online pastinya akan berusaha untuk menjaga semua informasi dan keamanan yang terdapat di POKERQQ13. Kotakqq adalah situs Judi Poker Online Terpercayayang menyediakan 9 jenis permainan sakong online, dominoqq, domino99, bandarq, bandar ceme, aduq, poker online, bandar poker, balak66, perang baccarat, dan capsa susun. Dengan minimal deposit withdraw 15.000 Anda sudah bisa memainkan semua permaina pkv games di situs kami. Jackpot besar,Win rate tinggi, Fair play, PKV Games