a2.csv:x1, x2, x3, ytech1, tech13, pos2,0.5tech2, tech12, pos1,0.6tech3, tech11, pos3,0.7tech2, tech12, pos1,0.6tech3, tech11, pos3,0.6
my_data<-read.csv('../a2.csv')model<-lm(y~x1+x2+x3,data=my_data)model