Replace some numeric value after a pattern in a string of txt in R (grep?) -

-

i have several txt files input file model, need change of model parameters in order conduct experiments. however, there many parameters , changing them hand time consuming. thought using readlines() , {grep} in r search , replace parameter values not successful, hope me. thank you.

the file has lines this:

bubbling pressure 1          = 0.3389 .4423 .4118 field capacity 1             = 0.35  0.38  0.37 wilting point 1              = 0.13  0.14  0.13 bulk density 1               = 750. 1400. 1500. vertical conductivity 1      = 2.904e-06  3.63e-05  3.63e-05  .....  bubbling pressure 3          = 0.2044 0.2876 0.2876 field capacity 3             = 0.31  0.33  0.33 wilting point 3              = 0.13  0.14  0.14 bulk density 3               = 750. 1400. 1500. vertical conductivity 3      = 3.16e-06  3.95e-05  3.95e-05  ...

i want double vertical conductivity parameters...but not sure how isolate numbers in scientific notation (such "3.16e-06").

is there way isolate each 1 of number in lines contain pattern "vertical conductivity"

vertical conductivity 3      = 3.16e-06  3.95e-05  3.95e-05

and double each 1 of numbers?

vertical conductivity 3      = 6.32e-06  7.90e-05  7.90e-05

i have manage use grep isolate each line of text contains pattern "vertical conductivity" not sure how numerical values out...

thanks, nick

we can gsubfn without changing original structure , modify op may or may not wanted.

here, reading dataset using readlines, index of 'lines' has 'vertical conductivity' substring grepl ('i1'). then, use gsubfn replace values double of that.

library(gsubfn) i1 <- grepl("vertical conductivity", lines) lines[i1] <- gsubfn("[0-9.]+e[-+][0-9]+", ~format(as.numeric(x)*2,                                             scientific = true), lines[i1])  lines #[1] "bubbling pressure 1          = 0.3389 .4423 .4118"            #[2] "field capacity 1             = 0.35  0.38  0.37"              #[3] "wilting point 1              = 0.13  0.14  0.13"              #[4] "bulk density 1               = 750. 1400. 1500."              #[5] "vertical conductivity 1      = 5.808e-06  7.26e-05  7.26e-05" #[6] "bubbling pressure 3          = 0.2044 0.2876 0.2876"          #[7] "field capacity 3             = 0.31  0.33  0.33"              #[8] "wilting point 3              = 0.13  0.14  0.14"              #[9] "bulk density 3               = 750. 1400. 1500."              #[10] "vertical conductivity 3      = 6.32e-06  7.9e-05  7.9e-05"

data

lines <- trimws(readlines(textconnection(           'bubbling pressure 1          = 0.3389 .4423 .4118            field capacity 1             = 0.35  0.38  0.37            wilting point 1              = 0.13  0.14  0.13            bulk density 1               = 750. 1400. 1500.            vertical conductivity 1      = 2.904e-06  3.63e-05  3.63e-05            bubbling pressure 3          = 0.2044 0.2876 0.2876            field capacity 3             = 0.31  0.33  0.33            wilting point 3              = 0.13  0.14  0.14            bulk density 3               = 750. 1400. 1500.            vertical conductivity 3      = 3.16e-06  3.95e-05  3.95e-05')))

we can directly read file

lines <- readlines("yourfile.txt")

Comments

Post a Comment

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

-
creating wordpress website , i'm getting following php error: parse error: syntax error, unexpected 'endforeach' (t_endforeach) in /home/soralmedia/public_html/wp-content/themes/soral media/woocommerce/myaccount/my-orders.php on line 98 here's code file: <?php /** * orders * * shows recent orders on account page. * * template can overridden copying yourtheme/woocommerce/myaccount/my-orders.php. * * however, on occasion woocommerce need update template files , (the theme developer). * need copy new files theme maintain compatibility. try this. * little possible, happen. when occurs version of template file will. * bumped , readme list important changes. * * @see http://docs.woothemes.com/document/template-structure/ * @author woothemes * @package woocommerce/templates * @version 2.5.0 */ if ( ! defined( 'abspath' ) ) { exit; } $my_orders_columns = apply_filters( 'woocommerce_my_account_my_orders_columns', array( ...
Read more

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

-
i new vba have developed code use in excel move text/numbers txt file. issue have 3 functions need go same txt file. when run first function has set fs = createobject("scripting.filesystemobject") set = fs.createtextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the other 2 functions had save. set fs = createobject("scripting.filesystemobject") set = fs.savetextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the first function go txt file, other 2 error object doesn't support property or method. when changed 3 create last function goes txt file. can not figure out word use in order make other 2 functions follow txt file in order keyed. the entire code follows private sub addrecord_click() on error goto errhandler module1.nys45uploadfilename = application.getsaveasfilename(filefilter:="textfiles (*.txt), *.txt") if module1.nys45uploadfilename = "false" exit sub ...
Read more

delphi - cxGrid : instead of "go to next cell on enter" using "enter" do that with the arrow keys -

-
Image
is there way can achieve cxgrid's functionality "go next cell on enter" using arrow keys on keyboard instead of hitting "enter" ??? right can navigate arrow keys cells move not selected (blue color). if edit cell in column , move cell beneath (with arrow key) , grid jumps other random record in grid,which annoying. is question of settings or must program functionality ? edit : simple temporary table use gather data. has no indexed fields or autoinc field : procedure tform3.cxbutton1click(sender: tobject); begin datamodule2.acrquery2.close; datamodule2.acrquery2.sql.clear; datamodule2.acrquery2.sql.text :='insert temp select company_id,member_id,surname,name members company_id =:a1'; datamodule2.acrquery2.params.parambyname('a1').value :=cxlookupcombobox2.text; datamodule2.acrquery2.execsql; datamodule2.acrquery3.close; datamodule2.acrquery3.sql.clear; datamodule2.acrquery3.sql.text :='update temp set month=:a1,year=:a2'; data...
Read more