Print a TestList summary

# S3 method for summary.TestList
print(x, ...)

Arguments

x	list from summary()
...	Additional parameters

Value

prints summary

Examples

data(RS.data)
rs = RS.data
newcode <- create.code("Data", expressions = c("number","data"), excerpts = rs$text)
newcode <- handcode(newcode, this.set = 10:15, results = 0)
newcode = test(code = newcode, kappa_threshold = 0.65)
summary(newcode$statistics)
#> 
#> Test Set
#> ----------------------------------------
#> kappa	| rho	| N
#> ----------------------------------------
#> 1.00	| 0.38	| 6
#> ----------------------------------------
#> 
#> Training Set
#> ----------------------------------------
#> kappa	| N
#> ----------------------------------------
#> 0.00	| 
#> ----------------------------------------
#>