search for: con1

...)', the resulting columns have names derived from the original filenames. Example code is below. My question is, where are these names stored in the list? Are there methods that can access this from the list? Is there a way to preserve them verbatim? Thanks -Ed > example.names [1] "con1-1-masked-bottom-green.tsv" "con1-1-masked-bottom-red.tsv" [3] "con1-1-masked-top-green.tsv" "con1-1-masked-top-red.tsv" > example.list <- strsplit(example.names, "-") > example.list [[1]] [1] "con1" "1" "...

...ion) - the following works fine on a Red Hat Linux 6.2 system - under Windows the while(isIncomplete()) loop exits immediately for some reason, although the socket connection as a source for source() works fine: ## two R processes communicating via non-blocking sockets # R process 1 con1 <- socketConnection(port = 6011, server=TRUE) writeLines("plot(rnorm(100))", con1) writeLines("plot(rnorm(1000))", con1) writeLines("plot(rnorm(10000))", con1) close(con1) # R process 2 con2 <- socketConnection(Sys.info()["node...

The `gzcon` function both modifies and copies a connection object: # compressed text con1 <- url("http://www.stats.ox.ac.uk/pub/datasets/csb/ch12.dat.gz") con2 <- gzcon(con1) # almost indistinguishable con1==con2 identical(summary(con2), summary(con1)) # both support gzip readLines(con1, n = 3) readLines(con2, n = 3) # opening one opens both isOpen(c...

Hi when I use con1 <- socketConnection(...) in R and want to send text from another application written in Delphi to R, do I just have to send the text or do I have to implement more control characters and so on? Is con1 <- socketConnection(port=6011, server=TRUE) writeLines("plot(rnorm(100))", co...

Greetings, I have a nagging problem with contrasts and I can't seem to resolve it. A factor exists with four levels (lib1, lib2, con1, con2) and when I check the contrasts or set the contrasts to any of the prespecified ones, I do not get the exact contrasts necessary to test the theoretically relevant ones. I need orthogonal contrasts that look just like this matrix: con1 con2 con3 lib1 1 0 1 lib2...

This is what I get on R 3.3.1 on Linux: > con1 <- textConnection("foo1", open = "w") > print(con1) description class mode text "foo1" "textConnection" "w" "text" opened can read can...

Using the package /RMySQL/ I have established a connection ('con1') to a MySQL-Database called 'mc'. This database contains a table called 'mc_2000' which has 200000 observations on several variables. One of these variables is called 'B5' (type 'double'). When I generate a numeric vector in R called 'B6' that has the sa...

I have an application called dynaterm which I can run successfully under wine but to achieve 110% success I need to pass this application a parameter which must contain double quotes E.G. C:/Program Files/dynaterm8/dynaterm.exe -connect:"con1" So I've tried escaping the quotes and setting the launcher command to wine "C:/Program Files/dynaterm8/dynaterm.exe -connect:\"con1\"" or using \\" etc but with no success. Can anyone offer any ideas on passing the double quotes within the parameters to th...

Please help me, I use R-1.4.1 and everything works fine. But with R-1.5.1 ist does'nt work: I have this put into a file called "socket.R" while(TRUE){ con1 <- socketConnection(host="localhost",port=6021,server=TRUE); source(con1); close(con1); } So I can use R with: source("socket.R") and R answers me when I send a command to it via socket 6021. But in version 1.5.1 it does'nt work. Have you any idea? Many thanks Ralf...

Dear All, I am using this query it returns id : id <- dbGetQuery(con1,"SELECT id FROM tenants WHERE name LIKE '%consim%'") But In my case the string "consim" is there in another variable(it is coming from configuration file); > str <- "consim" I am trying to replace the string some this like, but it not working: > id...

...rep(1,each=n)> yop=cbind(constant,feature[,1],price[,1])> dan=cbind(constant,feature[,2],price[,2])> hil=cbind(constant,feature[,3],price[,3])> wt=cbind(feature[,4],price[,4])> > fr <- function(x) { + x1 = x[1]+ x2 = x[2]+ x3 = x[3]+ x4 = x[4]+ x5 = x[5]+ x6 = x[6]+ x7 = x[7]+ con1 = rbind(x[1],x[5],x[6])+ con2 = rbind(x[2],x[5],x[6])+ con3 = rbind(x[3],x[5],x[6])+ con4 = rbind(x[5],x[6])+ rho=exp(x[7])/(1+exp(x[7]))+ ey = exp((yop%*%con1)/rho)+ ed = exp((dan%*%con2)/rho)+ eh = exp((hil%*%con3)/rho)+ ew = exp((wt%*%con4)/rho)+ ev = ey+ed+eh+ew+ den=(ey+ed+eh+ew)+ iv = rho*log...

...choice = yogurt[,2:5] price=yogurt[,14:17] feature=yogurt[,6:9] n = nrow(yogurt) constant = rep(1,n) yop=cbind(constant,feature[,1],price[,1]) dan=cbind(constant,feature[,2],price[,2]) hil=cbind(constant,feature[,3],price[,3]) wt=cbind(feature[,4],price[,4]) library(maxLik) fr <- function(x) { con1 = rbind(x[1],x[5],x[6]) con2 = rbind(x[2],x[5],x[6]) con3 = rbind(x[3],x[5],x[6]) con4 = rbind(x[5],x[6]) rho = exp(x[7])/(1+exp(x[7])) ey = exp((yop%*%con1)/rho) ed = exp((dan%*%con2)/rho) eh = exp((hil%*%con3)/rho) ew = exp((wt%*%con4)/rho) ev = ey+ed+eh+ew den=(ey+ed+eh+ew) iv = rho*log(den) pp=...

.../3.0/vcf/genomes/gnomad.genomes.r3.0.sites.chr1.vcf.bgz" > con <- gcs_connection(uri) > data <- readBin(con, raw(), 4*1024*1024) > close(con) > ## write data to a file > file_path <- tempfile() > writeBin(data, file_path) > ## Read the data using `gzfile` > con1 <- gzfile(file_path) > str(readLines(con1, 1000)) > ## Read the data using `gzcon` > ## We create a raw connection from the raw vector > con2 <- gzcon(rawConnection(data)) > str(readLines(con2, 1000)) output: > > str(readLines(con1, 1000)) > chr [1:1000] "##...

...s)] if (numberOfContrasts > 0 ) { contrastsStartAt=(inNumberOfOutputBriks-(numberOfContrasts*2))+1 cat("Contrasts start at ", contrastsStartAt, "\n") for (i in seq(1, numberOfContrasts, by=1)) { print( inContrasts[[i]]) con1=contrast(mylme, a =inContrasts[[i]]$a, b =inContrasts[[i]]$b, type="average") if (length(con1) > 1) { outStats[contrastsStartAt:contrastsStartAt+1] <- c(con1$Contrast, con1$testStat) } contrastsStartAt=contrastsStartAt+2 } }...

...quot;2) Info_G<0.5". Thank you in advance! And thanks for Eric who helped with my previous question about starting "rpart". Olga > fit <- rpart(Retention ~ Info_G+AOPD+Mail+Xref_Umbr+Ins_Age+Discount+Xref_A + Con6 + + Con5 + Con4 + + Con3 + Con2 + + Con1 , data=Home,control=rpart.control(minsplit=5)) > > fit n= 48407 node), split, n, deviance, yval * denotes terminal node 1) root 48407 4730.642 0.8902225 2) Info_G< 0.5 14280 1999.293 0.8316527 * 3) Info_G>=0.5 34127 2661.865 0.9147303 * > [[alternative HTML version delete...

