search for: nkeep

...length and \n", "cov.times must have one more entry than each element of cov.")) var.names <- names(data) subjects <- rownames(data) omit.cols <- if (!common.times) c(all.cov, cov.times) else all.cov keep.cols <- (1:ncol)[-omit.cols] nkeep <- length(keep.cols) if (is.numeric(event)) event <- var.names[event] times <- if (common.times) matrix(cov.times, nrow, ncov+1, byrow=T) else data[, cov.times] new.data <- matrix(Inf, nobs, 3 + ncovs + nkeep) rownames <- rep("", nobs) coln...

Is there a weighted median function out there similar to weighted.mean() but for medians? If not, I'll try implement or port it myself. The need for a weighted median came from the following optimization problem: x* = arg_x min (a|x| + sum_{k=1}^n |x - b_k|) where a : is a *positive* real scalar x : is a real scalar n : is an integer b_k: are negative and positive scalars

...recv(27, "HTTP/1.1 100 Continue\r\n\r\n", 2048, 0) = 25 15:47:40 time(NULL) = 1197643660 15:47:40 time(NULL) = 1197643660 15:47:40 recv(27, "HTTP/1.1 200 OK\r\nDate: Fri, 14 Dec 2007 14:47:40 GMT\r\nServer: CUPS/1.2\r\nConnection: Keep-Alive\r\nKeep-Alive: timeout=60\r\nContent-Language: fr\r\nContent-Type: application/ipp\r\nContent-Length: 4215\r\n\r\n", 2048, 0) = 197 15:47:40 time(NULL) = 1197643660 15:47:40 time(NULL) = 1197643660 15:47:40 time(NULL) = 1197643660 15:47:40 ti...

...ClOleCommandTarget_Exec (0x13ce08)->((null) 28 2 0x33e20c (nil)) > fixme:mshtml:HttpNegotiate_OnResponse (0x1618a8)->(200 L"HTTP/1.1 200 OK\r\nDate: Sun, 08 Feb 2009 06:08:13 GMT\r\nServer: Apache\r\nCache-control: no-store, no-cache\r\nContent-Encoding: gzip\r\nContent-Length: 1161\r\nKeep-Alive: timeout=30, max=1000\r\nConnection: Keep-Alive\r\nContent-Type: text/html;charset=UTF-8\r\n\r\n" (null) 0x33de74) > fixme:shell:DllCanUnloadNow stub > fixme:shell:DllCanUnloadNow stub > fixme:shell:DllCanUnloadNow stub > > > And then when I push Launch; > fixme:sh...