search for: newa

...pposed to look like where d1,d2,d3 and so on up to d1000 are calculated using the equation and the respective a and b values: Code #2 d1 <-runif(33,10,20) d2 <-runif(33,15,20) d3 <-runif(33,18,20) e <-cbind(a,b,d1,d2,d3)   Next, I would like to generate 33 x 1000 newd values again using newa and newb values and the same c values, eg: Code #3 newa <-matrix(seq(16,24, by = sign(24-16)*0.25)) newb <-matrix(seq(24,36, by = sign(36-24)*0.25)) c <-runif(1000,50,60) newd <-exp(-c*newa)+exp(-c*newb)   Next I would like to sum d(ith) and newd(ith) according to their by sequence loca...

...CRAN http://cran.uk.r-project.org TRUE TRUE CRANextra CRAN (extras) http://www.stats.ox.ac.uk/pub/RWin TRUE FALSE BioC Bioconductor http://www.bioconductor.org FALSE TRUE Omegahat Omegahat http://www.omegahat.org/R TRUE TRUE Browse[1]> newa menu_name URL default UBS UBS http://wfdevapps:8150/qrms/r TRUE The 'source' column is present in 'a' but not in 'newa'. This causes the error when they are merged via 'rbind' Browse[1]> rbind(a, newa) Error in xi[[j]] : su...

...llingConv(Old.getCallingConv()); // Map old arguments to the new arguments. ValueToValueMapTy VMap; for (auto OldFI = Old.arg_begin(), OldFE = Old.arg_end(), NewFI = New->arg_begin(); OldFI != OldFE; ++OldFI, ++NewFI) { Argument &OldA = *OldFI; Argument &NewA = *NewFI; NewA.setName(OldA.getName()); VMap[&OldA] = &NewA; } SmallVector<ReturnInst *, 16> Returns; CloneAndPruneFunctionInto(New, &Old, VMap, true, Returns); return New; } bool FunctionDuplication::runOnModule(Module &M) { DataLayout const &DL = M.g...

...name, group.size, envir=.A.group.sizes, inherits=FALSE) } .dec.A.group.size <- function(groupname) { group.size <- get(groupname, envir=.A.group.sizes, inherits=FALSE) - 1L assign(groupname, group.size, envir=.A.group.sizes, inherits=FALSE) return(group.size) } newA <- function(groupname="") { a <- new("A", groupname=groupname) if (!identical(groupname, "")) { .inc.A.group.size(groupname) groupanchor <- new.env(parent=emptyenv()) reg.finalizer(groupanchor, fun...

...ts to the new arguments. >> ValueToValueMapTy VMap; >> for (auto OldFI = Old.arg_begin(), OldFE = Old.arg_end(), >> NewFI = New->arg_begin(); >> OldFI != OldFE; ++OldFI, ++NewFI) { >> Argument &OldA = *OldFI; >> Argument &NewA = *NewFI; >> NewA.setName(OldA.getName()); >> VMap[&OldA] = &NewA; >> } >> >> SmallVector<ReturnInst *, 16> Returns; >> CloneAndPruneFunctionInto(New, &Old, VMap, true, Returns); >> >> return New; >> } >>...

...hich comprises a lot of applications of `dendrapply`. The postorder traversal would be a significant new functionality to dendrapply, as it would allow for functions that use the child nodes to correctly execute. A toy example of this is something like: ``` exFunc <- function(x){ attr(x, 'newA') <- 'a' if(is.null(attr(x, 'leaf'))){ cat(attr(x[[1]], 'newA'), attr(x[[2]], 'newA')) cat('\n') } x }) dendrapply(dend, exFunc) ``` With the current version of dendrapply, this prints nothing, but the postorder traversal version will p...

Greetings, Say I have defined mp <- function(a) function(x) x^a f2 <- mp(2) and I would like to retrieve the "a" which is local to f2. Two options come to mind; get("a", envir=environment(f2)) eval(substitute(a), environment(f2)) I'm curious if one of these is preferred over the other in terms of efficiency, robustness, aesthetics, etc. Or perhaps

hello all, thank you for taking the time I have a matrix A that have column names (let say n columns), I want to reduce the matrix to have just a few of those column (p colums, this is trivial), but for the lines I want only the lines such that A(i,J) is part of a list (J is fixed and known) I am sure it is very easy but I don't find it (I tryed which but it doesn't seem to work) Surely

Dear R Users, A bit of an elementary question, but somehow, I haven't been able to figure it out. I'd like to changes the column names of a data frame, so I am looking for something like col.names (as in row.names). Could someone please show me how to change the column names of a data frame ? Thanks, Tolga Generally, this communication is for informational purposes only and it is

On 01/27/2016 07:53 AM, Daniel Berlin wrote: > > > On Wed, Jan 27, 2016 at 1:27 AM, Roman Gareev <gareevroman at gmail.com > <mailto:gareevroman at gmail.com>> wrote: > > Thank you for the idea! Could you please explain it? > > > Which part are you having trouble with, so i know where to concetrate? > > If I’m not > mistaken, you advise

Hi All, Im interested in creating a function that will convert a variable within a data.frame to a factor while retaining the original name (yes, I know that I can just: var <-factor(var) but I need it as a function for other purposes). e.g.: # this was an attempt but fails. facts <- function(meta, mod, modname = "spec") { meta$mod <- factor(meta$mod)

...V1 V3 V2 1 1 3 two 2 4 6 five > attach(a) > mean(V1) [1] 2.5 Hoping this help, guido From: Douglas Bates <bates at stat.wisc.edu> There is a shortcut method for converting all the variables in a data frame to numeric variables. If a is your data frame you use newa <- do.call("data.frame", lapply(a, function(x) as.numeric(as.character(x)))) ----------my original querry follows Hi I am using R65.1 in Windows 95 I have a CSV file from Excell > a<-read.table("c:/heberto/mgc/tst.csv",header=T,sep=",") > attach(a)...

...V1 V3 V2 1 1 3 two 2 4 6 five > attach(a) > mean(V1) [1] 2.5 Hoping this help, guido From: Douglas Bates <bates at stat.wisc.edu> There is a shortcut method for converting all the variables in a data frame to numeric variables. If a is your data frame you use newa <- do.call("data.frame", lapply(a, function(x) as.numeric(as.character(x)))) ----------my original querry follows Hi I am using R65.1 in Windows 95 I have a CSV file from Excell > a<-read.table("c:/heberto/mgc/tst.csv",header=T,sep=",") > attach(a)...

I want to take the first row of each unique ID value from a data frame. For instance > ddTable <- data.frame(Id=c(1,1,2,2),name=c("Paul","Joe","Bob","Larry")) I want a dataset that is Id Name 1 Paul 2 Bob > unique(ddTable) Will give me all 4 rows, and > unique(ddTable$Id) Will give me c(1,2), but not accompanied by the name column.