search for: rtn

Hello, I'm trying to create a data frame with three columns, one of which is a variable-length list. I tried: df <- data.frame(name = c("a", "b", "c"), type=c(1, 2, 3), rtn = c(list(1,2,3), list(4, 5,6), list(7,8,9, 10) ) ) This would be useful, for example, if the 'rtn' is a variable number of observations. That gave me: > df name type rtn.1 rtn.2 rtn.3 rtn.4 rtn.5 rtn.6 rtn.7 rtn.8 rtn.9 rtn.10 1 a 1 1 2 3 4 5...

Hi, I want to compute the lower triangle of a square matrix (optionally, sans diagonal). With for() loops I can do something like this: ## 5 by 5 matrix rtn for (j in 1:5) { for (k in 1:j) { if (j != k) { ## optional rtn[j, k] <- my.func(j, k) } } } I'd like to do this with apply(). Is there some way I can do this kind of 'short-circuit'? Thanks, Mark Wilkinson Informatics Analyst St. Jude Children's Research Hospital D...

...rrier up <<< CFR: 84 CFR with final frame tag In state 4 Trainability test succeeded Start tx page 0 Slow carrier down Changed from phase 3 to 6 Changed from phase 6 to 4 Start tx page 1 >>> EOP: 2f HDLC underflow in state 14 Changed from phase 4 to 3 Slow carrier up <<< RTN: 4c RTN with final frame tag In state 14 Changed from phase 3 to 4 >>> DCN: fb HDLC underflow in state 2 Disconnecting Changed from phase 4 to 7 Changed from phase 7 to 8

...t;, new.env(parent=emptyenv()), envir=environment()) listnames.get.core( list.obj=list.obj, do.basename=do.basename, buffer=buffer ) # /APPLICATION ---------- return(buffer$index) } listbranch.get <- function( list.obj, query, do.strict=TRUE, do.rtn.val=TRUE, msg.error=NULL, ... ) { # VALIDATE if(!is.list(list.obj)) stop("Argument 'list.obj' must be a list.") # / # ESTABLISH LIST INDEX list.index <- jcore.listnames.get( list.obj=list.obj, do.basename=TRUE, do.name.chain=...

...ng things in R. in this case, I just have that feeling that my convoluted line of code is way more complicated than it needs to be. Please help me in seeing the easier way. I want to do something pretty simple. I have a dataframe called x that is 6945 elements long. I'd like to create a vector rtn= log(x[2,2]/x[1,3]), then log(x[3,2]/x[2,3]), then log(x[4,2]/lx[3,3]) ...log(x[6945,2]/x[6944,3]). Also want to put zero as the first element. I know I can do it with a loop but I'd like to figure out the simple way to vectorize it. Here's my solution (it works but it's sure complicat...

