r - How to detect start and end of constant periods? -


this question has answer here:

i'm trying plot recession shading periods in r. consider following example, recession periods recognized 1, , non-recession periods 0.

date           recession   1918-09-01     1   1918-10-01     1   1918-11-01     1   1918-12-01     1   1919-01-01     1   1919-02-01     1   1919-03-01     1   1919-04-01     0   1919-05-01     0   1919-06-01     0   1919-07-01     0   1919-08-01     0   1919-09-01     0   1919-10-01     0   1919-11-01     0   1919-12-01     0   1920-01-01     0   1920-02-01     1   1920-03-01     1   1920-04-01     1   1920-05-01     1

can me pick starting dates , ending dates of recession periods? expected output:

start                 end 1918-09-01     1919-03-01 1920-02-01     1920-05-01

similar question has been asked few years ago, think answer not able solve question.

data <- read.csv('recession.csv')  # add new first , last row data, enable detection of change # in beginning , in end of time series. data <- rbind(c(na, ifelse(data$recession[1] == 1, yes = 0, no = na)),               data,               c(na, ifelse(data$recession[length(data$recession)] == 1, 0, na)))  # create new data frame containing start , end of each recession period. # periods detected via built in diff function calculates  # differences between consecutive values in vector. recession.periods <- data.frame(     start = data$date[which(diff(data$recession, lag = 1) == 1) + 1],     end = data$date[which(diff(data$recession, lag = 1) == -1)])

Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more