Displaying 1 result from an estimated 1 matches for "wtd1".
Did you mean:
wt1
2012 Nov 21
1
update fit (removing insignificant variables)
...???? -0.005406684? 0.2906822 -0.01859998 0.98684896
#X6?????????? -0.050101169? 0.1486149 -0.33712071 0.76811703
#X7??????????? 0.563284987? 0.1204945? 4.67477901 0.04284010
#X8?????????? -1.901918462? 0.2697166 -7.05154460 0.01952387
Wtd<-row.names(res[res[,"Pr(>|t|)"]<0.05,])
?Wtd1<-Wtd[!grepl("\\(.*\\)",Wtd)]
fit1<-lm(as.formula(paste("Y~",paste(Wtd1,collapse="+"))),data=dat1)
?coef(summary(fit1))
#?????????????? Estimate? Std. Error?? t value???? Pr(>|t|)
#(Intercept) 146.8921451 10.87053736? 13.51287 3.975711e-05
#X3?????????? -1.9002...