...ow can the user set the options with provided values, while retaining the default arg values? This is what I'm trying, but doesn't seem to work in all cases, especially for '. . .': args.full <- function(func.name, opt.list) { form <-formals(func.name) ddd <- c() rtn <- sapply(union(names(form), names(opt.list)), function(arg) { if (is.null(opt.list[[arg]])) { # not user-defined form[[arg]] } else if (is.null(form[[arg]])) { # user-defined '...' ddd <<- c(ddd, opt.list[[arg]]) } else { opt.list[[arg]] } })...

...t26, Constant:i32<0> // [a] t21: v2i16 = extract_subvector t2, Constant:i32<2> //[c d] t22: i16 = extract_vector_elt t21, Constant:i32<0> // [c] t25: v2i16 = BUILD_VECTOR t27, t22 // [a c] t18: ch,glue = CopyToReg t0, Register:v2i16 %m0, t25 t19: ch = RTN t18 t20: ch = RTN_REG_HOLDER t19, Register:v2i16 %m0, t18:1 Creating new node: t28: v2i16 = undef Creating new node: t29: v2i16 = vector_shuffle<0,0> t26, undef:v2i16 After reduceBuildVecToShuffle SelectionDAG has 16 nodes: t0: ch = EntryToken t2: v4i16,ch = CopyFromReg t0, R...

Hello, I have a nested named list structure, like the following: x <- list( list( list(df1,df2) list(df3, list(df4,df5)) list(df6,df7))) with df1...d7 as data frames. Every data frame is named. Is there a way to get a specific named element in x? so, for example, x[[c("df5")]] gives me the data frame 5? Thank you in advance! Best, Friedericksen

...rd") #dollar = dollar[seq(1, nrow(dollar), by =3), ] tim = strptime(dollar[,1], "%d/%m/%Y %H:%M"); dollar$day = format(tim, "%Y-%m-%d"); ##ddx <- row index for each day ddx = split(seq.int(nrow(dollar)), dollar$day); dollarbns = data.frame(day=as.Date(names(ddx)), m=NA, rtn=NA, rv=NA, bv=NA, zg=NA, lzg=NA, zj=NA, zmj=NA, lzm=NA, zgtp=NA, lzgtp=NA, zmjtp=NA, zjtp=NA, lzmtp=NA); for (i in seq_along(ddx)) { ##quotes for day i x = dollar$mid[ddx[[i]]]; n = length(x); y = log(x[-1]/x[-n]);#log price difference y2 = y^2 m = length(y); z999 = (qnorm(1 - .001))...

...tswith("MDIL.barrier.region.")) return AMDILIntrinsic::AMDIL_barrier_region; … if (NameR.startswith("MDIL.fma.")) return AMDILIntrinsic::AMDIL_fma; if (NameR.startswith("MDIL.fma.rte.")) return AMDILIntrinsic::AMDIL_fma_rte; if (NameR.startswith("MDIL.fma.rtn.")) return AMDILIntrinsic::AMDIL_fma_rtn; if (NameR.startswith("MDIL.fma.rtp.")) return AMDILIntrinsic::AMDIL_fma_rtp; if (NameR.startswith("MDIL.fma.rtz.")) return AMDILIntrinsic::AMDIL_fma_rtz; … and several other similar instances.

...on.")) return AMDILIntrinsic::AMDIL_barrier_region; >> … >> if (NameR.startswith("MDIL.fma.")) return AMDILIntrinsic::AMDIL_fma; >> if (NameR.startswith("MDIL.fma.rte.")) return AMDILIntrinsic::AMDIL_fma_rte; >> if (NameR.startswith("MDIL.fma.rtn.")) return AMDILIntrinsic::AMDIL_fma_rtn; >> if (NameR.startswith("MDIL.fma.rtp.")) return AMDILIntrinsic::AMDIL_fma_rtp; >> if (NameR.startswith("MDIL.fma.rtz.")) return AMDILIntrinsic::AMDIL_fma_rtz; >> … >> and several other similar instances....

....barrier.region.")) return AMDILIntrinsic::AMDIL_barrier_region; > … > if (NameR.startswith("MDIL.fma.")) return AMDILIntrinsic::AMDIL_fma; > if (NameR.startswith("MDIL.fma.rte.")) return AMDILIntrinsic::AMDIL_fma_rte; > if (NameR.startswith("MDIL.fma.rtn.")) return AMDILIntrinsic::AMDIL_fma_rtn; > if (NameR.startswith("MDIL.fma.rtp.")) return AMDILIntrinsic::AMDIL_fma_rtp; > if (NameR.startswith("MDIL.fma.rtz.")) return AMDILIntrinsic::AMDIL_fma_rtz; > … > and several other similar instances. > > __...

...IL_barrier_region; > >>> … > >>> if (NameR.startswith("MDIL.fma.")) return AMDILIntrinsic::AMDIL_fma; > >>> if (NameR.startswith("MDIL.fma.rte.")) return > AMDILIntrinsic::AMDIL_fma_rte; > >>> if (NameR.startswith("MDIL.fma.rtn.")) return > AMDILIntrinsic::AMDIL_fma_rtn; > >>> if (NameR.startswith("MDIL.fma.rtp.")) return > AMDILIntrinsic::AMDIL_fma_rtp; > >>> if (NameR.startswith("MDIL.fma.rtz.")) return > AMDILIntrinsic::AMDIL_fma_rtz; > >>> … > &g...

...eturn AMDILIntrinsic::AMDIL_barrier_region; >>> … >>> if (NameR.startswith("MDIL.fma.")) return AMDILIntrinsic::AMDIL_fma; >>> if (NameR.startswith("MDIL.fma.rte.")) return AMDILIntrinsic::AMDIL_fma_rte; >>> if (NameR.startswith("MDIL.fma.rtn.")) return AMDILIntrinsic::AMDIL_fma_rtn; >>> if (NameR.startswith("MDIL.fma.rtp.")) return AMDILIntrinsic::AMDIL_fma_rtp; >>> if (NameR.startswith("MDIL.fma.rtz.")) return AMDILIntrinsic::AMDIL_fma_rtz; >>> … >>> and several other simila...

...hich I have cut out as its not important here) but it only displays age as though it has one level what am I doing wrong and how can I get R to recognise its a factor? Thanks Jane ------------------------------------------------------ BA flight sale now at http://www.lycos.co.uk. Boston, ?129 rtn. including tax, Wednesday, 1pm

...HDLC carrier up HDLC framing OK CFR with final frame tag In state 4 Trainability test succeeded Start tx page 0 HDLC carrier down Restarting V.29 Changed from phase 3 to 6 Changed from phase 6 to 4 Start tx page 1 HDLC underflow in state 13 Changed from phase 4 to 3 HDLC carrier up HDLC framing OK RTN with final frame tag In state 13 Changed from phase 3 to 4 HDLC underflow in state 2 Disconnecting Changed from phase 4 to 7 Changed from phase 7 to 8 >From what I can see, this looks plausible, and certainly shows that there is a significant conversation going on. The Fax Activity Log shows t...

...HDLC carrier up HDLC framing OK CFR with final frame tag In state 4 Trainability test succeeded Start tx page 0 HDLC carrier down Restarting V.29 Changed from phase 3 to 6 Changed from phase 6 to 4 Start tx page 1 HDLC underflow in state 13 Changed from phase 4 to 3 HDLC carrier up HDLC framing OK RTN with final frame tag In state 13 Changed from phase 3 to 4 HDLC underflow in state 2 Disconnecting Changed from phase 4 to 7 Changed from phase 7 to 8 >From what I can see, this looks plausible, and certainly shows that there is a significant conversation going on. The Fax Activity Log shows t...

...ng: ENC_MMR Page Size: LT Document Number: 1 Page Number: 1 File Name: '/tmp/faxes/1526583612555_merged.tiff' Tx Pages: 0 Tx Bytes: 512 Total Tx Lines: 0 Rx Pages: 0 Rx Bytes: 0 Total Rx Lines: 0 Total Bad Lines: 0 DIS/DCS/DTC/CTC Count: 2 CFR Count: 1 FTT Count: 0 MCF Count: 0 PPR Count: 0 RTN Count: 0 DCN Count: 0 Remote StationID: '952253xxxx ' I am using options dfzs with the SendFAX application on Asterisk 11.6-cert18. Steven Wheeler -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.digium.com/pipermail/asterisk-users/...

...extern int (*br_should_route_hook)(struct sk_buff **pskb); diff -Nru a/include/linux/sockios.h b/include/linux/sockios.h --- a/include/linux/sockios.h 2004-05-20 14:46:10 -07:00 +++ b/include/linux/sockios.h 2004-05-20 14:46:10 -07:00 @@ -116,6 +116,12 @@ #define SIOCBONDINFOQUERY 0x8994 /* rtn info about bond state */ #define SIOCBONDCHANGEACTIVE 0x8995 /* update to a new active slave */ +/* bridge calls */ +#define SIOCBRADDBR 0x89a0 /* create new bridge device */ +#define SIOCBRDELBR 0x89a1 /* remove bridge device */ +#define SIOCBRADDIF 0x89a2 /* ad...

...% xxi^.5) adfbetas_abs(dfbetas[,2]) p1_(99/18)*adfbetas*(adfbetas+1)^2+1 p1[adfbetas>2]_100 symbols(x, y, circles=sqrt(p1), inches=0.2*relsize, xlab=xlab, ylab=ylab, cex=cex) } title(main, cex=tcex) if (!ares) abline(rslt) if (id) identify(x, y, dimnames(df)[[1]]) rtn_list(x=x,y=y,rslt=rslt) if (proportional) rtn_list(x=x,y=y,rslt=rslt,dfbetas=dfbetas) invisible(rtn) }