search for: heigh

...is has been asked and answered here before, so my apologies for the redundant query. I also know that there are several packages that will do this, but I wish to do it using base R functions only (see below). The query: Suppose I have a character vector of names like this: somenames <- c("Heigh", "Ho", "Silver", "Away") (maybe dozens or hundreds: i.e. lots of names) Now suppose want to put these in a model formula like this: ~ (Heigh + Ho + Silver + Away)^2 ... But **without** pasting them into a character vector and using parse(text = ...) , which, I...

...perfectly fine. So think of my post as mostly my attempt to learn some new tricks rather than to solve a useful problem. I hope this is not unfair to the list. Cheers, Bert On Sat, Mar 29, 2025 at 3:12?PM Richard M. Heiberger <rmh at temple.edu> wrote: > > somenames <- c("Heigh", "Ho", "Silver", "Away") > > as.formula(paste("~(",paste(somenames, collapse="+"),")^2")) > ~(Heigh + Ho + Silver + Away)^2 > > > > > On Mar 29, 2025, at 14:30, Bert Gunter <bgunter.4567 at gmail.com> wr...

...re > before, so my apologies for the redundant query. > > I also know that there are several packages that will do this, but I wish > to do it using base R functions only (see below). > > The query: Suppose I have a character vector of names like this: > somenames <- c("Heigh", "Ho", "Silver", "Away") > (maybe dozens or hundreds: i.e. lots of names) > > Now suppose want to put these in a model formula like this: > ~ (Heigh + Ho + Silver + Away)^2 > > ... But **without** pasting them into a character vector and using &...

...ndulge those who are following this thread, yet another simple approach that just uses call() recursively is: recurseCall <- function(nms, FUN = '+') { if(length(nms) > 2) call(FUN, nms[[1]], Recall(nms[-1])) else call(FUN, nms[[1]],nms[[2]]) } ## yielding > recurseCall(nms) Heigh + (Ho + (Silver + Away)) While this result is different than that given by the others, it is syntactically equivalent and yields identical results when used. However, Duncan's Reduce() solution seems to me "obviously" better. In fact, I think recurseCall just recapitulates the logic...

> somenames <- c("Heigh", "Ho", "Silver", "Away") > as.formula(paste("~(",paste(somenames, collapse="+"),")^2")) ~(Heigh + Ho + Silver + Away)^2 > > On Mar 29, 2025, at 14:30, Bert Gunter <bgunter.4567 at gmail.com> wrote: > > somenam...

...ave learned from them. Thus far, my own aesthetic preference -- and therefore not to be considered in any sense as a "best" approach -- is to use Duncan's suggestion to produce the call directly with call() rather than substitute in my simple for() loop; i.e. somenames <- c("Heigh", "Ho", "Silver", "Away") nms <- lapply(somenames, as.name) frm<- nms[[1]] for(x in nms[-1]) frm <<- call("+", frm, x) frm <-bquote(~ (.(frm))^2, list(frm =frm)) ## which yields > frm ~(Heigh + Ho + Silver + Away)^2 I obviously still...

...of my post as mostly my attempt to learn some new tricks rather than to solve a useful problem. I hope this is not unfair to the list. Cheers, Bert On Sat, Mar 29, 2025 at 3:1?PM Richard M. Heiberger <rmh at temple.edu<mailto:rmh at temple.edu>> wrote: > somenames <- c("Heigh", "Ho", "Silver", "Away") > as.formula(paste("~(",paste(somenames, collapse="+"),")^2")) ~(Heigh + Ho + Silver + Away)^2 > > On Mar 29, 2025, at 14:30, Bert Gunter <bgunter.4567 at gmail.com<mailto:bgunter.4567 at gmai...

...f my post as mostly my attempt to learn some new tricks rather than to solve a useful problem. I hope this is not unfair to the list. Cheers, Bert On Sat, Mar 29, 2025 at 3:12?PM Richard M. Heiberger <rmh at temple.edu<mailto:rmh at temple.edu>> wrote: > somenames <- c("Heigh", "Ho", "Silver", "Away") > as.formula(paste("~(",paste(somenames, collapse="+"),")^2")) ~(Heigh + Ho + Silver + Away)^2 > > On Mar 29, 2025, at 14:30, Bert Gunter <bgunter.4567 at gmail.com<mailto:bgunter.4567 at gmai...

...perfectly fine. So think of my post as mostly my attempt to learn some new tricks rather than to solve a useful problem. I hope this is not unfair to the list. Cheers, Bert On Sat, Mar 29, 2025 at 3:12?PM Richard M. Heiberger <rmh at temple.edu> wrote: > > somenames <- c("Heigh", "Ho", "Silver", "Away") > > as.formula(paste("~(",paste(somenames, collapse="+"),")^2")) > ~(Heigh + Ho + Silver + Away)^2 > > > > > On Mar 29, 2025, at 14:30, Bert Gunter <bgunter.4567 at gmail.com> wr...

