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
>
Run the code above in your browser using DataLab