remove r.regression.line, to be replaced with fast C version

git-svn-id: https://svn.osgeo.org/grass/grass/trunk@43676 15284696-431f-4ddb-bdfa-cd5b030d7da7

scripts/Makefile

@@ -34,7 +34,6 @@ SUBDIRS = \
 	r.out.xyz \
 	r.plane \
 	r.reclass.area \
-	r.regression.line \
 	r.shaded.relief \
 	r.tileset \
 	v.build.all \

scripts/r.regression.line/Makefile

@@ -1,7 +0,0 @@
-MODULE_TOPDIR = ../..
-
-PGM=r.regression.line
-
-include $(MODULE_TOPDIR)/include/Make/Script.make
-
-default: script

scripts/r.regression.line/r.regression.line.html

@@ -1,49 +0,0 @@
-<H2>DESCRIPTION</H2>
-
-<EM>r.regression.line</EM> Calculates linear regression from two raster maps, 
-according to the formula y = a + b*x, where x and y represent raster maps. 
-Optionally saves regression coefficients to an ASCII file. 
-The result includes the following coefficients:
-offset/intercept (a) and gain/slope (b), residuals (R),
-number of elements (N), means (medX, medY), standard deviations
-(sdX, sdY), and the F test for testing the significance of the
-regression model as a whole (F).
-
-<H2>NOTES</H2>
-The flag <em>-s</em> select the slower method (applies to FP maps only)
-which writes out all pixel values individually to the temporary file.
-The results for offset/intercept (a) and gain/slope (b) are then
-identical to that obtained from R-stats's lm() function. 
-
-<H2>EXAMPLE</H2>
-
-Comparison of the old and the new DEM in Spearfish:
-<div class="code"><pre>
-g.region rast=elevation.10m -p
-r.regression.line map1=elevation.dem map2=elevation.10m
-</pre></div>
-<p>
-
-Using the script style flag AND <em>eval</em> to make results
-available in the shell:
-<div class="code"><pre>
-g.region rast=elevation.10m -p
-eval `r.regression.line -g map1=elevation.dem map2=elevation.10m`
-echo $a
-479.615
-
-echo $b
-0.645631
-
-echo $R
-0.804441
-</pre></div>
-
-
-<H2>AUTHOR</H2>
-
-Dr. Agustin Lobo - alobo at ija.csic.es<BR>
-Updated to GRASS 5.7 Michael Barton, Arizona State University<BR>
-Script style output Markus Neteler
-
-<p><i>Last changed: $Date$</i>

scripts/r.regression.line/r.regression.line.py

@@ -1,158 +0,0 @@
-#!/usr/bin/env python
-#
-############################################################################
-#
-# MODULE:	r.regression line
-# AUTHOR(S):	Dr. Agustin Lobo - alobo@ija.csic.es
-#               Updated to GRASS 5.7 by Michael Barton
-#               Converted to Python by Glynn Clements
-# PURPOSE:	Calculates linear regression from two raster maps: y = a + b*x
-# COPYRIGHT:	(C) 2004 by the GRASS Development Team
-#
-#		This program is free software under the GNU General Public
-#		License (>=v2). Read the file COPYING that comes with GRASS
-#		for details.
-#
-#############################################################################
-
-
-#%Module
-#%  description: Calculates linear regression from two raster maps: y = a + b*x
-#%  keywords: raster
-#%  keywords: statistics
-#%End
-#%flag
-#%  key: g
-#%  description: Print in shell script style
-#%End
-#%flag
-#%  key: s
-#%  description: Slower but more accurate (applies to FP maps only)
-#%End
-#%option
-#% key: map1
-#% type: string
-#% gisprompt: old,cell,raster
-#% description: Map for x coefficient
-#% required : yes
-#%end
-#%option
-#% key: map2
-#% type: string
-#% gisprompt: old,cell,raster
-#% description: Map for y coefficient
-#% required : yes
-#%end
-#%option
-#% key: output
-#% type: string
-#% gisprompt: new_file,file,output
-#% description: ASCII file for storing regression coefficients (output to screen if file not specified).
-#% required : no
-#%end
-
-import sys
-import os
-import math
-from grass.script import core as grass
-
-def main():
-    shell = flags['g']
-    slow = flags['s']
-    map1 = options['map1']
-    map2 = options['map2']
-    output = options['output']
-
-    if not grass.find_file(map1)['name']:
-	grass.fatal(_("Raster map <%s> not found") % map1)
-    if not grass.find_file(map2)['name']:
-	grass.fatal(_("Raster map <%s> not found") % map2)
-
-    #calculate regression equation
-    if slow:
-	# slower but accurate
-	statsflags = 'n1'
-	#				 | sed 's+$+ 1+g' > "$TMP"
-    else:
-	# count "identical" pixels
-	statsflags = 'cnA'
-
-    p = grass.pipe_command('r.stats', flags = statsflags, input = (map1, map2))
-
-    tot = sumX = sumsqX = sumY = sumsqY = sumXY = 0.0
-
-    for line in p.stdout:
-	line = line.rstrip('\r\n')
-	if slow:
-	    line += ' 1'
-	f = line.split(' ')
-	if len(f) != 3:
-	    continue
-	x = float(f[0])
-	y = float(f[1])
-	n = float(f[2])
-
-	tot += n
-	sumX += n * x
-	sumsqX += n * x * x
-	sumY += n * y
-	sumsqY += n * y * y
-	sumXY += n * x * y
-
-    p.wait()
-
-    B = (sumXY - sumX*sumY/tot)/(sumsqX - sumX*sumX/tot)
-    R = (sumXY - sumX*sumY/tot)/math.sqrt((sumsqX - sumX*sumX/tot)*(sumsqY - sumY*sumY/tot))
-
-    meanX = sumX/tot
-    sumsqX = sumsqX/tot
-    varX = sumsqX-(meanX*meanX)
-    sdX = math.sqrt(varX)
-
-    meanY = sumY/tot
-    sumsqY = sumsqY/tot
-    varY = sumsqY-(meanY*meanY)
-    sdY = math.sqrt(varY)
-
-    A = meanY - B*meanX
-    F =  R*R/(1-R*R/tot-2)
-
-    vars = dict(
-	a = A,
-	b = B,
-	R = R,
-	N = tot,
-	F = F,
-	meanX = meanX,
-	sdX = sdX,
-	meanY = meanY,
-	sdY = sdY)
-    keys = ['a', 'b', 'R', 'N', 'F', 'meanX', 'sdX', 'meanY', 'sdY']
-
-    #send output to screen or text file
-    if output:
-	fh = file(output, 'w')
-    else:
-	fh = sys.stdout
-
-    if shell:
-	for k, v in vars.iteritems():
-	    fh.write('%s=%f\n' % (k, v))
-    else:
-	lines = [
-	    "y = a + b*x",
-            "   a: offset",
-            "   b: gain",
-            "   R: sumXY - sumX*sumY/tot",
-            "   N: number of elements",
-            "   F: F-test significance",
-            "   meanX, meanY: Means",
-            "   sdX, sdY: Standard deviations",
-	    '  '.join(keys),
-	    ]
-	fh.write('\n'.join(lines) + '\n')
-	fh.write(' '.join([str(vars[k]) for k in keys]) + '\n')
-
-if __name__ == "__main__":
-    options, flags = grass.parser()
-    main()