Bayesian Statistics, Data Science, Linear Regression, Data Analysis, R.
on the rotarod: # Calculate the average TimeSpent for each AnimalID averaged_data <- data %>% group_by(Group, AnimalID) %>% summarise(AverageTimeSpent = mean(TimeSpent), .groups = 'drop') # View the first few rows of the averaged data head(averaged_data) With the simulations done, we can start with