quest<-read.table('http://www.leg.ufpr.br/~joel/dados/quest.txt',h=T)