regex - glob2rx in R to get all cells whose last decimal is 5? -


i have matrix looks lke this:

wun2                               308.0      111.0       72.0       64.0 wupa                              8177.0     3933.0     2235.0     2057.0 wus                                  5.0        0.0        9.0        5.0 x16                                581.2      154.3      297.1      384.2 xmas-1                              26.5       58.0       26.5       31.0 xmas-2                             201.5      138.2      136.5      203.0 y                                   18.0        1.0       13.0        8.0 yar                                  5.0        0.0        0.0        2.0 yata                              1283.0      679.0      735.0      784.0 yellow-b                           129.0       82.0      103.0       96.0 yellow-c                           817.3      415.0      832.0      788.0 zormin                            3447.0     2005.0     1999.0     2300.0 zpg                                  1.5        0.0        0.0        0.0 zwilch                               1.0        0.0        8.0       14.0 zye                                 83.0       64.0       17.0       30.8

i want round matrix, want numbers last decimal 5 rounded next integer. therefore, wanted apply ceiling function cells end in .(somenumber+)5 before doing general round().

i don't know how specify shell expression glob2rx make adequate regular expression, inferred had this: 

 grx <-  "^\\d+\\.\\d+5$"

however, doesn't seem getting of cells when grep(grx, x=matrix.1, value=true).

what wrong?

thanks! carmen

here's way base r:

d <- read.table(text="   wun2                               308.0      111.0       72.0       64.0   wupa                              8177.0     3933.0     2235.0     2057.0   wus                                  5.0        0.0        9.0        5.0   x16                                581.2      154.3      297.15      384.2   xmas-1                              26.5       58.0       26.5       31.0   xmas-2                             201.5     138.220      136.5      203.0   y                                   18.0        1.0       13.0        8.0   yar                                  5.0        0.0        0.0        2.0   yata                              1283.0      679.0      735.0      784.0   yellow-b                           129.0       82.0      103.0       96.0   yellow-c                           817.345    415.0      832.0      788.0   zormin                            3447.0     2005.0     1999.0     2300.0   zpg                                  1.0        0.0        0.0        0.0   zwilch                               1.0        0.0        8.0       14.0   zye                                 83.0       64.0       17.0       30.865")  subbed <- lapply(d[-1],      function(col) ifelse(grepl('\\d+\\.\\d*5$', col), ceiling(col), col)) result <- data.frame(d[1], subbed)   #          v1     v2      v3   v4     v5 # 1      wun2  308.0  111.00   72   64.0 # 2      wupa 8177.0 3933.00 2235 2057.0 # 3       wus    5.0    0.00    9    5.0 # 4       x16  581.2  154.30  298  384.2 # 5    xmas-1   27.0   58.00   27   31.0 # 6    xmas-2  202.0  138.22  137  203.0 # 7         y   18.0    1.00   13    8.0 # 8       yar    5.0    0.00    0    2.0 # 9      yata 1283.0  679.00  735  784.0 # 10 yellow-b  129.0   82.00  103   96.0 # 11 yellow-c  818.0  415.00  832  788.0 # 12   zormin 3447.0 2005.00 1999 2300.0 # 13      zpg    1.0    0.00    0    0.0 # 14   zwilch    1.0    0.00    8   14.0 # 15      zye   83.0   64.00   17   31.0

Comments

Post a Comment

Popular posts from this blog

php - cannot display multiple markers in google maps v3 from traceroute result -

i'm newbie in php mysql , google maps v3. have problems in google maps v3. made traceroute web based , map traceroute's result in google maps v3 final project of college education. have try many tutorials didn't work. have tried tutorials in forum nothing worked. problem cannot display multiple markers got location data database. maybe because i'm newbie , not know how do. confuse looping show markers. here code <?php error_reporting(e_all ^ (e_notice)); ini_set('max_execution_time', 360); $enable_log_user = false; global $ip, $host_name, $host_ip; $host = @$_post['host']; $trace = @$_post['trace']; $self = $_server['php_self']; include("phpsqlajax_dbinfo.php"); $connection = mysql_connect ('127.0.0.1', $username, $password); if (!$connection) { die('not connected : ' . mysql_error());} $db_selected = mysql_select_db($database, $connection); if (!$db_selected) { die ('can\'t use db : ...
Read more

c# - DetailsView in ASP.Net - How to add another column on the side/add a control in each row? -

i have detailsview control on page used edit various fields of record, works in respect. i looking way add 1 column (and if works, why not more) right, absolutely read-only, show same fields of record comparison purposes. i aware there no obvious way such thing out of box detailsview . have looked other controls (transposed gridview , recommended formview , listview ), nothing satisfies. have special data binding setup using detailsview , can't out of without losing features. anyone on how "hack in" additional columns (for display only) on detailsview ? the solution have now, use second detailsview , visible set false in aspx. in code, make sure databind hidden detailsview hosts data third column first, initial detailsview named itemdetails . and in item created event, pass third column html rendering of hidden controls (in last code block) : protected void itemdetails_itemcreated(object sender, eventargs e) { if (dataite...
Read more

javascript - firefox memory leak -

i have following script (i use raphaeljs also) draws circle, waits 1 second, draws circle again, etc (you can copy paste - functional, need include raphael raphaeljs.com): <div id="holder"> </div> <script src="raphael.js" type="text/javascript"></script> <script> var paper = raphael(10, 50, 320, 200); var rad = math.pi / 180; var finangle = 0; function sector(cx, cy, r, startangle, endangle, params) { var x1 = cx + r * math.cos(-startangle * rad), x2 = cx + r * math.cos(-endangle * rad), y1 = cy + r * math.sin(-startangle * rad), y2 = cy + r * math.sin(-endangle * rad); return ["m", cx, cy, "l", x1, y1, "a", r, r, 0, +(endangle - startangle > 180), 0, x2, y2]; } var path = sector(100,100,50,0,180); var arc = paper.path(path); function draw() { path = sector(100,100,50,0,finangle); ...
Read more