examples/data/transformData.R

# clean and save
library(caret)

kapton = read.csv(text = "power,time,gas,pressure,ratio

1004,10624,Argon,660,2.65884223

1008,10500,Argon,720,3.424371829

1013,10475,Argon,720,3.182223683

1095,19029,Argon,940,2.776420163

1105,12381,Air,860,0.12

1108,9828,Nitrogen,820,0.953560013

1206,19145,Argon,920,3.245754845

1211,19279,Argon,470,3.228924409

123,14994,Nitrogen,220,1.234061595

1249,19711,Argon,460,3.249050132

1280,17180,Argon,980,2.177099828

1285,1922,Argon,990,3.132160852

1286,15717,Argon,530,2.891256344

1286,18227,Air,920,0.12

1286,18626,Argon,930,1.67188718

1287,9365,Argon,920,2.486961786

1288,19449,Argon,920,2.964636773

1288,19515,Argon,920,2.446689168

1293,9319,Argon,940,3.307882968

1300,9324,Argon,1000,3.370876358

1304,9321,Argon,1000,3.582150476

1307,9322,Argon,1000,5.159847662

1315,9331,Argon,980,3.92767588

1316,10972,Nitrogen,200,1.2159602

1329,9605,Argon,990,3.766115716

1333,6623,Argon,970,3.45655082

1341,10625,Argon,700,3.264845323

1343,9585,Argon,980,4.276949681

1355,9322,Argon,1000,3.062587782

1403,16863,Argon,990,2.68061448

1408,2841,Argon,880,3.193382374

1450,15621,Argon,510,3.05041702

1457,2629,Argon,890,3.080188754

1468,7549,Nitrogen,20,2.722335204

1474,6454,Nitrogen,20,1.861073482

1491,19728,Argon,400,2.731740027

1511,16433,Air,500,0.12

1518,17231,Argon,890,3.308118401

1521,17553,Argon,820,3.490871423

1527,18520,Argon,310,1.791615889

1537,6043,Air,70,0.921751931

1542,18514,Argon,310,3.274632664

1546,18375,Argon,320,1.818586293

1560,9314,Argon,1000,3.230997225

1574,11017,Argon,1000,2.932014539

1575,6634,Nitrogen,20,2.596027828

1596,18198,Argon,310,2.909999609

1610,1822,Argon,730,3.243461912

1665,18552,Argon,310,2.289480755

1703,10481,Argon,960,3.007009955

1717,10382,Argon,970,3.16631637

1720,1831,Argon,80,1.682780666

1735,10293,Nitrogen,970,1.175244034

1736,10319,Nitrogen,970,1.051970301

1738,10331,Argon,810,3.301696296

1739,10379,Argon,990,4.724743249

1740,10379,Argon,970,3.700694716

1757,10378,Argon,970,5.499063387

1760,11229,Argon,970,3.207143574

1769,3920,Air,1000,0.12

1776,10375,Argon,970,4.08690544

1780,5333,Argon,960,2.857800965

1789,1792,Argon,500,3.177328601

1805,17740,Argon,970,2.912210568

1806,8198,Nitrogen,810,1.040370964

1809,10259,Argon,980,4.16942864

1842,18881,Argon,830,2.975606279

1843,16852,Air,810,0.12

1844,16618,Air,760,0.12

1875,16877,Argon,990,3.051428698

1875,18881,Argon,820,4.0168837

1878,7879,Argon,840,3.118894583

1883,16859,Air,990,0.12

1888,16925,Argon,990,3.638606351

1890,16900,Argon,990,3.983891201

1891,10378,Argon,970,4.067806774

1894,17003,Argon,990,3.017604271

1908,18880,Nitrogen,860,1.036697397

1915,10379,Argon,990,3.893852932

1930,2421,Argon,800,3.080778976

1948,18880,Nitrogen,860,1.255781892

1956,18873,Argon,720,2.901374775

1962,1814,Nitrogen,520,2.121105968

1975,4268,Argon,990,3.827582704

1976,1827,Argon,70,2.093948947

1984,18880,Argon,850,3.855773748

2008,18880,Argon,850,4.276358767

2009,4227,Argon,1000,3.680987162

2021,18886,Argon,840,3.81399825

2023,3171,Argon,800,3.439505258

2035,1491,Argon,490,3.72323823

2065,18880,Argon,900,3.571770687

2068,15492,Nitrogen,310,1.236027609

2069,18445,Argon,830,2.985552758

2073,1840,Argon,490,2.595710184

210,11475,Air,970,0.12

2128,18880,Argon,820,3.870920293

2131,18800,Argon,820,4.051220319

2141,1099,Argon,80,3.073853026

2143,18880,Argon,810,3.960298908

2145,18880,Argon,810,4.349114421

2148,18880,Argon,290,1.914237706

2150,18880,Argon,810,4.16268586

2153,3502,Argon,800,2.96307017

2155,18832,Air,790,0.12

2166,1815,Argon,140,3.191922596

2168,1825,Argon,490,4.024224557

2170,1822,Argon,490,5.203238087

2170,1830,Argon,470,3.827207228

2172,1835,Argon,380,3.433754797

2222,1747,Argon,490,3.453268783

2243,18925,Argon,770,3.081672687

2251,18903,Argon,770,3.12589218

2274,1983,Argon,490,3.215536504

2309,16179,Argon,990,2.858442071

2358,1821,Argon,240,2.977786277

2394,1822,Argon,160,1.62537662

242,4974,Nitrogen,440,0.85456231

2430,18879,Argon,770,2.461660064

2450,19833,Argon,770,2.386308297

2451,10379,Argon,970,4.599581634

2456,1822,Argon,180,2.012994937

2535,1822,Argon,80,3.726127597

2637,16266,Argon,500,2.373853521

2673,1818,Argon,690,3.812412746

2678,4279,Argon,920,3.613608221

2687,2822,Argon,930,2.982047036

2696,1824,Argon,680,3.59011885

2697,8206,Air,540,0.12

2765,514,Argon,490,3.01456403

2824,10377,Argon,960,2.902882653

2838,18878,Argon,880,2.127514126

2905,10380,Argon,970,3.444947127

2962,12485,Nitrogen,1000,1.486708819

2982,17867,Nitrogen,530,1.530874491

3018,10379,Air,960,0.12

3063,4467,Argon,570,2.613552957

3066,10379,Air,960,0.12

3099,18787,Argon,910,2.271008185

3155,10378,Air,950,0.12

3156,10357,Argon,950,2.691402923

3164,14268,Nitrogen,30,2.065513817

320,2241,Argon,850,1.414816905

3214,1823,Argon,720,3.310161931

3263,2601,Argon,1000,3.067360272

3266,2523,Argon,980,2.626501432

3302,2414,Air,860,0.12

3303,3421,Argon,860,2.317012514

3314,2120,Argon,840,2.779790313

3445,1184,Argon,690,3.384759098

3516,813,Argon,40,2.128768105

3519,1129,Argon,40,2.989507712

3527,1824,Argon,40,1.538457125

3584,1131,Air,20,0.57836145

3613,10766,Argon,600,2.093101526

3617,16380,Nitrogen,740,1.321003072

3706,10137,Nitrogen,370,1.522617069

3728,9350,Argon,870,2.089539008

3777,9767,Argon,900,2.132647453

3797,18821,Air,800,0.12

3805,19668,Argon,920,1.959362197

3810,10110,Argon,910,3.537409645

3812,10118,Argon,970,2.264059348

3830,10217,Argon,910,2.996145204

3907,9823,Air,30,0.12

396,9065,Argon,460,1.365235057

3993,3615,Argon,860,2.662923334

4022,2321,Argon,900,3.341319333

4033,3055,Argon,880,3.371732725

4046,2524,Argon,880,3.334058141

4060,9988,Argon,270,1.32755134

4068,10089,Argon,910,2.894545384

4079,3055,Argon,850,2.338842087

4139,1957,Argon,900,3.134584619

429,4810,Nitrogen,630,0.869027237

4297,9256,Nitrogen,110,1.685642824

4326,3961,Argon,250,1.416376543

4431,3854,Argon,270,2.190961

4506,8046,Nitrogen,110,1.458586461

4564,18002,Air,50,0.12

4585,14485,Nitrogen,100,1.174840469

4717,1457,Argon,640,2.323310757

4834,5615,Air,170,0.12

4886,11627,Nitrogen,680,1.340241441

489,15493,Argon,460,1.236779697

4909,1710,Argon,960,2.765735333

4962,15074,Argon,360,1.323049628

4963,2336,Argon,960,3.364084792

5028,2371,Argon,960,2.58479023

5041,9305,Argon,1000,2.249307903

5069,2735,Nitrogen,480,1.419028259

5153,19318,Air,780,0.12

5239,14517,Nitrogen,230,1.19774686

5309,2566,Argon,960,2.705688601

5321,16727,Air,510,0.12

5332,6770,Air,630,0.12

5394,10380,Argon,970,2.287450434

5480,12267,Nitrogen,180,1.149918539

616,7988,Air,60,0.12

628,10332,Air,200,0.12

698,18907,Argon,820,1.978090509

731,10628,Argon,710,1.748881858

745,2168,Argon,790,2.152875412

783,10474,Argon,690,1.989581105

826,1826,Argon,480,3.148752413

830,10446,Argon,730,2.743036246

83,8031,Air,610,0.12

933,7024,Nitrogen,940,0.917709244

952,18662,Argon,290,1.815097367

981,18639,Argon,290,1.256006035")


dmy = dummyVars(" ~ .", data = kapton)
kapton = data.frame(predict(dmy, newdata = kapton))
kapton$power = as.integer(kapton$power)
kapton$time = as.integer(kapton$time)
kapton$gas.Air = as.integer(kapton$gas.Air)
kapton$gas.Argon = as.integer(kapton$gas.Argon)
kapton$gas.Nitrogen = as.integer(kapton$gas.Nitrogen)
kapton$pressure = as.integer(kapton$pressure)


write.csv(kapton, file = "tests/testthat/data/kaptonOnehot.csv")
# clean and save Synthesis Data
library(readr)
MLdata_interface <- read_csv("tests/testthat/data/MLdata_interface.csv")

colnames(MLdata_interface) = c("f", "k", "du", "dv","0tab","0tab2","interface")
synthesis = as.data.frame(MLdata_interface)
synthesis = synthesis[,-c(5,6)]
write.csv(synthesis, file = "tests/testthat/data/synthesis.csv")




# clean and save graphene oxide data
tuning_data_GO_GD_1 <- readxl::read_excel("tests/testthat/data/tuning_data_GO_GD_1.xlsx")
tuning_data_GO_GD_2 <- readxl::read_excel("tests/testthat/data/tuning_data_GO_GD_2.xlsx")
tuning_data_GO_GD_3 <- readxl::read_excel("tests/testthat/data/tuning_data_GO_GD_3.xlsx")

graphene = rbind(tuning_data_GO_GD_1, tuning_data_GO_GD_2, tuning_data_GO_GD_3)

graphene = as.data.frame(graphene)

dmy = dummyVars(" ~ .", data = graphene)
graphene = data.frame(predict(dmy, newdata = graphene))


graphene$power = as.integer(graphene$power)
graphene$time = as.integer(graphene$time)
graphene$gasAir = as.integer(graphene$gasAir)
graphene$gasArgon = as.integer(graphene$gasArgon)
graphene$gasNitrogen = as.integer(graphene$gasNitrogen)
graphene$pressure = as.integer(graphene$pressure)


write.csv(graphene, file = "tests/testthat/data/graphene.csv")


synthesis <- readr::read_csv("tests/testthat/data/synthesis.csv")
synthesis = synthesis[,-1]

openxlsx::write.xlsx(synthesis, "synthesis.xlsx")

graphene <- readr::read_csv("tests/testthat/data/graphene.csv")
graphene = graphene[,-1]

openxlsx::write.xlsx(graphene, "graphene.xlsx")

grapheneOnehot <- readr::read_csv("tests/testthat/data/grapheneOnehot.csv")
grapheneOnehot = grapheneOnehot[,-1]

openxlsx::write.xlsx(grapheneOnehot, "grapheneOnehot.xlsx")


tuning_data_GO_GD_1 <- readxl::read_excel("tests/testthat/data/tuning_data_GO_GD_1.xlsx")
tuning_data_GO_GD_2 <- readxl::read_excel("tests/testthat/data/tuning_data_GO_GD_2.xlsx")
tuning_data_GO_GD_3 <- readxl::read_excel("tests/testthat/data/tuning_data_GO_GD_3.xlsx")

graphene = rbind(tuning_data_GO_GD_1, tuning_data_GO_GD_2, tuning_data_GO_GD_3)

graphene = as.data.frame(graphene)

kapton_argon <- readr::read_csv("tests/testthat/data/kapton_argon.csv")
kapton_argon = kapton_argon[,-1]

openxlsx::write.xlsx(kapton_argon, "kapton_argon.xlsx")

kaptonOnehot <- readr::read_csv("tests/testthat/data/kaptonOnehot.csv")
kaptonOnehot = kaptonOnehot[,-1]

openxlsx::write.xlsx(kaptonOnehot, "kaptonOnehot.xlsx")
matthiasgruber/EBO documentation built on May 17, 2022, 3:19 p.m.