library(lme4)
library(lmerTest)
library(MuMIn)

data=read.csv('E://lab//shiyanshi//0424_paper//csv_table//1142//iss_interval_focus_1142.csv')
summary(data)

summary(data$interval)

cor.test(data$interval,data$ave_focus)

thread<-quantile(data$interval,0.98)
data_1<-subset(data,data$interval<thread)
result<-lm(scale(interval)~
             scale(ave_focus)
           +scale(length_body)
           +scale(all_user_ids)
           +scale(num_comments)
           +factor(p_member_tag)
           +factor(label_tag)
           ,data=data)

summary(result)
anova(result)
r.squaredGLMM(result)
require(car)
vif(result)