mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 00:28:23 +01:00
a7b5f4509c
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@8549 1feff8c3-07ed-0310-ac33-dd36852eb9cd
24 lines
1.5 KiB
R
24 lines
1.5 KiB
R
# examples
|
|
# strings
|
|
ex1.string <- paste(scan("../phreeqc3-examples/ex1", what="", sep="\n"), collapse="\n")
|
|
ex2.string <- paste(scan("../phreeqc3-examples/ex2", what="", sep="\n"), collapse="\n")
|
|
ex3.string <- paste(scan("../phreeqc3-examples/ex3", what="", sep="\n"), collapse="\n")
|
|
ex4.string <- paste(scan("../phreeqc3-examples/ex4", what="", sep="\n"), collapse="\n")
|
|
ex5.string <- paste(scan("../phreeqc3-examples/ex5", what="", sep="\n"), collapse="\n")
|
|
ex6.string <- paste(scan("../phreeqc3-examples/ex6", what="", sep="\n"), collapse="\n")
|
|
ex7.string <- paste(scan("../phreeqc3-examples/ex7", what="", sep="\n"), collapse="\n")
|
|
ex8.string <- paste(scan("../phreeqc3-examples/ex8", what="", sep="\n"), collapse="\n")
|
|
ex9.string <- paste(scan("../phreeqc3-examples/ex9", what="", sep="\n"), collapse="\n")
|
|
# lists
|
|
ex1.list <- scan("../phreeqc3-examples/ex1", what="", sep="\n")
|
|
ex2.list <- scan("../phreeqc3-examples/ex2", what="", sep="\n")
|
|
ex3.list <- scan("../phreeqc3-examples/ex3", what="", sep="\n")
|
|
ex4.list <- scan("../phreeqc3-examples/ex4", what="", sep="\n")
|
|
ex5.list <- scan("../phreeqc3-examples/ex5", what="", sep="\n")
|
|
ex6.list <- scan("../phreeqc3-examples/ex6", what="", sep="\n")
|
|
ex7.list <- scan("../phreeqc3-examples/ex7", what="", sep="\n")
|
|
ex8.list <- scan("../phreeqc3-examples/ex8", what="", sep="\n")
|
|
ex9.list <- scan("../phreeqc3-examples/ex9", what="", sep="\n")
|
|
save(list = ls(all=TRUE), file="phreeqc/data/examples.RData")
|
|
rm(list = ls(all=TRUE))
|