jsq::bttestPS(
  data = class02,
  pairs = list(
    list(
      i1="SelfEffPre",
      i2="SelfEffPost")),
  hypothesis = "twoGreater",
  desc = TRUE,
  plotPP = TRUE,
  plotDesc = TRUE)

## t is large; approximation invoked.

## 
##  BAYESIAN PAIRED SAMPLES T-TEST
## 
##  Bayesian Paired Samples T-Test                                
##  ------------------------------------------------------------- 
##                                      BF<U+208B>0            error %   
##  ------------------------------------------------------------- 
##    SelfEffPre    -    SelfEffPost    2.581234e+22        NaN   
##  ------------------------------------------------------------- 
## 
## 
##  DESCRIPTIVES
## 
##  Descriptives                                                                          
##  ------------------------------------------------------------------------------------- 
##                   N      Mean         SD          SE           Lower        Upper      
##  ------------------------------------------------------------------------------------- 
##    SelfEffPre     100     9.612526    3.713937    0.3713937     8.875600    10.34945   
##    SelfEffPost    100    12.624153    4.023680    0.4023680    11.825768    13.42254   
##  -------------------------------------------------------------------------------------