Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!linus!philabs!cmcl2!floyd!harpo!seismo!presby!aron
From: aron@presby.UUCP
Newsgroups: net.sources,net.usoft.s
Subject: bug fixes for S routines
Message-ID: <224@presby.UUCP>
Date: Mon, 20-Jun-83 13:01:19 EDT
Article-I.D.: presby.224
Posted: Mon Jun 20 13:01:19 1983
Date-Received: Tue, 21-Jun-83 16:30:39 EDT
Lines: 22

A while ago I posted some routines and macros to use with S.  Here are
some bug fixes:

(1) In the file pairedt.i:
	after the line
	    DO k = 1, NROW(mat) {
	replace the next line with
		mdiff[k] = mat[k,i] - mat[k,j]
(2) In the file ptcalc.r:
	after the line
    adf = nr-1
	replace the next line with
    apt = 2* (1-ptdis(abs(at),adf))
(3) In the file avcalc.r:
	after the line
#   compute F statistic probability
	replace the next two lines with
    rpf = 1-pfdis(abs(rf),rdf,edf)
    cpf = 1-pfdis(abs(cf),cdf,edf)

				aron shtull-trauring
				{seismo,cmcl2}!presby!aron