/usr/share/gnudatalanguage/lib/meanabsdev.pro is in libgnudatalanguage0 0.9.7-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | ;$Id: meanabsdev.pro,v 1.2 2005/07/25 07:33:25 m_schellens Exp $
function meanabsdev, x, double=double, NaN=NaN
;+
;
;
;
; NAME:
; meanabsdev
;
; PURPOSE:
; Calculates the mean absolute deviation of the input data
;
;
; CATEGORY:
; Mathematics: Statistics
;
; CALLING SEQUENCE:
; Result=meanabsdev(x)
;
;
; KEYWORD PARAMETERS:
; DOUBLE : Keyword for double precision calculation
; NAN : Flag to ignore IEEE Floating point NaN
;
; OUTPUTS:
; Result is the mean absolute deviation of input data
;
;
; RESTRICTIONS:
; The input x needs to be an array of numbers (i.e not strings,
; struct, ptr, object)
;
; PROCEDURE:
; mean absolute deviation = (1/N) sum(abs(x-mean(x))),
; Uses the MOMENT function
;
; EXAMPLE:
; a=findgen(100)
; result=meanabsdev(a)
; print, result
; 25.0000
;
; MODIFICATION HISTORY:
; 20-Mar-2004 : Written by Christopher Lee
; 18-Jul-2005 : PC, moment.pro update
;
; LICENCE:
; Copyright (C) 2004,
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
;-
on_error, 2
junk = moment(x, mdev=mdev, double=double, NaN=NaN)
return, mdev
end
|