gam_data3 <- read.csv("other_dist.csv")
summary(gam_data3)
str(gam_data3)