[Gmm-commits] r157 - in pkg/gmm4: . vignettes

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

Author: chaussep
Date: 2019-11-22 23:54:38 +0100 (Fri, 22 Nov 2019)
New Revision: 157

Modified:
   pkg/gmm4/NAMESPACE
   pkg/gmm4/vignettes/gelS4.Rnw
   pkg/gmm4/vignettes/gelS4.pdf
Log:
worked on the vignette

Modified: pkg/gmm4/NAMESPACE
===================================================================
--- pkg/gmm4/NAMESPACE	2019-11-19 22:30:03 UTC (rev 156)
+++ pkg/gmm4/NAMESPACE	2019-11-22 22:54:38 UTC (rev 157)
@@ -7,6 +7,8 @@
 
 importFrom("graphics", plot, polygon, grid, points)
 
+importFrom("grDevices", rgb, col2rgb)
+
 importFrom("utils", capture.output)
 
 importFrom("stats", "ar", "as.formula", "model.matrix","vcov",

Modified: pkg/gmm4/vignettes/gelS4.Rnw
===================================================================
--- pkg/gmm4/vignettes/gelS4.Rnw	2019-11-19 22:30:03 UTC (rev 156)
+++ pkg/gmm4/vignettes/gelS4.Rnw	2019-11-22 22:54:38 UTC (rev 157)
@@ -1064,7 +1064,7 @@
 cores to use with mclapply(). For Windows operating systems, it is set
 to 1. The following shows how to use the \textit{print} and
 \textit{plot} methods for that class. Here is an example which
-compares Wald and LR confidence regions.
+compares Wald and LR confidence regions. 
 
 <<>>=
 res <- confint(simData, c("x2","y"), npoints=20)
@@ -1071,17 +1071,20 @@
 res
 @ 
 
+The following is not run because it creates some misterious error when
+the package is checked. Beside that, it works perfectly. Try it.
+
 \begin{center}
 \begin{minipage}{.7\textwidth}
-<<fig.height=5>>=
+<<fig.height=5, eval=FALSE>>=
 res2 <- confint(simData, c("x2","y"), type="invLR", npoints=20)
 c1 <- col2rgb("darkorange2")/255
 c1 <- rgb(c1[1],c1[2],c1[3],.5)
 c2 <- col2rgb("lightblue2")/255
 c2 <- rgb(c2[1],c2[2],c2[3],.5)
-plot(res, pch=20, bg=c1, Pcol=c1, col=c1, ylim=c(3.5,6.5),
+plot(res, pch=20, bg=1, Pcol=c1, col=c1, density=10, ylim=c(3.5,6.5),
      xlim=c(4.8,7.5))
-plot(res2, pch=20, bg=c2, Pcol=c2, col=c2, add=TRUE)
+plot(res2, pch=20, bg=2, Pcol=c2, col=c2, density=10, add=TRUE)
 legend("topright", c("Wald","LR"), col=c(c1,c2), pch=20 , bty="n")
 @ 
 \end{minipage}
@@ -1092,8 +1095,7 @@
 plot.default(), and all other arguments are passed to polygon().
 
 \bibliography{empir}
-\pagebreak
-\Large{\textbf{Appendix}}
+
 \appendix
 \section{Some extra codes}
 The following \textit{extract} is used with the ``texreg'' package of
@@ -1154,6 +1156,5 @@
 texreg(list(fit1,fit2), digits=4)
 @ 
 
-
 \end{document} 
 

Modified: pkg/gmm4/vignettes/gelS4.pdf
===================================================================
(Binary files differ)