How to sum last n rows conditionally in R -


i have long data frame (master) this: (last row expect couldn't figure out how it)

id      match     points          team     team/points in last 3 matches 44631   154235      3          nacional    4 44623   154231      3       millonarios    3 44639   154239      1          nacional    4 44640   154239      1            junior    4 44637   154238      1       millonarios    5 44670   154260      3            junior    2 44657   154249      3          nacional    2 44668   154258      1       millonarios    7 44495   154149      0          nacional    3 44685   154263      1            junior    1 44687   154266      1          nacional    3 44688   154266      1       millonarios    6 44698   154265      3       millonarios    3 44695   154264      0            junior    1 44707   154274      1          nacional    2 44713   154273      1          nacional    1 44724   154281      3       millonarios    0  44725   154282      1            junior    0 44737   154991      1          nacional    0

and want create new column (team/points in last 3 matches) shows cumulative sum of points every team in last 3 matches. last row of team´s match should sum points rised team in last 3 matches.

i build past cumulative sum of points every team´s match, couldn´t figure out how limit sum 3 recent matches...

this code:

>master$ptos_antes <- ave(master$points,master$teamxtourn,                     fun=function(x) cumsum(c(0, head(x,-1))) )

master$teamxtourn key field made subset last matches cumulative sum tournament season. master$id_team concatenated master$id_tournament. works ok provide total points acquired every team before every match, want same limited last 3 matches.

i assumed that, sum of points in last 3 matches, including points earned during game in question well. example, if game number 4, want sum points games 4, 3, 2, , 1. if isn't case, change game - 3 game - 2. 

# create data  library(dplyr) data.frame(teams = rep(c("team1", "team2", "team3"), 33),            match_number = sample(1:1000, 99, replace = false),            points = sample(1:100, 99, replace = true)) -> dat  # relative match numbers each team dat %>%     group_by(teams) %>%     mutate(game_num = rank(match_number)) %>%     as.data.frame -> z  # sum points in last 3 games  last3 <- function(x) {     z[x, "teams"] -> team     z[x, "game_num"] -> game     game - 3 -> last_three     if(last_three < 1) last_three <- 1     z[z$game_num %in% last_three:game &           z$teams == team, "points"] -> pnts     sum(pnts)  }  sapply(1:nrow(z), fun = last3) -> z$points_last3

Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more