Uji-Jarque-Bera.R

normalitas=read.table("C:/STATISTIK SOSIAL 2026/normalitas.csv")
x=normalitas$Data

library(e1071)
a=moment(x, order = 2, center = TRUE)

## Warning in mean.default(x): argument is not numeric or logical: returning NA

b=moment(x, order = 4, center = TRUE)

## Warning in mean.default(x): argument is not numeric or logical: returning NA

a

## [1] NaN

b

## [1] NaN

c=a^2
c

## [1] NaN

kurtosis =b/c
kurtosis

## [1] NaN

library(tseries)

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

jarque.bera.test(x)

## 
##  Jarque Bera Test
## 
## data:  x
## X-squared = NaN, df = 2, p-value = NA