search for: michaeleartz

...t;div> </div><div> </div><!-- originalMessage --><div>-------- Original message --------</div><div>From: Sarah Goslee <sarah.goslee at gmail.com> </div><div>Date: 4/13/16 8:04 PM (GMT-06:00) </div><div>To: Michael Artz <michaeleartz at gmail.com> </div><div>Cc: "r-help at r-project.org" <R-help at r-project.org> </div><div>Subject: Re: [R] Decision Tree and Random Forrest </div><div> </div> On Wednesday, April 13, 2016, Michael Artz <michaeleartz at gmail.com>...

...info about trees. >> >> >> >> Sent from my Verizon, Samsung Galaxy smartphone >> >> >> -------- Original message -------- >> From: Sarah Goslee <sarah.goslee at gmail.com> >> Date: 4/13/16 8:04 PM (GMT-06:00) >> To: Michael Artz <michaeleartz at gmail.com> >> Cc: "r-help at r-project.org" <R-help at r-project.org> >> Subject: Re: [R] Decision Tree and Random Forrest >> >> >> >> On Wednesday, April 13, 2016, Michael Artz <michaeleartz at gmail.com> >> wrote: >> >...

...ding_Chores = levels(Pending_Chores), #(Taxes, None, Laundry, Car Maintenance) Wind = levels(Wind)) # (High,Low) newdata$ProbabilityOfPlayingGolf <- predict(fittedModel, newdata=newdata) Bill Dunlap TIBCO Software wdunlap tibco.com On Fri, Apr 15, 2016 at 3:09 PM, Michael Artz <michaeleartz at gmail.com> wrote: > I need the output to have groups and the probability any given record in > that group then has of being in the response class. Just like my email in > the beginning i need the output that looks like if A and if B and if C then > %77 it will be D. The examples...

...r-bloggers.com/a-brief-tour-of-the-trees-and-forests/ You can get the same kind of information from random forests, but it's less straightforward. If you want a clear set of rules as in your golf example, then you need rpart or similar. Sarah On Wed, Apr 13, 2016 at 6:02 PM, Michael Artz <michaeleartz at gmail.com> wrote: > Ah yes I will have to use the predict function. But the predict function > will not get me there really. If I can take the example that I have a > model predicting whether or not I will play golf (this is the dependent > value), and there are three independen...

