search for: cola

Hi, I am making my way down the learning curve of R, and find it a great language with so many helpful users! Below is an example of what I'm trying to do, but can't quite figure out the right path to go down. Here's what I have: Main is a time series of data with columns Cola and Colb Cola Colb 1 1 1 2 1 1 3 1 1 4 -1 1 5 -1 -1 6 -1 -1 7 1 -1 8 -1...

Hi, I have two dataframes: The first, df1, contains some missing data: cola colb colc cold cole 1 NA 5 9 NA 17 2 NA 6 NA 14 NA 3 3 NA 11 15 19 4 4 8 12 NA 20 The second, df2, contains the following: cola colb colc cold cole 1 1.4 0.8 0.02 1.6 0.6 I'm wanting all missing data in df1$cola to be replaced by the v...

.... (not yet implemented) Motivation: * up to 10 times less memory * up to 10 times faster to create, and copy * simpler R code * the white book defines rownames, so data.frame can't be changed ... => new class Examples: nr = 1000000 D = rep(1:5,nr/5) system.time(DF <<- data.frame(colA=D, colB=D)) # 2.08 system.time(DT <<- data.table(colA=D, colB=D)) # 0.15 (over 10 times faster to create) identical(as.data.table(DF), DT) identical(dim(DT),dim(DF)) object.size(DF)/object.size(DT) # 10 times less memory tt = subset(DF,colA>3) ss = DT[colA>3] identi...

...rrors on the coefficients, which I don't believe Excel Solver does. I'm new to nonlinear optimization, so please forgive any obvious things I've overlooked. Thank you very much for taking a look! Here is the R code, and error message: ColumnA.data<-read.csv(file.choose()) #select ColA.csv ColumnB.data<-read.csv(file.choose()) #select ColB.csv ColumnC.data<-read.csv(file.choose()) #select ColC.csv colA<-ColumnA.data[0:3600,] colB<-ColumnB.data[0:3600,] colC<-ColumnC.data[0:3600,] i<-1:3600 cor.model<-nls(colC ~ exp( - beta2 * abs( colB[i] - colA[i] ) / 12 )...