Hello, I thought of answering "reformulate can solve the problem" but how do you create quadratic terms with reformulate? ~(Heigh + Ho + Silver + Away)^2 is still a problem with no solution that I know of but paste/as.formula. Or Bert's bquote or substitute. Rui Barradas ?s 23:18 de 29/03/2025, Ebert,Timothy Aaron escreveu: > The general formula is y ~ a + b + c + ... > > There is this approach: > formula...

Hello, I'm quite new to R, but I've already stepped into this problem: I open a PDF device with: pdf("Name-%d.pdf", width=10, height=10, onefile=FALSE) And draw 4 histograms in a row, expecting the pdf device to automatically number them from 1 to 4. What I get back is only 2 images with names "Name-1.pdf" and "Name-2.pdf" that contain the two last histograms I've plotted. Is it a known problem? Or am I...

...Error: could not find function "legendg" My problem with the regular R "legend" function is that I cannot indicate in the legend the line plotted by the command "abline" Here is the code. Attached is the plot. Any suggestion is welcome. Thank you. Maura x11(width=10,heigh=8) plot(NN,LB,xlim=c(1,300),ylim=c(0,3), main="Intrinsic Dimensionality of 1D Helix",font.main=2,cex.main=2,col.main="red", xlab="Number of Nearest-Neighbors",ylab="Estimated Dimension",col.lab="red",cex.lab=1,font.lab=2, xaxt="n&q...

Hi, I have processed measurements of a rough surface to a heigh-height correlation plot. What the meaning of this exactly is, is not important. Only that it is a plot that had two (almost ) linear parts when plotted on a logaritmic scale. In this plot, I want to draw the best fitting lines for these linear parts but I just can't get it done. It is easy when...

Back in August David Chelimsky wrote: "FYI - I tried using the unit_record gem and there are some changes required in rspec to make it work, but they are trivial and it works great. The only trick is that the prevention of DB access is global per process, so you''d have to separate examples that hit the DB from those that don''t into two separate suites. I''ll explore

I want to write a function mimic the function of select.list(), here is my preliminary version. select <- function(x,multiple=TRUE,...){ ans<-new.env() g <- gwindow(title=title,wid=200,heigh=500) x1<-ggroup(FALSE,con=g) x2<-gtable(x,multiple=multiple,con=x1,expand=TRUE) gbutton("OK",con=x1,handler=function(h,...){ value <- svalue(x2) if (length(value)==0) value="" assign("selected",value,env=h$action$env) dispose(x1) },action=list(env=ans)) ans }...

...), var1 = c(1,2,3,4), var2 = c(100,200,300,4000), var3 = c(10,20,300,40000), var4 = c(100000,20000,30000,4000), var5 = c(10,20,30,40), var6 = c(0.001,0.002,0.003,0.004), var7 = c(123,223,123,412), var8 = c(213,123,234,435), all = as.factor(c(1,1,1,1))) pdf("test1.pdf", width=20, heigh=27, paper="a4") print(plot(groupedData(var1 ~ day | all, data = df), main = "var1", xlab="", ylab=""), split=c(1,1,2,4), more=TRUE) print(plot(groupedData(var2 ~ day | all, data = df), main = "var2", xlab="", ylab=""), s...

Hello, I'm trying to produce graphs automatically from data stored in database. Before saving the graphs, I would like to maximize the size of the graphs. The best would be to directly open maximized windows with x11() but up to now I failed doing it. I tried different widths and heighs but I never managed to obtain a full screen window. Is there a command to do it ? Thanks in advance, Ptit Bleu. PS : I'm under XP -- View this message in context: http://www.nabble.com/how-to-automatically-maximize-the-graph-window-%28under-XP%29---tp18219242p18219242.html Sent from the R h...

...Graham Yu also added > support for multiple region function outlining (with PGO) > * BB layout heuristics are tuned with PGO > * hotness driven function layout optimization  > > There are pending work in the following area: > * profile aware loop vectorization, etc > * control heigh reduction optimization (Hiroshi is working on this) > > ThinLTO also works well with PGO. > > Hope this helps. > > David > > >/What I can tell you is that there are many missing ones (that can > benefit /from profile): such as profile aware LICM (patch pending), specul...

...al inlining is made profile aware; Graham Yu also added support for multiple region function outlining (with PGO) * BB layout heuristics are tuned with PGO * hotness driven function layout optimization There are pending work in the following area: * profile aware loop vectorization, etc * control heigh reduction optimization (Hiroshi is working on this) ThinLTO also works well with PGO. Hope this helps. David >* What I can tell you is that there are many missing ones (that can benefit *from profile): such as profile aware LICM (patch pending), speculative PRE, loop unrolling, loop peeling,...

Hello David! I have recently started acquaintance with PGO in LLVM/clang and found your e-mail thread: http://lists.llvm.org/pipermail/llvm-dev/2016-May/099395.html . Here you posted a nice list of optimizations that use profiling and of those which could be using but don't. However that thread is about 2 years old. Could you please kindly let me know if there were any significant changes in