The function RunsTestSerial tests for numeric randomness of the data contained in the array Data by applying a Wald-Wolfowitz runs test after dichotomisation (using the median as the threshold). The function returns the corresponding p-value (a low p-value indicates non-randomness).