DD<-matrix(c(
  26.2,110,
  33,89,
  17.5,102,
  25.25,98,
  20.3,110,
  31.9,98,
  21.1,122,
  22.7,119,
  10.7,120,
  22.1,92
),10,2,byrow=T)
DD<-as.data.frame(DD)
names(DD)<-c("IC","QI")
ld<-lm(IC~QI,DD)
#alternativa
y<-c(26.20 ,33.00 ,17.50 ,25.25,20.30 ,31.90, 21.10, 22.70 ,10.70 ,22.10)
x<-c(110, 89, 102 , 98, 110,  98, 122, 119, 120,  92)

l<-lm(y~x)
summary(l)
confint(l)