R formula of type y ~ fn(type="x")+fn(type="z"), disregard the second occurence of fn? -

-

I have a model building function where the formula may contain some functions, and I would like to do this so that user input Function is used many times, only for the first time with a warning, for example LM if we use the same variable twice, then the second one is released: < Pre> y & lt; -1: 3 x

This works because the function < Code> model.frame is used in the code> word , but in my case I am working with the work inside the formula which is not necessarily the same logic List, and I would like to extend this behavior so that the logic of these functions does not make any difference: 

  model (y ~ x + fn ("x")) (interrupt) x Temp 1 1 1 1 2 1 2 1 3 1 3 1 model (y ~ x + fn ("x") + fn ("x") # Directional function calls (intercept) X temporary 1 1 1 1 2 1 2 1 3 1 3 1 model (y_x + fn ("x") + fn ("z")) with # different argument value error in # function atrate (all_terms, "variables") [[1 + ind_fn]]: Out of the CSS limit   
 Here is an example function (highly simplified) I used above:  
  model and lieutenant; - Function (formula, data) {Too much LM function from the beginning MF & lt; - match.call (expand.dots = FALSE) mf & lt; - MF [C (1L, Match (C ("Formula", "Data"), Name (MF), 0L)) MF [[1L]]  - as.name ("model.frame") mf $ na.action & lt; - (as the name ("na.pass") all_terms & lt; - if (unavailable (data)) rules (formula, "Fn")} other rules (formula, "FN", data = data) # Identification Update the formula by removing the part of the function ind_fn & lt; - attr (all_terms, "specials") $ fn "fn" section (! Is.null (ind_fn)) {fn_term & lt; - attr (All_terms, "Variables") [[1 + ind_fn]] threads - update (formula, paste (". ~ .-", deparse (fn_term, width.cutoff = 500L, backtick = TRUE))) mf $ formula & lt ; -formula} # build y and x mf & lt; - eval (mf, parent.frame ()) - Model reaction (mf, "numeric") MT & Lt; - etr (mf, "no Yum ") X-Lt.-Model.Matrix (MT, MF) #if, if in the formula, do something with it (! Null (ind_fn)) {foobar & lt; -function (type = c (" x " "," Z ")) {if (type ==" x ") {rep (1, nrow (x)}} representative (0, n (x)) fn_term [[1]]   
 I check the name of special (function call) Can I change the names like them before the event, but I was thinking that there would be a more clever way of dealing with this?   
 
 
 I was not able to work your code correctly, but I believe that I understood your work Maybe, something that fulfills what you do after 're'.  
  f < - y ~ x + fn ("x") + fn ("z") + z + fn ('a') # Get a list of words wars & lt; - as.list (attr (rank ('f', 'variables')) Obtain the conditions which may lead to duplicate calls & lt; - wars [sapply (wars, is.call) & amp; Duplicate (Spey (wars, function (x) agl list (x) [[1]])] # Remove duplicate calls with formula update (f, paste (". ~.", Paste (sapply (unnecessary, # Y ~ X + fn ("x") + z    , fall = '-'), Sep = '-'))

Comments

Post a Comment

Popular posts from this blog

excel vba - How to delete Solver(SOLVER.XLAM) code -

-
After opening several examples of macro / code written, I suddenly get stuck with a code that seems safe. Solver (SOLVER.XLAM) is doing this notation and I would like to remove it from my system. I do not think this is a relativant code. Can anyone tell me what should I do? I have already installed something to remove the password but Solver is still asking for password and I can not get rid of it! itemprop = "text"> Solver Excel is add-in If you want to delete it, then Excel Application & gt; Options & gt; Add-ins & gt; Search for 'Go to' button and gt; Uncheck the solver on the list like press something (I can not give you the exact path because I have the Polish version of Excel). Trying to open Solver's VBA code is not good because it There is allegedly copyright. Besides, I do not think Solver creates any disadvantages while working with Excel or VBA.
Read more

github - Teamcity & Git - PR merge builds - anyway to get HEAD commit hash? -

-
I have a team city build project with Gitbab VCS route, I have been triggered for both / head on PR and / Merge the referee. The annoying thing is that you can not do anything useful with the merged hash - it is not present in Gitobb. I want to exclude newsgate packages with head in gutub comet situations in the version number along with Hewash (Newsaging 7) for the music build, but against head hash. However, I can not see a way to get the head hashes while constructing that merge. I just want to head because it's useless - we only care about merge. (PR - Pull Request) This command works reliably while running One on / merge is git log --no-merge -1 ---- = '% h'
Read more

ios - Replace text in UITextView run slowly -

-
I have a UITextView and I change a word like the code at the end of UITextView.text: - (void) Replace TexttechWitWord: (NSString *) word {NSString * currentTextViewText = self.textView.text; CurrentTextViewText = [currentTextViewText stringByReplacingCharactersInRange: NSMakeRange ([self.textView.text length] - [word length], [word length]) withString: word; Self.textView.text = currentTextViewText; } Replacement work is fine, but it runs very slowly and very slowly when the textView now lengthens Is there any better way? I try the replacement range: with text for a week but still stuck. Not to know how to use it to replace it in your case. Please guide! Thanks in advance! This is an important job. As you are using an irreversible string and you are creating a very long string and before Assigned to NSString created from. NSString will be used instead of NSMutableString . - (UITableViewCell *) TableView: (UITableView *) Table View CellForOutPath: (NSIndex...
Read more