R function to evaluate expression over variable and create new variables filling in with logical -

-

df1 (below) event log. variable 1 consists of (non-unique) timestamps (posixct). variables 2:4 consist of attributes of events (factors).

i've created df2 , df3 define time bins. df2 stores initial time , df3 end time each time bin.

question how expand df1 variable names of df2 (which same df3) while filling in true or false each event, based on wether event belongs 1 of time bins of variable.
in other words, if event belongs time bin (as defined df2 , df3) value true, otherwise false. each event in df1 needs checked against time bins (all pairs of elements of df2 , 3), 1 variable (of df2&3) @ time.

due large number of variables , events, cannot interactively. learn how r way, avoiding explicit loops, , taking advantage of vectorization.

data (small sampled datasets)

df1 <- data.frame(time.stamp = c("2015-01-05 15:00:00", "2015-01-05 15:01:00", "2015-01-05 15:02:00", "2015-01-05 15:02:00", "2015-01-05 15:03:00", "2015-01-05 15:03:00", "2015-01-05 15:03:00", "2015-01-05 15:03:00"),                   g.id = as.factor(c("848", "737", "848", "848", "737", "848", "737", "737"))               ) df1$time.stamp <- as.posixct(strptime(df1$time.stamp, "%y-%m-%d %h:%m:%s"))                   df2 <- data.frame(m0p1 = c("2015-01-05 15:00:00", "2015-01-05 16:00:00", "2015-01-05 17:00:00"),               m1p1 = c("2015-01-05 15:01:00", "2015-01-05 16:01:00", "2015-01-05 17:01:00"),               m2p1 = c("2015-01-05 15:02:00", "2015-01-05 16:02:00", "2015-01-05 17:02:00"),               m3p1 = c("2015-01-05 15:03:00", "2015-01-05 16:03:00", "2015-01-05 17:03:00")               )              df2$m0p1 <- as.posixct(strptime(df2$m0p1, "%y-%m-%d %h:%m:%s")) df2$m1p1 <- as.posixct(strptime(df2$m1p1, "%y-%m-%d %h:%m:%s"))  df2$m2p1 <- as.posixct(strptime(df2$m2p1, "%y-%m-%d %h:%m:%s")) df2$m3p1 <- as.posixct(strptime(df2$m3p1, "%y-%m-%d %h:%m:%s"))  df3 <- data.frame(m0p1 = c("2015-01-05 15:01:00", "2015-01-05 16:01:00", "2015-01-05 17:01:00"),                  m1p1 = c("2015-01-05 15:02:00", "2015-01-05 16:02:00", "2015-01-05 17:02:00"),                  m2p1 = c("2015-01-05 15:03:00", "2015-01-05 16:03:00", "2015-01-05 17:03:00"),                  m3p1 = c("2015-01-05 15:04:00", "2015-01-05 16:04:00", "2015-01-05 17:04:00")               ) df3$m0p1 <- as.posixct(strptime(df3$m0p1, "%y-%m-%d %h:%m:%s"))   df3$m1p1 <- as.posixct(strptime(df3$m1p1, "%y-%m-%d %h:%m:%s"))  df3$m2p1 <- as.posixct(strptime(df3$m2p1, "%y-%m-%d %h:%m:%s")) df3$m3p1 <- as.posixct(strptime(df3$m3p1, "%y-%m-%d %h:%m:%s"))

result result this:

> head(df1.extended)           time.stamp  g.id  m0p1   m1p1   m2p1   m3p1 1 2015-01-05 15:00:00  848  true   false  false  false 2 2015-01-05 15:01:00  737  false  true   false  false  3 2015-01-05 15:02:00  848  false  false  true   false 4 2015-01-05 15:02:00  848  false  false  true   false 5 2015-01-05 15:03:00  737  false  false  false  true 6 2015-01-05 15:03:00  848  false  false  false  true 7 2015-01-05 15:03:00  737  false  false  false  true 8 2015-01-05 15:03:00  848  false  false  false  true

