> RTc = subset(RT, CHR == “chr1”)	# Subset of raw timing data in chr1
> LSc = subset(LS, CHR == “chr1”)	# Subset of smoothed data in chr1
> par(mar=c(2.2,5.1,1,1), mfrow=c(3,1), col=“grey”, pch=19, cex=0.5, cex.lab=1.8, xaxs=“i”)
> plot(RTc$mLymphR1~RTc$POSITION, ylab=“mLymph R1”, xaxt=“n”)	# Plot raw data points
> lines(LSc$x300smo_mLymphR1~LSc$POSITION, col=“blue3”, lwd=3)	# Overlay loess line
> plot(RTc$mLymphR2~RTc$POSITION, ylab=“mLymph R2”, xaxt=“n”)
> lines(LSc$x300smo_ mLymphR2~LSc$POSITION, col=“blue3”, lwd=3)
> plot(RTc$mLymphAve~RTc$POSITION, xlab=“Coordinate (bp)”, ylab=“mLymph ave”)
> lines(LSc$x300smo_ mLymphAve~LSc$POSITION, col=“blue3”, lwd=3)