线性回归 Lme4

data<-readClipboard()
data = as_tibble(data) %>% 
  tidyr::separate(value,sep = "\t",into = LETTERS[1:4])

colnames(data) <- as.character(unlist(data[1,]))
data= data[-1,]
head(data)    
data$Rsquared = as.numeric(as.character(data$Rsquared))
head(data)
#model1<-lm(RMSE ~ Powder + Pretreatment + Model,data = data)
model2<-lm(Rsquared ~ Powder + Pretreatment + Model,data = data)
summary(model2)