search for: mada

...that Pct is much larger than Cutoff, sorting Cutoff is the expensive part e.g O(nlog2(n) for Quicksort (n = length Cutoff). I believe looping is O(n^2). Jeff's approach using findInterval may be faster. Of course implementation details matter. -- Bert On Mon, Oct 16, 2023 at 4:41?AM Leonard Mada <leo.mada at syonic.eu> wrote: > > Dear Jason, > > The code could look something like: > > dummyData = data.frame(Tract=seq(1, 10, by=1), > Pct = c(0.05,0.03,0.01,0.12,0.21,0.04,0.07,0.09,0.06,0.03), > Totpop = c(4000,3500,4500,4100,3900,4250,5100,4700,4950,4...

..., ] # Result cs = cumsum(dummyData$Totpop) # Only last entry: # - I do not have a nice one-liner, but this should do it: isLast = rev(! duplicated(rev(dummyData$Cutoff))) data.frame(Total = cs[isLast], ?? ?Cutoff = dummyData$Cutoff[isLast]) Sincerely, Leonard On 10/15/2023 7:41 PM, Leonard Mada wrote: > Dear Jason, > > > I do not think that the solution based on aggregate offered by GPT was > correct. That quasi-solution only aggregates for every individual level. > > > As I understand, you want the cumulative sum. The idea was proposed by > Bert; you need onl...

My mistake! It does actually something else, which is incorrect. One could still use (although the code is more difficult to read): subset(tmp <- table(sample(1:10, 100, T)), tmp > 10) Sincerely, Leonard On 10/21/2023 10:26 PM, Leonard Mada wrote: > Dear List Members, > > There was recently an issue on R-devel (which I noticed only very late): > https://stat.ethz.ch/pipermail/r-devel/2023-October/082943.html > > It is possible to use subset as well, almost as initially stated: > > subset(table(sample(1:5, 100,...

Dear Rich, It depends how the data is generated. Although I am not an expert in ecology, I can explain it based on a biomedical example. Certain variables are generated geometrically (exponentially), e.g. MIC or Titer. MIC = Minimum Inhibitory Concentration for bacterial resistance Titer = dilution which still has an effect, e.g. serially diluting blood samples; Obviously, diluting the

...he future, especially as this embedding should be platform-independent, and I would welcome any help from the R-core team members. I am looking forward to hear from you and hope that this project will be a great success. I would like to thank you in advance for your effort. Sincerely, Leonard Mada

...A search yielded only the following thread: http://tolstoy.newcastle.edu.au/R/help/06/01/19615.html As I do not know (and have access to) mathlab, I am rather confined to R. Which is not bad, but I need a lot of help to accomplish this task. Any help is highly appreciated. Sincerely, Leonard Mada