Hello everybody, I would like to replace or recode a list of numbers between 1 and 12 (total 100). I have tried to make it with recode, but i have two types of replacements. For 1,2,3,4,11,12 => invierno and for 5,6,7,8,9 and 10 => verano. recode(datos.mx1[,7], "1='invierno'; 2='invierno';

Hi, May be this helps: funcName<- function(df1, x){ ?whatCol=df1[[x]] ?print("Got it") ?print(whatCol) ?} ? funcName(df,"ColA") #[1] "Got it" #[1] 1 2 3 4 5 ? funcName(df,"ColB") #[1] "Got it" #[1] A B C D E #Levels: A B C D E A.K. >I am trying to extract the 2nd column from a dataframe using a function called funcName. Note this is an example that I need cos I am using it to &g...

...t; ## Collect Files To Compare ## > setwd(load_from) > files_to_test <- list.files(pattern = "combine.kegg") > > ########################## > ## Initialize Variables ## > vl <- length(files_to_test) > temp <- vector(mode="numeric", length = vl) > colA <- vector(mode="numeric", length = vl) > colB <- vector(mode="numeric", length = vl) > tt <- vector(mode="numeric", length = vl) > > > ######################## > ## Calculate P-values ## > for (i in 1:3){ + temp1 <- read.table(files_...

Hello every body, I am quite a new user of R so I beg your pardon for this naive question and the lake of syntax with wich I ask it: I have a data frames like this: cola colb 1 c 1 i 1 i 1 c 2 i 2 c 2 c 2 i 2 i ... 10000 I would like ,for each level of cola and for x in colb: -if colb[x]=="i" and colb[x-1] does not exist (first row in dataframes), then replace colb[x] by "l" -if colb[x]=="i" and colb[x-1]=="c" (previous row...

Dear Group, I have been successful in setting up the Agents, queues and getting agents to log in. Is there a way that I could configure the system so that the agent is called back. i.e. the agent logs into the system, a call is destined for them and their phone rings. If some one has this setup I would be very interested in hearing from them. Warm Regards and Thanks --------------- Shad

Greetings all, I am curious to know if either of these two sets of code is more efficient? Example1: ## t-test ## colA <- temp [ , j ] colB <- temp [ , k ] ttr <- t.test ( colA, colB, var.equal=TRUE) tt_pvalue [ i ] <- ttr$p.value or Example2: tt_pvalue [ i ] <- t.test ( temp[ , j ], temp[ , k ], var.equal=TRUE) ------------- I have three loops, i, j, k. One to test the all of <i> files in a d...

...a,@faradm,@fardep,@fardom,@farinv,@farvta,@sistemas,@csrecodo [autorizador] browseable = no comment = Autorizador para Imed writable = yes path = /sistemas/farmacia [compartido] comment = Para transferencia de archivos en la red browseable = no writable = yes path = /sistemas/compartido [cola_sistemas] comment = Cola de Impres. del Depto. Sistemas path = /sistemas guest ok = Yes printable = Yes use client driver = Yes force printername = Yes [cola_optica] comment = Cola de Impresion de Optica path = /sistemas guest ok = Yes printable = Yes use client driver = Yes force prin...

...7-00 NM_057175 NARG1, TBDN100 M-015544-00 NM_153008, NM_153027 FLJ30277, FLJ31659 M-024202-00 NM_207330 NIPAL1, NPAL1 Here is the code I have been using so far. I have only managed to get this to work by using a loop, which I know is not the best way, but at the moment I'm stuck. colA <- c("M-012847-00" ,"M-012847-00" ,"M-015544-00", "M-015544-00", "M-024202-00","M-024202-00") colB <- c("NM_057175", "NM_057175", "NM_153008", "NM_153027", "NM_207330", "NM_20733...

# Two test for a class like this: setClass("XXX", representation=representation( "matrix" ) ) i<-new("XXX"); m=matrix(); colnames(m)<-c("colA"); i at .Data=m; # >i # An object of class ?XXX? # colA #[1,] NA #________________________________________________________________________ #First Test "varnames<-" <- function(x,value){ colnames(x at .Data)<-value; } #===============================================...

Hello, I have a general formatting question. I have two columns of data: ColA <- c("m", "m", "m", "m") ColB<- c("d","d","d","d") And I would like to reorder them into a new column that looks like this: ColC<- c("m","d","m","d","m",&quot...

Dear Group: I have 72 files (.txt). Each file has 2 columns and column 1 is always identical for all 70 files. Each file has 90,799 rows and is standard across all files. I want to create a matrix 40(rows) x 70 columns. I tried : temp = list.files(pattern="*.txt") named.list <- lapply(temp, read.delim) library(data.table) files.matrix <-rbindlist(named.list) >

Dear R Help: I am trying to sum data from one column in a dataframe based on a value in another. I do not know how to do this easily in R. For example: Col A Col B 1 0 3 0 2 1 2 0 1 0 4 0 1 1 9 1 3 0 5 0 2 1 I would like to cumsum the values in Col A for all rows where Col B is 0, and a value of 1 in Col B will reset

I've seen several references to running smbmount from /etc/fstab, but I've never seen an example. Does anyone have an example fstab entry that does this? Thanks Steve Litt

...s package, I suppose I must enter "wdtxtStart", before I start working, but is supposed that this command should open Word, but nothing happens. I use Rgui, not Rcmdr. Thanks ----- Mario Garrido Escudero PhD student Dpto. de Biolog?a Animal, Ecolog?a, Parasitolog?a, Edafolog?a y Qca. Agr?cola Universidad de Salamanca -- View this message in context: http://r.789695.n4.nabble.com/Problems-with-TeachingDemos-package-tp3218266p3218266.html Sent from the R help mailing list archive at Nabble.com.

suddenly a few days ago it takes about a minute for local help to come up . i type : ?hist and get starting httpd help server ... done but only after a minute does http://127.0.0.1:15686/library/graphics/html/hist.html appear . Lee De Cola, PhD, MCP. DATA to Insight LDECOLA@COMCAST.NET Reston, Virginia 703 709 6972 571 315 0577 mobile [[alternative HTML version deleted]]

...ures). I then have a list of the names of those objects. I'd like to access the object by name. For example: foo1 <- as.xts(....) foo2 <- as.xts(...) foo3 <- as.xts(...) structs <- c("foo1", "foo2", "foo3") for (thisOne in structs){ print(thisOne$colA) } The above fails. Clearly I'm missing a step translating the name to the object. Suggestions? Thanks -- Noah Silverman UCLA Department of Statistics 8117 Math Sciences Building Los Angeles, CA 90095 Cell: (323) 899-9595