...> Hi Michael, > At a guess, try this: > > iqr<-function(x) { > return(paste(round(quantile(x,0.25),0),round(quantile(x,0.75),0),sep="-") > } > > .col3_Range=iqr(datat$tenure) > > Jim > > > > On Tue, Apr 19, 2016 at 11:15 AM, Michael Artz <michaeleartz at gmail.com> > wrote: > > Hi, > > I am trying to show an interquartile range while grouping values using > > the function ddply(). So my function call now is like > > > > groupedAll <- ddply(data > > ,~groupColumn > >...

...(responses) <- paste0( "response", 1:2 ) > > but you have to be careful to fix that code whenever you change the > colordata2 data frame to have more columns. > -- > Sent from my phone. Please excuse my brevity. > > On April 7, 2016 4:57:04 AM PDT, Michael Artz <michaeleartz at gmail.com> > wrote: >> >> Thaks so much! And how would you incorporate lapply() here? >> >> On Thu, Apr 7, 2016 at 6:52 AM, David Barron <dnbarron at gmail.com> wrote: >> >> ifelse is vectorised, so just use that without the loop. >>> &g...

...lling the function yourself before lapply gets a chance. The error pops up because you are giving a vector of numbers (the answer f gave you) to the second argument of lapply instead of a function. -- Sent from my phone. Please excuse my brevity. On April 7, 2016 7:31:18 AM PDT, Michael Artz <michaeleartz at gmail.com> wrote: >If you are not using an anonymous function and say you had written the >function out > >The below gives me the error > 'f(colordata2$color1)' is not a >function, >character or symbol' But then how is the anonymous function working? > &gt...

...> > > Bert Gunter > > "The trouble with having an open mind is that people keep coming along > and sticking things into it." > -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) > > > On Wed, Apr 13, 2016 at 1:40 PM, Michael Artz <michaeleartz at gmail.com> > wrote: > > Hi I'm trying to get the top decision rules from a decision tree. > > Eventually I will like to do this with R and Random Forrest. There has > to > > be a way to output the decsion rules of each leaf node in an easily > > readable way...

...oint is that > paste(round(quantile(x,0.25),0),round(quantile(x,0.75),0),sep="-") > is not a function, it is an expression. ddplyr wants functions. > > > Bill Dunlap > TIBCO Software > wdunlap tibco.com > > On Tue, Apr 19, 2016 at 7:56 AM, Michael Artz <michaeleartz at gmail.com> > wrote: > >> That didn't work Jim! >> >> Thanks anyway >> >> On Mon, Apr 18, 2016 at 9:02 PM, Jim Lemon <drjimlemon at gmail.com> wrote: >> >> > Hi Michael, >> > At a guess, try this: >> > >> >...

If you show us, not just tell us about, a self-contained example someone might show you a non-hacky way of getting the job done. (I don't see an argument to plyr::ddply called 'transform'.) Bill Dunlap TIBCO Software wdunlap tibco.com On Tue, Apr 19, 2016 at 12:18 PM, Michael Artz <michaeleartz at gmail.com> wrote: > Oh thanks for that clarification Bert! Hope you enjoyed your coffee! I > ended up just using the transform argument in the ddply function. It > worked and it repeated, then I called a mode function in another call to > ddply that summarised. Kinda hacky bu...

...; > > "The trouble with having an open mind is that people keep coming along > > and sticking things into it." > > -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) > > > > > > On Tue, Apr 19, 2016 at 4:25 PM, Michael Artz <michaeleartz at gmail.com> > wrote: > >> Hi, > >> Here is what I am doing > >> > >> notGroupedAll <- ddply(data > >> ,~groupColumn > >> ,summarise > >> ,col1_mean=mean(col1) > >>...

...why (if it's even relevant). Cheers, Bert Bert Gunter "The trouble with having an open mind is that people keep coming along and sticking things into it." -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) On Tue, Apr 19, 2016 at 4:25 PM, Michael Artz <michaeleartz at gmail.com> wrote: > Hi, > Here is what I am doing > > notGroupedAll <- ddply(data > ,~groupColumn > ,summarise > ,col1_mean=mean(col1) > ,col2_mode=Mode(col2) #Function I wrote for getting the &gt...

...5 2048-8192 6144 The important point is that paste(round(quantile(x,0.25),0),round(quantile(x,0.75),0),sep="-") is not a function, it is an expression. ddplyr wants functions. Bill Dunlap TIBCO Software wdunlap tibco.com On Tue, Apr 19, 2016 at 7:56 AM, Michael Artz <michaeleartz at gmail.com> wrote: > That didn't work Jim! > > Thanks anyway > > On Mon, Apr 18, 2016 at 9:02 PM, Jim Lemon <drjimlemon at gmail.com> wrote: > > > Hi Michael, > > At a guess, try this: > > > > iqr<-function(x) { > > > return(past...

...seful. I clearly can't. Cheers, Bert Bert Gunter "The trouble with having an open mind is that people keep coming along and sticking things into it." -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) On Tue, Apr 19, 2016 at 5:29 PM, Michael Artz <michaeleartz at gmail.com> wrote: > Again, IQR returns two both a .25 and a .75 value and it failed, which is > why I didn't use it before. Also, the first function just returns tha same > value repeating. Since they are the same, before the second call, using the > mode function is just a w...

..., a self-contained example > someone might show you a non-hacky way of getting the job done. > (I don't see an argument to plyr::ddply called 'transform'.) > > Bill Dunlap > TIBCO Software > wdunlap tibco.com > > On Tue, Apr 19, 2016 at 12:18 PM, Michael Artz <michaeleartz at gmail.com> > wrote: > >> Oh thanks for that clarification Bert! Hope you enjoyed your coffee! I >> ended up just using the transform argument in the ddply function. It >> worked and it repeated, then I called a mode function in another call to >> ddply that su...

...ctional programming paradigm). Cheers, Bert Bert Gunter "The trouble with having an open mind is that people keep coming along and sticking things into it." -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) On Tue, Apr 19, 2016 at 7:56 AM, Michael Artz <michaeleartz at gmail.com> wrote: > That didn't work Jim! > > Thanks anyway > > On Mon, Apr 18, 2016 at 9:02 PM, Jim Lemon <drjimlemon at gmail.com> wrote: > >> Hi Michael, >> At a guess, try this: >> >> iqr<-function(x) { >> return(paste(round(qu...

...ope this helps, Rui Barradas ? Citando David Barron <dnbarron at gmail.com>: > ifelse is vectorised, so just use that without the loop. > > colordata$response <- ifelse(colordata$color == 'blue', 1, 0) > > David > > On 7 April 2016 at 12:41, Michael Artz <michaeleartz at gmail.com> wrote: >> Hi I'm not sure how to ask this, but its a very easy question to answer for >> an R person. >> >> What is an easy way to check for a column value and then assigne a new >> column a value based on that old column value? >> >> F...

...; Bert > Bert Gunter > > "The trouble with having an open mind is that people keep coming along > and sticking things into it." > -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) > > > On Tue, Apr 19, 2016 at 4:25 PM, Michael Artz <michaeleartz at gmail.com> wrote: >> Hi, >> Here is what I am doing >> >> notGroupedAll <- ddply(data >> ,~groupColumn >> ,summarise >> ,col1_mean=mean(col1) >> ,col2_mode=Mode(col2) #Function...

...> > > Bert Gunter > > "The trouble with having an open mind is that people keep coming along > and sticking things into it." > -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) > > > On Wed, Apr 13, 2016 at 2:11 PM, Michael Artz <michaeleartz at gmail.com> > wrote: > > Ok is there a way to do it with decision tree? I just need to make the > > decision rules. Perhaps I can pick one of the trees used with Random > > Forrest. I am somewhat familiar already with Random Forrest with > respective > > to bag...

ifelse is vectorised, so just use that without the loop. colordata$response <- ifelse(colordata$color == 'blue', 1, 0) David On 7 April 2016 at 12:41, Michael Artz <michaeleartz at gmail.com> wrote: > Hi I'm not sure how to ask this, but its a very easy question to answer for > an R person. > > What is an easy way to check for a column value and then assigne a new > column a value based on that old column value? > > For example, Im doing >...