The R Project SVN R

Rev

Rev 13050 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13050 Rev 19500
Line 1... Line 1...
1
/*
1
/*
2
 *  R : A Computer Langage for Statistical Data Analysis
2
 *  R : A Computer Langage for Statistical Data Analysis
3
 *  Copyright (C) 1996  Robert Gentleman and Ross Ihaka
3
 *  Copyright (C) 1996  Robert Gentleman and Ross Ihaka
4
 *  Copyright (C) 1999-2001   Robert Gentleman, Ross Ihaka and the
4
 *  Copyright (C) 1999-2002   Robert Gentleman, Ross Ihaka and the
5
 *                            R Development Core Team
5
 *                            R Development Core Team
6
 *
6
 *
7
 *  This program is free software; you can redistribute it and/or modify
7
 *  This program is free software; you can redistribute it and/or modify
8
 *  it under the terms of the GNU General Public License as published by
8
 *  it under the terms of the GNU General Public License as published by
9
 *  the Free Software Foundation; either version 2 of the License, or
9
 *  the Free Software Foundation; either version 2 of the License, or
Line 18... Line 18...
18
 *  along with this program; if not, write to the Free Software
18
 *  along with this program; if not, write to the Free Software
19
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
20
 */
20
 */
21
 
21
 
22
#ifdef HAVE_CONFIG_H
22
#ifdef HAVE_CONFIG_H
23
#include <config.h>
23
# include <config.h>
24
#endif
24
#endif
25
 
25
 
26
#include <Rmath.h> /* fmax2, imin2, imax2 */
26
#include <Rmath.h>		/* fmax2, imin2, imax2 */
27
#include "R_ext/Applic.h" /* prototypes for lowess and clowess */
27
#include <R_ext/Applic.h>	/* prototypes for lowess and clowess */
28
#include "R_ext/Boolean.h"
28
#include <R_ext/Boolean.h>
29
#include "R_ext/Utils.h"  /* rPsort() */
29
#include <R_ext/Utils.h>	/* rPsort() */
30
#ifdef DEBUG_lowess
30
#ifdef DEBUG_lowess
31
# include "R_ext/Print.h"
31
# include <R_ext/Print.h>
32
#endif
32
#endif
33
 
33
 
34
static double fsquare(double x)
34
static double fsquare(double x)
35
{
35
{
36
    return x * x;
36
    return x * x;