Fixed demanif.* data problems due to NA rownames

conjugateprior · Apr 25, 2015 · 9a57cc4 · 9a57cc4
1 parent 39a12a1
commit 9a57cc4
Show file tree

Hide file tree

Showing 46 changed files with 70 additions and 42 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: austin
 Type: Package
 Title: Do things with words
-Version: 0.2.1
+Version: 0.2.2
 Date: 2011-03-24
 Author: Will Lowe
 Maintainer: Will Lowe <conjugateprior@gmail.com>

diff --git a/NAMESPACE b/NAMESPACE
@@ -1,4 +1,4 @@
-# Generated by roxygen2 (4.1.0): do not edit by hand
+# Generated by roxygen2 (4.1.1): do not edit by hand
 
 S3method(coef,classic.wordscores)
 S3method(coef,wordfish)

diff --git a/NEWS.md b/NEWS.md
@@ -0,0 +1,13 @@
+# austin 0.22
+
+  * Made sure `demanif.` datasets to work with indexing behaviour of 
+    recent R versions
+
+# austin 0.21
+
+  * first import from r-forge
+  * revised vignette is now in markdown
+  * some basic tests 
+
+
+
diff --git a/README.md b/README.md
@@ -23,4 +23,6 @@ That's it.
 
 
 
-"Does she go?"  [![Build Status](https://travis-ci.org/conjugateprior/austin.svg?branch=master)](https://travis-ci.org/conjugateprior/austin)
+"Does she go?"  
+
+[![Build Status](https://travis-ci.org/conjugateprior/austin.svg?branch=master)](https://travis-ci.org/conjugateprior/austin)
diff --git a/data/demanif.econ.RData b/data/demanif.econ.RData
diff --git a/data/demanif.soc.RData b/data/demanif.soc.RData
diff --git a/man/as.docword.Rd b/man/as.docword.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{as.docword}
 \alias{as.docword}

diff --git a/man/as.wfm.Rd b/man/as.wfm.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{as.wfm}
 \alias{as.wfm}

diff --git a/man/as.worddoc.Rd b/man/as.worddoc.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{as.worddoc}
 \alias{as.worddoc}

diff --git a/man/bootstrap.se.Rd b/man/bootstrap.se.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{bootstrap.se}
 \alias{bootstrap.se}

diff --git a/man/classic.wordscores.Rd b/man/classic.wordscores.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/classic.wordscores.R
 \name{classic.wordscores}
 \alias{classic.wordscores}

diff --git a/man/coef.classic.wordscores.Rd b/man/coef.classic.wordscores.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/classic.wordscores.R
 \name{coef.classic.wordscores}
 \alias{coef.classic.wordscores}

diff --git a/man/coef.wordfish.Rd b/man/coef.wordfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{coef.wordfish}
 \alias{coef.wordfish}

diff --git a/man/daildata.Rd b/man/daildata.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{daildata}

diff --git a/man/demanif.Rd b/man/demanif.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{demanif}

diff --git a/man/demanif.econ.Rd b/man/demanif.econ.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{demanif.econ}

diff --git a/man/demanif.foreign.Rd b/man/demanif.foreign.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{demanif.foreign}

diff --git a/man/demanif.soc.Rd b/man/demanif.soc.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{demanif.soc}

diff --git a/man/docs.Rd b/man/docs.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{docs}
 \alias{docs}

diff --git a/man/extractwords.Rd b/man/extractwords.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/extractwords.R
 \name{extractwords}
 \alias{extractwords}

diff --git a/man/fitted.wordfish.Rd b/man/fitted.wordfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{fitted.wordfish}
 \alias{fitted.wordfish}

diff --git a/man/getdocs.Rd b/man/getdocs.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{getdocs}
 \alias{getdocs}

diff --git a/man/iebudget2009.Rd b/man/iebudget2009.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{iebudget2009}

diff --git a/man/initialize.urfish.Rd b/man/initialize.urfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{initialize.urfish}
 \alias{initialize.urfish}

diff --git a/man/interestgroups.Rd b/man/interestgroups.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{interestgroups}

diff --git a/man/is.wfm.Rd b/man/is.wfm.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{is.wfm}
 \alias{is.wfm}

diff --git a/man/lbg.Rd b/man/lbg.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{lbg}

diff --git a/man/plot.classic.wordscores.Rd b/man/plot.classic.wordscores.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/classic.wordscores.R
 \name{plot.classic.wordscores}
 \alias{plot.classic.wordscores}

diff --git a/man/plot.coef.wordfish.Rd b/man/plot.coef.wordfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{plot.coef.wordfish}
 \alias{plot.coef.wordfish}

diff --git a/man/plot.wordfish.Rd b/man/plot.wordfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{plot.wordfish}
 \alias{plot.wordfish}

diff --git a/man/predict.classic.wordscores.Rd b/man/predict.classic.wordscores.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/classic.wordscores.R
 \name{predict.classic.wordscores}
 \alias{predict.classic.wordscores}

diff --git a/man/predict.wordfish.Rd b/man/predict.wordfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{predict.wordfish}
 \alias{predict.wordfish}

diff --git a/man/rescale.Rd b/man/rescale.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/rescale.R
 \name{rescale}
 \alias{rescale}

diff --git a/man/sim.wordfish.Rd b/man/sim.wordfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{sim.wordfish}
 \alias{sim.wordfish}

diff --git a/man/summary.classic.wordscores.Rd b/man/summary.classic.wordscores.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/classic.wordscores.R
 \name{summary.classic.wordscores}
 \alias{summary.classic.wordscores}

diff --git a/man/summary.wordfish.Rd b/man/summary.wordfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{summary.wordfish}
 \alias{summary.wordfish}

diff --git a/man/trim.Rd b/man/trim.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{trim}
 \alias{trim}

diff --git a/man/ukmanif.Rd b/man/ukmanif.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/austin-package.R
 \docType{data}
 \name{ukmanif}

diff --git a/man/wfm.Rd b/man/wfm.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{wfm}
 \alias{wfm}

diff --git a/man/wfm2bmr.Rd b/man/wfm2bmr.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{wfm2bmr}
 \alias{wfm2bmr}

diff --git a/man/wfm2lda.Rd b/man/wfm2lda.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{wfm2lda}
 \alias{wfm2lda}

diff --git a/man/wordfish.Rd b/man/wordfish.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfish.R
 \name{wordfish}
 \alias{wordfish}

diff --git a/man/wordfreqj.Rd b/man/wordfreqj.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordfreqj.R
 \name{wordfreqj}
 \alias{wordfreqj}

diff --git a/man/wordmargin.Rd b/man/wordmargin.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{wordmargin}
 \alias{wordmargin}

diff --git a/man/words.Rd b/man/words.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wfm.R
 \name{words}
 \alias{words}

diff --git a/tests/testthat/test_wordfish.R b/tests/testthat/test_wordfish.R
@@ -0,0 +1,13 @@
+library(austin)
+context("wordfish")
+
+tol <- 0.00001
+
+test_that("wordfish replicates the generated data", {
+  set.seed(1234)
+  dd <- sim.wordfish()
+  wmod <- wordfish(dd$Y, dir=c(1,10))
+  expect_is(wmod, 'wordfish')
+  expect_true(cor(wmod$beta, dd$beta) > 0.99)
+  expect_true(cor(wmod$theta, dd$theta) > 0.99)
+})