Day 08 – little helper intersect2

转载自：http://feedproxy.google.com/~r/RBloggers/~3/MpCtNKgHgrQ/

Jakob Gepp
发表于

We at STATWORX work a lot with R and we often use the same little helper functions within our projects. These functions ease our daily work life by reducing repetitive code parts or by creating overviews of our projects. At first, there was no plan to make a package, but soon I realised, that it will be much easier to share and improve those functions, if they are within a package. Up till the 24th December I will present one function each day from helfRlein. So, on the 8th day of Christmas my true love gave to me…

What can it do?

This little helper returns the intersect of multiple vectors or lists. I found this function here, thought it is quite useful and adjusted it a bit to my liking.

1
2
intersect2(list(c(1:3), c(1:4)), list(c(1:2),c(1:3)), c(1:2))


1
2
[1] 1 2

Internally, the problem of finding the intersection is solved recursively if an element is a list and then stepwise with the next element.

Overview

To see all the other functions you can either check out our GitHub or you can read about them here.

Have a merry advent season!

Über den Autor

Jakob Gepp

Numbers were always my passion and as a data scientist and statistician at STATWORX I can fullfill my nerdy needs. Also I am responsable for our blog. So if you have any questions or suggestions, just send me an email!

STATWORXis a consulting company for data science, statistics, machine learning and artificial intelligence located in Frankfurt, Zurich and Vienna. Sign up for our NEWSLETTER and receive reads and treats from the world of data science and AI. 

**