Anomalies above threshold

metadata.json

{
  "name": "Anomalies above threshold",
  "kind": "script",
  "description": "Creates a dataset with all the anomalies above a given threshold",
  "source_code": "script.whizzml",
  "imports":[
    ],
  "inputs":[
    {
      "name": "anomaly",
      "type": "anomaly-id",
      "description": "Anomaly to use"
    },
    {
      "name": "threshold",
      "type": "number",
      "description": "Anomaly score threshold (0-100)"
    }],
  "outputs":[
    {
      "name": "dataset",
      "type": "dataset-id",
      "description": "Dataset with instances with a score equal or above `threshold`"
    }]
}

script.whizzml

(define (batch-threshold anomaly threshold)
  (when (not (<= 0 threshold 100))
    (raise "Threshold must be in the range [0, 100]"))
  (let (dataset (resource-property anomaly "dataset")
        ba (create-batchanomalyscore anomaly dataset {"output_dataset" true
                                                      "all_fields" true})
        ds (resource-property (wait ba) "output_dataset_resource")
        th (/ threshold 100)
        fltr (flatline "(>= (f \"score\") {th})")
        fds (wait (create-dataset ds {"lisp_filter" fltr})))
    (delete* [ba ds])
    fds))

(define dataset (batch-threshold anomaly threshold))