search for: qqq

...lem elegantly using lattice? The difficulty is to lock the levels of the factor (the columns) into the same scale for each y variable (for each row), while allowing the scales to differ between the y variables (between the rows). Details: # Toy data: N<-15 TIME <- (1:N)/N ppp <- TIME^2 QQQ <- exp(TIME) z <- ppp / QQQ JUNK<-data.frame( ppp=ppp, QQQ=QQQ, z=z, TIME=TIME) JUNK$ID<-1 jank<-JUNK jank$ID<-2 jank$ppp<-jank$ppp / 2 jank$QQQ<-jank$QQQ / 2 jank$z<-jank$ppp/jank$QQQ JUNK<-rbind(JUNK, jank) jank<-JUNK jank$ppp<-(jank$ppp) ^(1/4) jank$QQQ<-(j...

I wish it didn't have to depend on the name '.local'. Back when I wrote a lot of S4 methods I avoided the auto-generated .local and named the local function something that made sense so that is was easier for a user to track down the source of an error. E.g., define the generic QQQ with numeric and integer methods: setGeneric("QQQ", function(x, ...)NULL) setMethod("QQQ", signature=signature(x="numeric"), function(x, lower, ...) { if (x<lower) stop("x<lower") }) setMethod(&quot...

...cal'. > > > > Back when I wrote a lot of S4 methods I avoided the auto-generated .local > > and named the local function something that made sense so that is was > easier > > for a user to track down the source of an error. > > > > E.g., define the generic QQQ with numeric and integer methods: > > setGeneric("QQQ", > > function(x, ...)NULL) > > setMethod("QQQ", > > signature=signature(x="numeric"), > > function(x, lower, ...) { > > if (x<lowe...

...ve to depend on the name '.local'. > > Back when I wrote a lot of S4 methods I avoided the auto-generated .local > and named the local function something that made sense so that is was easier > for a user to track down the source of an error. > > E.g., define the generic QQQ with numeric and integer methods: > setGeneric("QQQ", > function(x, ...)NULL) > setMethod("QQQ", > signature=signature(x="numeric"), > function(x, lower, ...) { > if (x<lower) stop("x<lower"...

Suppose I have the following function myFun <- function(formula, data){ f <- formula(formula) dat <- model.frame(f, data) dat } Applying it with this sample data yields a new dataframe: qqq <- data.frame(grade = c(3, NA, 3,4,5,5,4,3), score = rnorm(8), idVar = c(1:8)) dat <- myFun(score ~ grade, qqq) However, what I would like is for the resulting dataframe (dat) to include as a column idVar. Naively, I could do dat <- myFun(score ~ grade + idVar, qqq) This gives what I...

I was on vacation the last week and wrote some code to run a 500-day correlation between the Nasdaq tracking stock (QQQ) and 191 currency pairs for 500 days. The initial run took 9 hours(!) and I'd like to make it faster. So, I'm including my code below, in hopes that somebody will be able to figure out how to make it faster, either through parallelisation, or by making changes. I've marked the places wh...

...te one new file, even with Gb size; but if we haven''t remove something we can''t create even very little file, as an example using touch command: [client]$ touch newfile touch: cannot touch `newfile'': No space left on device [client]$ rm oldfile rm: remove regular file `qqq''? y [client]$ dd bs=100M count=10 < /dev/zero > qqq 10+0 records in 10+0 records out 1048576000 bytes (1.0 GB) copied, 15.9882 s, 65.6 MB/s beda:/mnt/lustre# dd bs=100M count=10 < /dev/zero > qqq.tmp qqq.tmp: No space left on device. beda:/mnt/lustre# dd bs=100M count=10 < /...

On Jan 28, 2015, at 6:37 PM, Michael Lawrence <lawrence.michael at gene.com> wrote: > At this point I would just due: > > formals(body(method)[[2L]]) > > At some point we need to figure out what to do with this .local() confusion. Agreed, definitely. The current hack is to avoid re-matching arguments on method dispatch, so a fix would need to be fairly deep in the

...err:imagelist:ImageList_ReplaceIcon no color! err:imagelist:ImageList_ReplaceIcon no color! Looked to me like this was trying to do something in X (even though the app produces NO graphical output), so I tried overriding the DISPLAY variable to an invalid display: $ WINEPREFIX=/work/diab DISPLAY=qqq:0.0 c:\\diab\\5.2.1.0\\WIN32\\bin\\dcc -c -o obj/hello.o hello.c _X11TransSocketINETConnect() can't get address for qqq:6000: Name or service not known err:imagelist:ImageList_ReplaceIcon no color! err:imagelist:ImageList_ReplaceIcon no color! err:imagelist:ImageList_ReplaceIcon no color! err...

...# However, the way I want to do it is for a an expression "stored as a variable" as (expr <- expression(a+b+c)) expression(a + b + c) # a) The following does not work (expr2 <- substitute(expr, list(a=1))) expr # b) - whereas this does work: ans <- eval(substitute(substitute(qqq, list(a=1)), list(qqq=expr[[1]]))) as.expression(ans) expression(1 + b + c) # I have - at least - two problems: # I am not sure I understand 1) why a) does not work and 2) why b) does work. # Can anyone point me in the right direction? # Thanks # Søren [[alternative HTML version deleted]]

...sqdf)) { rv = data.frame(mid,year,sample,samplesize,estimate,sd,loglik,aic,bic,chisq,chisqpvalue,chisqdf) rv } } I use the following, with different data, successfully: z <- lapply(split(moreinfo,list(moreinfo$m_id,moreinfo$sale_year,moreinfo$sale_week),drop = TRUE), funweek) qqq <- z[, c('mid', 'year', 'sample', 'samplesize', 'estimate', 'sd', 'loglik', 'aic','bic', 'chisq', 'chisqpvalue', 'chisqdf')] ndf2 <- do.call(rbind, qqq) However, I am now getting the following er...

