library(jsq)

## 
## Attaching package: 'jsq'

## The following objects are masked from 'package:base':
## 
##     endsWith, startsWith

#One sample t-test; mu is the reference value

### Read the data
# Read a csv file
class02 <- read.csv("Class02_practice_2019.csv")

jsq::bttestOneS(    
  data = class02,    
  vars = SelfEffPre,    
  testValue = 10,
  desc = TRUE,
  plotPP = FALSE,
  plotRobustAddInfo = FALSE,
  plotDesc = FALSE)

## 
##  BAYESIAN ONE SAMPLE T-TEST
## 
##  Bayesian One Sample T-Test                 
##  ------------------------------------------ 
##                  BF10         error %       
##  ------------------------------------------ 
##    SelfEffPre    0.1875142    6.789289e-5   
##  ------------------------------------------ 
##    Note. For all tests, the alternative
##    hypothesis specifies that the
##    population mean is different from
##    10.
## 
## 
##  DESCRIPTIVES
## 
##  Descriptives                                               
##  ---------------------------------------------------------- 
##                  N      Mean        SD          SE          
##  ---------------------------------------------------------- 
##    SelfEffPre    100    9.612526    3.713937    0.3713937   
##  ----------------------------------------------------------