Untitled

library (dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library (readxl)
library (car)

## Warning: package 'car' was built under R version 4.5.3

## Zorunlu paket yükleniyor: carData

## Warning: package 'carData' was built under R version 4.5.3

## 
## Attaching package: 'car'

## The following object is masked from 'package:dplyr':
## 
##     recode

library(effectsize)

## Warning: package 'effectsize' was built under R version 4.5.3

anova_data <- read_excel

head(anova_data)

##                                                                         
## 1 function (path, sheet = NULL, range = NULL, col_names = TRUE,         
## 2     col_types = NULL, na = "", trim_ws = TRUE, skip = 0, n_max = Inf, 
## 3     guess_max = min(1000, n_max), progress = readxl_progress(),       
## 4     .name_repair = "unique")                                          
## 5 {                                                                     
## 6     path <- check_file(path)

#anova_data$group <- as.factor(anova_data$group)

glimpse (anova_data)

## function (path, sheet = NULL, range = NULL, col_names = TRUE, col_types = NULL, 
##     na = "", trim_ws = TRUE, skip = 0, n_max = Inf, guess_max = min(1000, 
##         n_max), progress = readxl_progress(), .name_repair = "unique")

#table(anova_data$group)

#by(anova_data$anxiety_score,
   #anova_data$group,
   #shapiro.test)

#leveneTest(anxiety_score ~ group, data = anova_data)

#anova_model <- aov(anxiety_score ~ group, data = anova_data)

#summary(anova_model)

#TukeyHSD(anova_model)

#eta_squared(anova_model, partial = FALSE)