search for: subx

...is a > > valid name (you would have to back-quote it, but it does work). So > > one possible way out would be to use get() on a name and evaluate > > calls, e.g. > > > page <- function(x, method = c("dput", "print"), ...) > > { > > subx <- substitute(x) > > have_object <- FALSE > > if(is.call(subx)) { > > object <- x > > have_object <- TRUE > > subx <- deparse(subx) > > } else { > > if(is.character(x)) subx <- x > >...

Hi, forget about the below details. It is not related to the fact that the function is returned from a function. Sorry about that. I've been troubleshooting soo much I've been shoting over the target. Here is a much smaller reproducible example: x <- 1:10 y <- 1:10 + rnorm(length(x)) sp <- smooth.spline(x=x, y=y) ypred <- predict(sp$fit, x) # [1] 2.325181 2.756166 ...

...aphics grDevices utils datasets methods > [8] base > > other attached packages: > [1] ggplot2_0.8.9 proto_0.3-9.2 reshape_0.8.4 plyr_1.6 >> > fix(mpg) > Error in dataentry(datalist, modes) : invalid device > In addition: Warning message: > In edit.data.frame(get(subx, envir = parent), title = subx, ...) : > unable to open X Input Method >> > fix(mpg) > *** caught segfault *** > address (nil), cause 'unknown' > > Traceback: > 1: edit.data.frame(get(subx, envir = parent), title = subx, ...) > 2: edit(get(subx, envir...

...ed base packages: [1] grid stats graphics grDevices utils datasets methods [8] base other attached packages: [1] ggplot2_0.8.9 proto_0.3-9.2 reshape_0.8.4 plyr_1.6 > fix(mpg) Error in dataentry(datalist, modes) : invalid device In addition: Warning message: In edit.data.frame(get(subx, envir = parent), title = subx, ...) : unable to open X Input Method > fix(mpg) *** caught segfault *** address (nil), cause 'unknown' Traceback: 1: edit.data.frame(get(subx, envir = parent), title = subx, ...) 2: edit(get(subx, envir = parent), title = subx, ...) 3: fix(mpg) Po...

Hi, I've been using "nlregb" routine in splus3.4, but cannot find it here in R. Is it hidden in some library? Or there is a routine equivalent to it but with a different name? I'm planning to move part of my from S to R so that I can work comfortablely at home. Any suggestion is highly appreciated. regards, Tony -- \|||/ Q o o Q ==========================oooQ= ( -

Hi, I work with hyperspectral remote sensing data and I try to built a pls model with this data. I already built the model but if I try to calculate the RMSEP and R2 with a test data set I get the following error message: Error: variable 'subX' was fitted with type "nmatrix.501" but type "nmatrix.73" was supplied The problem is that I don't get the message for the pls models. Thank you very much for your help. /Thomas -- *^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^* Thomas Möckel, PhD student Departme...

I recently attempted to read a .txt file using both read.table(" ",header=TRUE) and read.delim(" ",header=TRUE) and received the following message Error in edit.data.frame(get(subx, envir = parent), ...) : symbol print-name too long I am able to also create a variable x<-read.delim (" ",header=TRUE ) , but am unable to fix(x) because of the same errror Error in edit.data.frame(get(subx, envir = parent), ...) : symbol print-name too long...

Dear R users, I have a data where I desire to subset according to certain conditions. However, the script is very messy as there are about 30 distinct conditions. (i.e. same script but with different conditions) I would like to make a user defined function so that I can input the desired conditions and just get the results accordingly. Below is an arbitrary data set & sample statements

...ecomes a practical consideration in an extract method: > setMethod("[", c("foo"), function(x, i, j, ..., drop) + { + if(missing(i)) {i <- min(1,nrow(x)):nrow(x)} + if(missing(j)) {j <- min(1,ncol(x)):ncol(x)} + if(missing(drop)) {drop <- TRUE} + subx <- x at .Data[i, j, ..., drop = drop] + new("foo",subx) + }) [1] "[" > a[,,1] Error in "as<-"(`*tmp*`, Classi, value = c(NA, NA, NA, NA, NA, NA)) : No method or default for as() replacement of "foo" with Class="matrix" This...

..." "Datum" "Starttid" "Kontrolltid" "Zo.Höger" [6] "Zo.Vänster" "Mm.Höger" "Mm.Vänster" "tot.zo" "tot.mm" [11] "tdiff" fix(givnona)Error in edit.data.frame(get(subx, envir = parent), title = subx, ...) : can only handle vector and factor elements tdiff <-structure(c(168, NA, NA, 165, 175, 140, 191, 195, 130, 160, 135, 165, 330, 178, 141, NA, 119, 90, 70, 99, 115, 70, 65, 90, 90, 65, 90, 75, 85, 93, 52, 75, 60, 90, 105, 70, 65, 60, 85, 110, 65, 60, 9...

...I am using convert() function in RTAQ package to convert the text file into xts object.The code I am using is shown below: convert(from="2010-07-01",to="2010-07-01",datasource="C:\\TAQdata",datadestination="C:\\datadestination",trades=T,quotes=F,ticker="SUBX",dir=F) The problem is that I am not getting the text files named Ticker.trades in .RData format in the destination folder.The sample data I am using is: DATE TIME SYMBOL EX PRICE SIZE COND CORR G127 2010-07-01 08:04:28 "SBUX" "Q" "24.9500" &quo...

...ew to using R on a Linux machine I have another question if that's ok. I am trying to use the fix() or edit() function on this Linux machine but I get the following error message: Error in dataentry(datalist, modes) : invalid device In addition: Warning message: In edit.data.frame(get(subx,envir=parent),title = subx, ...) : Unable to create fontset -*-fixed-medium-r-*-*-*-120-*-*-*-*-*-* It seems that I am trying to use an invalid device? Or I don't have the correct fonset? Has anyone else come across the same issue? And if so, how did you manage to resolve it?...

...p id. For each X, I need to run 2 regression on the submatrix. I used the function "split": datamatrix<-read.csv("datas.csv", header=F, sep=",") dim(datamatrix) # [1] 2980523 3 names(datamatrix)<-c("X","Y","Z") attach(datamatrix) subX<-split(X, X) subY<-split(Y,X) subZ<-split(Z,X) n<-length(subdata) ### number of groups s1<-s2<-rep(NA, n) ### vector to store the regression slope for (i in 1:n){ a<-table(Y[[i]]) table.x<-as.numeric(names(a)) table.y<-as.numeric(a) fit1<-lm(table.y~tabl...

I'm relatively new to R .I tried converting the datetime column with values like 01apr1985:00:00:00.000 using strptime(datetime,"%d%b%Y).Could anyone help me in this regard .Please reply ASAP i need . -- View this message in context: http://www.nabble.com/Datetime-conversion-tp25503138p25503138.html Sent from the R help mailing list archive at Nabble.com.

...: F3_12<"sra" , 0b100111, sra>; defm ADD : F3_12<"add" , 0b000000, add>; defm ADDCC : F3_12<"addcc", 0b010000, addc>; defm ADDX : F3_12<"addx" , 0b001000, adde>; defm SUB : F3_12<"sub" , 0b000100, sub>; defm SUBX : F3_12<"subx" , 0b001100, sube>; defm SUBCC : F3_12<"subcc", 0b010100, SPcmpicc>; ... Each of these 'defm's expand into two instructions. > The semantic of such a description would mean that $dst should be one > of GR8, GR16, GR32 and $dst is one...

...newerf) Waiting for Emacs...Done --- I have options(editor = "emacsclient") > newerf function () { ## newer } <environment: 0x40862004> > environment(newerf) <environment: 0x40862004> > ls(env=environment(newerf)) [1] "subx" "x" > I.e. it got the environment of the function fix -- I think this is clearly a bug CC'ed to R-bugs Erin> However, if I create a function, y.e, and source it in, when Erin> I type in y.e, the function code only displays(no Erin> environment)...

...to check the target and build an instruction that is illegal for a specific configuration. In such a case it would be nice if the MachineVerifier could detect this for me. Example predicate IsCore8 usage: def ADDx: BINOP<...>, Requires<[IsCore8]>; let Predicates=[IsCore8] in { def : SUBX: BINOP<...>; } The predicates are encoded into the targets GenDAGIsel file but not anywhere else that I can find: OPC_CheckPatternPredicate, 4, // (Subtarget.isCore8()) Thanks -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.llvm.org/piperm...

Hi, I'm trying to implement a new backend for an embedded CISC processor. Therefore I thought that it makes sense to take X86 target as a basis, to save some time. But when I look into the X86InstrInfo.td, I have a very strong feeling that it is one of the most complex instruction set descriptions compared to other targets. I can imagine that this is due to the complexity of X86's

...(1, 1, 1, 1, 1, 1, 1, 1, 1, : ## invalid factor level, NAs generated ## That worries me a little bit. The warnings did too. ## Inspect a few lines in the result. combod23[1:4, ] ## fix doesn't work for me, did not bother to investigate. ##> fix(combod23) ##Error in edit.data.frame(get(subx, envir = parent), title = subx, ...) : ## can only handle vector and factor elements ## That means some data from hell came into this thing. ## I suspect that combod23 is OK. ## The memory use on this exercise is huge! Try to help it rm (d2) rm (d3) ## But I worry. I have 2 ways that I use to...

...tension. Here's a trivial patch that implements this: Index: src/library/utils/R/page.R =================================================================== --- src/library/utils/R/page.R (revision 41765) +++ src/library/utils/R/page.R (working copy) @@ -19,10 +19,12 @@ } else { subx <- deparse(substitute(x)) } - file <- tempfile("Rpage.") - if(match.arg(method) == "dput") + if(match.arg(method) == "dput") { + file <- sprintf("%s.R", tempfile("Rpage.")) local.dput(x, file, ...) + }...