ordinal - How do I find the difference in levels between two vectors of ordered factors in R? -

-

let's have 2 ordered factors start , end same length , use same levels. how return vector shows me how many levels each element has changed start end?

so example let's have:

start = 'c5',  na,   'c3',   'c5',   't1' end =   'c5', 'c5',   na  ,  'c6',   'c6' levels: c2 < c3 < c4 < c5 < c6 < c7 < c8 < t1 < t2 < t3 < t4 < t5 < t6 < t7 < t8 < t9 < t10 < t11 < t12 < s1 < s2 < s3 < s45

what ideally want simple end - start give me c(0, na, na, 1, -3)

here's code setting above example

lvls<-c("c2","c3","c4","c5","c6","c7","c8",         "t1","t2","t3","t4","t5","t6","t7","t8","t9","t10","t11","t12",         "s1","s2","s3","s45") start<-c('c5',  na,   'c3',   'c5',   't1')  start<-ordered(start,levels=lvls)  end<-c('c5', 'c5',   na  , 'c6',   'c6') end<-ordered(end,levels=lvls)

found think unnecesarrily complicated way of doing it. i'll gladly accept simpler more elegant answer. 

> start_lvls<-sapply(start,function(elem){match(true,c(elem==levels(elem)))}) > end_lvls<-sapply(end,function(elem){match(true,c(elem==levels(elem)))}) > end_lvls-start_lvls [1]  0 na na  1 -3

and since have hundreds of ordered factors , because want able analyse difference between 2 of them use these make life easier:

# returns vector numeric value of level each ordered factor in orderedfactorvec numericlevels<-function(orderedfactorvec){   return(sapply(orderedfactorvec,function(elem){match(true,c(elem==levels(elem)))})) }  # returns vector numeric difference between 2 given ordered factor vectors (i.e end - start) levelschange<-function(start,end){  return(numericlevels(end)-numericlevels(start))  }

Comments

Post a Comment

Popular posts from this blog

qt - Using float or double for own QML classes -

-
i've created components , helper methods using c++ , qt used in qml gui. of methods calculate gui elements (size, transformations, scene graph items creation). target arm 32 bit using opengl / eglfs render output. opengl using float , qml using real (defined double ). what should use in c++ do not lose precision? if use qreal ( double ) shouldn't lose precision. if git grep float in qtbase.git , can find out bit more: dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0-* important behavior changes * dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0- dist/changes-5.2.0- - qt compiled qreal typedef'ed double on dist/changes-5.2.0: platforms. qreal float on arm chipsets before. guarantees more dist/changes-5.2.0- consistent behavior between platforms qt supports, binary dist/chan...
Read more

Create Outlook appointment via C# .Net -

-
i need create outlook appointment using microsoft.office.interop.outlook , while can work locally on own workstation , works if run web application via server's browser, not work when connect server externally. hence, think might permission issue. i changed application pool identity " localsystem " don't access denied error. unfortunately, doesn't work. the app behaves if appointment created, appointment doesn't appear in outlook. here include file on top of aspx.cs page using outlook = microsoft.office.interop.outlook; here code using pop appointment. outlook.application apptapp = new outlook.application(); outlook.appointmentitem appt = apptapp.createitem(outlook.olitemtype.olappointmentitem) outlook.appointmentitem; appt.subject = txtfirstname.text + " " + txtlastname.text; appt.body = txtcomment.text; appt.alldayevent = false; appt.start = datetime.parse(txtreminderdate.text + " 8:00 am"); appt.end = datetime.p...
Read more

ios - Swift Array Resetting Itself -

-
i have 2 arrays: pointhistory , datehistory . have nstimer , , when timer runs out, action called. in action appending int pointhistory , , current date string datehistory . here timer action: func timeraction() { let steppervalue = int(stepper.value) employee.numberofpoints = steppervalue networking.saveemployee(employee, completion: { (error) -> void in if error != nil { let alert = uialertcontroller(title: "error", message: "there error updating \(self.employee.name)'s points", preferredstyle: .alert) let alertaction = uialertaction(title: "ok", style: .cancel, handler: nil) alert.addaction(alertaction) self.presentviewcontroller(alert, animated: true, completion: nil) } }) var dateformatter = nsdateformatter() dateformatter.dateformat = "mm-dd-yyyy" dateformatter.timezone = nstimezone.localtimezone() var date = nsdate() var ...
Read more