(no subject)
Hello Eric, thanks for the code, it seems to do something closer to what I want. I generate JFM, FMA and so on, but it does not create the DJF at the beginning. Any thoughts on that? Kwesi On Mon, Jan 30, 2017 at 6:01 PM, Erich Subscriptions <
erich.subs at neuwirth.priv.at> wrote:
Using dplyr and magrittr you could do the following
-=-=-=-=-
library(dplyr)
library(magrittr)
mydata <- read.table(text="
era...1. Node_freq MEI
1 1980-01-01 -0.389855332 0.3394196488
2 1980-02-01 -0.728019153 0.2483738232
3 1980-03-01 -1.992457784 0.3516954904
4 1980-04-01 0.222760284 0.5736836269
5 1980-05-01 0.972601798 0.6289249144
6 1980-06-01 0.570725954 0.5736836269
7 1980-07-01 -0.977966324 0.4120517119
8 1980-08-01 0.056128836 -0.0104418383
9 1980-09-01 0.987304573 -0.0687520861
10 1980-10-01 1.188242495 -0.1403611624
11 1980-11-01 1.693037763 -0.0963727298
12 1980-12-01 1.173539720 -0.2539126977
13 1981-01-01 0.423698206 -0.6140040528
14 1981-02-01 -2.208098481 -0.5209122536
15 1981-03-01 -0.786830252 0.1133395650
16 1981-04-01 -0.110502611 0.3302127675
17 1981-05-01 -1.272021820 -0.1894645290
18 1981-06-01 0.394292656 -0.3736021538
19 1981-07-01 1.452892441 -0.4032687711
20 1981-08-01 0.698150002 -0.4441882433
21 1981-09-01 0.997106423 -0.1720737534
22 1981-10-01 0.247264908 -0.2436828296
23 1981-11-01 0.771663876 -0.3909929295
24 1981-12-01 -0.316341458 -0.4943145967
")
mydata %<>% mutate(Node_freq2=lead(Node_freq,1),Node_freq3=lead(Node_
freq,2),MEI1=lead(MEI,1),MEI2=lead(MEI,3)) %>%
select(1,2,4,5,3,6,7)
-=-==-=
check if mydata ist what you want
Try not to become a man of success but rather a man of value-Albert Einstein University of Cape Coast|College of Agriculture and Natural Sciences|Department of Physics| Team Leader|Recycle Up! Ghana|Technology Without Borders| Other emails: kwesi.quagraine at ucc.edu.gh|kwesi.quagraine at teog.de| Mobile: +233266173582 Skype: quagraine_cwasi Twitter: @Pkdilly [[alternative HTML version deleted]]