head	1.1;
access;
symbols;
locks
	wmc:1.1; strict;
comment	@# @;


1.1
date	2004.03.02.20.33.55;	author wmc;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Initial revision
@
text
@function lund_sig,n

; Purpose: return significant level (95%) for the Lund changepoint
; Category: statistics
; See-also: lund; lund_plot
; Inputs: n - length of series

ns=[10   , 25  , 50  , 75  , 100 , 200 , 300 , 400 , 500 , 750 , 1000, 2500, 5000]
fs=[11.56, 7.37, 6.92, 6.88, 6.91, 7.01, 7.11, 7.18, 7.14, 7.37, 7.42, 7.65, 7.85]

if (n lt ns(0) or n gt max(ns)) then message,/cont,'Warning: outside range for n'

return,interpol(fs,ns,n)

end
@