similar to: deparse(substitute(x)) and S3 methods

Hi I am having a particular problem with some glm models I am running. I have been adapting code from Bill Venables 'Programmers niche' in RNews Vol 2/2 to fit ca. 1000 glm models to a combination of species 0/1 data (as Y) and related physicochemical data (X), to automate the process of fitting this many models. I have successfully managed to fit all the models and have stored the

Hi, Following the Writing R Extensions manual, I created a method for the cor function. As cor is not a generic, I followed the advice of section 6.1 of the same manual and did the following: cor <- function(x, ...) UseMethod("cor") cor.default <- stats::cor cor.symcoca <- function{ some code } I used package.skeleton to create the basic set-up of my package, containing the

##data y1 <- matrix(c(3,1,0,1,0,1,1,0,0,0,1,0,0,0,1,1,0,1,1,1), nrow = 5, byrow = TRUE) y2 <- matrix(c (3,0,10,3,3,0,0,1,1,0,0,0,0,0,1,0,1,0,0,2,1,0,1,1,0,2,1,1,4,1), nrow = 5, byrow = TRUE) y1 <- as.data.frame(y1) y2 <- as.data.frame(y2) rownames(y1) <- rownames(y2) <- paste("site", 1:5, sep = "") colnames(y1) <-

Hi I'm having a problem with model.frame, encapsulated in this example: y1 <- matrix(c(3,1,0,1,0,1,1,0,0,0,1,0,0,0,1,1,0,1,1,1), nrow = 5, byrow = TRUE) y1 <- as.data.frame(y1) rownames(y1) <- paste("site", 1:5, sep = "") colnames(y1) <- paste("spp", 1:4, sep = "") y1 model.frame(~ y1) Error in model.frame(formula, rownames,

Just wondering if this is the expected behaviour. I was wanting to produce quoted text within \code{}, without manually entering the '"'. \dQuote{} seems advisable after reading the Writing R Extensions manual, so I tried \code{\dQuote{mytext}} expecting it to produce "mytext" in monospace font (with ' ' round it in the R help files) but it appears that

Hi: I have made a lot of progress reading and manipulating large data files, thanks to the help of several of you. I am now stuck with writing the final file with the following error (see also the full transcript below): Error in as.matrix.data.frame(x) : length of dimnames[2] not equal to array extent I do not know what it means and could not find how to get around that in the manual nor

---------- Forwarded message --------- De: Ruben Coca <rcocam en fedefarma.com> Date: lun., 23 nov. 2020 14:59 Subject: RV: Cargar data frame en app shiny To: ruben.coca en gmail.com <ruben.coca en gmail.com> Hola a todos, Tengo problemas con una app de shiny. Al iniciarla me sale este mensaje en el navegador: An error has occurred The application failed to start. The application

Hello everyone, I encountered the following confusing behavior of 'deparse' and 'substitute' while programming with S4 classes (see example below). It seems like the presence of '...' argument in the definition of the generic generates the problem. I have no clue why, can anyone explain that to me? Are there any "workarounds"? Thanks a lot for your time!

Just a good joke An old couple went into a restaurant and ordered something to eat: one Coca Cola and one portion of French fries. The old man sat down and the woman, his wife, sat opposite him, and he began to divide the Coca Cola into two glasses, half for him and half for his wife. He divided all the French fries half-and-half. He gave half to his wife and kept half for himself. Then he began

Dear R People: Hope you're having a great weekend! Anyhow, I'm currently experimenting with R Studio on a web server, which is the best thing since sliced bread, Coca Cola, etc. My one question: there is a way to show plots. is there a way to show Rcmdr or its Plugins, please? I tried, but it doesn't seem to work. Thanks so much, Sincerely, Erin -- Erin Hodgess Associate

Hi all, I am looking for a function for following calculation. start.month = "July" end.month = "January" months = f(start.month, end.month, by=1) * f is the function that I am looking for. Actually I want to get months = c("July", "August",.............."January") If start.month = 6 and end.month = 1 then I could use (not properly) seq()

Dear R-helpers, I need to read some data from output of garchFit in fGarch. my model is garch(1,1) and i want to read coefficients(omega,alpha,beta) and timeseries(x) and conditional SD(s). because i need them to use in other formula. for example :omega+x[1]+s[3] and maybe i have several simulation then i need a general way to read them, not to read with my eyes for example the quantity of

----- Mensagem Original -----=20 Eu boicotaria estas empresas s=F3 pelo fato de financiarem os enjoativos e = rancentos Cassetas, mas me surpreendi ao descobrir que tantos produtos que = eu costumo comprar s=E3o transg=EAnicos. Fui conferir no site do greenpeace= e =E9 verdade!!!!!!!!!!!!! Boicote neles! ----- Original Message -----=20 C A M P A N H A=20 N A T A L S E M B A I X A R I A

Hello everyone! I work for a company that uses OpenSSH to remotely support systems we've sold. Since some of our clients are US Dept. of Defense hospitals, our access to these servers needs to comply with a whole range of requirements and standards. At this point it's looking like the SSH daemon needs to be FIPS 140-2 compliant, and the only package that is certified is F-Secure.

Hi, I am checking out the quality at a few vendors, and althought I know it doesn`t totally reflect call quality I am using ping as a cheap subsitute to having a real VoIP testing system The question I have is this one: given that one service gives me a 80ms ping (pretty consistantly) and another one gives me 30ms (again very consistently), is this 50ms difference enough to impact perceived call

Dear R-helpers, I have two data frames, op and em4: > str(op) 'data.frame': 37 obs. of 5 variables: $ m : num 0.202 0.336 0.122 0.139 0.14 ... $ lln : num 0.798 0.643 0.863 0.835 0.823 ... $ rrn : num 0.789 0.702 0.894 0.895 0.923 ... $ asym2: num 0.177 0.304 0.108 0.187 0.274 ... $ asym3: num 0.0755 0.0975 0.0818 0.0651 0.13 ... > str(rownames(op)) chr

Hi, I'm writing a function that needs the input names (as characterstrings) as part of the output. With deparse(substitute( ) ) that works fine, until I replace all zeros with 0.001 (log is calculated at some time): tf <- function(input) { input[input==0] <- 0.001 ; deparse(substitute(input)) } myguess <- 42 tf(myguess) # not "myguess", but "42" Now when

In R code, "deparse(substitute(arg))" is the usual way to construct a label for an argument. Is there an equivalent to this in C code working on an SEXP, inside a function called by .Internal()? Duncan Murdoch

On 09 Jan 2017, at 10:53 , Spencer Graves <spencer.graves at prodsyse.com> wrote: > # Define an object of class 'dum' > k <- 1 > class(k) <- 'dum' > str(k) # as expected > > # Define print.dum > print.dum <- function(x, ...) > deparse(substitute(x)) > > print(k) # Prints "k" as expected > #####**** THE FOLLOWING PRINTS

On 07/05/2017 3:56 PM, Spencer Graves wrote: > In an implied call to an S3 print method, deparse(substitute(x)) returns > "x", regardless of the name of object in .GlobalEnv, as indicated in the > following: > > > > Xnamed <- 1 > > class(Xnamed) <- 'name.x' > > print.name.x <- function(x, ...){ > + namex <-