normalitas-6.7.R

normalitas=read.csv("~/STATISTIKA/NORMALITAS D.csv")
x=normalitas$Data

library(moments)
a=moment(x, order = 2, central = TRUE)
b=moment(x, order = 4, central = TRUE)
a

## [1] 250

b

## [1] 145000

c=a^2
c

## [1] 62500

kurtosis =b/c
kurtosis

## [1] 2.32

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 = 0.30827, df = 2, p-value = 0.8572