## 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