search for: expresivity

Good afternood everybody, I have a question about using "Rinternals.h": If I need to evaluate a R expresion from my c++ code Do I have to change my c++ code enterelly?, I'm thinking about the way I allocate memory and the way I print for example. Thanks for any help in advance. Patricia ___________________________________________________________ Do You Yahoo!? La mejor

Whats wrong here? I was expecting 11 as the result... Thanks in advance. bench <- function(str,...) { func <- function(x) x+10 expr <- list(...)[1] str <- gsub("XXX",expr,str) x <- as.call(gsub("\"","",str)) eval(x) } bench("func(XXX)", "1")

Hello R-Helpers, I have a slight problem with the expresion data[data==""] <- NA which works well for a data.frame. But now i must use the same for a list of data.frames. My idea is data[[]][data==""] but it don´t work. Thanks!! Dominic [[alternative HTML version deleted]]

Hi All. I am quite a newbie to R. This is a next basic question. I have a matrix; > x <- matrix(1:10.,5) > x [,1] [,2] [1,] 1 6 [2,] 2 7 [3,] 3 8 [4,] 4 9 [5,] 5 10 I like to get a modified matrix as follows; [,1] [,2] [1,] 1 6 [2,] 2 7 [3,] 3 8 * 5 -> 40 [4,] 4 9 [5,] 5 10 The following expression does not work.

Hi there I have a string like this i want to extract 9831019 from this string i used a regular expresion \d+ by which i can only make it to see 7 and returns. This type of number(9831019) appears in any part of the string and is definitely more than 5 digits all the time and i want to give that as a condition UV7C11-F9-E1 MCS#9831019 MCS Lot #9512516" how do i go abt it Ramya -- View

Hola a todos, Me gustaria saber como puedo evaluar / obtener el resultado guardado en un objeto cuando este se ejecuta. Quiero decir, el resultado de la siguiente expresion: > paste("res_UP_sep_dec_","16_17_18",sep="") [1] "res_UP_sep_dec_16_17_18" es un objeto (una lista) cuyo nombre es precisamente res_UP_sep_dec_16_17_18 >

Is it possible to assign the value of subtarget features using more complex expressions with code as opposed to using the mechanism that tablegen affords. For example, if Mips16 or Micro Mips is not present, then I want the subfeature "standard encoding". If I can't do this, then it requires me to write a more complex expression for the "standard encoding" expresions.

I've complex problem and this's idealization of it: v=1:10 fx<-function(x){ v[x]=v[x]*2} fy<-function(y){ fx(y)} for(i in 1:10){ fy(i)} How to modife expresion (and only that): {v[x]=v[x]^2} to achive the redefinetion of the values of vector v, the result should be: v=(1:10)*2. I think, that could be done with using of internal functions, but I'm not the programmer.

I have a number of (directed) graphs based on social groups, where the members have expresed likes and dislikes in respect to the other members. tkgraph makes it simple to draw the graphs in a very pleasing way, but I would like to differentiate between positive and negative relations in the graph by having the edges for the negative relations dashed and the positive ones continuous. Is

Dear All, I'n trying to make a simple call forwarding, however I have small problem when evaluating an expresion. Here is my extensions.conf ... ; Unconditional Call Forward exten => _#21*X.,1,Set(DB(CFIM/${CALLERID(num)})=${EXTEN:4}) exten => _#21*X.,2,Hangup() exten => #21#,1,Set(ignored=${DB_DELETE(CFIM/${CALLERID(num)})}) exten => #21#,2,Hangup() ... exten =>

hello, there is new version of the best open source TAPI driver for Asterisk - Activa 1.6.1 * NEW: Asterisk 1.6 compatibility (partially sponsored by IPEX a.s. http://www.ipex.cz) * NEW: FEATURE_CODES standardization for AgentACD integration login, logout, ready, notReady. * NEW: ActivaTSP x64 version. * New: Windows 2008 Server compatibility. * CHANGE: Some performance optimization. * FIX:

producing a multi-figure plot, i am try to add beta_1, beta_2,.. beta_9 to ylab using expression or substitution, but cannot work out like for (i in 1:9){ plot(seq(1/m, 1-1/m, 1/m), beta.q[,i], type="l", col=1, ylim=range(beta.q), xlab="quantile", ylab=expresion(beta[i])) } any suggestions will be greatly appreciated. DL [[alternative HTML version deleted]]

r-help-es, en muchas situaciones me encuentro con la necesidad de pasar el nobre de un objeto como argumento a una función: for (i in 1:3) cat(paste( "avglrss",i," <- ", "scan(\"","avgl",i,".rep","\"",",skip=7",")" ,sep="")) en este ejemplo estoy creando objetos "avglrss1",

Hi! The Netfilter project proudly presents: nftables 0.4 This release contains a lot of bug fixes and new features contained up to the recent 3.18 kernel release (and some features coming up in the yet unreleased 3.19-rc). New features ============ * Add support for global ruleset operations (available since 3.18). Get rid of all tables, chains, and rules in one go: # nft

Hi, I use the following commands to compile the IR. But I don't see the macro information in the .ll file. Is there a way to preserve the macro information (print() in this case) for debugging purposes? $ clang -std=gnu99 -g3 -flto -Wall -pedantic -c -o main.o main.c $ clang main.o -flto -fuse-ld=gold '-Wl,-plugin-opt=save-temps' -o main.exe $ llvm-dis main.exe.0.0.preopt.bc /* vim:

Hello. This is my first post to the list, so first I'd like to thank everybody for making and mantaining such a great product as R. I'm writting a native binding to R from Dolphin Smalltalk. I've followed up the examples of the documentation showing how to run R embedded, and I got it partially working. However, I have a problem with the reference handling of the R objects.

Can we go back a little? 1) Add a new transformation to InstCombine that will replace 'getelementptr > i8, i8* null, <ty> %n' with 'inttoptr <ty> %n to i8*' when <ty> has the > same size as a pointer for the target architecture. What's the actual problem with this approach? I personally find it the most compelling - it is well-defined (well,

Dear Rexperts, Given, aar <-function(command) { switch(command, {scrn = cat("scrn :Screening","\n")} {dx = cat("dx :Diagnosis","\n")} {df = cat("df :Don't Forget","\n")} ) } I want to be able to do: aar("dx") # function does cat("dx :Diagnosis","\n")

Estimado Oliver Nuñez Envío un ejemplo reproducible. Javier Marcuzzi # de donde tomo datos, y tiene el modelo (en el pdf) library(MCMCglmm) # librería con las funciónes que voy a usar library(nlme) datos0<-ChickWeight # creo algunos datos que agrego a los origonales Factor<-as.numeric(datos0$Chick) Factor[Factor > 0 & Factor <= 10] <- 'A' Factor[Factor > 10

Hola Eric. Muchas gracias por tu respuesta. Intenté hacer lo mismo sobre una variable agregada a datos, de modo: datos$p_Valores <- datos[, Valores/sum(Valores), by=MesAño] pero no funciona, porque pega un data.table en una única variable: In `[<-.data.table`(x, j = name, value = value) : Supplied 2 items to be assigned to 5849 items of column 'pValores' (recycled leaving remainder