chromo

How to download and try this example

Usage: pl -gif chromo.htm

Uses the data file chromo.dat #setifnotgiven DATAFILE = "chromo.dat" #proc page #if @DEVICE = x11 pagesize: 5 2 #endif #proc getdata file: @DATAFILE fieldnames: studyid fld ch cM startcM stopcM plotpos r n #proc endproc #if @NRECORDS < 1 #proc annotate location: 2.5 1 text: No SNP map correlations available. Perhaps there were not enough strains in common with the SNP map. #exit #endif #proc areadef rectangle: 1 0.7 4 1.4 xrange: 1 21 yrange: -0.5 0.5 // yautorange: datafield=r xaxis.stubs: list 1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\nX xaxis.stubrange: 1 20 xaxis.stubdetails: size=6 xaxis.stubslide: 0.5(s) xaxis.grid: color=pink xaxis.tics: none xaxis.axisline: none xaxis.gridlineextent: min-0.2 max yaxis.stubs: inc .5 // yaxis.stubs: inc xaxis.label: Chromosome xaxis.labeldetails: size=6 adjust=0,0.1 #proc bars locfield: plotpos lenfield: r thinbarline: color=green crossover: 0.0 #set N = $dataitem( 1, n ) #proc annotate location: max-0.6 min-0.4 textdetails: size=6 text: @N strains