Description Usage Arguments Details Examples
Outputs a docx report of results.
1 2 | output.report(prosecutionHypothesis,defenceHypothesis,
results,file=NULL)
|
prosecutionHypothesis |
The output from |
defenceHypothesis |
The output from |
results |
The output from |
file |
A file name for the output report. By default a filename is created to avoid over writing a previous file. |
Creates a docx containing all results, placed in the directory specified by admin$outputPath. Results include both the pre-evaluation assessment of the alleles from both the reference profiles and the crime scene profile, and the post-evaluation results of the likelihoods and weight of evidence.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | ## Not run:
# datapath to example files
datapath = file.path(system.file("extdata", package="likeLTD"),"hammer")
# File paths and case name for allele report
admin = pack.admin.input(
cspFile = file.path(datapath, 'hammer-CSP.csv'),
refFile = file.path(datapath, 'hammer-reference.csv'),
caseName = "hammer",
kit= "SGMplus"
)
# Enter arguments
args = list(
nUnknowns = 1,
doDropin = FALSE,
ethnic = "EA1",
adj = 1,
fst = 0.02,
relatedness = c(0,0)
)
# Create hypotheses
hypP = do.call(prosecution.hypothesis, append(admin,args))
hypD = do.call(defence.hypothesis, append(admin,args))
# Get parameters for optimisation
paramsP = optimisation.params(hypP)
paramsD = optimisation.params(hypD)
# Run optimisation
# n.steps set for demonstration purposes
results = evaluate(paramsP, paramsD, n.steps=1)
# Generate output report
output.report(hypP,hypD,results)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.