Dear Akshay, The best response was given by Andrew. "{...}" is not a closure. This is unusual for someone used to C-type languages. But I will try to explain some of the rationale. In the case that "{...}" was a closure, then external variables would need to be explicitly declared before the closure (in order to reuse those values): intermediate = c() { ??? intermediate

Hii all, may I introduce myself. my name is Putro Nugroho i'am astudent of Gadjah Mada University, i'am doing on my final exam about Parametric Regression Model with gamma and log-gamma regression model. I have a problem about the syntax program on R because it doesn't work with gamma distribution with log link function. when I use zelig package it doesn't work when the d...

?.S3methods f <- function()(2) > length(.S3methods(f)) [1] 0 > length(.S3methods(print)) [1] 206 There may be better ways, but this is what came to my mind. -- Bert On Wed, Mar 8, 2023 at 11:09?AM Leonard Mada via R-help < r-help at r-project.org> wrote: > Dear R-Users, > > I want to change the args() function to return by default the arguments > of the default generic function: > args = function(name, default = TRUE) { > # TODO: && is.function.generic(); > i...

Dear R-Users, I noticed that *read* is not a generic function. Although it could benefit from the functionality available for generic functions: read = function(file, ...) UseMethod("read") methods(read) ?# [1] read.csv???? read.csv2??? read.dcf???? read.delim read.delim2? read.DIF???? read.fortran ?# [8] read.ftable? read.fwf???? read.socket? read.table The users would still

Dear R-Users, I want to change the args() function to return by default the arguments of the default generic function: args = function(name, default = TRUE) { ?? ?# TODO: && is.function.generic(); ?? ?if(default) { ?? ???? fn = match.call()[[2]]; ?? ???? fn = paste0(as.character(fn), ".default"); ?? ???? name = fn; ?? ?} ?? ?.Internal(args(name)); } Is there a nice way

...; isGeneric(name)) { >> fn = paste0(as.character(name), ".default") >> name = fn >> } >> .Internal(args(name)) >> } > r/ > Gregg > > > > > > ------- Original Message ------- > On Wednesday, March 8th, 2023 at 12:09 PM, Leonard Mada via R-help <r-help at r-project.org> wrote: > > >> Dear R-Users, >> >> I want to change the args() function to return by default the arguments >> of the default generic function: >> args = function(name, default = TRUE) { >> # TODO: && is.func...

Dear Jason, I do not think that the solution based on aggregate offered by GPT was correct. That quasi-solution only aggregates for every individual level. As I understand, you want the cumulative sum. The idea was proposed by Bert; you need only to sort first based on the cutoff (e.g. using an ordered factor). And then only extract the last value for each level. If Pct is unique, than you

Dear List Members, There was recently an issue on R-devel (which I noticed only very late): https://stat.ethz.ch/pipermail/r-devel/2023-October/082943.html It is possible to use subset as well, almost as initially stated: subset(table(sample(1:5, 100, T)), table > 10) # Error in table > 10 : #? comparison (>) is possible only for atomic and list types subset(table(sample(1:5, 100,

Dear Mr. Matthieu Stigler i so excited for your package 'tsDyn'. firstly introduce myself, i student at Gadjah Mada University,Indonesia. i'am new user of R and applying it for solving Bi-Variate ( interest rate and inflation ) with threshold vector error correction model. now, i writing my final examination about threshold vector error correction model and i use refference from paper "testing for two r...

Dear R Users, Are there any tools to extract the function names called by reverse-dependencies? I would like to group these functions using clustering methods based on the co-occurrence in the reverse-dependencies. Utility: It may be possible to split complex packages into modules with fewer reverse-dependencies. Package pkgdepR may offer some of the functionality; but I did not have time to

Hi to all I've mada up my mind and i tried to change from i4l to chan_capi, following some councelling from the gurus. I compiled it up, and when i try to load it in modules.conf, i get that wonderful message and Asterisk does not start: [chan_capi.so]Feb 17 09:21:40 WARNING[16384]: loader.c:239 ast_load_resource: /...

Dear Emily, Using a look-behind solves the split problem in this case. (Note: Using Regex is in most/many cases the simplest solution.) str = c("leucocyten + gramnegatieve staven +++ grampositieve staven ++", "leucocyten ? grampositieve coccen +") tokens = strsplit(str, "(?<=[-+])\\s++", perl=TRUE) PROBLEM The current expression does NOT work for a different

...hemical Engineering at De La Salle University (DLSU) - Civil Engineering at Chulalongkorn University (CU) - Electrical and Electronics Engineering at Chulalongkorn University (CU) - Environmental Engineering at University of Philippines-Diliman (UP) - Geological Engineering at Gadjah Mada University (UGM) - Information and Communication Technology at King Mongkut''s Institute of Technology, Ladkrabang (KMITL) - Manufacturing Engineering at University of Malaya (UM) - Materials Engineering at Universiti Sains Malaysia (USM) - Mechanical and Aeronautical Enginee...

Dear list members, I frequently program small scripts and wrap them into functions to be able to check them with checkUsage. In case these functions (loaded via source or copy pasted to the R console) use functions from other packages, I get this error: no visible global function definition for ?xxxxxxx? For example: test = function() { require(plotrix) color.legend() }