...fect, that means > that the user has promised that at this point during execution, > we will *always* have the default FP environment. > This is a strong statement (no pragma == default mode), we need to confirm it with proper references to the standard. If it is true and the code: float qqq(float x) { return nearbyint(x); } is really equivalent to: float qqq(float x) { return roundeven(x); } (in absence of 'pragma STD FENV_ACCESS), it is a fact that would be surprise for many user. Thanks, --Serge -------------- next part -------------- An HTML attachment was scrubbed.....

...Added 1/7/06 local master = yes wins proxy = no wins support = yes # Added 9/06 password server = yes # # Added to reduce network traffic name resolve order = host wins bcast remote announce = 128.148.nn.255/DEPT 128.148.mmm.255/DEPT 128.148.ooo.255/DEPT 128.148.ppp.255/DEPT 128.148.qqq.255/DEPT invalid users = bin daemon sys adm tty disk lp mem kmem wheel mail news uucp m an games gopher dip ftp floppy utmp xfs console pppusers popusers slipusers slocate gd m filesystem root valid users = @deptusers @dept2users @users @stockroom @guest username map = /etc/samba/smbusers...

...COM 4 OPTIONSXPRESS HLDGS INC COM 5 SUPERIOR WELL SVCS INC COM 6 HCP INC COM 7 SENIOR HSG PPTYS TR SH BEN INT 8 NATIONWIDE HEALTH PPTYS INC COM 9 DUKE REALTY CORP COM NEW 10 HEALTH CARE REIT INC COM 11 POWERSHARES QQQ TRUST UNIT SER 1 12 FLEXTRONICS INTL LTD ORD 13 VENTAS INC COM However with 60 cases the names above are not fitting neatly into plot. Can someone advice on plot Parameters to fix the size of dendrogram and see the full names on X axis? Thanks. Neil -----------...

DF1 name OTHER ABC O KKK O QQQ O DDD O PPP O DF2 name ABC KKK DDD If the names in df1 resides in df2, then add the mapped name to df1 as a separate column, for instance "mappedColumn" the output should be: DF1 name OTHER mappedColumn ABC O ABC KKK O KKK QQQ O DDD O PPP...

...at there is apparently another box around called myserver.topdomain.country, whereas my Samba server is myserver.subdomain.topdomain.country. Is this a problem?) Going through the diagnostics test, No. 5 fails: myserver# nmblookup -B xxx.yyy.zzz.0 -d 2 '*' Added interface ip=xxx.yyy.www.qqq bcast=xxx.yyy.255.255 nmask=255.255.0.0 Sending queries to xxx.yyy.zzz.0 name_query failed to find name * xxx.yyy.www.qqq is the IP-address of the Samba server myserver and xxx.yyy.zzz is the other subnet on which the new machines are located. I don't really understand subnets and interfaces...

List, A recent discussion over on XiphWiki is trying to decide if OggPCM should support only little-endianness or the usual combo of big and little. It started with the following statement by an user (Qqq): "Portable players are usually ARM, which is usually little-endian. The Macintosh is now little-endian. Obviously the PC is little-endian. Clearly there is a winner. It's long past time to stop putting the bytes in an order that makes both programmers and computers do extra work for no g...

I am new to R so I apologize if my question is trivial. I have not been able to figure out whether what I want to do is even possible. I have a data frame of stock ticker symbols which I store into R space from a txt file as follows: tickers <- read.csv("stocks.txt", header=FALSE, sep=",") tickers <- tickers[1] / the tickers are stored in the first column >

...Added 1/7/06 local master = yes wins proxy = no wins support = yes # Added 9/06 password server = yes # # Added to reduce network traffic name resolve order = host wins bcast remote announce = 128.148.nn.255/DEPT 128.148.mmm.255/DEPT 128.148.ooo.255/DEPT 128.148.ppp.255/DEPT 128.148.qqq.255/DEPT invalid users = bin daemon sys adm tty disk lp mem kmem wheel mail news uucp m an games gopher dip ftp floppy utmp xfs console pppusers popusers slipusers slocate gd m filesystem root valid users = @deptusers @dept2users @users @stockroom @guest username map = /etc/samba/smbusers...

Hello, I have a very basic sftp client which is able to successfully intialize the transport layer, password authenticate, and start the sftp subsystem. Now, I am stuck with an issue when I try to retrieve the directory listing. Sometimes I get a transport packet in which the sftp packet length field registers a length greater than the enclosing transport packet. In othet words sometimes I get a