qrea <- read.table(fn,skip=1,header=F)
colnames(qrea) <- c("tg","hl","hr","vl","vr")
qrea$hl[qrea$hl==0] <- NA
qrea$hr[qrea$hr==0] <- NA
qrea$vl[qrea$vl==0] <- NA
qrea$vr[qrea$vr==0] <- NA