r - keep numbers of a vector that recurr more than 3 times -

-

i have vectors one: c(1, 1, 1, 1, 5, 7, 7, 7, 7, 7). do, keep elements appear more 3 times in vector. in case, obtain following vector c(1, 1, 1, 1, 7, 7, 7, 7, 7) there smart way achieve this? in advance

there number of ways can this, 1 following:

a <- c(1, 1, 1, 1, 5, 7, 7, 7, 7, 7) a[a %in% unique(a)[table(a)>3]]

with unique(a)[table(a)>3] select elements of vector have more 3 occurrences.

the rest should straightforward


Comments

Post a Comment

Popular posts from this blog

java - Ebean enhancement ignores a model -

-
we using avaje-agentloader enhance our ebeans. ebeans in same package. including loader, agent & base ebean library in our project (via sbt): "org.avaje" % "avaje-agentloader" % "1.1.2", "org.avaje.ebeanorm" % "avaje-ebeanorm" % "4.5.5", "org.avaje.ebeanorm" % "avaje-ebeanorm-agent" % "4.5.2", however, when loader runs enhancement, skips 1 ebean. each ebean annotated @entity , extends com.avaje.ebean.model . there seem no differences between ones enhanced , 1 not. there no includes, or extends, etc. basically, i'm wondering if has run across issue in past, or has insights. things we've tried: specifying actual classes enhanced via serverconfig.setclasses(...) specifying pakages analyse/enhance via serverconfig.addpackage(...) or setpackages(...) not specifying @ , having loader analyse all. we've set break-point @ transformer.transform , bean in questio...
Read more

javascript - Reference error while trying to encapsulate an animation function -

-
i'm trying put function own class object. here below. the canvas property holds dom functions, , getting error next property, ctx, should refer method defined in canvas. so property ctx should refer ctx method defined in canvas property. bt when page loads, dev tools telling me there reference error @ point - canvas not defined. i encounter problem when canvas defined in external global variable. var drawcrash = { canvas : function () { dom methods here }, ctx : canvas.ctx, pointer : canvas.pointer, particles : "", nbrparticles : 160, speed : 6, strength : .4, radius : 4, perspective : 0.5, ang : null, cosorsin1 : null, cosorsin2 : null, //functions setspeed : function (_inputspeed) { this.speed = _inputspeed; }, startdrawing : function () { pointer.down = function() { } } run(); } } i believe canvas not available. don't put line ctx: c...
Read more

SQL php on different pages to Insert (mysqli) -

-
i have piece of php code, works when placed on index page ( index.php ), nothing if put in page, i.e. add.php for example: having code add.php page, tried go to: www.myhost.com/add.php , nothing happen. if copy code index.php , go page www.myhost.com/index.php add row in sql table. why that? <?php $server="mysql.server.com"; $user="randomusr"; $pass="randompwd"; $db="randomdb"; $link=mysqli_connect($server, $user, $pass, $db); $result=mysqli_query($link,"select * `battery` `id`"); $query = "insert battery (id,type,owner,charge,time) values ('1','lily002','maisnow','15','2015-04-22 17:20:28')"; mysqli_query($link, $query); header("location: index.php"); //this 1 comment out when copied index.php ?> l # name type collation attributes null 1 id int(16) no ...
Read more