score=read.table("d:/lin/teaching/NDHU/Econometrics_U/stock_watson/score.txt",header=TRUE)
  testscr=score[,1]
  str=score[,2]
  score.lm=lm(testscr~str)
  summary(score.lm)