Displaying 6 results from an estimated 6 matches for "namc".
Did you mean:
nac
2005 Oct 04
1
"Survey" package and NAMCS data... unsure of specification
...latory Medical Care Survey, and am having some difficulty translating
the analysis keywords from one package (Stata) to the other (R). The data
were collected using a multistage probability sampling, and there are
variables included to identify the sampling units and weights. Documentation
from the NAMCS describes this for Stata as follows (note the variable names
in the data are in caps):
The pweight (PATWT), strata (CSTRATM), and PSU (CPSUM) are set with the
svyset command as
follows:
svyset pweight PATWT
svyset strata CSTRATM
svyset psu CPSUM
They provide similar instructions for SUDAAN: as...
2005 Sep 13
1
Anyone have any code for importing data from NAMCS?
The National Ambulatory and Medical Care Survey is a free data set from the
CDC that I'd like to analyze using the "Survey" package in R. Before I dive
in, though, it occurred to me that someone may already have gone to the
trouble of writing code that will bring in the data and assign the variable
names and value labels. This is a big file, so doing it from scratch will
take
2011 May 18
1
Need expert help with model.matrix
...<- sapply(data, is.ordered)
for (nn in namD[isF]) if (is.null(attr(data[[nn]], "contrasts")))
contrasts(data[[nn]]) <- contr.funs[1 + isOF[nn]]
# browser()
if (!is.null(contrasts.arg) && is.list(contrasts.arg)) {
if (is.null(namC <- names(contrasts.arg)))
stop("invalid 'contrasts.arg' argument")
for (nn in namC) {
if (is.na(ni <- match(nn, namD)))
warning(gettextf("variable '%s' is absent, its contrast
will be ignored",...
2013 Apr 12
2
model frame and formula mismatch in model.matrix()
Hello everyone,
I am trying to fit the following model
All X. variables are continuous, while the conditions are categoricals.
model <- lm(X2
2009 May 05
0
stepAICc function (based on MASS:::stepAIC.default)
...ctAIC(x, k = 0)[2L]
}
cut.string <- function(string) {
if (length(string) > 1L)
string[-1L] <- paste("\n", string[-1L], sep = "")
string
}
re.arrange <- function(keep) {
namr <- names(k1 <- keep[[1L]])
namc <- names(keep)
nc <- length(keep)
nr <- length(k1)
array(unlist(keep, recursive = FALSE), c(nr, nc), list(namr,
namc))
}
step.results <- function(models, fit, object, usingCp = FALSE) {
change <- sapply(models, "[[", "...
2008 Apr 04
2
suggested minor patch for optim.R
...-
type = 1,
lmm = 5, factr = 1e7, pgtol = 0,
tmax = 10, temp = 10.0)
+ orig.names <- names(con)
if (method == "Nelder-Mead") con$maxit <- 500
if (method == "SANN") con$maxit <- 10000
con[(namc <- names(control))] <- control
+ newnames <- names(control)[!names(control) %in% orig.names]
+ if (length(newnames)>0)
+ warning(paste("unknown names in
control:",paste(newnames,collapse=", ")))
if(con$trace < 0)
warning("read...