r - How to create multiple rules for "lapply" function -



r - How to create multiple rules for "lapply" function -

currently, have array of list(groupa) next example:

$aaaaaa time timegap 1 06:00:00 0 2 07:00:00 60 3 08:00:00 40 4 09:00:00 0 5 10:00:00 30 $bbbbbbb time timegap 1 06:00:00 0 2 07:00:00 60 3 08:00:00 40 4 09:00:00 0 5 10:00:00 30

i trying create function generate dummy variable if timegap greater number. challenge number generating dummy variable different others if time in in range 07:00:00 09:00:00.

what did following:

dummytime<-function(x){ if(x$time>times("07:00:00") & x$time<times("09:00:00")){ d<-c(1200) } else{ d<-c(600) } dummytime<- as.numeric(x$timegap>=d) as.data.frame(dummytime) } dumtime<-lapply(groupm2,dummytime)

however, got error this:

error in if (as.logical(x$time > times("07:00:00") & x$time < times("09:00:00"))) { : missing value true/false needed

any suggestion? help in advance.

here 1 way. since used chron bundle convert character time. have done that. then, created list. then, lpply.

library(chron) # time class 'times' df1$time <- chron(times = df1$time) df2$time <- chron(times = df2$time) # create list ana <- list(df1 = df1, df2 = df2) #$df1 # time timegap #1 06:00:00 0 #2 07:00:00 60 #3 08:00:00 40 #4 09:00:00 0 #5 10:00:00 30 lapply(ana, function(x){ x$test <- ifelse(x$time >= "07:00:00" & x$time <= "09:00:00", 1200, 600) x }) #$df1 # time timegap test #1 06:00:00 0 600 #2 07:00:00 60 1200 #3 08:00:00 40 1200 #4 09:00:00 0 1200 #5 10:00:00 30 600 #$df2 # time timegap test #1 06:00:00 0 600 #2 07:00:00 60 1200 #3 08:00:00 40 1200 #4 09:00:00 0 1200 #5 10:00:00 30 600

or

lapply(ana, transform, test = ifelse(time >= "07:00:00" & time <= "09:00:00", 1200, 600))

r lapply

Comments

Post a Comment

Popular posts from this blog

xslt - DocBook 5 to PDF transform failing with error: "fo:flow" is missing child elements. Required content model: marker* -

xslt - DocBook 5 to PDF transform failing with error: "fo:flow" is missing child elements. Required content model: marker* - i've inherited doc publishing process takes docbook , builds html , pdf output, using apache fop both. project had been started, never completed. lots of tweaking, i've able of doc sets build (20+), except handful, , fail severe code 1 of these 2 conditions: "fo:flow" missing kid elements. required content model: marker* "fo:block" not valid kid of "fo:root" the xml output comes out of docbook , docbook-fop checks out well-formed. the fop error in 1 book, "endecagloss", example, points end of string: <fo:flow flow-name="xsl-region-body" start-indent="4pc" end-indent="0pt"/> here’s log output in case: [java] severe: javax.xml.transform.transformerexception: file:/scratch/publishing/hudson/jobs/build-main-endeca-documentation/workspace/serverdoc/w...
Read more

mediawiki - How do I insert tables inside infoboxes on Wikia pages? -

mediawiki - How do I insert tables inside infoboxes on Wikia pages? - i want insert tables in infoboxes. example, have proteinbox i've developed using infobox template (http://health-and-medicine.wikia.com/wiki/template:proteinbox), , fasta field big fit comfortably in proteinbox. hence collapsible table within box. this tried: {{infobox | row 1 = {| class = "mw-collapsible mw-collapsed wikitable" |- | <!-- table content --> |} }} your problem is, putting nested table within template. pipe characters ( | ) in table syntax collides pipe usage in templates. the commonly used hack around create template called template:! , containing pipe character, , utilize when need set tables, parser functions or other stuff using pipe characters, within templates. table (with every | replaced {{!}} ): {{{!}} {{!}}- {{!}} a1 {{!}} b1 {{!}}- {{!}} a2 {{!}} b2 {{!}}} ...the equivalent of {| |- | a1 | b1 |- | a2 | b2 |} furthermore, hav...
Read more

Local Service User Logged into Windows -

Local Service User Logged into Windows - i created windows service tracks app server user connected through load balancer. it retrieves user logged windows on machine, cross references active directory (ad) business relationship homecoming first name, lastly name , e-mail (for notification through website created project) there 1 scheme on network users remote system, vista system, reason returning values "local service" logged machine, it's weird , security guys impossible "local service" business relationship logged windows. here how user logged windows managementscope ms = new managementscope("\\\\.\\root\\cimv2"); objectquery query = new objectquery("select * win32_computersystem"); managementobjectsearcher searcher = new managementobjectsearcher(ms, query); foreach (managementobject mo in searcher.get()) { _username = mo["username"].tostring(); } // remove domain part username string[] usernameparts = _...
Read more