Skip to content

Commit c510962

Browse files
committed
update NEWS; add AIC-order tests
1 parent d8e29e3 commit c510962

File tree

2 files changed

+16
-2
lines changed

2 files changed

+16
-2
lines changed

inst/NEWS.Rd

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,15 +4,17 @@
44
\title{bbmle News}
55
\encoding{UTF-8}
66

7-
\section{Changes in version 1.0.19.9000 (devel)}{
7+
\section{Changes in version 1.0.20 (2017-10-30)}{
88
\subsection{BUG FIXES}{
99
\itemize{
1010
\item fixed buglet: flipped profile plot axes, confint for negative values
1111
}
1212
}
1313
\subsection{USER-VISIBLE CHANGES}{
1414
\itemize{
15-
\item \code{summary.mle2} is now exported, for use by other packages
15+
\item \code{summary.mle2} is now exported, for use by other
16+
packages
17+
\item small fixes to AIC(c) methods
1618
}
1719
}
1820
}

tests/ICtab.R

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -15,3 +15,15 @@ m3 <- glm(z~1,family=quasipoisson)
1515
aa <- AICtab(m1,m2,m3,weights=TRUE)
1616
stopifnot(any(!is.na(aa$dAIC)),
1717
any(!is.na(aa$weight)))
18+
19+
set.seed(101)
20+
x <- rnorm(100)
21+
dd <- data.frame(y=rnorm(100,2+3*x,sd=1),x)
22+
m4A <- lm(y~x,dd)
23+
m4B <- mle2(y~dnorm(mean=a+b*x,sd=exp(logsd)),
24+
data=dd,
25+
start=list(a=1,b=1,logsd=0))
26+
## cosmetic differences only
27+
stopifnot(all.equal(AIC(m4A,m4B)[,"AIC"],
28+
AIC(m4B,m4A)[,"AIC"]))
29+

0 commit comments

Comments
 (0)