26 lines
740 B
R
26 lines
740 B
R
|
L = 101
|
||
|
|
|
||
|
|
Fm = 392
|
||
|
|
Fs = 44
|
||
|
|
|
||
|
|
meanDepth = 65
|
||
|
|
nReadsToPhase = 1
|
||
|
|
|
||
|
|
params = paste("meanDepth= ", meanDepth, ", nReadsToPhase= ", nReadsToPhase, ", L= ", L, ", Fm= ", Fm, ", Fs= ", Fs, sep="")
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
MEAN_INTRA_HET_DISTANCES = seq(from=2, to=20002, by=50)
|
||
|
|
THETAS = meanIntraHetDistanceToTheta(MEAN_INTRA_HET_DISTANCES)
|
||
|
|
NUM_THETAS = length(THETAS)
|
||
|
|
|
||
|
|
pPhaseTheta = as.vector(matrix(data = -1, nrow = 1, ncol = NUM_THETAS))
|
||
|
|
for (i in 1:NUM_THETAS) {
|
||
|
|
pPhaseTheta[i] = pDirectlyPhaseHetPair(meanDepth, nReadsToPhase, L, THETAS[i], Fm, Fs)
|
||
|
|
}
|
||
|
|
scatter(MEAN_INTRA_HET_DISTANCES, pPhaseTheta, "testIntraHetDistances", xlab="Mean intra-het distance", ylab="Phaseability", main=params, type="b")
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
save(list = ls(all=TRUE), file = "testIntraHetDistances.RData")
|