binom.test(13, 20, 0.5)
##
## Exact binomial test
##
## data: 13 and 20
## number of successes = 13, number of trials = 20, p-value = 0.2632
## alternative hypothesis: true probability of success is not equal to 0.5
## 95 percent confidence interval:
## 0.4078115 0.8460908
## sample estimates:
## probability of success
## 0.65
data<- c(18, 16, 14, 10)
chisq.test(data)
##
## Chi-squared test for given probabilities
##
## data: data
## X-squared = 2.4138, df = 3, p-value = 0.4911
library(nortest)
## Warning: package 'nortest' was built under R version 4.5.2
data <- c(48, 51, 50, 52, 49, 53, 47, 50, 51, 49, 52, 48, 54, 50, 51)
data
## [1] 48 51 50 52 49 53 47 50 51 49 52 48 54 50 51