[Depmix-commits] r443 - pkg/depmixS4/tests

[noreply at r-forge.r-project.org]

Author: ingmarvisser
Date: 2010-10-19 17:08:36 +0200 (Tue, 19 Oct 2010)
New Revision: 443

Modified:
   pkg/depmixS4/tests/test3responses.R
Log:
Removed reference to boot package as this produced a warning (invlogit function now defined directly in the test file.)

Modified: pkg/depmixS4/tests/test3responses.R
===================================================================
--- pkg/depmixS4/tests/test3responses.R	2010-10-19 15:07:40 UTC (rev 442)
+++ pkg/depmixS4/tests/test3responses.R	2010-10-19 15:08:36 UTC (rev 443)
@@ -6,8 +6,9 @@
 
 # binomial response model
 x <- rnorm(1000)
-library(boot)
-p <- inv.logit(x)
+# library(boot)
+invlogit <- function(lp) {exp(lp)/(1+exp(lp))}
+p <- invlogit(x)
 ss <- rbinom(1000,1,p)
 mod <- GLMresponse(cbind(ss,1-ss)~x,family=binomial())
 fit(mod)