any pointers appreciated. thanks

you use foverlaps package data.table:

library(reshape2) df2 <- melt(df2, value.name = "start") df3 <- melt(df3, value.name = "end") df2$end <- df3$end  library(data.table) setdt(df1) setdt(df2)  df1[, time.stamp2 := time.stamp]  setkey(df2, start, end) res <- df2[, foverlaps(df1, .sd,                  by.x = c("time.stamp", "time.stamp2"),                 by.y = c("start", "end"),                 type = "start")[,list(time.stamp, g.id, match = !is.na(start))],      = variable] res[, id := seq_len(.n), = variable]  dcast(res, id + time.stamp + g.id ~ variable, value.var = "match") #   id          time.stamp g.id  m0p1  m1p1  m2p1  m3p1 # 1  1 2015-01-05 15:00:00  848  true false false false # 2  2 2015-01-05 15:01:00  737 false  true false false # 3  3 2015-01-05 15:02:00  848 false false  true false # 4  4 2015-01-05 15:02:00  848 false false  true false # 5  5 2015-01-05 15:03:00  737 false false false  true # 6  6 2015-01-05 15:03:00  848 false false false  true # 7  7 2015-01-05 15:03:00  737 false false false  true # 8  8 2015-01-05 15:03:00  737 false false false  true

Comments

Post a Comment

Popular posts from this blog

google chrome - Developer tools - How to inspect the elements which are added momentarily (by JQuery)? -

-
i looking @ how website designed using inspector in chrome. can use firefox developer tools or firefox web developer add-on or chrome web developer extension. so website has slide-show , using jquery it. looking @ markup , css in inspector, i see 2 things constantly changing slides change: one opacity css property understandable, i'd see changing values, changes fast see read anything. second- a div added in div slides change momentarily , moment when appears short notice except div . so question is there way stop slideshow can temporarily rid of blinking sort of effect (by speedy adding , removal , changing of elements , values)? where can inspect div element gets added such short moment , , gets removed? , can see changes in value of opacity takes place? is there way stop slideshow can temporarily rid of blinking sort of effect (by speedy adding , removal , changing of elements , values)? if opacity animated css transition or animation,
Read more

angularjs - Showing an empty as first option in select tag -

-
my app showing empty select field first entry. have read other solution given , tried still not working. my controller code is: .controller('usercreatecontroller', function(user,profile,auth) { alert("hello"); var vm = this; vm.type = 'create'; profile.all() //this service fetch profiles shown in select field .success(function(data){ vm.profile = data; }); vm.userdata.profile = vm.profile[0]; //here have set default value select field and html page is: <label class="col-sm-2 control-label">profile</label> <div class="col-sm-8"> <select ng-model="user.userdata.profile" ng-options="person._id person.profilename person in user.profile"> </select> </div> hierarchy of vm.profile { "_id": 46, "profile": objectid("5516498e95b84548156db754"), "isactive": true, "password": "$2
Read more

php - Cloud9 cloud IDE and CakePHP -

-
i attempting cakephp running on cloud9, cloud based ide. unaware, cloud collaboration ide intermixes services such bitbucket. site gives sudo rights, , installed cakephp using these instructions: https://www.digitalocean.com/community/tutorials/how-to-install-cakephp-on-an-ubuntu-12-04-vps when attempt run database exported machine cakephp installed, error message "url rewriting not configured on server." attempted solve issue using official guide cakephp: http://book.cakephp.org/2.0/en/installation/url-rewriting.html but no cigar, same error message. has gotten cakephp working, or aware of cloud ide free/low cost cloud9 support cakephp? here's how got working now: sudo apt-get update sudo apt-get install php5-intl curl -ss https://getcomposer.org/installer | php -- --filename=composer ./composer create-project --prefer-dist cakephp/app this creates project in /app default. move workspace docroot: mv app/* ./ mv app/.* ./ rm -rf app then de
Read more