options(scipen = 999)

setwd("C:/Users/irina/Documents/DND/EOHI/eohi1")

data <- read.csv("ehi1.csv")