elisadata <- read.csv("covdesc ELISA.csv", sep=";", header = T)
elisadata$OD  <- elisadata$OD450 - elisadata$OD540
average <- if elisadata$Sample[i]==elisadata$Sample[i-1]:
  mean(elisadata$OD[i], elisadata$OD[i-1])