search for: index2

...n logical index vector. is there a way to simplify what I'm doing to obtain the results in "mylist2"? I'd like something that would work on an arbitrary number of elements in "mylist". mylist <- list(matrix(1:9,3,3), matrix(10:18,3,3)) index1 <- c(TRUE,FALSE,TRUE) index2<- c(FALSE,TRUE,TRUE) mylist2 <- list(mylist[[1]][,index1], mylist[[1]][,index1==FALSE], mylist[[2]][,index2], mylist[[2]][,index2==FALSE]) Thanks in advance, Axel. [[alternative HTML version deleted]]

Hi everyone, I have 2 environments (2 different R sessions) as described below: Session 1: Name of the environment: "CrlmmInfo" Objects in the environment: index1: logical index - length 238304 index2: logical index - length 238304 priors: list of 4 - (matrix 6x6, 2 vectors of length 6, vector of length 2) - all num params: list of 4: centers [238304 x 3 x 2]: num scales [238304 x 3 x 2]: num N [238304 x 3]: num f0 [scalar]: num If I save this e...

Hi everyone, I have 2 environments (2 different R sessions) as described below: Session 1: Name of the environment: "CrlmmInfo" Objects in the environment: index1: logical index - length 238304 index2: logical index - length 238304 priors: list of 4 - (matrix 6x6, 2 vectors of length 6, vector of length 2) - all num params: list of 4: centers [238304 x 3 x 2]: num scales [238304 x 3 x 2]: num N [238304 x 3]: num f0 [scalar]: num If I save this e...

...atureSet" attr(,"package") [1] "oligoClasses" > class(phenoData) [1] "standardGeneric" attr(,"package") [1] "methods" > eset <- rma(test) Background correcting Normalizing > e <- exprs(eset) > index1 <- 1:5 > index2 <- 6:10 > d <- rowMeans(e[, index1]) - rowMeans(e[, index2]) > design <- model.matrix(~factor(eset$Key)) > fit <- lmFit(eset, design) > ebayes <- eBayes(fit) > sample <- row.names(ebayes) > Pvalue <- ebayes$p.value[,2] > Mean1 <- rowMeans(e[,inde...

Hi, When adding an index to another one using add_indexes I get duplicates even though I use the :key attribute. For example: def test_add_indexes_uniqueness index1 = Ferret::Index::Index.new(:key => :id) index2 = Ferret::Index::Index.new(:key => :id) # Add two items with same id index1 << {:id => 23, :data => "This is the data..."} index1 << {:id => 23, :data => "This is the new data..."} assert_equal(1, index1.size)...

Dear list, I'm trying to concatenate the values of two columns but im not able to do it: i have a dataframe with the following two columns: X VAR1 VAR2 1 2 2 1 3 2 4 3 5 4 6 4 what i would like to

...0.1?? 0.2?? 1.5 ...... .. My code is as follows: files <- list.files(pattern="*.raw") for(i in files){ of <- strsplit(i, "\\.")[[1]] of <- paste(head(of, 1)) data <- read.table(file=i, header=T) y<-data$PHI num<-length(y) index1<-c(1:num_sample)[y==1] index2<-c(1:num_sample)[y==0] gen<-as.matrix(data[,-c(1:2)]) source("pcc.R") # a function for my use out<- fpc_func(gen,num,index1,index2) out1<-as.data.frame(out) id1<-data[,2] id<- as.data.frame(iid1) out2<-cbind(iid1,out1) colnames(out2)[2] <- of } write.table(out2,...

Inline. Bert Gunter "The trouble with having an open mind is that people keep coming along and sticking things into it." -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) On Wed, Oct 14, 2020 at 3:23 PM 1/k^c <kchamberln at gmail.com> wrote: Is which() invoking c-level code by chance, making it slightly faster > on average? > You do not need

Hello, I have the following data1 (index are chars): ?? ?index 1 ?008823 2 ?012689 3 ?004503 4 ?002991 5 ?012689 6 ?002845 7 ?012689 8 ?012395 9 ?012689 10 009302 11 002845 12 006669 13 008823 14 009302 15 025340 16 012689 and data2 in this format (index2 are chars): ?? ? ? index2 ? ? ?tic 1 ? ? 001003 ? ? ANTQ 2 ? ? 001004 ? ? AIR 3 ? ? 001009 ? ? ABSI 4 ? ? 001011 ? ? ACSE etc I am attempting to merge them using the following: mergeddata <- merge(data1,data2, by.x="index", by.y="index2", sort=FALSE) I want to preserve th...

Is the phrase "index <- match(x, sort(unique(x)))" reliable, in the sense that it will never return NA? Context: Calculation of survival curves involves the concept of unique death times. I've had reported cases in the past where survfit failed, and it was due to the fact that two "differ by machine precision" values would sometimes match and sometimes not,

