install.packages("readxl", dependencies = TRUE)
install.packages("RVAideMemoire")
install.packages("data.table")

library(readxl)
library(RVAideMemoire)
library(data.table)

path <- "C:/Users/Sharas/Desktop/SSR.xlsx"

excelFile <- excel_sheets(path)
sheets <- length(excelFile)

for(i in 1:sheets) {
  d <- read_excel(path, i)
  colnames <- colnames(d)
  cols   <- length(colnames)
  rows   <- length(rownames(d))

  result <- c(as.double(unlist(transpose(d))))
  bulves <-  factor(rep(colnames[1:cols],rows))
  aleliai <- factor(rep(letters[1:rows],each=cols))
  tapply(result,list(aleliai,bulves),sum)

  test <- cochran.qtest(result~bulves|aleliai)
  print(test)
  flush.console()
}