search for: nms

...is what I see (those are just some debug statements I put in to follow the code) Request 1 "Accept: text/xml" - "starting find_template, options are :" {:action=>"index", :ext=>"rxml,xerb,builder"} - match on elsif action path is : /Users/dusty/nms/app/views/testing/index - no cache, created glob glob is : /Users/dusty/nms/app/views/testing/index.{rxml,xerb,builder} - searched Dir[glob].first and found found is : /Users/dusty/nms/app/views/testing/index.xerb - finished find_template, template is: "/Users/dusty/nms/app/views/testi...

...<NA> constant 5.423347 -2.3131939 -5.830590 -1.6411237 <NA> -2.313194 3.2273762 1.852007 -0.5710227 <NA> -5.830590 1.8520067 11.948892 -3.5525537 <NA> -1.641124 -0.5710227 -3.552554 10.0989829 > is.matrix(u) [1] TRUE > diag(u) Error in if (is.list(nms) && !any(sapply(nms, is.null)) && all((nm <- nms[[1]][1:m]) == : missing value where TRUE/FALSE needed > What's going on here? > R.version _ platform powerpc-apple-darwin8.2.0 arch powerpc os darwin8.2.0 system powerpc, darwin8.2.0...

barchart(Titanic, stack=F) produces a very nice horizontal barchart. Each panel has four groups of two bars. barchart(Titanic, stack=F, horizontal=F) doesn't produce the results I would have expected, as it produces this warning message: Warning message: y should be numeric in: bwplot.formula(x = as.formula(form), data = list(Class = c(1, And it results in each panel having 22 groups of

...se: nfile <- file.path(dir, c("NEWS.Rd", file.path("inst", "NEWS.Rd"))) On the slim chance it should, I modified the path to my source folder's copy and continued debugging into tools:::.build_news_db_from_package_NEWS_Rd(). debug: ind <- grepl(re_v, nms, ignore.case = TRUE) Browse[2]> debug: if (!all(ind)) warning("Cannot extract version info from the following section titles:\n", Browse[2]> ind [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE Browse[2]> debug: NULL Browse[2]> debug: .make_news_db(cbind(ifelse(ind, sub(re...

Is there a tidy way to get the names of objects passed to a function via the "..." argument? rbind/cbind does what I want: test.func1 <- function(...) { nms <- rownames(rbind(..., deparse.level=1)) print(nms) } x <- "some stuff" second <- "more stuff" test.func1(first=x, second) [1] "first" "second" The usual 'deparse(substitute())' doesn't do it: test.func2 <- function(...) { nm...

I'm pleased to announce the availability of CHAN_NMS - channel driver for NMS Communications (now Dialogic) hardware. The attached README explains it all. The project website is http://chan-nms.hosting.lv/ CHAN_NMS is an Asterisk PBX channel driver that supports NMS Communications [1] (acquired by Dialogic [2]) Open Access line of products, that...

...replacing if (is.matrix(x) && nargs() == 1) return(c(x)[1 + 0:(min(dim(x)) - 1) * (dim(x)[1] + 1)]) the first two lines, with something like if (is.matrix(x) && nargs() == 1) { y <- c(x)[1 + 0:(min(dim(x)) - 1) * (dim(x)[1] + 1)] if (!is.null(nms <- dimnames(x)) && all(nms[[1]]==nms[[2]])) names(y) <- nms[[1]] return(y) } Just a thought, Jonathan. Jonathan Rougier Science Laboratories Department of Mathematical Sciences South Road University of Durham Durham D...

...ibrary/base/R/diag.R (revision 68345) +++ src/library/base/R/diag.R (working copy) @@ -23,9 +23,11 @@ stop("'nrow' or 'ncol' cannot be specified when 'x' is a matrix") if((m <- min(dim(x))) == 0L) return(vector(typeof(x), 0L)) + nms <- dimnames(x) + nrow <- dim(x)[1L] ## NB: need double index to avoid overflows. - y <- c(x)[1 + 0L:(m - 1L) * (dim(x)[1L] + 1)] - nms <- dimnames(x) + if (is.object(x)) x <- c(x) /Henrik On Tue, May 12, 2015 at 8:24 PM, Henrik Bengtsson <hen...

>>>>> Steve Bronder <sbronder at stevebronder.com> >>>>> on Thu, 7 May 2015 11:49:49 -0400 writes: > Is it possible to replace c() with .subset()? It would be possible, but I think "entirely" wrong. .subset() is documented to be an internal function not to be used "lightly" and more to the point it is documented to *NOT*

I want to replace a custom PBX, that is infront on a IVR system based on OLD NMS AG-E1 Card. The Cards is configurated with CAS Digitalmode, someone can give me some info about Digim Cards CAS configuration i need a conversion Table? I wanto to don't touch configuration on winbox, i want only replace HWPBX box with asterisk. Diagram Telco E1 ===>Proprietary PBX====...

Hey All, I was wondering if I could solicit a little input on what I'm trying to do here. I have a list of matrices, and I want to set their dimnames, but all I can come up with is this: x <- matrix(1:4,2) y <- matrix(5:8,2) z <- list(x,y) nm <- c("a","b") nms <- list(nm,nm) z <- lapply(z,function(x)dimnames(x)<-nms) As you can see, this doesn't quite work. Could anybody help me, and bonus points if you can help me do this efficiently. Please cc my email address, because I only get summaries of the list. Thanks in advance!

Looks like the c(x)[...] bit used to be as.matrix(x)[...]. Not sure why the change was made many years ago, but this was before names were handled explicitly. It would definitely be better to not force the duplicate, at least in the case where we are sure c() and [ would not dispatch. Best, luke On Mon, 4 May 2015, peter dalgaard wrote: > >> On 04 May 2015, at 19:59 , franknarf

...ackages?) for returning a data.frame. I'm trying to start my function so that it takes a data.frame as an argument and returns a data.frame (post-hocus-pocus). Here's my function so far... SEXP testfunction3( SEXP m_in ) { int *mdims, n, p, i; double *mm; SEXP m_out; SEXP nms; if( !isMatrix( m_in ) ) { error("m_in must be a matrix"); } mdims = INTEGER( GET_DIM( m_in ) ); n = mdims[0]; p = mdims[1]; PROTECT( m_out = NEW_NUMERIC( p ) ); PROTECT( m_in = AS_NUMERIC( m_in ) ); PROTECT( nms = GET_COLNAMES( GET_DIMNAMES( m_in ) )...

...====================== --- diag.R (revision 68345) +++ diag.R (working copy) @@ -23,9 +23,11 @@ stop("'nrow' or 'ncol' cannot be specified when 'x' is a matrix") if((m <- min(dim(x))) == 0L) return(vector(typeof(x), 0L)) + nms <- dimnames(x) + nrow <- dim(x)[1L] ## NB: need double index to avoid overflows. - y <- c(x)[1 + 0L:(m - 1L) * (dim(x)[1L] + 1)] - nms <- dimnames(x) + if (!is.null(attr(x, "class"))) x <- c(x) + y <- x[1 + 0L:(m - 1L) * (nrow...

...good search phrase for this question. I have a named vector x, with multiple (duplicate) names, and I would like to obtain a (shorter) vector with non-duplicate names in which the values are the means of the values of the duplicated indexes in x. My best (fastest) solution to this was this code: nms <- names( x ) x.uniq <- sapply( unique( nms ), function( i ) mean( subtracted[ nms == i ] ) ) However, this takes forever on my beefy Mac Pro. Is there a faster way to this using pre-written functions in R? Thanks a lot for any advice. -David

...le in defining the axes. I have been thinking of different ways of doing this and I was wondering if anyone had a suggestion for an easy way to do this (possibly a way to weight samples in the analysis?) Thanks -- View this message in context: http://r.789695.n4.nabble.com/Projecting-data-onto-a-NMS-plot-tp3238006p3238006.html Sent from the R help mailing list archive at Nabble.com.

...had to be manually killed. What is causing the errors below and what can I do to fix them? Thanks. ---------------------------------------------------- [2002/10/15 04:45:43, 0] smbd/oplock.c:oplock_break(796) oplock_break: receive_smb timed out after 30 seconds. oplock_break failed for file NMS Photos/What's NMS About/6.zip (dev = 812, inode = 405606, file_id = 4810). [2002/10/15 04:45:43, 0] smbd/oplock.c:oplock_break(868) oplock_break: client failure in oplock break in file NMS Photos/What's NMS About/6.zip [2002/10/15 04:45:43, 0] smbd/reply.c:reply_lockingX(4489) reply_l...

...ld be considered random/unpredictable. Sample data: vec = c("1","2","3","-","-","-","4","5","6","1","2","3","-","-","-") rep_vec = rep(vec,times=20) nms = c("A","B","C","D") I need to get this: A B C D "123" "---" "456" "123" "---" "123" "---" "456" "123" "---" "123" "---" &qu...

...24 (loads sp: Version: 0.9-72) # read in the data states<-readOGR(".","s_01de10") summary(states) # now create a neighbors list states_nb<-poly2nb(states) # create a 0/1 matrix of the neighbors nb_mat<-nb2mat(states_nb,style="B",zero.policy=TRUE) # add names nms<-as.character(states$NAMES) # set the matrix names dimnames(nb_mat)<-list(nms,nms) # now see which states have no neighbors rowSums(nb_mat) # it turns out that Florida seems to have zero neighbors. I then repeated it with states_nb<-poly2nb(states,useC=FALSE) and this time -- the compu...

...quot;)) + est <- center/(sqrt((MSE/2) * outer(1/n, 1/n, "+"))[keep]) + pvals <- ptukey(abs(est),length(means),x$df.residual,lower.tail=FALSE) + dnames <- list(NULL, c("diff", "lwr", "upr","p adj")) if (!is.null(nms)) dnames[[1]] <- outer(nms, nms, paste, sep = "-")[keep] - out[[nm]] <- array(c(center, center - width, center + width), - c(length(width), 3), dnames) + out[[nm]] <- array(c(center, center - width, center + width,pvals), +...