remove intReg which was archived

Author: carlganz

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: svrepmisc
 Type: Package
 Title: svrepmisc: Miscellaneous Functions for Replicate Weights
-Version: 0.2.1
+Version: 0.2.2
 Authors@R: c(
   person("Carl", "Ganz", email="[email protected]",role=c("aut","cre")),
   person("Joseph", "Larmarange", email = "[email protected]", role = "ctb")
@@ -11,8 +11,8 @@ Description: Miscellaneous wrappers for implementing regression types from vario
   for complex survey data using the survey package's withReplicates function.
 License: GPL-3
 LazyData: TRUE
-RoxygenNote: 6.0.1
+RoxygenNote: 6.1.1
 URL: https://github.com/carlganz/svrepmisc
-Imports: survey, MASS, nnet, quantreg, crch, intReg, broom, ordinal
+Imports: survey, MASS, nnet, quantreg, crch, broom, ordinal
 BugReports: https://github.com/carlganz/svrepmisc/issues
 Suggests: covr, pander, testthat

NAMESPACE

@@ -5,7 +5,6 @@ S3method(print,svrepstatmisc)
 S3method(tidy,svrepstatmisc)
 export(svyclm)
 export(svycrch)
-export(svyintReg)
 export(svymultinom)
 export(svynb)
 export(svyrq)
@@ -16,7 +15,6 @@ importFrom(MASS,glm.nb)
 importFrom(broom,tidy)
 importFrom(crch,crch)
 importFrom(crch,trch)
-importFrom(intReg,intReg)
 importFrom(nnet,multinom)
 importFrom(ordinal,clm)
 importFrom(quantreg,rq)

R/svymisc.R

@@ -152,27 +152,6 @@ svycrch <- function(formula, design, subset, ..., scale.weights=FALSE) {
 
 }
 
-#' Wrapper for Interval Regression
-#'
-#' Wrapper for \code{\link[intReg]{intReg}} for replicate weights
-#'
-#' @importFrom intReg intReg
-#' @param formula Model formula
-#' @param design Survey design from \code{\link[survey]{svrepdesign}}
-#' @param subset Expression to select a subpopulation
-#' @param ... Other arugments passed to \code{\link[intReg]{intReg}}
-#' @param scale.weights Indicate whether to rescale weights (defaults to false)
-#' @export
-#' @seealso \code{\link[survey]{withReplicates}} \code{\link[intReg]{intReg}}
-#' @references Lumley, Thomas. Complex Surveys: A Guide to Analisys Using R.
-#'  Hoboken, NJ: Wiley, 2010. Print.
-
-svyintReg <- function(formula, design, subset, ..., scale.weights = FALSE) {
-  wR(intReg::intReg, formula, design, subset, ..., scale.weights = scale.weights)
-
-}
-
-
 #' Wrapper for Ordinal Logistic Regression (cumulative link model) for Replicate Weights
 #'
 #' Uses \code{\link[survey]{withReplicates}} and \code{\link[ordinal]{clm}} to generate

man/svyintReg.Rd

@@ -6,7 +6,6 @@ library(nnet)
 library(quantreg)
 library(MASS)
 library(crch)
-library(intReg)
 
 # use survey package example
 # replicate weights - jackknife (this is slower)
@@ -56,14 +55,3 @@ test_that("coefs work for censored reg", {
   reg <- as.vector(reg)
   expect_equal(svy,reg)
 })
-
-test_that("coefs work for intreg",{
-  newVar <- sample(1:3,200,replace=TRUE)
-  apistrat$low <- c(10000,50000,100000)[newVar]
-  apistrat$high <- c(49999,99999,199999)[newVar]
-  jkstrat <- update(jkstrat,low = c(10000,50000,100000)[newVar],high = c(49999,99999,199999)[newVar])
-  svy <- as.vector(svyintReg(cbind(low,high)~api00+api99+factor(sch.wide)+meals,jkstrat))
-  reg <- coef(intReg(cbind(low,high)~api00+api99+factor(sch.wide)+meals,data=apistrat,weights=apistrat$pw))
-  reg <- as.vector(reg)
-  expect_equal(svy,reg)
-})