## Not run: 
# answer <-
#   read.wtccc.signals("NBS_22_signals.txt.gz", c("SNP_A-4284341","rs4239845"))
# > summary(answer)
#               Length Class  Mode
# SNP_A-4284341 2970   -none- numeric
# rs4239845     2970   -none- numeric
# 
# > head(a$"SNP_A-4284341")
#                A        B
# 12999A2 1.446261 0.831480
# 12999A3 1.500956 0.551987
# 12999A4 1.283652 0.722847
# 12999A5 1.549140 0.604957
# 12999A6 1.213645 0.966151
# 12999A8 1.439892 0.509547
# >
# ## End(Not run)
Run the code above in your browser using DataLab