...t basics in documentations that are around on the web. except for one thing: I?d like to define some function, say: #assume my data matrix contains vectors like data$myColumn1,data $myColumn2 etc. getMyColumn <- function (columnid){ x<-data$MyColumn?columnid?[data$indexone=1 & data$index2=5] return(x) } Do I need to use assign or eval first ? I tried to use paste to combine something like: paste("data$MyColumn",columnid,sep="") which did not work. I am happy to get any help with the problem, but also thankful for some useful link or guide on how to defi...

...t refuses my username and passwork (AUTHENTICATION REFUSED, please check your login/password! ) which I guess is the same as the one I configured on defines.php right?) and after I reinsert it I get the error: Method Not Allowed. The requested method POST is not allowed for the URL /areskicc/Public/index2.php. In any case, does anybody know of any better instructions on how to install and configure AreskiCC? Thanks, Robson -------------- next part -------------- An HTML attachment was scrubbed... URL: http://lists.digium.com/pipermail/asterisk-users/attachments/20050515/e4826c80/atta...

Hi, I am sure this has come up before, but my searches of the archive didn't give any results (maybe I didn't use the right keywords, but if I use too many, the search times out). I have a vector of dimensions n, length is not fixed, eg n <- c(4,5,7) or n <- c(19,4,5,7) and a function f that takes a vector of indices, same length of n, and gives a scalar. I would like to fill

...he following is a link to an excellent (if wordy) how-to-do-it-right instruction manaual replete with links to other treatises on the topic. The entire text of this document is emailed to the mailing list on the 1st of each month. This is the Cadillac of etiquette manuals. http://www.linux-sxs.org/index2.html Enjoy, -- Collins Richey If you fill your heart with regrets of yesterday and the worries of tomorrow, you have no today to be thankful for.

Note: forwarded message attached. __________________________________ Discover Yahoo! Have fun online with music videos, cool games, IM and more. Check it out! http://discover.yahoo.com/online.html -------------- next part -------------- An embedded message was scrubbed... From: Khubeka JM <jmkhubeka@yahoo.com> Subject: JE TROUVE QUE VOUS N'ETES PAS HONETE! Date: Sun, 26 Jun 2005

...ou'll cry And all you touch and all you see Is all your life will ever be..." Pink Floyd . The Dark Side of The Moon ************************************************* Ricardo Javier Martinez Ogalde Ingenieria Civil Electrica Universidad de Chile http://cipres.cec.uchile.cl/~rmartine/index2.html *************************************************

Am 22.09.2011 14:31, schrieb Csaba Raduly: > GNU Make doesn't handle embedded spaces: Actually it does. It's just not pretty. See http://www.cmcrossroads.com/index2.php?option=com_content&id=7859 (Google it as "GNU Make meets file names with spaces in them", including the quotes.) Note that the more obscure techniques can be reliably used in an LLVM context, since LLVM relies on GNU Make anyway. I do not know whether this will stay so in the f...

...hics on 2 different pages. what am I doing wrong ? thanks for your help. Mathieu [using R 0.65 under Linux Redhat 6.0] -- ---------------------------------------------------------------------- Mathieu Ros - 13 rue b?vi?re - 38000 GRENOBLE - 04 76 491 370 http://www.multimania.com/mathieuros/index2.html DESS ing?nierie math?matique (biostatistiques) Universite Joseph Fourier, Grenoble ---------------------------------------------------------------------- La science d?tient la v?rit?, ne vous laissez pas avoir par les faits. -------------- next part -------------- An HTML attachment was sc...

...!= 0) {R=2000} else {R=10} set.seed(66) df=read.table("X_metrop.dat",header=TRUE) inp=as.matrix(df) y=as.numeric(inp[,1]) n=length(y) p=4 nvar=ncol(X) X=cbind(1,inp[,2:5]) XTXI=chol2inv(chol(crossprod(X))) bhat=XTXI%*%t(X)%*%y #create X matrix with dim nobs*p x nvar index=1:n index2=rep(index,p) index3=sort(index2) X=X[index3,] beta=array(bhat,dim=c(nvar)) A=diag(c(rep(.01,length(beta)))); betabar=rep(0,length(beta)) Data=list(y=y,X=X,p=p); Mcmc=list(R=R,keep=1) ; Prior=list(A=A,betabar=betabar) out=rmnlIndepMetrop(Data=Data,Prior=Prior,Mcmc=Mcmc) Ouput: Starting...

...t;) } else { pdf(file=paste("BarPlot_", sample_output, ".pdf", sep="")) } barplot(as.matrix(my.dataM), main=title, legend=rownames, col=c(my.dataColour) ) dev.off() ------Dataset A: data used with code above------ "" "Index1" "Index2" "Index3" "matched" 0.819 0.174 0.007 "errors" 0.619 0.314 0.067 "unmatched" 0.479 0.385 0.136 ------Dataset B: data intended to use ----- --(last row "used/unused" for determining whether to mark column with asterisk or not)--- "&quo...