...zen: <20091201144125.316310 at gmx.net> <8E40E49F-E8FC-4FBD-8CC5-93789FFB0E53 at auckland.ac.nz> This works fine for your example, but doesn't work as simple if there's more than these expressions. In my example this would be in line 11: newexp=as.expression(substitute(a+con1/con2*b^con3,list(a=newexp[[1]],b=expression(dx)[[1]],con1=eval(exp0,ls),con2=factorial(i),con3=1*i))) this works just fine and you can still evaluate this. thank you very much! If there's an easier way, let me know. Greets, Ben M?ller Rolf Turner schrieb: > > On 2/12/2009, at 3:41 AM,...

Full_Name: Haobo Ren Version: 2.1.1 OS: Windows 2000 Submission from: (NULL) (192.11.226.116) When running constrOptim, there is error message Error: subscript out of bounds

...unable to start device devWindows > sink('CON.txt') Error in file(file, ifelse(append, "a", "w")) : unable to open connection > Any filename other than this works fine. > png('ICON.png') > dev.off() null device 1 > png('CON1.png') > dev.off() null device 1 > sink('log.txt') > sink() > Remembering that in the old DOS days, commands like 'copy CON myfile.bat' were common, I suspected that this has something to do with CON being a reserved word so I tried to create the files m...

Hi All, I've been having a little trouble with creating a loop that will run a a series of t.tests for inspection, Below is the code i've tried, and some checks i've looked at. I've used the get(paste()) idea as i was told previously that the use of the eval should try and be avoided. I've run a single syntax to check that my systax is correct and works without any problems