search for: denes

I have a data set that looks like this: dene <- data.frame(length = c(35,32,33,34,41,40,46,35,41,40,45,36,38,37,39,40,42,42,42,43,44), sex=c(1,1,1,1,2,2,2,1,2,2,2,1,2,2,2,2,2,2,2,2,2)) I would like to plot the density (frequency of occurrence) of each length class but I want to have different colors for sex. I used the following: library(sm) sex.f<-factor(as.factor(dene$sex),levels=c(1,2),

...ngth <- function(...) length(substitute(expression(...))) - 1L # Usage (returns 3): dotlength(1, 4, something = undefined) How can I define a method for length() which could be called directly on `...`? Or is it an intention to extend the base length() function to accept ellipses? Regards, Denes

...ubstitute(list(...))[-1L] ` I would like to know if: 1) substitute(...()) is a trick or a feature in the language; 2) it will be supported in the future; 3) when (in which R version) it was introduced. A hint on where to look for the machinery in the R source would be also appreciated. Regards, Denes

...e and would end up throwing syntax errors on: function() return function() return 2*x function() return (2*x) + 1 while still accepting: function() return() function() return(2*x) function() return((2*x) + 1) Just my two Friday cents /Henrik On Fri, Nov 20, 2020 at 3:37 PM D?nes T?th <toth.denes at kogentum.hu> wrote: > > Yes, the behaviour of return() is absolutely consistent. I am wondering > though how many experienced R developers would predict the correct > return value just by looking at those code snippets. > > On 11/21/20 12:33 AM, Gabriel Becker wrote: > &g...

...a feeling all of this is just return() performing correctly though. If there are already R CMD CHECK checks for this kind of thing (I wasnt sure but I'm hearing from others there may be/are) that may be (and/or may need to be) sufficient. ~G On Fri, Nov 20, 2020 at 3:27 PM D?nes T?th <toth.denes at kogentum.hu> wrote: > Or even more illustratively: > > uneval_after_return <- function(x) { > return(x) * stop("Not evaluated") > } > uneval_after_return(1) > # [1] 1 > > On 11/20/20 10:12 PM, Mateo Obreg?n wrote: > > Dear r-developers- > &...

Thank Denes for the clarification, glad to see my package got one citation from my own question:) Also, thank Benjamin for sending many useful documents. Actually, the question is related to the SharedObject package that Benjamin has pointed to. I wanna avoid sharing an object that has already been shared, so...

Benjamin, You happened to send a link which points to the OP's own package :) I think Jiefei would like to know how one can "officially" determine if an arbitrary ALTERP object belongs to a class that he owns. Regards, Denes On 10/19/20 10:22 AM, Benjamin Christoffersen wrote: > It seems as if you can you use the ALTREP macro as done in this > package: https://github.com/Jiefei-Wang/SharedObject/blob/804b6ac58c63a4bae95343ab43e8b1547b07ee6b/src/C_interface.cpp#L185 > > and in base R: https://github.com/w...

...r labeling the models, do.call gives an error: names(models) <- c("randomIC", "randomSlope") do.call(anova, models) # # without do.call, anova works fine: anova(models[[1]], models[[2]]) Is there a possibility to use do.call(anova, models) on named lmer-models? Regards, Denes

...n (2*x) + 1 >> >> while still accepting: >> >> function() return() >> function() return(2*x) >> function() return((2*x) + 1) >> >> Just my two Friday cents >> >> /Henrik >> >> On Fri, Nov 20, 2020 at 3:37 PM D?nes T?th <toth.denes at kogentum.hu> wrote: >>> >>> Yes, the behaviour of return() is absolutely consistent. I am wondering >>> though how many experienced R developers would predict the correct >>> return value just by looking at those code snippets. >>> >>> On...

...le") <- NULL if (is.language(part) && is.recursive(part)) { for (i in seq_along(part)) part[i] <- list(recurse(part[[i]])) } part } body(fn) <- recurse(body(fn)) fn } # test ( testNoSrc2 <- rmSource(testSrc) ) testNoSrc2() Regards, Denes

> Date: Fri, 16 Oct 1998 18:07:45 -0700 > From: RICK_@t-online.de =?ISO-8859-1?Q?(J=DCRGEN?= ANZER) > To: dszekely@csoft.ro > Subject: Re: WIN 98 password problem > Message-ID: <3627EDE1.38A@t-online.de> > > Szekely Denes wrote: > > > > Three days ago I had a mad ideea to install Win 98 on my PC. Until this > > date I cannot map or access from WINDOWS my user directory and any other > > shared resurces on the SCO, because my password is rejected. Based on my > > previous experience with...

...cause my password is rejected. Based on my previous experience with Microsoft products I try any uppercase/lowercase mixture on my password, I try to change my password, but nothing helps! So there I am... PS. If I try to access the server with TELNET, for example everithing working fine... Szekely Denes Sysop on Miercurea-Ciuc's network http://clmc.topnet.ro e-mail: dszekely@csoft.ro, denes@clmc.topnet.ro

...not prepared for those differences. (To learn more, read the data tables vignette.) Tibbles (as produced by unnest in my previous response) are not data tables either, but they behave much more like data frames than data tables do. On May 2, 2018 1:30:37 PM MDT, "T?th D?nes" <toth.denes at kogentum.hu> wrote: > > >On 05/02/2018 07:11 PM, Kevin E. Thorpe wrote: >> I suspect this is pretty easy, but I'm having trouble figuring it >out. >> Basically, I have a list of data frames such as the following >example: >> >> list(A=data.frame(x=...

...t place. Use match.call() instead, as suggested by Serguei. [Disclaimer: I have no idea what is actually going on, so these are just guesses. There are some hints at https://cran.r-project.org/doc/manuals/r-devel/R-ints.html#Dot_002ddot_002ddot-arguments if you want to folllow up.] " Cheers, Denes On 10/6/20 8:38 AM, Tim Taylor wrote: > I probably need to be more specific. What confuses me is not the use > of substitute, but the parenthesis after the dots. It clearly works > and I can make guesses as to why but it is definitely not obvious. > The following function gives th...

...ee ogg vorbis files were compressed losslessly, with compression ratios between 2 - 8 % and compression time about 1/500 realtime (i.e. slow). Theoretical upper bound of the compression for real music is estimated to be between 10 and 20 % - further improvements to the methods are possible. bye Denes -- --- What kills me, doesn't make me stronger.

...n' (which expects a single connection), and to make it easier to extend the hashing for other algorithms without changing the main R interface, a more involved solution would be to introduce tools::hash and tools::hashes, in a similar vein to digest::digest and digest::getVDigest. Regards, Denes [1]: https://github.com/HenrikBengtsson/Wishlist-for-R/issues/21 [2]: https://github.com/wch/r-source/blob/5a156a0865362bb8381dcd69ac335f5174a4f60c/src/library/tools/src/md5.c#L172 [3]: https://github.com/wch/r-source/blob/5a156a0865362bb8381dcd69ac335f5174a4f60c/src/library/tools/src/Rmd5.c#L2...

...;B"),x=c(1:2,5:6),y=c(3:4,7:8)) > > Appreciate any pointers. Hi Kevin, data.table::rbindlist does exactly what you want in a very efficient way: library(data.table) dat <- list(A=data.frame(x=1:2, y=3:4),B=data.frame(x=5:6,y=7:8)) rbindlist(dat, idcol = "type") Regards, Denes > > Kevin >

...> function() return 2*x > function() return (2*x) + 1 > > while still accepting: > > function() return() > function() return(2*x) > function() return((2*x) + 1) > > Just my two Friday cents > > /Henrik > > On Fri, Nov 20, 2020 at 3:37 PM D?nes T?th <toth.denes at kogentum.hu> wrote: > > > > Yes, the behaviour of return() is absolutely consistent. I am wondering > > though how many experienced R developers would predict the correct > > return value just by looking at those code snippets. > > > > On 11/21/20 12:33 AM,...

I probably need to be more specific. What confuses me is not the use of substitute, but the parenthesis after the dots. It clearly works and I can make guesses as to why but it is definitely not obvious. The following function gives the same final result but I can understand what is happening. dots <- function (...) { exprs <- substitute(list(...)) as.list(exprs[-1]) } In the

...multi-element vector as 'keywords' in this case, but instead: stri_count_regex(text3, "[0-9]+\\) ") or: stri_count_regex(text3, "[[:digit:]]+\\) ") BTW, I do not understand why to use the stringr package if it is just a wrapper around the stringi package. Regards, Denes > keywords > > Count<-str_count(text3,keywords) > > === > > I am looking for Count<-c(3,0) > > Any suggestions? > > Thanks! > > Dan > > [[alternative HTML version deleted]] > > ______________________________________________ >...