max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-15 16:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

added R scripts to build datasets

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@8489 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2014-02-13 05:36:56 +00:00
parent 041c8173f6
commit e31acfe57a
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
R/build-databases.R Normal file
View File

@ -0,0 +1,12 @@
# databases
Amm.dat <- paste(scan("../database/Amm.dat", what="", sep="\n"), collapse="\n")
iso.dat <- paste(scan("../database/iso.dat", what="", sep="\n"), collapse="\n")
llnl.dat <- paste(scan("../database/llnl.dat", what="", sep="\n"), collapse="\n")
minteq.dat <- paste(scan("../database/minteq.dat", what="", sep="\n"), collapse="\n")
minteq.v4.dat <- paste(scan("../database/minteq.v4.dat", what="", sep="\n"), collapse="\n")
pitzer.dat <- paste(scan("../database/pitzer.dat", what="", sep="\n"), collapse="\n")
sit.dat <- paste(scan("../database/sit.dat", what="", sep="\n"), collapse="\n")
phreeqc.dat <- paste(scan("../database/phreeqc.dat", what="", sep="\n"), collapse="\n")
wateq4f.dat <- paste(scan("../database/wateq4f.dat", what="", sep="\n"), collapse="\n")
save(list = ls(all=TRUE), file="phreeqc/data/databases.RData")
rm(list = ls(all=TRUE))

12
R/build-examples.R Normal file
View File

@ -0,0 +1,12 @@
# examples
ex1 <- paste(scan("../phreeqc3-examples/ex1", what="", sep="\n"), collapse="\n")
ex2 <- paste(scan("../phreeqc3-examples/ex2", what="", sep="\n"), collapse="\n")
ex3 <- paste(scan("../phreeqc3-examples/ex3", what="", sep="\n"), collapse="\n")
ex4 <- paste(scan("../phreeqc3-examples/ex4", what="", sep="\n"), collapse="\n")
ex5 <- paste(scan("../phreeqc3-examples/ex5", what="", sep="\n"), collapse="\n")
ex6 <- paste(scan("../phreeqc3-examples/ex6", what="", sep="\n"), collapse="\n")
ex7 <- paste(scan("../phreeqc3-examples/ex7", what="", sep="\n"), collapse="\n")
ex8 <- paste(scan("../phreeqc3-examples/ex8", what="", sep="\n"), collapse="\n")
ex9 <- paste(scan("../phreeqc3-examples/ex9", what="", sep="\n"), collapse="\n")
save(list = ls(all=TRUE), file="phreeqc/data/examples.RData")
rm(list = ls(all=TRUE))