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