diff --git a/DESCRIPTION b/DESCRIPTION index 3070a3ea31d243a41e9416a71b03397a1d90abf1..7c82812276ad38d8f527b69840336f18f1306d94 100755 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,5 +1,5 @@ Package: mgcv -Version: 1.3-24 +Version: 1.3-25 Author: Simon Wood Maintainer: Simon Wood Title: GAMs with GCV smoothness estimation and GAMMs by REML/PQL @@ -12,4 +12,4 @@ Imports: graphics, stats Suggests: nlme (>= 3.1-64), MASS (>= 7.2-2) LazyLoad: yes License: GPL version 2 or later -Packaged: Sun May 6 21:50:31 2007; simon +Packaged: Thu Jun 21 15:25:06 2007; simon diff --git a/R/mgcv.r b/R/mgcv.r index 6d542a39f610500bcfeeeff68ffc827a10821405..803becd009112d1ce498e71cdaa560452e90f7b9 100755 --- a/R/mgcv.r +++ b/R/mgcv.r @@ -36,16 +36,15 @@ x<-matrix(res[[1]][1:n],res[[2]],res[[3]]) x } - null.space.dimension<-function(d,m) # vectorized function for calculating null space dimension for penalties of order m -# for dimension d data M=(m+d+1)!/(d!(m-d)!). Any m not satisfying 2m>d is reset so +# for dimension d data M=(m+d-1)!/(d!(m-1)!). Any m not satisfying 2m>d is reset so # that 2m>d+1 (assuring "visual" smoothness) { if (sum(d<0)) stop("d can not be negative in call to null.space.dimension().") ind<-2*m