# Load necessary libraries
library(tidyr)
library(dplyr)

# Load the data (change the path as needed)
data <- read.csv("ANOVA.csv")

# Convert from wide to long format
long <- pivot_longer(data, cols = c(ICM20649, ISM330DHCX), names_to = "IMU", values_to = "Acceleration")

# Make sure variables are factors
long$Trial <- factor(long$Trial)
long$Object <- factor(long$Object)
long$IMU <- factor(long$IMU)

# Run repeated measures ANOVA
aov_result <- aov(Acceleration ~ Object * IMU + Error(Trial/IMU), data = long)

# View the results
summary(aov_result)