@@ -176,53 +176,59 @@ donor <- data.frame(
176176rgeno <- hlaGeno(recipient)
177177dgeno <- hlaGeno(donor)
178178
179- calculateMismatchLoad(rgeno,
180- dgeno)
179+ calculateMismatchLoad(rgeno,
180+ dgeno,
181+ parallel = FALSE)
181182```
182183
183184### Per-locus contributions
184185
185186``` {r}
186- per_locus <- calculateMismatchLoad(rgeno,
187- dgeno,
188- return = "per_locus")
187+ per_locus <- calculateMismatchLoad(rgeno,
188+ dgeno,
189+ return = "per_locus",
190+ parallel = FALSE)
189191per_locus
190192```
191193
192194### Pairwise allele matrix for a locus
193195
194196``` {r}
195- mB <- calculateMismatchLoad(rgeno,
196- dgeno,
197- return = "pairwise",
198- pairwise_locus = "B")
197+ mB <- calculateMismatchLoad(rgeno,
198+ dgeno,
199+ return = "pairwise",
200+ pairwise_locus = "B",
201+ parallel = FALSE)
199202mB
200203```
201204
202- ### Apply biophysical filters*
205+ ### Apply biophysical filters*
203206
204207Count only mismatches that change charge:
205208
206209``` {r}
207- calculateMismatchLoad(rgeno,
210+ calculateMismatchLoad(rgeno,
208211 dgeno,
209- filter_charge = TRUE)
212+ filter_charge = TRUE,
213+ parallel = FALSE)
210214```
211215
212216Count only mismatches that change polarity:
213217
214218``` {r}
215- calculateMismatchLoad(rgeno,
219+ calculateMismatchLoad(rgeno,
216220 dgeno,
217- filter_polarity = TRUE)
221+ filter_polarity = TRUE,
222+ parallel = FALSE)
218223```
219224
220225### Restrict by locus (e.g., A)
221226
222227``` {r}
223- calculateMismatchLoad(rgeno,
228+ calculateMismatchLoad(rgeno,
224229 dgeno,
225- loci = "A")
230+ loci = "A",
231+ parallel = FALSE)
226232```
227233
228234## Quantifying Eplet Mismatches with ` quantifyEpletMismatch `
0 commit comments