The R Project SVN R

Rev

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

Rev 11140 Rev 11708
Line 4... Line 4...
4 
 *	October 23, 2000.
 4 
 *	October 23, 2000.
5 
 *
 5 
 *
6 
 *  Merge in to R:
 6 
 *  Merge in to R:
7 
 *	Copyright (C) 2000, The R Core Development Team
 7 
 *	Copyright (C) 2000, The R Core Development Team
8 
 *
 8 
 *
- 
 
 9 
 *  This program is free software; you can redistribute it and/or modify
- 
 
 10 
 *  it under the terms of the GNU General Public License as published by
- 
 
 11 
 *  the Free Software Foundation; either version 2 of the License, or
- 
 
 12 
 *  (at your option) any later version.
- 
 
 13 
 *
- 
 
 14 
 *  This program is distributed in the hope that it will be useful,
- 
 
 15 
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- 
 
 16 
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- 
 
 17 
 *  GNU General Public License for more details.
- 
 
 18 
 *
- 
 
 19 
 *  You should have received a copy of the GNU General Public License
- 
 
 20 
 *  along with this program; if not, write to the Free Software
- 
 
 21 
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA.
- 
 
 22 
 *
9 
 *
 23 
 *
10 
 *  DESCRIPTION
 24 
 *  DESCRIPTION
11 
 *	Evaluates the "deviance part"
 25 
 *	Evaluates the "deviance part"
12 
 *	bd0(x,M) :=  M * D0(x/M) = M*[ x/M * log(x/M) + 1 - (x/M) ] =
 26 
 *	bd0(x,M) :=  M * D0(x/M) = M*[ x/M * log(x/M) + 1 - (x/M) ] =
13 
 *		  =  x * log(x/M) + M - x
 27 
 *		  =  x * log(x/M) + M - x