Comparing Each Element of Two Lists in R -


i have dataset in r following structure:

data <- structure(list(cust_id = c("003", "023", "023", "023", "023",  "041", "056", "056"), record_date = list(structure(16130, class = "date"),      structure(c(16130, 16130, 16130, 16130), class = "date"),      structure(c(16150, 16150, 16150, 16150), class = "date"),      structure(c(16161, 16161, 16161, 16161), class = "date"),      structure(c(16162, 16162, 16162, 16162), class = "date"),      structure(16133, class = "date"), structure(c(16088, 16088     ), class = "date"), structure(c(16095, 16095), class = "date")),      compare_date = list(structure(16130, class = "date"), structure(c(16130,      16150, 16161, 16162), class = "date"), structure(c(16130,      16150, 16161, 16162), class = "date"), structure(c(16130,      16150, 16161, 16162), class = "date"), structure(c(16130,      16150, 16161, 16162), class = "date"), structure(16133, class = "date"),          structure(c(16088, 16095), class = "date"), structure(c(16088,          16095), class = "date"))), row.names = c(na, -8l), class = "data.frame", .names = c("cust_id",  "record_date", "compare_date"))    cust_id                record_date               compare_date 1     003                      16130                      16130 2     023 16130, 16130, 16130, 16130 16130, 16150, 16161, 16162 3     023 16150, 16150, 16150, 16150 16130, 16150, 16161, 16162 4     023 16161, 16161, 16161, 16161 16130, 16150, 16161, 16162 5     023 16162, 16162, 16162, 16162 16130, 16150, 16161, 16162 6     041                      16133                      16133 7     056               16088, 16088               16088, 16095 8     056               16095, 16095               16088, 16095

i compare each element of "record_date" , each element of "compare_date." want result equal amount of times "compare_date" within 14 days after "record_date." know how compare 2 vectors, comparing 2 lists seems giving me trouble. have tried using lapply or sapply, can loop through 1 list @ time.

does have easy solution problem? expect expected output following:

   within14 1:        0 2:        2 3:        1 4:        0 5:        1 6:        0 7:        0 8:        0

perhaps, looking mapply. can edit fun argument of mapply want on each rd , cd argument.

mapply passes 1 element each of data$record_date , data$compare_date rd , cd arguments of fun respectively.

mapply(fun = function(rd, cd) {     d <- as.numeric(cd - rd)     sum(d > 0 & d < 15) }, rd = data$record_date, cd = data$compare_date) ## [1] 0 0 2 1 0 0 1 0

Comments

Post a Comment

Popular posts from this blog

javascript - jquery or ashx not working -

i using ajax file upload control. it creating html: <form action="/pages/handlers/asyncfileuploadhandler.ashx" method="post" enctype="multipart/form-data" target="ajaxuploader-iframe-1397144545"> <input type="hidden" name="type" value="mindvoice"> <input type="file" id="imagefile" style="display: block; width: 80%; margin-right: auto; margin-left: auto;"> </form> and target is: <iframe width="0" height="0" style="display:none;" name="ajaxuploader-iframe-1397144545" id="ajaxuploader-iframe-1397144545"></iframe> the form submitted using .submit() . my ashx handler: <%@ webhandler language="c#" class="asyncfileuploadhandler" %> using system; using system.web; using nettpals.core; public class asyncfileuploadhandler : ihttphandler { public void processre...
Read more

opencv - DataType<cv::detail::deriv_type>::depth what is it used for -

i wondering why line used in lucas kanade tracker in opencv: datatype<cv::detail::deriv_type>::depth can explain me? in opencv, depth of mat refers type of data contained in mat 's data buffer. represented integer values correspond given data type. these integers commonly abstracted appropriate macro definition (e.g. uchar data represented macro cv_8u ). cv::datatype type-traits class provides method obtain corresponding integer value without having memorize macro means data type. there few cases user code needs use datatype::depth . more common datatype::type . a simple example shows 1 possible use of datatype::depth : cv::mat uchar_data = cv::mat::ones(3, 3, cv_8uc1); cv::mat float_data; uchar_data.convertto(float_data, cv::datatype<float>::depth); // ^^ equivalently replaced // cv_32f macro float_data.at<float>(0,1) += 0.5f; std::cout << float_data << std::endl;...
Read more

python 3.x - Mapping specific letters onto a list of words -

can please suggest approach write piece of codes automatically maps letter in letter_str onto dic_key (a dict key string type contains dashes match length of words in word_lst)? so, mapping occurs if letter appears in every words in list @ same position no matter how many words in list. if no letter appears @ position words in word list new_dic_key '----'. please see examples below thanks word_lst = ['ague', 'bute', 'byre', 'came', 'case', 'doze'] dic_key = '----' letters_str ='abcdefghijklmnopqrstuvwxyz' new_dic_key = '---e' if word_list = ['bute', 'byre'] new_dic_key = 'b--e' or word_list = ['drek', 'drew', 'dyes'] new_dic_key = 'd-e-' if words in word_list of same length code give want: word_list = ['drek', 'drew', 'dyes'] cols = [] in range(len(word_list[0])): cols.append([]) word in ...
Read more