Suggested modification to apk function

[grfiv]

Note that in the event that the 'actual' vector contains no items, the following modification will prevent the return of NaN

if (length(actual) > 0) {
        score <- score / min(length(actual), k)
        }
    else {
        score <- score / k
    }