Displaying 3 results from an estimated 3 matches for "midx".
Did you mean:
idx
2011 May 06
1
(no subject)
I'm using the survey api. I am taking 1000 samples of size of 100 and
replacing 20 of those values with missing values. Im trying to use
sequential hot deck imputation, and thus I am trying to figure out how
to replace missing values with the value before it. Other things I have
to keep in mind is if there are two missing values side by side, how do I
replace both those values with the
2005 Apr 23
3
Enhanced version of plot.lm()
...) {
if (is.null(labels.id))
labels.id <- paste(1:n)
iid <- 1:id.n
show.r <- sort.list(abs(r), decreasing = TRUE)[iid]
if (any(show[2:3]))
show.rs <- sort.list(abs(rs), decreasing = TRUE)[iid]
text.id <- function(x, y, ind, adj.x = FALSE){
midx <- mean(range(x))
labpos <- if (!adj.x) 3
else
label.pos[1+as.numeric(x>midx)]
text(x, y, labels.id[ind], cex = cex.id, xpd = TRUE, pos=labpos,
offset=0.25)
}
}
one.fig <- prod(par("mfcol")) == 1
if (ask) {
op <-...
2010 Oct 15
0
nomianl response model
...well as a two-component list for the inserts:
H <- c(0.88, 0.72, 0.89, 0.93, 1.23, 0.86)
T <- c(7.14, 7.14, 7.49, 8.14, 7.14, 7.32)
O <- c(0, 0, 0, 2, 0, 0)
R <- c(1.2, 1.4)
m <- rbind(H, T)
o <- rbind(O, c(0, 0, 1, 0, 0, 0))
l <- list(R1 = R, R2 = 1.6)
f <- function(mval, midx, mrep) {
if(nrow(mval) != nrow(midx) || nrow(midx) != length(l))
stop('unequal numbers of rows among inputs')
n <- nrow(mval)
out <- vector('list', n)
for(i in seq_len(n))
out[[i]] <- append(mval[i, ], as.numeric(l[[i]]), after =
which(midx[...