Bibliometrics_04

https://rpubs.com/koyobib/bm03 の続き

library(readr)
library(stringr)
library(stringdist)
library(dplyr)

それにしても，提供されるデータのhtmlのURLの形式が違うというのは，本当に困る。

仕方ないので，やってみる。

1 教育心理学研究

1.1 2009年(57巻)から2017年(65巻)まで

1.1.1 データの取得

• 2008年(56巻)以前は，DOIの振り方すら違うし…

download.file("https://www.jstage.jst.go.jp/article/jjep/65/4/65_433/_article/download/-char/ja", "./jjep/65_4_433.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/4/65_451/_article/download/-char/ja", "./jjep/65_4_451.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/4/65_466/_article/download/-char/ja", "./jjep/65_4_466.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/4/65_477/_article/download/-char/ja", "./jjep/65_4_477.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/4/65_489/_article/download/-char/ja", "./jjep/65_4_489.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/4/65_501/_article/download/-char/ja", "./jjep/65_4_501.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/4/65_512/_article/download/-char/ja", "./jjep/65_4_512.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/4/65_526/_article/download/-char/ja", "./jjep/65_4_526.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/3/65_321/_article/download/-char/ja", "./jjep/65_3_321.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/3/65_333/_article/download/-char/ja", "./jjep/65_3_333.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/3/65_346/_article/download/-char/ja", "./jjep/65_3_346.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/3/65_361/_article/download/-char/ja", "./jjep/65_3_361.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/3/65_375/_article/download/-char/ja", "./jjep/65_3_375.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/3/65_388/_article/download/-char/ja", "./jjep/65_3_388.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/3/65_401/_article/download/-char/ja", "./jjep/65_3_401.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/3/65_414/_article/download/-char/ja", "./jjep/65_3_414.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_167/_article/download/-char/ja", "./jjep/65_2_167.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_183/_article/download/-char/ja", "./jjep/65_2_183.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_197/_article/download/-char/ja", "./jjep/65_2_197.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_211/_article/download/-char/ja", "./jjep/65_2_211.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_225/_article/download/-char/ja", "./jjep/65_2_225.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_239/_article/download/-char/ja", "./jjep/65_2_239.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_248/_article/download/-char/ja", "./jjep/65_2_248.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_265/_article/download/-char/ja", "./jjep/65_2_265.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_281/_article/download/-char/ja", "./jjep/65_2_281.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_295/_article/download/-char/ja", "./jjep/65_2_295.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/2/65_305/_article/download/-char/ja", "./jjep/65_2_305.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_1/_article/download/-char/ja", "./jjep/65_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_12/_article/download/-char/ja", "./jjep/65_1_12.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_26/_article/download/-char/ja", "./jjep/65_1_26.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_37/_article/download/-char/ja", "./jjep/65_1_37.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_52/_article/download/-char/ja", "./jjep/65_1_52.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_64/_article/download/-char/ja", "./jjep/65_1_64.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_77/_article/download/-char/ja", "./jjep/65_1_77.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_91/_article/download/-char/ja", "./jjep/65_1_91.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_106/_article/download/-char/ja", "./jjep/65_1_106.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_120/_article/download/-char/ja", "./jjep/65_1_120.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_132/_article/download/-char/ja", "./jjep/65_1_132.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/65/1/65_145/_article/download/-char/ja", "./jjep/65_1_145.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_445/_article/download/-char/ja", "./jjep/64_4_445.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_456/_article/download/-char/ja", "./jjep/64_4_456.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_477/_article/download/-char/ja", "./jjep/64_4_477.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_492/_article/download/-char/ja", "./jjep/64_4_492.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_505/_article/download/-char/ja", "./jjep/64_4_505.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_518/_article/download/-char/ja", "./jjep/64_4_518.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_531/_article/download/-char/ja", "./jjep/64_4_531.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_544/_article/download/-char/ja", "./jjep/64_4_544.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_555/_article/download/-char/ja", "./jjep/64_4_555.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_569/_article/download/-char/ja", "./jjep/64_4_569.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_583/_article/download/-char/ja", "./jjep/64_4_583.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/4/64_598/_article/download/-char/ja", "./jjep/64_4_598.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_285/_article/download/-char/ja", "./jjep/64_3_285.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_296/_article/download/-char/ja", "./jjep/64_3_296.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_307/_article/download/-char/ja", "./jjep/64_3_307.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_317/_article/download/-char/ja", "./jjep/64_3_317.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_327/_article/download/-char/ja", "./jjep/64_3_327.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_340/_article/download/-char/ja", "./jjep/64_3_340.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_352/_article/download/-char/ja", "./jjep/64_3_352.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_364/_article/download/-char/ja", "./jjep/64_3_364.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_376/_article/download/-char/ja", "./jjep/64_3_376.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_395/_article/download/-char/ja", "./jjep/64_3_395.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_407/_article/download/-char/ja", "./jjep/64_3_407.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/3/64_423/_article/download/-char/ja", "./jjep/64_3_423.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_147/_article/download/-char/ja", "./jjep/64_2_147.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_156/_article/download/-char/ja", "./jjep/64_2_156.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_170/_article/download/-char/ja", "./jjep/64_2_170.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_184/_article/download/-char/ja", "./jjep/64_2_184.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_199/_article/download/-char/ja", "./jjep/64_2_199.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_212/_article/download/-char/ja", "./jjep/64_2_212.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_228/_article/download/-char/ja", "./jjep/64_2_228.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_241/_article/download/-char/ja", "./jjep/64_2_241.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_256/_article/download/-char/ja", "./jjep/64_2_256.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/2/64_268/_article/download/-char/ja", "./jjep/64_2_268.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_1/_article/download/-char/ja", "./jjep/64_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_13/_article/download/-char/ja", "./jjep/64_1_13.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_26/_article/download/-char/ja", "./jjep/64_1_26.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_41/_article/download/-char/ja", "./jjep/64_1_41.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_59/_article/download/-char/ja", "./jjep/64_1_59.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_76/_article/download/-char/ja", "./jjep/64_1_76.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_88/_article/download/-char/ja", "./jjep/64_1_88.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_105/_article/download/-char/ja", "./jjep/64_1_105.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_118/_article/download/-char/ja", "./jjep/64_1_118.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/64/1/64_131/_article/download/-char/ja", "./jjep/64_1_131.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_345/_article/download/-char/ja", "./jjep/63_4_345.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_359/_article/download/-char/ja", "./jjep/63_4_359.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_372/_article/download/-char/ja", "./jjep/63_4_372.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_386/_article/download/-char/ja", "./jjep/63_4_386.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_401/_article/download/-char/ja", "./jjep/63_4_401.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_412/_article/download/-char/ja", "./jjep/63_4_412.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_426/_article/download/-char/ja", "./jjep/63_4_426.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_438/_article/download/-char/ja", "./jjep/63_4_438.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_453/_article/download/-char/ja", "./jjep/63_4_453.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/4/63_467/_article/download/-char/ja", "./jjep/63_4_467.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_199/_article/download/-char/ja", "./jjep/63_3_199.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_217/_article/download/-char/ja", "./jjep/63_3_217.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_228/_article/download/-char/ja", "./jjep/63_3_228.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_242/_article/download/-char/ja", "./jjep/63_3_242.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_254/_article/download/-char/ja", "./jjep/63_3_254.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_267/_article/download/-char/ja", "./jjep/63_3_267.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_279/_article/download/-char/ja", "./jjep/63_3_279.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_295/_article/download/-char/ja", "./jjep/63_3_295.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_309/_article/download/-char/ja", "./jjep/63_3_309.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/3/63_323/_article/download/-char/ja", "./jjep/63_3_323.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/2/63_85/_article/download/-char/ja", "./jjep/63_2_85.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/2/63_102/_article/download/-char/ja", "./jjep/63_2_102.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/2/63_111/_article/download/-char/ja", "./jjep/63_2_111.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/2/63_121/_article/download/-char/ja", "./jjep/63_2_121.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/2/63_138/_article/download/-char/ja", "./jjep/63_2_138.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/2/63_151/_article/download/-char/ja", "./jjep/63_2_151.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/2/63_162/_article/download/-char/ja", "./jjep/63_2_162.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/2/63_181/_article/download/-char/ja", "./jjep/63_2_181.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/1/63_1/_article/download/-char/ja", "./jjep/63_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/1/63_13/_article/download/-char/ja", "./jjep/63_1_13.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/1/63_23/_article/download/-char/ja", "./jjep/63_1_23.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/1/63_37/_article/download/-char/ja", "./jjep/63_1_37.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/1/63_48/_article/download/-char/ja", "./jjep/63_1_48.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/1/63_63/_article/download/-char/ja", "./jjep/63_1_63.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/63/1/63_83/_article/download/-char/ja", "./jjep/63_1_83.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/4/62_257/_article/download/-char/ja", "./jjep/62_4_257.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/4/62_273/_article/download/-char/ja", "./jjep/62_4_273.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/4/62_283/_article/download/-char/ja", "./jjep/62_4_283.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/4/62_294/_article/download/-char/ja", "./jjep/62_4_294.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/4/62_305/_article/download/-char/ja", "./jjep/62_4_305.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/4/62_322/_article/download/-char/ja", "./jjep/62_4_322.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/3/62_173/_article/download/-char/ja", "./jjep/62_3_173.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/3/62_187/_article/download/-char/ja", "./jjep/62_3_187.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/3/62_197/_article/download/-char/ja", "./jjep/62_3_197.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/3/62_209/_article/download/-char/ja", "./jjep/62_3_209.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/3/62_226/_article/download/-char/ja", "./jjep/62_3_226.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/3/62_240/_article/download/-char/ja", "./jjep/62_3_240.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/2/62_87/_article/download/-char/ja", "./jjep/62_2_87.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/2/62_101/_article/download/-char/ja", "./jjep/62_2_101.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/2/62_115/_article/download/-char/ja", "./jjep/62_2_115.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/2/62_129/_article/download/-char/ja", "./jjep/62_2_129.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/2/62_143/_article/download/-char/ja", "./jjep/62_2_143.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/2/62_156/_article/download/-char/ja", "./jjep/62_2_156.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/1/62_1/_article/download/-char/ja", "./jjep/62_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/1/62_13/_article/download/-char/ja", "./jjep/62_1_13.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/1/62_24/_article/download/-char/ja", "./jjep/62_1_24.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/1/62_38/_article/download/-char/ja", "./jjep/62_1_38.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/1/62_50/_article/download/-char/ja", "./jjep/62_1_50.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/62/1/62_64/_article/download/-char/ja", "./jjep/62_1_64.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/4/61_351/_article/download/-char/ja", "./jjep/61_4_351.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/4/61_362/_article/download/-char/ja", "./jjep/61_4_362.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/4/61_374/_article/download/-char/ja", "./jjep/61_4_374.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/4/61_387/_article/download/-char/ja", "./jjep/61_4_387.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/4/61_398/_article/download/-char/ja", "./jjep/61_4_398.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/4/61_412/_article/download/-char/ja", "./jjep/61_4_412.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/3/61_229/_article/download/-char/ja", "./jjep/61_3_229.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/3/61_239/_article/download/-char/ja", "./jjep/61_3_239.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/3/61_251/_article/download/-char/ja", "./jjep/61_3_251.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/3/61_265/_article/download/-char/ja", "./jjep/61_3_265.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/3/61_277/_article/download/-char/ja", "./jjep/61_3_277.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/3/61_290/_article/download/-char/ja", "./jjep/61_3_290.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/3/61_311/_article/download/-char/ja", "./jjep/61_3_311.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/3/61_323/_article/download/-char/ja", "./jjep/61_3_323.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/2/61_121/_article/download/-char/ja", "./jjep/61_2_121.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/2/61_133/_article/download/-char/ja", "./jjep/61_2_133.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/2/61_146/_article/download/-char/ja", "./jjep/61_2_146.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/2/61_158/_article/download/-char/ja", "./jjep/61_2_158.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/2/61_169/_article/download/-char/ja", "./jjep/61_2_169.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/2/61_181/_article/download/-char/ja", "./jjep/61_2_181.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/2/61_193/_article/download/-char/ja", "./jjep/61_2_193.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/2/61_206/_article/download/-char/ja", "./jjep/61_2_206.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/1/61_1/_article/download/-char/ja", "./jjep/61_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/1/61_17/_article/download/-char/ja", "./jjep/61_1_17.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/1/61_32/_article/download/-char/ja", "./jjep/61_1_32.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/1/61_44/_article/download/-char/ja", "./jjep/61_1_44.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/1/61_56/_article/download/-char/ja", "./jjep/61_1_56.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/1/61_67/_article/download/-char/ja", "./jjep/61_1_67.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/1/61_79/_article/download/-char/ja", "./jjep/61_1_79.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/61/1/61_95/_article/download/-char/ja", "./jjep/61_1_95.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/4/60_343/_article/download/-char/ja", "./jjep/60_4_343.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/4/60_355/_article/download/-char/ja", "./jjep/60_4_355.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/4/60_367/_article/download/-char/ja", "./jjep/60_4_367.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/4/60_380/_article/download/-char/ja", "./jjep/60_4_380.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/4/60_392/_article/download/-char/ja", "./jjep/60_4_392.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/3/60_235/_article/download/-char/ja", "./jjep/60_3_235.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/3/60_249/_article/download/-char/ja", "./jjep/60_3_249.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/3/60_261/_article/download/-char/ja", "./jjep/60_3_261.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/3/60_272/_article/download/-char/ja", "./jjep/60_3_272.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/3/60_285/_article/download/-char/ja", "./jjep/60_3_285.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/3/60_296/_article/download/-char/ja", "./jjep/60_3_296.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/3/60_310/_article/download/-char/ja", "./jjep/60_3_310.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/3/60_324/_article/download/-char/ja", "./jjep/60_3_324.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/2/60_117/_article/download/-char/ja", "./jjep/60_2_117.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/2/60_127/_article/download/-char/ja", "./jjep/60_2_127.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/2/60_137/_article/download/-char/ja", "./jjep/60_2_137.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/2/60_153/_article/download/-char/ja", "./jjep/60_2_153.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/2/60_167/_article/download/-char/ja", "./jjep/60_2_167.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/2/60_186/_article/download/-char/ja", "./jjep/60_2_186.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/2/60_199/_article/download/-char/ja", "./jjep/60_2_199.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/2/60_211/_article/download/-char/ja", "./jjep/60_2_211.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/1/60_1/_article/download/-char/ja", "./jjep/60_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/1/60_15/_article/download/-char/ja", "./jjep/60_1_15.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/1/60_28/_article/download/-char/ja", "./jjep/60_1_28.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/1/60_48/_article/download/-char/ja", "./jjep/60_1_48.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/1/60_60/_article/download/-char/ja", "./jjep/60_1_60.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/1/60_70/_article/download/-char/ja", "./jjep/60_1_70.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/1/60_82/_article/download/-char/ja", "./jjep/60_1_82.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/60/1/60_92/_article/download/-char/ja", "./jjep/60_1_92.txt")

1.1.2 2011年(59巻)からURLのルールが違うし

ｰ いったい，なぜ…

download.file("https://www.jstage.jst.go.jp/article/jjep/59/4/59_4_385/_article/download/-char/ja", "./jjep/59_4_385.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/4/59_4_402/_article/download/-char/ja", "./jjep/59_4_402.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/4/59_4_414/_article/download/-char/ja", "./jjep/59_4_414.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/4/59_4_427/_article/download/-char/ja", "./jjep/59_4_427.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/4/59_4_441/_article/download/-char/ja", "./jjep/59_4_441.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/4/59_4_450/_article/download/-char/ja", "./jjep/59_4_450.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/4/59_4_462/_article/download/-char/ja", "./jjep/59_4_462.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/4/59_4_474/_article/download/-char/ja", "./jjep/59_4_474.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/3/59_3_267/_article/download/-char/ja", "./jjep/59_3_267.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/3/59_3_278/_article/download/-char/ja", "./jjep/59_3_278.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/3/59_3_295/_article/download/-char/ja", "./jjep/59_3_295.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/3/59_3_306/_article/download/-char/ja", "./jjep/59_3_306.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/3/59_3_320/_article/download/-char/ja", "./jjep/59_3_320.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/3/59_3_330/_article/download/-char/ja", "./jjep/59_3_330.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/3/59_3_342/_article/download/-char/ja", "./jjep/59_3_342.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/3/59_3_355/_article/download/-char/ja", "./jjep/59_3_355.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_131/_article/download/-char/ja", "./jjep/59_2_131.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_144/_article/download/-char/ja", "./jjep/59_2_144.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_155/_article/download/-char/ja", "./jjep/59_2_155.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_168/_article/download/-char/ja", "./jjep/59_2_168.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_179/_article/download/-char/ja", "./jjep/59_2_179.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_193/_article/download/-char/ja", "./jjep/59_2_193.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_206/_article/download/-char/ja", "./jjep/59_2_206.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_219/_article/download/-char/ja", "./jjep/59_2_219.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_231/_article/download/-char/ja", "./jjep/59_2_231.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/2/59_2_244/_article/download/-char/ja", "./jjep/59_2_244.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_1/_article/download/-char/ja", "./jjep/59_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_13/_article/download/-char/ja", "./jjep/59_1_13.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_27/_article/download/-char/ja", "./jjep/59_1_27.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_39/_article/download/-char/ja", "./jjep/59_1_39.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_51/_article/download/-char/ja", "./jjep/59_1_51.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_64/_article/download/-char/ja", "./jjep/59_1_64.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_77/_article/download/-char/ja", "./jjep/59_1_77.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_88/_article/download/-char/ja", "./jjep/59_1_88.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_100/_article/download/-char/ja", "./jjep/59_1_100.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_111/_article/download/-char/ja", "./jjep/59_1_111.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_393/_article/download/-char/ja", "./jjep/58_4_393.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_404/_article/download/-char/ja", "./jjep/58_4_404.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_414/_article/download/-char/ja", "./jjep/58_4_414.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_426/_article/download/-char/ja", "./jjep/58_4_426.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_438/_article/download/-char/ja", "./jjep/58_4_438.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_452/_article/download/-char/ja", "./jjep/58_4_452.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_464/_article/download/-char/ja", "./jjep/58_4_464.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_480/_article/download/-char/ja", "./jjep/58_4_480.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_491/_article/download/-char/ja", "./jjep/58_4_491.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/4/58_4_503/_article/download/-char/ja", "./jjep/58_4_503.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_263/_article/download/-char/ja", "./jjep/58_3_263.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_275/_article/download/-char/ja", "./jjep/58_3_275.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_285/_article/download/-char/ja", "./jjep/58_3_285.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_298/_article/download/-char/ja", "./jjep/58_3_298.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_313/_article/download/-char/ja", "./jjep/58_3_313.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_325/_article/download/-char/ja", "./jjep/58_3_325.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_338/_article/download/-char/ja", "./jjep/58_3_338.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_348/_article/download/-char/ja", "./jjep/58_3_348.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_361/_article/download/-char/ja", "./jjep/58_3_361.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/3/58_3_372/_article/download/-char/ja", "./jjep/58_3_372.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_129/_article/download/-char/ja", "./jjep/58_2_129.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_140/_article/download/-char/ja", "./jjep/58_2_140.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_151/_article/download/-char/ja", "./jjep/58_2_151.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_163/_article/download/-char/ja", "./jjep/58_2_163.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_176/_article/download/-char/ja", "./jjep/58_2_176.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_186/_article/download/-char/ja", "./jjep/58_2_186.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_198/_article/download/-char/ja", "./jjep/58_2_198.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_212/_article/download/-char/ja", "./jjep/58_2_212.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_224/_article/download/-char/ja", "./jjep/58_2_224.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/2/58_2_236/_article/download/-char/ja", "./jjep/58_2_236.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_1/_article/download/-char/ja", "./jjep/58_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_12/_article/download/-char/ja", "./jjep/58_1_12.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_23/_article/download/-char/ja", "./jjep/58_1_23.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_34/_article/download/-char/ja", "./jjep/58_1_34.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_46/_article/download/-char/ja", "./jjep/58_1_46.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_57/_article/download/-char/ja", "./jjep/58_1_57.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_69/_article/download/-char/ja", "./jjep/58_1_69.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_80/_article/download/-char/ja", "./jjep/58_1_80.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_95/_article/download/-char/ja", "./jjep/58_1_95.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_108/_article/download/-char/ja", "./jjep/58_1_108.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_393/_article/download/-char/ja", "./jjep/57_4_393.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_407/_article/download/-char/ja", "./jjep/57_4_407.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_419/_article/download/-char/ja", "./jjep/57_4_419.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_432/_article/download/-char/ja", "./jjep/57_4_432.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_442/_article/download/-char/ja", "./jjep/57_4_442.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_454/_article/download/-char/ja", "./jjep/57_4_454.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_466/_article/download/-char/ja", "./jjep/57_4_466.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_478/_article/download/-char/ja", "./jjep/57_4_478.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_491/_article/download/-char/ja", "./jjep/57_4_491.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/4/57_4_503/_article/download/-char/ja", "./jjep/57_4_503.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_263/_article/download/-char/ja", "./jjep/57_3_263.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_274/_article/download/-char/ja", "./jjep/57_3_274.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_284/_article/download/-char/ja", "./jjep/57_3_284.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_295/_article/download/-char/ja", "./jjep/57_3_295.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_309/_article/download/-char/ja", "./jjep/57_3_309.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_324/_article/download/-char/ja", "./jjep/57_3_324.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_336/_article/download/-char/ja", "./jjep/57_3_336.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_349/_article/download/-char/ja", "./jjep/57_3_349.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_361/_article/download/-char/ja", "./jjep/57_3_361.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/3/57_3_373/_article/download/-char/ja", "./jjep/57_3_373.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_131/_article/download/-char/ja", "./jjep/57_2_131.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_143/_article/download/-char/ja", "./jjep/57_2_143.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_158/_article/download/-char/ja", "./jjep/57_2_158.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_168/_article/download/-char/ja", "./jjep/57_2_168.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_180/_article/download/-char/ja", "./jjep/57_2_180.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_192/_article/download/-char/ja", "./jjep/57_2_192.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_201/_article/download/-char/ja", "./jjep/57_2_201.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_212/_article/download/-char/ja", "./jjep/57_2_212.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_223/_article/download/-char/ja", "./jjep/57_2_223.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/2/57_2_237/_article/download/-char/ja", "./jjep/57_2_237.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_1/_article/download/-char/ja", "./jjep/57_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_13/_article/download/-char/ja", "./jjep/57_1_13.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_24/_article/download/-char/ja", "./jjep/57_1_24.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_38/_article/download/-char/ja", "./jjep/57_1_38.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_49/_article/download/-char/ja", "./jjep/57_1_49.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_62/_article/download/-char/ja", "./jjep/57_1_62.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_73/_article/download/-char/ja", "./jjep/57_1_73.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_86/_article/download/-char/ja", "./jjep/57_1_86.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_99/_article/download/-char/ja", "./jjep/57_1_99.txt")

1.2 2001年(49巻)から2008年(56巻)まで

download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_463/_article/download/-char/ja", "./jjep/56_4_463.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_474/_article/download/-char/ja", "./jjep/56_4_474.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_487/_article/download/-char/ja", "./jjep/56_4_487.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_498/_article/download/-char/ja", "./jjep/56_4_498.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_510/_article/download/-char/ja", "./jjep/56_4_510.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_523/_article/download/-char/ja", "./jjep/56_4_523.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_534/_article/download/-char/ja", "./jjep/56_4_534.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_548/_article/download/-char/ja", "./jjep/56_4_548.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_560/_article/download/-char/ja", "./jjep/56_4_560.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/4/56_575/_article/download/-char/ja", "./jjep/56_4_575.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_303/_article/download/-char/ja", "./jjep/56_3_303.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_318/_article/download/-char/ja", "./jjep/56_3_318.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_330/_article/download/-char/ja", "./jjep/56_3_330.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_341/_article/download/-char/ja", "./jjep/56_3_341.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_353/_article/download/-char/ja", "./jjep/56_3_353.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_364/_article/download/-char/ja", "./jjep/56_3_364.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_376/_article/download/-char/ja", "./jjep/56_3_376.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_389/_article/download/-char/ja", "./jjep/56_3_389.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_403/_article/download/-char/ja", "./jjep/56_3_403.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_414/_article/download/-char/ja", "./jjep/56_3_414.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_426/_article/download/-char/ja", "./jjep/56_3_426.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/3/56_440/_article/download/-char/ja", "./jjep/56_3_440.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_149/_article/download/-char/ja", "./jjep/56_2_149.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_160/_article/download/-char/ja", "./jjep/56_2_160.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_171/_article/download/-char/ja", "./jjep/56_2_171.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_182/_article/download/-char/ja", "./jjep/56_2_182.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_193/_article/download/-char/ja", "./jjep/56_2_193.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_206/_article/download/-char/ja", "./jjep/56_2_206.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_218/_article/download/-char/ja", "./jjep/56_2_218.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_230/_article/download/-char/ja", "./jjep/56_2_230.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_243/_article/download/-char/ja", "./jjep/56_2_243.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_256/_article/download/-char/ja", "./jjep/56_2_256.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_268/_article/download/-char/ja", "./jjep/56_2_268.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/2/56_278/_article/download/-char/ja", "./jjep/56_2_278.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_1/_article/download/-char/ja", "./jjep/56_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_14/_article/download/-char/ja", "./jjep/56_1_14.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_23/_article/download/-char/ja", "./jjep/56_1_23.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_32/_article/download/-char/ja", "./jjep/56_1_32.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_44/_article/download/-char/ja", "./jjep/56_1_44.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_57/_article/download/-char/ja", "./jjep/56_1_57.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_72/_article/download/-char/ja", "./jjep/56_1_72.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_81/_article/download/-char/ja", "./jjep/56_1_81.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_93/_article/download/-char/ja", "./jjep/56_1_93.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_104/_article/download/-char/ja", "./jjep/56_1_104.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_116/_article/download/-char/ja", "./jjep/56_1_116.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_127/_article/download/-char/ja", "./jjep/56_1_127.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_457/_article/download/-char/ja", "./jjep/55_4_457.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_469/_article/download/-char/ja", "./jjep/55_4_469.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_480/_article/download/-char/ja", "./jjep/55_4_480.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_491/_article/download/-char/ja", "./jjep/55_4_491.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_501/_article/download/-char/ja", "./jjep/55_4_501.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_514/_article/download/-char/ja", "./jjep/55_4_514.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_526/_article/download/-char/ja", "./jjep/55_4_526.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_538/_article/download/-char/ja", "./jjep/55_4_538.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_550/_article/download/-char/ja", "./jjep/55_4_550.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_560/_article/download/-char/ja", "./jjep/55_4_560.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_573/_article/download/-char/ja", "./jjep/55_4_573.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/4/55_584/_article/download/-char/ja", "./jjep/55_4_584.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_313/_article/download/-char/ja", "./jjep/55_3_313.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_325/_article/download/-char/ja", "./jjep/55_3_325.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_335/_article/download/-char/ja", "./jjep/55_3_335.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_347/_article/download/-char/ja", "./jjep/55_3_347.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_359/_article/download/-char/ja", "./jjep/55_3_359.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_370/_article/download/-char/ja", "./jjep/55_3_370.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_382/_article/download/-char/ja", "./jjep/55_3_382.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_393/_article/download/-char/ja", "./jjep/55_3_393.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_403/_article/download/-char/ja", "./jjep/55_3_403.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_414/_article/download/-char/ja", "./jjep/55_3_414.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_426/_article/download/-char/ja", "./jjep/55_3_426.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/3/55_438/_article/download/-char/ja", "./jjep/55_3_438.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_161/_article/download/-char/ja", "./jjep/55_2_161.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_170/_article/download/-char/ja", "./jjep/55_2_170.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_184/_article/download/-char/ja", "./jjep/55_2_184.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_197/_article/download/-char/ja", "./jjep/55_2_197.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_208/_article/download/-char/ja", "./jjep/55_2_208.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_219/_article/download/-char/ja", "./jjep/55_2_219.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_231/_article/download/-char/ja", "./jjep/55_2_231.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_244/_article/download/-char/ja", "./jjep/55_2_244.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_255/_article/download/-char/ja", "./jjep/55_2_255.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_266/_article/download/-char/ja", "./jjep/55_2_266.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_276/_article/download/-char/ja", "./jjep/55_2_276.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/2/55_287/_article/download/-char/ja", "./jjep/55_2_287.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_1/_article/download/-char/ja", "./jjep/55_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_11/_article/download/-char/ja", "./jjep/55_1_11.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_21/_article/download/-char/ja", "./jjep/55_1_21.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_34/_article/download/-char/ja", "./jjep/55_1_34.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_48/_article/download/-char/ja", "./jjep/55_1_48.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_60/_article/download/-char/ja", "./jjep/55_1_60.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_72/_article/download/-char/ja", "./jjep/55_1_72.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_82/_article/download/-char/ja", "./jjep/55_1_82.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_93/_article/download/-char/ja", "./jjep/55_1_93.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_106/_article/download/-char/ja", "./jjep/55_1_106.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_120/_article/download/-char/ja", "./jjep/55_1_120.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_135/_article/download/-char/ja", "./jjep/55_1_135.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_441/_article/download/-char/ja", "./jjep/54_4_441.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_453/_article/download/-char/ja", "./jjep/54_4_453.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_464/_article/download/-char/ja", "./jjep/54_4_464.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_476/_article/download/-char/ja", "./jjep/54_4_476.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_487/_article/download/-char/ja", "./jjep/54_4_487.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_498/_article/download/-char/ja", "./jjep/54_4_498.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_509/_article/download/-char/ja", "./jjep/54_4_509.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_522/_article/download/-char/ja", "./jjep/54_4_522.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_534/_article/download/-char/ja", "./jjep/54_4_534.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_546/_article/download/-char/ja", "./jjep/54_4_546.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_558/_article/download/-char/ja", "./jjep/54_4_558.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/4/54_572/_article/download/-char/ja", "./jjep/54_4_572.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_289/_article/download/-char/ja", "./jjep/54_3_289.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_300/_article/download/-char/ja", "./jjep/54_3_300.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_312/_article/download/-char/ja", "./jjep/54_3_312.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_322/_article/download/-char/ja", "./jjep/54_3_322.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_334/_article/download/-char/ja", "./jjep/54_3_334.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_346/_article/download/-char/ja", "./jjep/54_3_346.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_361/_article/download/-char/ja", "./jjep/54_3_361.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_371/_article/download/-char/ja", "./jjep/54_3_371.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_384/_article/download/-char/ja", "./jjep/54_3_384.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_395/_article/download/-char/ja", "./jjep/54_3_395.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_408/_article/download/-char/ja", "./jjep/54_3_408.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/3/54_420/_article/download/-char/ja", "./jjep/54_3_420.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_141/_article/download/-char/ja", "./jjep/54_2_141.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_151/_article/download/-char/ja", "./jjep/54_2_151.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_162/_article/download/-char/ja", "./jjep/54_2_162.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_174/_article/download/-char/ja", "./jjep/54_2_174.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_188/_article/download/-char/ja", "./jjep/54_2_188.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_199/_article/download/-char/ja", "./jjep/54_2_199.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_211/_article/download/-char/ja", "./jjep/54_2_211.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_222/_article/download/-char/ja", "./jjep/54_2_222.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_233/_article/download/-char/ja", "./jjep/54_2_233.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_243/_article/download/-char/ja", "./jjep/54_2_243.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_254/_article/download/-char/ja", "./jjep/54_2_254.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/2/54_265/_article/download/-char/ja", "./jjep/54_2_265.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_1/_article/download/-char/ja", "./jjep/54_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_12/_article/download/-char/ja", "./jjep/54_1_12.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_25/_article/download/-char/ja", "./jjep/54_1_25.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_34/_article/download/-char/ja", "./jjep/54_1_34.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_45/_article/download/-char/ja", "./jjep/54_1_45.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_55/_article/download/-char/ja", "./jjep/54_1_55.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_63/_article/download/-char/ja", "./jjep/54_1_63.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_75/_article/download/-char/ja", "./jjep/54_1_75.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_90/_article/download/-char/ja", "./jjep/54_1_90.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_101/_article/download/-char/ja", "./jjep/54_1_101.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_112/_article/download/-char/ja", "./jjep/54_1_112.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_124/_article/download/-char/ja", "./jjep/54_1_124.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_441/_article/download/-char/ja", "./jjep/53_4_441.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_456/_article/download/-char/ja", "./jjep/53_4_456.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_467/_article/download/-char/ja", "./jjep/53_4_467.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_479/_article/download/-char/ja", "./jjep/53_4_479.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_491/_article/download/-char/ja", "./jjep/53_4_491.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_504/_article/download/-char/ja", "./jjep/53_4_504.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_516/_article/download/-char/ja", "./jjep/53_4_516.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_529/_article/download/-char/ja", "./jjep/53_4_529.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_541/_article/download/-char/ja", "./jjep/53_4_541.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_551/_article/download/-char/ja", "./jjep/53_4_551.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_565/_article/download/-char/ja", "./jjep/53_4_565.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/4/53_579/_article/download/-char/ja", "./jjep/53_4_579.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_297/_article/download/-char/ja", "./jjep/53_3_297.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_307/_article/download/-char/ja", "./jjep/53_3_307.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_320/_article/download/-char/ja", "./jjep/53_3_320.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_331/_article/download/-char/ja", "./jjep/53_3_331.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_344/_article/download/-char/ja", "./jjep/53_3_344.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_356/_article/download/-char/ja", "./jjep/53_3_356.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_368/_article/download/-char/ja", "./jjep/53_3_368.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_381/_article/download/-char/ja", "./jjep/53_3_381.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_393/_article/download/-char/ja", "./jjep/53_3_393.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_405/_article/download/-char/ja", "./jjep/53_3_405.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_414/_article/download/-char/ja", "./jjep/53_3_414.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/3/53_427/_article/download/-char/ja", "./jjep/53_3_427.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_151/_article/download/-char/ja", "./jjep/53_2_151.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_162/_article/download/-char/ja", "./jjep/53_2_162.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_172/_article/download/-char/ja", "./jjep/53_2_172.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_185/_article/download/-char/ja", "./jjep/53_2_185.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_196/_article/download/-char/ja", "./jjep/53_2_196.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_209/_article/download/-char/ja", "./jjep/53_2_209.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_220/_article/download/-char/ja", "./jjep/53_2_220.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_230/_article/download/-char/ja", "./jjep/53_2_230.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_241/_article/download/-char/ja", "./jjep/53_2_241.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_252/_article/download/-char/ja", "./jjep/53_2_252.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_263/_article/download/-char/ja", "./jjep/53_2_263.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/2/53_273/_article/download/-char/ja", "./jjep/53_2_273.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_1/_article/download/-char/ja", "./jjep/53_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_14/_article/download/-char/ja", "./jjep/53_1_14.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_26/_article/download/-char/ja", "./jjep/53_1_26.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_37/_article/download/-char/ja", "./jjep/53_1_37.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_49/_article/download/-char/ja", "./jjep/53_1_49.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_62/_article/download/-char/ja", "./jjep/53_1_62.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_74/_article/download/-char/ja", "./jjep/53_1_74.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_86/_article/download/-char/ja", "./jjep/53_1_86.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_98/_article/download/-char/ja", "./jjep/53_1_98.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_110/_article/download/-char/ja", "./jjep/53_1_110.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_122/_article/download/-char/ja", "./jjep/53_1_122.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_133/_article/download/-char/ja", "./jjep/53_1_133.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_359/_article/download/-char/ja", "./jjep/52_4_359.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_370/_article/download/-char/ja", "./jjep/52_4_370.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_382/_article/download/-char/ja", "./jjep/52_4_382.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_392/_article/download/-char/ja", "./jjep/52_4_392.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_402/_article/download/-char/ja", "./jjep/52_4_402.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_414/_article/download/-char/ja", "./jjep/52_4_414.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_426/_article/download/-char/ja", "./jjep/52_4_426.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_437/_article/download/-char/ja", "./jjep/52_4_437.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_448/_article/download/-char/ja", "./jjep/52_4_448.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_458/_article/download/-char/ja", "./jjep/52_4_458.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_472/_article/download/-char/ja", "./jjep/52_4_472.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/4/52_485/_article/download/-char/ja", "./jjep/52_4_485.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_219/_article/download/-char/ja", "./jjep/52_3_219.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_231/_article/download/-char/ja", "./jjep/52_3_231.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_241/_article/download/-char/ja", "./jjep/52_3_241.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_255/_article/download/-char/ja", "./jjep/52_3_255.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_264/_article/download/-char/ja", "./jjep/52_3_264.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_277/_article/download/-char/ja", "./jjep/52_3_277.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_287/_article/download/-char/ja", "./jjep/52_3_287.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_298/_article/download/-char/ja", "./jjep/52_3_298.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_310/_article/download/-char/ja", "./jjep/52_3_310.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_320/_article/download/-char/ja", "./jjep/52_3_320.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_331/_article/download/-char/ja", "./jjep/52_3_331.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/3/52_344/_article/download/-char/ja", "./jjep/52_3_344.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_93/_article/download/-char/ja", "./jjep/52_2_93.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_107/_article/download/-char/ja", "./jjep/52_2_107.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_115/_article/download/-char/ja", "./jjep/52_2_115.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_127/_article/download/-char/ja", "./jjep/52_2_127.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_139/_article/download/-char/ja", "./jjep/52_2_139.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_148/_article/download/-char/ja", "./jjep/52_2_148.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_159/_article/download/-char/ja", "./jjep/52_2_159.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_170/_article/download/-char/ja", "./jjep/52_2_170.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_186/_article/download/-char/ja", "./jjep/52_2_186.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/2/52_199/_article/download/-char/ja", "./jjep/52_2_199.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_1/_article/download/-char/ja", "./jjep/52_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_12/_article/download/-char/ja", "./jjep/52_1_12.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_24/_article/download/-char/ja", "./jjep/52_1_24.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_33/_article/download/-char/ja", "./jjep/52_1_33.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_44/_article/download/-char/ja", "./jjep/52_1_44.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_52/_article/download/-char/ja", "./jjep/52_1_52.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_61/_article/download/-char/ja", "./jjep/52_1_61.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_71/_article/download/-char/ja", "./jjep/52_1_71.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/4/51_367/_article/download/-char/ja", "./jjep/51_4_367.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/4/51_378/_article/download/-char/ja", "./jjep/51_4_378.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/4/51_390/_article/download/-char/ja", "./jjep/51_4_390.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/4/51_401/_article/download/-char/ja", "./jjep/51_4_401.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/4/51_413/_article/download/-char/ja", "./jjep/51_4_413.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/4/51_425/_article/download/-char/ja", "./jjep/51_4_425.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/4/51_431/_article/download/-char/ja", "./jjep/51_4_431.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/4/51_443/_article/download/-char/ja", "./jjep/51_4_443.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_251/_article/download/-char/ja", "./jjep/51_3_251.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_261/_article/download/-char/ja", "./jjep/51_3_261.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_273/_article/download/-char/ja", "./jjep/51_3_273.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_281/_article/download/-char/ja", "./jjep/51_3_281.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_288/_article/download/-char/ja", "./jjep/51_3_288.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_298/_article/download/-char/ja", "./jjep/51_3_298.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_308/_article/download/-char/ja", "./jjep/51_3_308.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_319/_article/download/-char/ja", "./jjep/51_3_319.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_328/_article/download/-char/ja", "./jjep/51_3_328.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_339/_article/download/-char/ja", "./jjep/51_3_339.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/3/51_351/_article/download/-char/ja", "./jjep/51_3_351.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_121/_article/download/-char/ja", "./jjep/51_2_121.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_130/_article/download/-char/ja", "./jjep/51_2_130.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_141/_article/download/-char/ja", "./jjep/51_2_141.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_154/_article/download/-char/ja", "./jjep/51_2_154.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_165/_article/download/-char/ja", "./jjep/51_2_165.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_175/_article/download/-char/ja", "./jjep/51_2_175.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_187/_article/download/-char/ja", "./jjep/51_2_187.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_195/_article/download/-char/ja", "./jjep/51_2_195.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_205/_article/download/-char/ja", "./jjep/51_2_205.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_218/_article/download/-char/ja", "./jjep/51_2_218.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/2/51_230/_article/download/-char/ja", "./jjep/51_2_230.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_1/_article/download/-char/ja", "./jjep/51_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_13/_article/download/-char/ja", "./jjep/51_1_13.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_22/_article/download/-char/ja", "./jjep/51_1_22.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_33/_article/download/-char/ja", "./jjep/51_1_33.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_43/_article/download/-char/ja", "./jjep/51_1_43.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_54/_article/download/-char/ja", "./jjep/51_1_54.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_65/_article/download/-char/ja", "./jjep/51_1_65.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_76/_article/download/-char/ja", "./jjep/51_1_76.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_86/_article/download/-char/ja", "./jjep/51_1_86.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_96/_article/download/-char/ja", "./jjep/51_1_96.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_105/_article/download/-char/ja", "./jjep/51_1_105.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_393/_article/download/-char/ja", "./jjep/50_4_393.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_403/_article/download/-char/ja", "./jjep/50_4_403.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_412/_article/download/-char/ja", "./jjep/50_4_412.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_421/_article/download/-char/ja", "./jjep/50_4_421.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_427/_article/download/-char/ja", "./jjep/50_4_427.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_436/_article/download/-char/ja", "./jjep/50_4_436.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_446/_article/download/-char/ja", "./jjep/50_4_446.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_456/_article/download/-char/ja", "./jjep/50_4_456.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_465/_article/download/-char/ja", "./jjep/50_4_465.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_476/_article/download/-char/ja", "./jjep/50_4_476.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/4/50_487/_article/download/-char/ja", "./jjep/50_4_487.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_261/_article/download/-char/ja", "./jjep/50_3_261.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_271/_article/download/-char/ja", "./jjep/50_3_271.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_283/_article/download/-char/ja", "./jjep/50_3_283.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_291/_article/download/-char/ja", "./jjep/50_3_291.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_301/_article/download/-char/ja", "./jjep/50_3_301.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_311/_article/download/-char/ja", "./jjep/50_3_311.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_323/_article/download/-char/ja", "./jjep/50_3_323.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_334/_article/download/-char/ja", "./jjep/50_3_334.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_345/_article/download/-char/ja", "./jjep/50_3_345.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_355/_article/download/-char/ja", "./jjep/50_3_355.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_367/_article/download/-char/ja", "./jjep/50_3_367.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/3/50_377/_article/download/-char/ja", "./jjep/50_3_377.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_129/_article/download/-char/ja", "./jjep/50_2_129.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_141/_article/download/-char/ja", "./jjep/50_2_141.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_152/_article/download/-char/ja", "./jjep/50_2_152.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_163/_article/download/-char/ja", "./jjep/50_2_163.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_175/_article/download/-char/ja", "./jjep/50_2_175.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_185/_article/download/-char/ja", "./jjep/50_2_185.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_193/_article/download/-char/ja", "./jjep/50_2_193.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_204/_article/download/-char/ja", "./jjep/50_2_204.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_215/_article/download/-char/ja", "./jjep/50_2_215.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_225/_article/download/-char/ja", "./jjep/50_2_225.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_237/_article/download/-char/ja", "./jjep/50_2_237.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/2/50_246/_article/download/-char/ja", "./jjep/50_2_246.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_1/_article/download/-char/ja", "./jjep/50_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_12/_article/download/-char/ja", "./jjep/50_1_12.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_23/_article/download/-char/ja", "./jjep/50_1_23.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_33/_article/download/-char/ja", "./jjep/50_1_33.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_43/_article/download/-char/ja", "./jjep/50_1_43.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_54/_article/download/-char/ja", "./jjep/50_1_54.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_65/_article/download/-char/ja", "./jjep/50_1_65.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_73/_article/download/-char/ja", "./jjep/50_1_73.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_81/_article/download/-char/ja", "./jjep/50_1_81.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_92/_article/download/-char/ja", "./jjep/50_1_92.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_103/_article/download/-char/ja", "./jjep/50_1_103.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_113/_article/download/-char/ja", "./jjep/50_1_113.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_401/_article/download/-char/ja", "./jjep/49_4_401.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_409/_article/download/-char/ja", "./jjep/49_4_409.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_417/_article/download/-char/ja", "./jjep/49_4_417.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_427/_article/download/-char/ja", "./jjep/49_4_427.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_438/_article/download/-char/ja", "./jjep/49_4_438.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_449/_article/download/-char/ja", "./jjep/49_4_449.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_458/_article/download/-char/ja", "./jjep/49_4_458.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_469/_article/download/-char/ja", "./jjep/49_4_469.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_480/_article/download/-char/ja", "./jjep/49_4_480.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_491/_article/download/-char/ja", "./jjep/49_4_491.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/4/49_500/_article/download/-char/ja", "./jjep/49_4_500.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_265/_article/download/-char/ja", "./jjep/49_3_265.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_274/_article/download/-char/ja", "./jjep/49_3_274.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_285/_article/download/-char/ja", "./jjep/49_3_285.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_295/_article/download/-char/ja", "./jjep/49_3_295.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_305/_article/download/-char/ja", "./jjep/49_3_305.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_314/_article/download/-char/ja", "./jjep/49_3_314.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_326/_article/download/-char/ja", "./jjep/49_3_326.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_337/_article/download/-char/ja", "./jjep/49_3_337.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_347/_article/download/-char/ja", "./jjep/49_3_347.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_359/_article/download/-char/ja", "./jjep/49_3_359.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/3/49_371/_article/download/-char/ja", "./jjep/49_3_371.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_129/_article/download/-char/ja", "./jjep/49_2_129.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_137/_article/download/-char/ja", "./jjep/49_2_137.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_146/_article/download/-char/ja", "./jjep/49_2_146.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_156/_article/download/-char/ja", "./jjep/49_2_156.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_167/_article/download/-char/ja", "./jjep/49_2_167.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_175/_article/download/-char/ja", "./jjep/49_2_175.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_186/_article/download/-char/ja", "./jjep/49_2_186.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_198/_article/download/-char/ja", "./jjep/49_2_198.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_209/_article/download/-char/ja", "./jjep/49_2_209.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_219/_article/download/-char/ja", "./jjep/49_2_219.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_230/_article/download/-char/ja", "./jjep/49_2_230.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/2/49_240/_article/download/-char/ja", "./jjep/49_2_240.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_1/_article/download/-char/ja", "./jjep/49_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_11/_article/download/-char/ja", "./jjep/49_1_11.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_21/_article/download/-char/ja", "./jjep/49_1_21.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_31/_article/download/-char/ja", "./jjep/49_1_31.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_41/_article/download/-char/ja", "./jjep/49_1_41.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_50/_article/download/-char/ja", "./jjep/49_1_50.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_60/_article/download/-char/ja", "./jjep/49_1_60.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_69/_article/download/-char/ja", "./jjep/49_1_69.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_81/_article/download/-char/ja", "./jjep/49_1_81.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_91/_article/download/-char/ja", "./jjep/49_1_91.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_102/_article/download/-char/ja", "./jjep/49_1_102.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_112/_article/download/-char/ja", "./jjep/49_1_112.txt")

1.3 htmlの内容を1年ごとに確認

1.3.1 2017年(65巻)

jjep.65.1.1.tx <- readr::read_file(file="./JJEP/65_1_1.txt"); jjep.65.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->外山 美樹<!--\r\n\t\r\n\t-->,&nbsp;楽観性が代替的な目標の抑制に及ぼす影響<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2017<!--\t\t\t\t-->,&nbsp;65 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-11<!--\t\t-->,&nbsp;公開日 2017/04/21<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.65.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/65/1/65_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　Goal shielding理論（Shah, Friedman, &amp; Kruglanski, 2002）では, “価値のある目標が活性化されると, 代替的な目標（その重要な目標とは無関連な目標）の活性化が自動的に抑制される”と提唱している。そして, この代替的な目標に対する抑制が, 目標達成のプロセスにおいて重要な役割を果たすと考えている。本研究では, 重要な目標が活性化されると, 代替的な目標の活性化が抑制されるというgoal shielding効果において, 楽観性が調整変数として働いているのかどうか検討することを目的とした。研究1では164名の大学生を対象にし, まず, 学業達成の目標を活性化させ, 学業達成の重要性を尋ねた。研究2では196名の大学生を, 目標へのコミットメントが高い条件（“達成したいと強く望む目標”を記述させる）と低い条件（“できれば達成したいとわずかに望む目標”を記述させる）にランダムに割り当てることによって, 目標へのコミットメントを操作した。目標を活性化させたのちに, 研究1, 研究2ともに, 代替的な目標の記述として, 今現在, したいと思っていること（ex. 行動, 活動）を思いつく限り自由記述してもらった。本研究の結果より, 楽観性の高い人は低い人に比べて, 重要な目標が活性化された際に, 代替的な目標の活性化がより抑制されることが示された。本研究の結果は, 楽観性の高い人が重要な目標に対して積極的に取り組むことができるのは, 代替的な目標の活性化の抑制が働いていることに起因している可能性を示唆するものである。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.2 2016年(64巻)

jjep.64.1.1.tx <- readr::read_file(file="./JJEP/64_1_1.txt"); jjep.64.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->千島 雄太<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->村上 達也<!--\r\n\t\r\n\t-->,&nbsp;友人関係における“キャラ”の受け止め方と心理的適応<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2016<!--\t\t\t\t-->,&nbsp;64 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-12<!--\t\t-->,&nbsp;公開日 2016/04/11<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.64.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/64/1/64_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　本研究では, 現代青年に顕著なキャラを介した友人関係について, 中学生と大学生の比較から検討が行われた。本研究の目的は, キャラの有無による心理的適応の相違に加えて, キャラの受け止め方とキャラ行動が心理的適応に及ぼす影響を明らかにすることであった。中学生396名と大学生244名に質問紙調査を行った。分析の結果, 大学生は中学生よりもキャラがある者の割合が多く, キャラがない者よりも自己有用感が高いことが示された。因子分析の結果, キャラの受け止め方は, “積極的受容”, “拒否”, “無関心”, “消極的受容”の4つが得られた。得点とパス係数の比較を行った結果, 学校段階で違いが見られた。中学生では, 友人から付与されたキャラを受容しにくく, キャラに合わせて振る舞うことが, 心理的不適応と関連することが明らかになった。一方で, 大学生ではキャラ行動と適応には有意な関連が見られず, 付与されたキャラを消極的にでも受け容れることが, 居場所感の高さと関連していた。以上の結果から, 中学生におけるキャラを介した友人関係の危うさについて議論された。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.3 2015年(63巻)

jjep.63.1.1.tx <- readr::read_file(file="./JJEP/63_1_1.txt"); jjep.63.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->外山 美樹<!--\r\n\t\r\n\t-->,&nbsp;認知的方略尺度の作成および信頼性・妥当性の検討<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2015<!--\t\t\t\t-->,&nbsp;63 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-12<!--\t\t-->,&nbsp;公開日 2015/08/22<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.63.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/63/1/63_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　本研究の目的は, 熟考を“結果に対する熟考”と“計画に対する熟考”に分けて測定できる認知的方略尺度を新たに作成し, その信頼性と妥当性を検証することであった。研究1より, “失敗に対する予期・熟考”, “成功に対する熟考”, “計画に対する熟考”ならびに“過去のパフォーマンスの認知”の4つを下位尺度とする認知的方略尺度20項目が作成された。また, 研究2より, 認知的方略尺度の信頼性（内的一貫性と時間的安定性）と一部の妥当性が確認された。研究3より, 認知的方略尺度の下位尺度の組み合わせによって, 4つ（防衛的悲観主義群, 楽観主義群, 悲観主義群, メタ認知低群）の異なった認知的方略パターンが確認された。4つの群の存在ならびに各群における特徴は, 先行研究とほぼ同様であり, 本尺度を用いて4つの異なった認知的方略パターンを抽出することが可能になったと言える。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.4 2014年(62巻)

jjep.62.1.1.tx <- readr::read_file(file="./JJEP/62_1_1.txt"); jjep.62.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->後藤 由佳<!--\r\n\t\r\n\t-->,&nbsp;英語語彙の意味範囲に関する不十分な理解とその修正<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2014<!--\t\t\t\t-->,&nbsp;62 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-12<!--\t\t-->,&nbsp;公開日 2014/07/16<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.62.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/62/1/62_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　英単語のclimbは手足を使って自力で登ることを意味するが, 日本語訳の「のぼる」にはそのような限定はない。本研究は大学生を対象として, 英単語のこのような意味範囲の理解を扱った。実験1ではまずテスト群の大学生（<i>n</i>＝44）のデータから, 基本動詞climb, memorize, borrow, teach, put onの意味範囲の理解が不十分であることを示し, 次に, 辞書の「語法」の記述を読む辞書群（<i>n</i>＝101）では意味範囲の把握がある程度促進されることを示した。実験2では, 誤文指摘練習をする練習群（<i>n</i>＝39）, 意味範囲を間違って使用し現実にはあり得ないような意味になるエピソードを読むエピソード群（<i>n</i>＝45）を設定し, 実験1の辞書群と比較して効果を検討した。その結果, 練習群とエピソード群では事後テストの正答率は約90%となり, 実験1の辞書群の75%を上回った。またエピソード群では学習者の動機づけも高めることができた。さらに, 英単語の学習方略と教授・学習方法の組み合わせによって動機づけに交互作用（ATI）が生じることが示唆された。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.5 2013年(61巻)

jjep.61.1.1.tx <- readr::read_file(file="./JJEP/61_1_1.txt"); jjep.61.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->小田切 歩<!--\r\n\t\r\n\t-->,&nbsp;高校の数学授業における協同的統合過程を通じた個人の知識統合メカニズム<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2013<!--\t\t\t\t-->,&nbsp;61 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-16<!--\t\t-->,&nbsp;公開日 2013/09/18<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.61.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/61/1/61_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　本研究では, 授業場面における集団での多様な考えの統合過程（協同的統合過程）を通じて, 個人が多様な知識をどのように関連づけていくのかという個人の知識統合のメカニズムを検討した。その中でも, 教科内容の知識と日常的な知識の関連づけに着目し, 高校生が理解に困難を抱えている三角関数と回転運動との関連づけに関する問題解決過程を, 事前課題&mdash;授業（協同的統合過程の有無）&mdash;事後課題のデザインで検討した。分析の結果, 多様な解決方略が可能な課題を設定し, 教師の支援のもとで生徒がそれらの方略の構造化を集団的に行うような協同的統合過程において, 個人が発言あるいはワークシート上で日常的な知識と教科内容の知識を用いて方略間の関連に関する説明を構築することで, 円という共通点による, 回転運動という日常的な知識と単位円という具体的な教科内容の知識との関連づけをもとに, 高さの変化を表すものとして, 回転運動と三角関数という抽象的な教科内容の知識が関連づけられ, さらに半径や高さの基準という, より具体的な教科内容の知識が関連づけられていくというプロセスで知識が構造化されていき, 事後課題において知識統合が促進されることが示された。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.6 2012年(60巻)

jjep.60.1.1.tx <- readr::read_file(file="./JJEP/60_1_1.txt"); jjep.60.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->山田 嘉徳<!--\r\n\t\r\n\t-->,&nbsp;ペア制度を用いた大学ゼミにおける文化的実践の継承過程<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2012<!--\t\t\t\t-->,&nbsp;60 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-14<!--\t\t-->,&nbsp;公開日 2013/01/16<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.60.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/60/1/60_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　本研究は, 正統的周辺参加論に新たな知見を追加するため, 大学ゼミにおけるペア制度を題材として, 文化的実践の継承過程を検討したものである。「連続性と置換の矛盾」概念により, 実践共同体における価値規範が先輩と後輩のペア間でどのように再生産されているか, また, 世代間の葛藤がどのように変化するかについて明らかにすることを目指した。35名の大学生を対象に半構造化インタヴューを実施し, 質的に分析した結果, 【正統的継承】, 【発展的継承】, 【非意図的継承】, 【非継承】, 【継承改善】, 【継承失敗】から成る6つの継承カテゴリーおよび【文化価値の浸透】という1つの再生産カテゴリーが生成された。加えて, 先輩と後輩の間での継承の仕方の相違に伴う価値規範の再生産過程が, これらのカテゴリーを用いることで記述された。最後に, ペア制度を用いた大学ゼミにおける【文化価値の浸透】過程が, 先輩と後輩の間の葛藤生成および葛藤解消を介した世代継承の変革過程の側面から考察され, 継承理論としての正統的周辺参加の拡張可能性が議論された。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.7 2011年(59巻)

jjep.59.1.1.tx <- readr::read_file(file="./JJEP/59_1_1.txt"); jjep.59.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->麻柄 啓一<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->進藤 聡彦<!--\r\n\t\r\n\t-->,&nbsp;ルール命題の操作による問題解決の促進<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2011<!--\t\t\t\t-->,&nbsp;59 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-12<!--\t\t-->,&nbsp;公開日 2011/09/07<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.59.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/59/1/59_1_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　本研究では, 「pならばqだ」と記述できるようなルール命題の前件pに順序尺度的な値や二値的な値を代入した場合に, それに対応して後件qの値がどうなるかを考える活動を「代入・対応操作」と名づけた。その上で, 学習者にそのような操作を行わせることによって, 後続の問題場面でそのルールの適用が促進されるか否かを検討した。取り上げたルールは, 冬に日本海側の, 特に新潟地方や北陸地方で雪が多い理由に関するものであった。実験1では99名の大学生を対象として, 操作群, 再生群, 統制群を設けた。説明文（3群共通）の読解後に, 操作群は呈示されたルールに即して, 諸要因（前件）の値が変化した場合の降雪量（後件）の変化について解答した。再生群はブランクを埋めることによって説明文の内容を再学習した。統制群は説明文を読むだけであった。その結果, 操作群は他の2群よりも事後の問題解決で高成績であった。実験2では91名の大学生を対象に, ルール適用を促進するためには, 実際に操作を行うことが必要なのか, それとも操作結果を記述した文章を読むだけでも効果があるかについて検討した。実験の結果, 後者を示唆する結果が得られた。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.8 2010年(58巻)

jjep.58.1.1.tx <- readr::read_file(file="./JJEP/58_1_1.txt"); jjep.58.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->橘 春菜<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->藤村 宣之<!--\r\n\t\r\n\t-->,&nbsp;高校生のペアでの協同解決を通じた知識統合過程<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2010<!--\t\t\t\t-->,&nbsp;58 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-11<!--\t\t-->,&nbsp;公開日 2012/03/27<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.58.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/58/1/58_1_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　本研究では, 高校生のペアでの問題解決に焦点をあて, 他者と相互に知識を関連づける協同過程を通じて, 概念的理解をともなう知識統合が個人内の変化としてどのように促進されるかを検討した。問題解決方略の質的変化 （複数の知識を個別に説明する方略から複数の知識を関連づけて包括的に説明する方略への変化） が想定される数学的問題を事前課題&mdash;介入（協同または単独）&mdash;事後課題のデザインで実施した。実験1では (1) 協同条件では単独条件よりも事前から事後にかけての解決方略の質的変化が生じやすいこと, (2) 協同場面での複数の要素を関連づけた説明が事後課題での包括的説明方略の適用と関連が強いことが示された。実験2では, 方略の質的変化をより促進するため, 介入課題において, 実験1の教示（以後, 一括教示）と比べて, 要素の関連づけ過程やその前段階の要素の抽出過程の活性化を目指した段階的教示を行った。その結果, (1) 段階的教示では, 事前から事後にかけての方略変化が一括教示よりも生じやすく, 協同条件でその促進効果が顕著であること, (2) 方略の質的変化が生じる協同過程では, ペアで相互に知識を構築する協同過程がみられることが示された。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.9 2009年(57巻)

jjep.57.1.1.tx <- readr::read_file(file="./JJEP/57_1_1.txt"); jjep.57.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->高坂 康雅<!--\r\n\t\r\n\t-->,&nbsp;青年期における容姿・容貌に対する劣性を認知したときに生じる感情と反応行動との関連<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2009<!--\t\t\t\t-->,&nbsp;57 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-12<!--\t\t-->,&nbsp;公開日 2012/02/22<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep.57.1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep/57/1/57_1_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 　本研究の目的は, 青年が容姿・容貌に対する劣性を認知したときに生じる感情と反応行動との関連を明らかにすることである。中学生, 高校生, 大学生545名を対象に, 劣性の認知を尋ねる項目, 劣性を認知したときに生じる感情に関する項目, 反応行動に関する項目について回答を求めた。分析の結果, 反応行動は, 他者回避, 直接的努力, 他者攻撃, 気晴らし, 放置, 賞賛・承認希求, 代理補償の7種類に分けられた。また, 直接的努力は憧憬感情と, 他者攻撃と賞賛・承認希求は敵意感情と, 気晴らしは不満感情と, 放置と代理補償は悲哀感情と自己肯定感情とそれぞれ関連しており, 他者回避は中学生・高校生では不満感情と関連し, 大学生では悲哀感情と関連していた。これらの結果から, 容姿・容貌に対する劣性を認知したときに生じる感情と反応行動との間には, 特定の結びつきがあることが確認された。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.10 2008年(56巻)

jjep.56.1.1.tx <- readr::read_file(file="./JJEP/56_1_1.txt"); jjep.56.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->萩原 俊彦<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->櫻井 茂男<!--\r\n\t\r\n\t-->,&nbsp;“やりたいこと探し”の動機における自己決定性の検討<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2008<!--\t\t\t\t-->,&nbsp;56 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-13<!--\t\t-->,&nbsp;公開日 2013/02/19<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep1953.56.1_1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep1953/56/1/56_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 本研究の目的は, 大学生の職業選択に関連すると考えられる“やりたいこと探し”の動機を明らかにし, その動機の自己決定性と進路不決断との関連を検討することであった。まず, どの程度自己決定的な動機で職業選択に関わる“やりたいこと探し”をしているかを測定する尺度を作成し, 信頼性と妥当性を検討した。尺度項目の因子分析の結果から, やりたいことを探す動機として, 非自己決定的な「他者追随」, 自己決定性においては中間的な「社会的安定希求」, 自己決定的な「自己充足志向」の3因子が抽出され, 尺度の信頼性と妥当性が確認された。作成された“やりたいこと探し”の動機尺度を用いて, “やりたいこと探し”の動機の個人差と進路不決断との関連を検討したところ, “やりたいこと探し” の動機のうち, 非自己決定的な動機である「他者追随」が相対的に高い非自己決定的動機群は, 進路不決断の面で問題を抱えている可能性が示唆された。本研究で得られた結果は, 現代青年のキャリア意識として広く支持されている“やりたいこと”志向と職業選択との関連を検討する上で意義があると考えられる。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.11 2007年(55巻)

jjep.55.1.1.tx <- readr::read_file(file="./JJEP/55_1_1.txt"); jjep.55.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->竹村 明子<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->前原 武子<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->小林 稔<!--\r\n\t\r\n\t-->,&nbsp;高校生におけるスポーツ系部活参加の有無と学業の達成目標および適応との関係<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2007<!--\t\t\t\t-->,&nbsp;55 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-10<!--\t\t-->,&nbsp;公開日 2013/02/19<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep1953.55.1_1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep1953/55/1/55_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 本研究の目的は, スポーツ系部活参加の効果を, Nicholls (1992) の目標理論の枠組みにより, 明らかにすることであった。そのため, スポーツ系部活に参加する高校生 (部活群) 231名と, 部活に参加しない高校生 (非部活群) 200名とを対象に, 学業の目標志向性および適応 (無気力感・授業満足感) を測定し, 比較検討を行った。その結果, 部活群は非部活群に比べて, 課題志向性 (個人の能力の発達を目標とする志向性) および協同性 (仲間と協力することを目標とする志向性) が高いことがわかった。そして部活群は非部活群に比べて, 無気力感3因子のうちの自己不明瞭感が低く, 授業満足感が高いことから, 適応が良好であることがわかった。さらに, 部活群・非部活群ともに, 課題志向性が高いことは低い無気力感を説明することが, 一方授業満足感については説明できないことが明らかとなった。従って, スポーツ系部活は高校生の目標志向性および適応に対して概ね肯定的効果があることが明らかとなった。しかし, その効果は目標志向性の内容および適応の指標により異なるメカニズムをもつことが示唆された。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.12 2006年(54巻)

jjep.54.1.1.tx <- readr::read_file(file="./JJEP/54_1_1.txt"); jjep.54.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->岡田 涼<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->中谷 素之<!--\r\n\t\r\n\t-->,&nbsp;動機づけスタイルが課題への興味に及ぼす影響<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2006<!--\t\t\t\t-->,&nbsp;54 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-11<!--\t\t-->,&nbsp;公開日 2013/02/19<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep1953.54.1_1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep1953/54/1/54_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 本研究の目的は, 自己決定理論において概念化されている複数の動機づけから個人を動機づけスタイルとして表し, その動機づけスタイルによって, 実際の課題解決場面において課題に対する興味にどのような相違が見られるかを検討することであった。研究1では, 大学生の学習活動に対する動機づけを尋ねる質問紙を作成し, それらの得点から, 4つの動機づけスタイル (高動機づけ, 自律, 取り入れ・外的, 低動機づけ) を見出した。研究2では, 従来の自己決定理論研究において用いられることの少なかった実験的な手法を用いて, 動機づけスタイルが課題への興味に及ぼす影響を検討した。その結果, 非統制的な教示条件下において, 取り入れ・外的スタイルは高動機づけスタイルよりも課題に対する事後の興味得点が低くなっていた。また, 高動機づけスタイルと取り入れ・外的スタイルは, ともに低動機づけスタイルよりも課題遂行中の不安・強制感が高かった。以上のように, 動機づけスタイルによって課題への興味のあり方や課題遂行中の不安が異なるという結果は, 個人の動機づけを動機づけスタイルとして多面的に捉える枠組みの有用性を示すものであると考えられる。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.13 2005年(53巻)

jjep.53.1.1.tx <- readr::read_file(file="./JJEP/53_1_1.txt"); jjep.53.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->内田 照久<!--\r\n\t\r\n\t-->,&nbsp;音声の発話速度と休止時間が話者の性格印象と自然なわかりやすさに与える影響<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2005<!--\t\t\t\t-->,&nbsp;53 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-13<!--\t\t-->,&nbsp;公開日 2013/02/19<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep1953.53.1_1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep1953/53/1/53_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 音声中の実音声区間と休止区間の時間配分と, 話者の性格印象, 音声の自然性との関係を検討した。パラグラフ・レベルの音声材料を用いて, 大学生581名を被験者として聴覚実験を行った。実音声時間長は, 性格印象, 自然性に特徴的な影響を与えていた。休止時間長の違いによる影響は比較的小さかった。実音声部の発話速度の変化に伴う性格印象の変化パターンは, Big Fiveの特性ごとに固有の2次回帰式で近似できた。勤勉性は速い発話で評価が高く, 遅くなると急峻に低下した。協調性では逆に, 速い発話で評価が低く, 遅い発話で高かった。外向性と経験への開放性はやや速い発話で評価が高く, より速くても遅くても下降した。情緒不安定性には影響は見られなかった。自然性はオリジナルの時間長で評価が最も高く, より速くても遅くても左右対称の形状で低下した。これらのことから音声の変換に伴う自然性の低下の影響は皆無とは言えないまでも, 性格特性ごとの独自性が確認された。この結果は, 性格印象全体の複雑な変化を捉えるために, 音声の時間構造の変化に応じて性格特性ごとに特性値を近似関数で推定し, その推定値を組合せて全体像を捉えるというモデルを支持するものであった。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.14 2004年(52巻)

jjep.52.1.1.tx <- readr::read_file(file="./JJEP/52_1_1.txt"); jjep.52.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->河村 夏代<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->鈴木 啓嗣<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->岩井 圭司<!--\r\n\t\r\n\t-->,&nbsp;教師に生ずる感情と指導の関係についての研究<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2004<!--\t\t\t\t-->,&nbsp;52 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-11<!--\t\t-->,&nbsp;公開日 2013/02/19<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep1953.52.1_1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep1953/52/1/52_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 日常的な教育活動の中で, 教師には様々な感情が生じている。教師はふつう, 湧き起こる感情による影響を, 教育活動に生かしたり制御したり経験的に対処している。中学校教員に, 具体的な生徒指導27場面を提示して, その場の不快感と介入の強さ, 併せて「教師特有のビリーフ (河村・國分, 1996a)」の強迫性を調査した。104名の回答によると, 各教師の不快感と介入強度, 27場面での相関値の平均はr=.57 (SD=.24) であった。教師個人内において不快感が強いと介入も強いというかなりの相関が認められた。また, 生徒個人の態度による不快感喚起場面は, 生徒の態度が教師や学校規則に反抗的な「対決場面」と, 軽視するような「軽視場面」の2種類に分けられた。軽視場面に限り, 介入の強さは不快感に有意に依存した。教育実践をする上で, 教師は特に軽視場面において, 自身の感情を意識化することが必要だと示唆された。一方, 不快感はビリーフと介入強度両方によって予測されることが示された。ビリーフや対応行動を検討することが, 不快感の意識化に役立つであろう。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.15 2003年(51巻)

jjep.51.1.1.tx <- readr::read_file(file="./JJEP/51_1_1.txt"); jjep.51.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->村山 航<!--\r\n\t\r\n\t-->,&nbsp;テスト形式が学習方略に与える影響<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2003<!--\t\t\t\t-->,&nbsp;51 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-12<!--\t\t-->,&nbsp;公開日 2013/02/19<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep1953.51.1_1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep1953/51/1/51_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 本研究では, 中学2年生を対象として, テスト形式 (空所補充型テストと記述式テスト) が学習方略やノート書き込み量などの行動指標に与える影響を, 歴史の授業を用いて実験的に検討した。同時に, 記述式テストにおける添削の効果もあわせて検討した。直交対比を用いた検定の結果, 授業後に繰り返し空所補充型テストを課された群 (空所補充群) では, 浅い処理の学習方略使用が, 記述式テストを課された群 (記述群) では深い処理の学習方略使用がそれぞれ促進された。また, 記述式テストで添削がなかった群 (記述-非添削群) と添削があった群 (記述-添削群) の間には, 方略使用の差は見出されなかった。また, ノート書き込み量は記述群で促進されることが明らかになったが, テスト成績や授業に関する質問生成では明確な結果は得られなかった。達成目標や学習観を適性変数にとり'適性処遇交互作用 (ATI) を検討した結果, これまでみられた群間差は, 習得目標や方略志向が高い場合に消失する場合があることが示された。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.16 2002年(50巻)

jjep.50.1.1.tx <- readr::read_file(file="./JJEP/50_1_1.txt"); jjep.50.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->内田 照久<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->菊地 賢一<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->中畝 菜穂子<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->前川 眞一<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->石塚 智一<!--\r\n\t\r\n\t-->,&nbsp;英語リスニング・テストにおける音声の時間構造と提示情報の様式が項目特性に与える影響<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2002<!--\t\t\t\t-->,&nbsp;50 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-11<!--\t\t-->,&nbsp;公開日 2013/02/19<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep1953.50.1_1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep1953/50/1/50_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 大学生652名に英語リスニング・テストを実施した。テスト内に3つの実験ブロックを設定し, 発話速度, 休止時間, 選択肢様式について操作した。原問題を加工した実験項目を8つのテスト・フォームに割り当て, フォーム間の比較のためにアンカー項目も配置した。分析には古典的テスト理論と項目反応理論 (IRT) の項目特性指標を使用した。結果として,(1) 発話速度の低下に伴い困難度 (<I>b</I>) は低下し, 音声持続時間を80%～140%変化させたところ, 項目通過率の平均が約7%上昇した。(2) 選択肢様式については, 文字提示の方が音声提示より困難度 (<I>b</I>) が低く, 平均通過率が約12%高かった。すなわち, リスニング・テスト状況下でも被験者は文字情報に依存的であった。(3) 選択肢様式の条件差で生じた被験者群間の正答率の平均差は, 能力推定値 (θ) では解消し, IRTによる等化は良好な補正機能を示した。この長所を生かし, 被験者への成績情報のフィード・バックも可能にするためのIRTと実験計画法を組み合せた新しい研究方法を提案した。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

1.3.17 2001年(49巻)

jjep.49.1.1.tx <- readr::read_file(file="./JJEP/49_1_1.txt"); jjep.49.1.1.tx

## [1] "\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->高橋 登<!--\r\n\t\r\n\t-->,&nbsp;学童期における読解能力の発達過程<!--\t-->,&nbsp;教育心理学研究<!--\r\n\t\t\t-->,&nbsp;2001<!--\t\t\t\t-->,&nbsp;49 巻<!--\t\t\t\t-->,&nbsp;1 号<!--\t\t\t\t-->,&nbsp;p. 1-10<!--\t\t-->,&nbsp;公開日 2013/02/19<!--\t\t-->,&nbsp;Online ISSN 2186-3075<!--\t-->,&nbsp;Print ISSN 0021-5015<!--\t-->,&nbsp;https://doi.org/10.5926/jjep1953.49.1_1<!--\t-->,&nbsp;https://www.jstage.jst.go.jp/article/jjep1953/49/1/49_1/_article/-char/ja<!--\t-->,&nbsp;抄録: 本研究の目的は, 学童期の読解能力の発達過程を縦断的に分析することであった。被験児は大阪府内の公立小学校に通う, 高橋 (1996a) の就学前後の縦断研究に参加した子ども達であった。本報告では1・3・5年生の冬に行われた読解能力と, 関連する諸能力との間の関係が分析された。その結果, 以下の諸点が明らかになった。かな単語の命名速度は1年生の段階ではひらがなの読みの習得時期によって異なり, しかもこの時期の読解能力を規定していたが, 学年が上昇するに従い習得時期による違いはなくなり, しかも読解能力への影響力も少なくなっていった。一方漢字の符号化も5年生の読解能力を規定するものではなかった。従って符号化レベルでの処理の効率性は, 小学校高学年段階では読解能力を規定するものとはならないと考えられた。それに対して語彙は低学年から高学年まで読解を規定するものであり続けた。しかも学童期の語彙は, 前の調査時期の読解能力によっても説明されるものであった。このことはこの時期の子ども達が読むこと, すなわち読書を通じて語彙を増やし, それがまた読解の能力を高めるという相互的な関係にあるものであることを示すものと考えられた。<!---->\r\n</div>\r\n</body>\r\n</head>\r\n"

たぶん，htmlの中身の構造は一緒だと思う。 問題は，半角カンマが入っていて，データが分かれてしまう。

1.4 余計な部分を特定して変数化

# 著者名の前: 削除
rm.01 <- c("\r\n\r\n<!DOCTYPE html>\r\n<html lang=\"ja\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\">\r\n<head>\r\n<meta charset=\"utf-8\">\r\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\r\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">\r\n<body>\r\n<div style=\"word-break: break-all;\">\r\n<!--\r\n\t\t\t\t\t-->")

# 共著者の区切り: 置換
rp.01 <- c("<!--\r\n\t\t\t-->,&nbsp;<!--\t\t-->")

# 著者の後: 置換
rp.02 <- c("<!--\r\n\t\r\n\t-->,&nbsp;")

# タイトル，Online ISSN，Print ISSN，DOI，リンクの後: 置換
rp.03 <- c("<!--\t-->,&nbsp;")

# 発行年の前: 置換
rp.04 <- c("<!--\r\n\t\t\t-->,&nbsp;")

# 巻，号の後: 置換
rp.05 <- c("<!--\t\t\t\t-->,&nbsp;")

# ページ，公開日の後: 置換
rp.06 <- c("<!--\t\t-->,&nbsp;")

# アブストの前: 削除
#rm.02 <- ("抄録: <p>") # これは使わない
rm.02 <- ("<!--\t-->,&nbsp;抄録:") # rmだが置換

# ファイルの最後: 削除
# rm.03 <- c("</p><!---->\r\n</div>\r\n</body>\r\n</head>\r\n") # これは使わない
rm.03 <- c("<!---->\r\n</div>\r\n</body>\r\n</head>\r\n")
# 余計な文言: 削除
rm.04 <- c(" 巻")
rm.05 <- c(" 号")
rm.06 <- c("p. ")
rm.07 <- c("公開日 ")
rm.08 <- c("Online ISSN ")
rm.09 <- c("Print ISSN ")

1.5 変数名を付ける

varname <- c("au^ti^jo^py^vl^is^page^date^ol.issn^pr.issn^do^link^ab")

1.6 整形する

jjep.65.4.433.tx <- readr::read_file(file="./jjep/65_4_433.txt"); jjep.65.4.433.rm00 <- jjep.65.4.433.tx; jjep.65.4.433.rm01 <- str_replace_all(jjep.65.4.433.rm00, pattern = rm.01, replacement = ""); jjep.65.4.433.rm02 <- str_replace_all(jjep.65.4.433.rm01, pattern = rm.02, replacement = "^"); jjep.65.4.433.rm03 <- str_replace_all(jjep.65.4.433.rm02, pattern = rm.03, replacement = ""); jjep.65.4.433.rm04 <- str_replace_all(jjep.65.4.433.rm03, pattern = rm.04, replacement = ""); jjep.65.4.433.rm05 <- str_replace_all(jjep.65.4.433.rm04, pattern = rm.05, replacement = ""); jjep.65.4.433.rm06 <- str_replace_all(jjep.65.4.433.rm05, pattern = rm.06, replacement = ""); jjep.65.4.433.rm07 <- str_replace_all(jjep.65.4.433.rm06, pattern = rm.07, replacement = ""); jjep.65.4.433.rm08 <- str_replace_all(jjep.65.4.433.rm07, pattern = rm.08, replacement = ""); jjep.65.4.433.rm09 <- str_replace_all(jjep.65.4.433.rm08, pattern = rm.09, replacement = ""); jjep.65.4.433.rp10 <- str_replace_all(jjep.65.4.433.rm09, pattern = rp.01, replacement = "・"); jjep.65.4.433.rp11 <- str_replace_all(jjep.65.4.433.rp10, pattern = rp.02, replacement = "^"); jjep.65.4.433.rp12 <- str_replace_all(jjep.65.4.433.rp11, pattern = rp.03, replacement = "^"); jjep.65.4.433.rp13 <- str_replace_all(jjep.65.4.433.rp12, pattern = rp.04, replacement = "^"); jjep.65.4.433.rp14 <- str_replace_all(jjep.65.4.433.rp13, pattern = rp.05, replacement = "^"); jjep.65.4.433.rp15 <- str_replace_all(jjep.65.4.433.rp14, pattern = rp.06, replacement = "^"); jjep.65.4.433.mod <- rbind(varname,jjep.65.4.433.rp15); write(jjep.65.4.433.mod, file = "./jjep/Mod_65_4_433.txt")
jjep.65.4.451.tx <- readr::read_file(file="./jjep/65_4_451.txt"); jjep.65.4.451.rm00 <- jjep.65.4.451.tx; jjep.65.4.451.rm01 <- str_replace_all(jjep.65.4.451.rm00, pattern = rm.01, replacement = ""); jjep.65.4.451.rm02 <- str_replace_all(jjep.65.4.451.rm01, pattern = rm.02, replacement = "^"); jjep.65.4.451.rm03 <- str_replace_all(jjep.65.4.451.rm02, pattern = rm.03, replacement = ""); jjep.65.4.451.rm04 <- str_replace_all(jjep.65.4.451.rm03, pattern = rm.04, replacement = ""); jjep.65.4.451.rm05 <- str_replace_all(jjep.65.4.451.rm04, pattern = rm.05, replacement = ""); jjep.65.4.451.rm06 <- str_replace_all(jjep.65.4.451.rm05, pattern = rm.06, replacement = ""); jjep.65.4.451.rm07 <- str_replace_all(jjep.65.4.451.rm06, pattern = rm.07, replacement = ""); jjep.65.4.451.rm08 <- str_replace_all(jjep.65.4.451.rm07, pattern = rm.08, replacement = ""); jjep.65.4.451.rm09 <- str_replace_all(jjep.65.4.451.rm08, pattern = rm.09, replacement = ""); jjep.65.4.451.rp10 <- str_replace_all(jjep.65.4.451.rm09, pattern = rp.01, replacement = "・"); jjep.65.4.451.rp11 <- str_replace_all(jjep.65.4.451.rp10, pattern = rp.02, replacement = "^"); jjep.65.4.451.rp12 <- str_replace_all(jjep.65.4.451.rp11, pattern = rp.03, replacement = "^"); jjep.65.4.451.rp13 <- str_replace_all(jjep.65.4.451.rp12, pattern = rp.04, replacement = "^"); jjep.65.4.451.rp14 <- str_replace_all(jjep.65.4.451.rp13, pattern = rp.05, replacement = "^"); jjep.65.4.451.rp15 <- str_replace_all(jjep.65.4.451.rp14, pattern = rp.06, replacement = "^"); jjep.65.4.451.mod <- rbind(varname,jjep.65.4.451.rp15); write(jjep.65.4.451.mod, file = "./jjep/Mod_65_4_451.txt")
jjep.65.4.466.tx <- readr::read_file(file="./jjep/65_4_466.txt"); jjep.65.4.466.rm00 <- jjep.65.4.466.tx; jjep.65.4.466.rm01 <- str_replace_all(jjep.65.4.466.rm00, pattern = rm.01, replacement = ""); jjep.65.4.466.rm02 <- str_replace_all(jjep.65.4.466.rm01, pattern = rm.02, replacement = "^"); jjep.65.4.466.rm03 <- str_replace_all(jjep.65.4.466.rm02, pattern = rm.03, replacement = ""); jjep.65.4.466.rm04 <- str_replace_all(jjep.65.4.466.rm03, pattern = rm.04, replacement = ""); jjep.65.4.466.rm05 <- str_replace_all(jjep.65.4.466.rm04, pattern = rm.05, replacement = ""); jjep.65.4.466.rm06 <- str_replace_all(jjep.65.4.466.rm05, pattern = rm.06, replacement = ""); jjep.65.4.466.rm07 <- str_replace_all(jjep.65.4.466.rm06, pattern = rm.07, replacement = ""); jjep.65.4.466.rm08 <- str_replace_all(jjep.65.4.466.rm07, pattern = rm.08, replacement = ""); jjep.65.4.466.rm09 <- str_replace_all(jjep.65.4.466.rm08, pattern = rm.09, replacement = ""); jjep.65.4.466.rp10 <- str_replace_all(jjep.65.4.466.rm09, pattern = rp.01, replacement = "・"); jjep.65.4.466.rp11 <- str_replace_all(jjep.65.4.466.rp10, pattern = rp.02, replacement = "^"); jjep.65.4.466.rp12 <- str_replace_all(jjep.65.4.466.rp11, pattern = rp.03, replacement = "^"); jjep.65.4.466.rp13 <- str_replace_all(jjep.65.4.466.rp12, pattern = rp.04, replacement = "^"); jjep.65.4.466.rp14 <- str_replace_all(jjep.65.4.466.rp13, pattern = rp.05, replacement = "^"); jjep.65.4.466.rp15 <- str_replace_all(jjep.65.4.466.rp14, pattern = rp.06, replacement = "^"); jjep.65.4.466.mod <- rbind(varname,jjep.65.4.466.rp15); write(jjep.65.4.466.mod, file = "./jjep/Mod_65_4_466.txt")
jjep.65.4.477.tx <- readr::read_file(file="./jjep/65_4_477.txt"); jjep.65.4.477.rm00 <- jjep.65.4.477.tx; jjep.65.4.477.rm01 <- str_replace_all(jjep.65.4.477.rm00, pattern = rm.01, replacement = ""); jjep.65.4.477.rm02 <- str_replace_all(jjep.65.4.477.rm01, pattern = rm.02, replacement = "^"); jjep.65.4.477.rm03 <- str_replace_all(jjep.65.4.477.rm02, pattern = rm.03, replacement = ""); jjep.65.4.477.rm04 <- str_replace_all(jjep.65.4.477.rm03, pattern = rm.04, replacement = ""); jjep.65.4.477.rm05 <- str_replace_all(jjep.65.4.477.rm04, pattern = rm.05, replacement = ""); jjep.65.4.477.rm06 <- str_replace_all(jjep.65.4.477.rm05, pattern = rm.06, replacement = ""); jjep.65.4.477.rm07 <- str_replace_all(jjep.65.4.477.rm06, pattern = rm.07, replacement = ""); jjep.65.4.477.rm08 <- str_replace_all(jjep.65.4.477.rm07, pattern = rm.08, replacement = ""); jjep.65.4.477.rm09 <- str_replace_all(jjep.65.4.477.rm08, pattern = rm.09, replacement = ""); jjep.65.4.477.rp10 <- str_replace_all(jjep.65.4.477.rm09, pattern = rp.01, replacement = "・"); jjep.65.4.477.rp11 <- str_replace_all(jjep.65.4.477.rp10, pattern = rp.02, replacement = "^"); jjep.65.4.477.rp12 <- str_replace_all(jjep.65.4.477.rp11, pattern = rp.03, replacement = "^"); jjep.65.4.477.rp13 <- str_replace_all(jjep.65.4.477.rp12, pattern = rp.04, replacement = "^"); jjep.65.4.477.rp14 <- str_replace_all(jjep.65.4.477.rp13, pattern = rp.05, replacement = "^"); jjep.65.4.477.rp15 <- str_replace_all(jjep.65.4.477.rp14, pattern = rp.06, replacement = "^"); jjep.65.4.477.mod <- rbind(varname,jjep.65.4.477.rp15); write(jjep.65.4.477.mod, file = "./jjep/Mod_65_4_477.txt")
jjep.65.4.489.tx <- readr::read_file(file="./jjep/65_4_489.txt"); jjep.65.4.489.rm00 <- jjep.65.4.489.tx; jjep.65.4.489.rm01 <- str_replace_all(jjep.65.4.489.rm00, pattern = rm.01, replacement = ""); jjep.65.4.489.rm02 <- str_replace_all(jjep.65.4.489.rm01, pattern = rm.02, replacement = "^"); jjep.65.4.489.rm03 <- str_replace_all(jjep.65.4.489.rm02, pattern = rm.03, replacement = ""); jjep.65.4.489.rm04 <- str_replace_all(jjep.65.4.489.rm03, pattern = rm.04, replacement = ""); jjep.65.4.489.rm05 <- str_replace_all(jjep.65.4.489.rm04, pattern = rm.05, replacement = ""); jjep.65.4.489.rm06 <- str_replace_all(jjep.65.4.489.rm05, pattern = rm.06, replacement = ""); jjep.65.4.489.rm07 <- str_replace_all(jjep.65.4.489.rm06, pattern = rm.07, replacement = ""); jjep.65.4.489.rm08 <- str_replace_all(jjep.65.4.489.rm07, pattern = rm.08, replacement = ""); jjep.65.4.489.rm09 <- str_replace_all(jjep.65.4.489.rm08, pattern = rm.09, replacement = ""); jjep.65.4.489.rp10 <- str_replace_all(jjep.65.4.489.rm09, pattern = rp.01, replacement = "・"); jjep.65.4.489.rp11 <- str_replace_all(jjep.65.4.489.rp10, pattern = rp.02, replacement = "^"); jjep.65.4.489.rp12 <- str_replace_all(jjep.65.4.489.rp11, pattern = rp.03, replacement = "^"); jjep.65.4.489.rp13 <- str_replace_all(jjep.65.4.489.rp12, pattern = rp.04, replacement = "^"); jjep.65.4.489.rp14 <- str_replace_all(jjep.65.4.489.rp13, pattern = rp.05, replacement = "^"); jjep.65.4.489.rp15 <- str_replace_all(jjep.65.4.489.rp14, pattern = rp.06, replacement = "^"); jjep.65.4.489.mod <- rbind(varname,jjep.65.4.489.rp15); write(jjep.65.4.489.mod, file = "./jjep/Mod_65_4_489.txt")
jjep.65.4.501.tx <- readr::read_file(file="./jjep/65_4_501.txt"); jjep.65.4.501.rm00 <- jjep.65.4.501.tx; jjep.65.4.501.rm01 <- str_replace_all(jjep.65.4.501.rm00, pattern = rm.01, replacement = ""); jjep.65.4.501.rm02 <- str_replace_all(jjep.65.4.501.rm01, pattern = rm.02, replacement = "^"); jjep.65.4.501.rm03 <- str_replace_all(jjep.65.4.501.rm02, pattern = rm.03, replacement = ""); jjep.65.4.501.rm04 <- str_replace_all(jjep.65.4.501.rm03, pattern = rm.04, replacement = ""); jjep.65.4.501.rm05 <- str_replace_all(jjep.65.4.501.rm04, pattern = rm.05, replacement = ""); jjep.65.4.501.rm06 <- str_replace_all(jjep.65.4.501.rm05, pattern = rm.06, replacement = ""); jjep.65.4.501.rm07 <- str_replace_all(jjep.65.4.501.rm06, pattern = rm.07, replacement = ""); jjep.65.4.501.rm08 <- str_replace_all(jjep.65.4.501.rm07, pattern = rm.08, replacement = ""); jjep.65.4.501.rm09 <- str_replace_all(jjep.65.4.501.rm08, pattern = rm.09, replacement = ""); jjep.65.4.501.rp10 <- str_replace_all(jjep.65.4.501.rm09, pattern = rp.01, replacement = "・"); jjep.65.4.501.rp11 <- str_replace_all(jjep.65.4.501.rp10, pattern = rp.02, replacement = "^"); jjep.65.4.501.rp12 <- str_replace_all(jjep.65.4.501.rp11, pattern = rp.03, replacement = "^"); jjep.65.4.501.rp13 <- str_replace_all(jjep.65.4.501.rp12, pattern = rp.04, replacement = "^"); jjep.65.4.501.rp14 <- str_replace_all(jjep.65.4.501.rp13, pattern = rp.05, replacement = "^"); jjep.65.4.501.rp15 <- str_replace_all(jjep.65.4.501.rp14, pattern = rp.06, replacement = "^"); jjep.65.4.501.mod <- rbind(varname,jjep.65.4.501.rp15); write(jjep.65.4.501.mod, file = "./jjep/Mod_65_4_501.txt")
jjep.65.4.512.tx <- readr::read_file(file="./jjep/65_4_512.txt"); jjep.65.4.512.rm00 <- jjep.65.4.512.tx; jjep.65.4.512.rm01 <- str_replace_all(jjep.65.4.512.rm00, pattern = rm.01, replacement = ""); jjep.65.4.512.rm02 <- str_replace_all(jjep.65.4.512.rm01, pattern = rm.02, replacement = "^"); jjep.65.4.512.rm03 <- str_replace_all(jjep.65.4.512.rm02, pattern = rm.03, replacement = ""); jjep.65.4.512.rm04 <- str_replace_all(jjep.65.4.512.rm03, pattern = rm.04, replacement = ""); jjep.65.4.512.rm05 <- str_replace_all(jjep.65.4.512.rm04, pattern = rm.05, replacement = ""); jjep.65.4.512.rm06 <- str_replace_all(jjep.65.4.512.rm05, pattern = rm.06, replacement = ""); jjep.65.4.512.rm07 <- str_replace_all(jjep.65.4.512.rm06, pattern = rm.07, replacement = ""); jjep.65.4.512.rm08 <- str_replace_all(jjep.65.4.512.rm07, pattern = rm.08, replacement = ""); jjep.65.4.512.rm09 <- str_replace_all(jjep.65.4.512.rm08, pattern = rm.09, replacement = ""); jjep.65.4.512.rp10 <- str_replace_all(jjep.65.4.512.rm09, pattern = rp.01, replacement = "・"); jjep.65.4.512.rp11 <- str_replace_all(jjep.65.4.512.rp10, pattern = rp.02, replacement = "^"); jjep.65.4.512.rp12 <- str_replace_all(jjep.65.4.512.rp11, pattern = rp.03, replacement = "^"); jjep.65.4.512.rp13 <- str_replace_all(jjep.65.4.512.rp12, pattern = rp.04, replacement = "^"); jjep.65.4.512.rp14 <- str_replace_all(jjep.65.4.512.rp13, pattern = rp.05, replacement = "^"); jjep.65.4.512.rp15 <- str_replace_all(jjep.65.4.512.rp14, pattern = rp.06, replacement = "^"); jjep.65.4.512.mod <- rbind(varname,jjep.65.4.512.rp15); write(jjep.65.4.512.mod, file = "./jjep/Mod_65_4_512.txt")
jjep.65.4.526.tx <- readr::read_file(file="./jjep/65_4_526.txt"); jjep.65.4.526.rm00 <- jjep.65.4.526.tx; jjep.65.4.526.rm01 <- str_replace_all(jjep.65.4.526.rm00, pattern = rm.01, replacement = ""); jjep.65.4.526.rm02 <- str_replace_all(jjep.65.4.526.rm01, pattern = rm.02, replacement = "^"); jjep.65.4.526.rm03 <- str_replace_all(jjep.65.4.526.rm02, pattern = rm.03, replacement = ""); jjep.65.4.526.rm04 <- str_replace_all(jjep.65.4.526.rm03, pattern = rm.04, replacement = ""); jjep.65.4.526.rm05 <- str_replace_all(jjep.65.4.526.rm04, pattern = rm.05, replacement = ""); jjep.65.4.526.rm06 <- str_replace_all(jjep.65.4.526.rm05, pattern = rm.06, replacement = ""); jjep.65.4.526.rm07 <- str_replace_all(jjep.65.4.526.rm06, pattern = rm.07, replacement = ""); jjep.65.4.526.rm08 <- str_replace_all(jjep.65.4.526.rm07, pattern = rm.08, replacement = ""); jjep.65.4.526.rm09 <- str_replace_all(jjep.65.4.526.rm08, pattern = rm.09, replacement = ""); jjep.65.4.526.rp10 <- str_replace_all(jjep.65.4.526.rm09, pattern = rp.01, replacement = "・"); jjep.65.4.526.rp11 <- str_replace_all(jjep.65.4.526.rp10, pattern = rp.02, replacement = "^"); jjep.65.4.526.rp12 <- str_replace_all(jjep.65.4.526.rp11, pattern = rp.03, replacement = "^"); jjep.65.4.526.rp13 <- str_replace_all(jjep.65.4.526.rp12, pattern = rp.04, replacement = "^"); jjep.65.4.526.rp14 <- str_replace_all(jjep.65.4.526.rp13, pattern = rp.05, replacement = "^"); jjep.65.4.526.rp15 <- str_replace_all(jjep.65.4.526.rp14, pattern = rp.06, replacement = "^"); jjep.65.4.526.mod <- rbind(varname,jjep.65.4.526.rp15); write(jjep.65.4.526.mod, file = "./jjep/Mod_65_4_526.txt")
jjep.65.3.321.tx <- readr::read_file(file="./jjep/65_3_321.txt"); jjep.65.3.321.rm00 <- jjep.65.3.321.tx; jjep.65.3.321.rm01 <- str_replace_all(jjep.65.3.321.rm00, pattern = rm.01, replacement = ""); jjep.65.3.321.rm02 <- str_replace_all(jjep.65.3.321.rm01, pattern = rm.02, replacement = "^"); jjep.65.3.321.rm03 <- str_replace_all(jjep.65.3.321.rm02, pattern = rm.03, replacement = ""); jjep.65.3.321.rm04 <- str_replace_all(jjep.65.3.321.rm03, pattern = rm.04, replacement = ""); jjep.65.3.321.rm05 <- str_replace_all(jjep.65.3.321.rm04, pattern = rm.05, replacement = ""); jjep.65.3.321.rm06 <- str_replace_all(jjep.65.3.321.rm05, pattern = rm.06, replacement = ""); jjep.65.3.321.rm07 <- str_replace_all(jjep.65.3.321.rm06, pattern = rm.07, replacement = ""); jjep.65.3.321.rm08 <- str_replace_all(jjep.65.3.321.rm07, pattern = rm.08, replacement = ""); jjep.65.3.321.rm09 <- str_replace_all(jjep.65.3.321.rm08, pattern = rm.09, replacement = ""); jjep.65.3.321.rp10 <- str_replace_all(jjep.65.3.321.rm09, pattern = rp.01, replacement = "・"); jjep.65.3.321.rp11 <- str_replace_all(jjep.65.3.321.rp10, pattern = rp.02, replacement = "^"); jjep.65.3.321.rp12 <- str_replace_all(jjep.65.3.321.rp11, pattern = rp.03, replacement = "^"); jjep.65.3.321.rp13 <- str_replace_all(jjep.65.3.321.rp12, pattern = rp.04, replacement = "^"); jjep.65.3.321.rp14 <- str_replace_all(jjep.65.3.321.rp13, pattern = rp.05, replacement = "^"); jjep.65.3.321.rp15 <- str_replace_all(jjep.65.3.321.rp14, pattern = rp.06, replacement = "^"); jjep.65.3.321.mod <- rbind(varname,jjep.65.3.321.rp15); write(jjep.65.3.321.mod, file = "./jjep/Mod_65_3_321.txt")
jjep.65.3.333.tx <- readr::read_file(file="./jjep/65_3_333.txt"); jjep.65.3.333.rm00 <- jjep.65.3.333.tx; jjep.65.3.333.rm01 <- str_replace_all(jjep.65.3.333.rm00, pattern = rm.01, replacement = ""); jjep.65.3.333.rm02 <- str_replace_all(jjep.65.3.333.rm01, pattern = rm.02, replacement = "^"); jjep.65.3.333.rm03 <- str_replace_all(jjep.65.3.333.rm02, pattern = rm.03, replacement = ""); jjep.65.3.333.rm04 <- str_replace_all(jjep.65.3.333.rm03, pattern = rm.04, replacement = ""); jjep.65.3.333.rm05 <- str_replace_all(jjep.65.3.333.rm04, pattern = rm.05, replacement = ""); jjep.65.3.333.rm06 <- str_replace_all(jjep.65.3.333.rm05, pattern = rm.06, replacement = ""); jjep.65.3.333.rm07 <- str_replace_all(jjep.65.3.333.rm06, pattern = rm.07, replacement = ""); jjep.65.3.333.rm08 <- str_replace_all(jjep.65.3.333.rm07, pattern = rm.08, replacement = ""); jjep.65.3.333.rm09 <- str_replace_all(jjep.65.3.333.rm08, pattern = rm.09, replacement = ""); jjep.65.3.333.rp10 <- str_replace_all(jjep.65.3.333.rm09, pattern = rp.01, replacement = "・"); jjep.65.3.333.rp11 <- str_replace_all(jjep.65.3.333.rp10, pattern = rp.02, replacement = "^"); jjep.65.3.333.rp12 <- str_replace_all(jjep.65.3.333.rp11, pattern = rp.03, replacement = "^"); jjep.65.3.333.rp13 <- str_replace_all(jjep.65.3.333.rp12, pattern = rp.04, replacement = "^"); jjep.65.3.333.rp14 <- str_replace_all(jjep.65.3.333.rp13, pattern = rp.05, replacement = "^"); jjep.65.3.333.rp15 <- str_replace_all(jjep.65.3.333.rp14, pattern = rp.06, replacement = "^"); jjep.65.3.333.mod <- rbind(varname,jjep.65.3.333.rp15); write(jjep.65.3.333.mod, file = "./jjep/Mod_65_3_333.txt")
jjep.65.3.346.tx <- readr::read_file(file="./jjep/65_3_346.txt"); jjep.65.3.346.rm00 <- jjep.65.3.346.tx; jjep.65.3.346.rm01 <- str_replace_all(jjep.65.3.346.rm00, pattern = rm.01, replacement = ""); jjep.65.3.346.rm02 <- str_replace_all(jjep.65.3.346.rm01, pattern = rm.02, replacement = "^"); jjep.65.3.346.rm03 <- str_replace_all(jjep.65.3.346.rm02, pattern = rm.03, replacement = ""); jjep.65.3.346.rm04 <- str_replace_all(jjep.65.3.346.rm03, pattern = rm.04, replacement = ""); jjep.65.3.346.rm05 <- str_replace_all(jjep.65.3.346.rm04, pattern = rm.05, replacement = ""); jjep.65.3.346.rm06 <- str_replace_all(jjep.65.3.346.rm05, pattern = rm.06, replacement = ""); jjep.65.3.346.rm07 <- str_replace_all(jjep.65.3.346.rm06, pattern = rm.07, replacement = ""); jjep.65.3.346.rm08 <- str_replace_all(jjep.65.3.346.rm07, pattern = rm.08, replacement = ""); jjep.65.3.346.rm09 <- str_replace_all(jjep.65.3.346.rm08, pattern = rm.09, replacement = ""); jjep.65.3.346.rp10 <- str_replace_all(jjep.65.3.346.rm09, pattern = rp.01, replacement = "・"); jjep.65.3.346.rp11 <- str_replace_all(jjep.65.3.346.rp10, pattern = rp.02, replacement = "^"); jjep.65.3.346.rp12 <- str_replace_all(jjep.65.3.346.rp11, pattern = rp.03, replacement = "^"); jjep.65.3.346.rp13 <- str_replace_all(jjep.65.3.346.rp12, pattern = rp.04, replacement = "^"); jjep.65.3.346.rp14 <- str_replace_all(jjep.65.3.346.rp13, pattern = rp.05, replacement = "^"); jjep.65.3.346.rp15 <- str_replace_all(jjep.65.3.346.rp14, pattern = rp.06, replacement = "^"); jjep.65.3.346.mod <- rbind(varname,jjep.65.3.346.rp15); write(jjep.65.3.346.mod, file = "./jjep/Mod_65_3_346.txt")
jjep.65.3.361.tx <- readr::read_file(file="./jjep/65_3_361.txt"); jjep.65.3.361.rm00 <- jjep.65.3.361.tx; jjep.65.3.361.rm01 <- str_replace_all(jjep.65.3.361.rm00, pattern = rm.01, replacement = ""); jjep.65.3.361.rm02 <- str_replace_all(jjep.65.3.361.rm01, pattern = rm.02, replacement = "^"); jjep.65.3.361.rm03 <- str_replace_all(jjep.65.3.361.rm02, pattern = rm.03, replacement = ""); jjep.65.3.361.rm04 <- str_replace_all(jjep.65.3.361.rm03, pattern = rm.04, replacement = ""); jjep.65.3.361.rm05 <- str_replace_all(jjep.65.3.361.rm04, pattern = rm.05, replacement = ""); jjep.65.3.361.rm06 <- str_replace_all(jjep.65.3.361.rm05, pattern = rm.06, replacement = ""); jjep.65.3.361.rm07 <- str_replace_all(jjep.65.3.361.rm06, pattern = rm.07, replacement = ""); jjep.65.3.361.rm08 <- str_replace_all(jjep.65.3.361.rm07, pattern = rm.08, replacement = ""); jjep.65.3.361.rm09 <- str_replace_all(jjep.65.3.361.rm08, pattern = rm.09, replacement = ""); jjep.65.3.361.rp10 <- str_replace_all(jjep.65.3.361.rm09, pattern = rp.01, replacement = "・"); jjep.65.3.361.rp11 <- str_replace_all(jjep.65.3.361.rp10, pattern = rp.02, replacement = "^"); jjep.65.3.361.rp12 <- str_replace_all(jjep.65.3.361.rp11, pattern = rp.03, replacement = "^"); jjep.65.3.361.rp13 <- str_replace_all(jjep.65.3.361.rp12, pattern = rp.04, replacement = "^"); jjep.65.3.361.rp14 <- str_replace_all(jjep.65.3.361.rp13, pattern = rp.05, replacement = "^"); jjep.65.3.361.rp15 <- str_replace_all(jjep.65.3.361.rp14, pattern = rp.06, replacement = "^"); jjep.65.3.361.mod <- rbind(varname,jjep.65.3.361.rp15); write(jjep.65.3.361.mod, file = "./jjep/Mod_65_3_361.txt")
jjep.65.3.375.tx <- readr::read_file(file="./jjep/65_3_375.txt"); jjep.65.3.375.rm00 <- jjep.65.3.375.tx; jjep.65.3.375.rm01 <- str_replace_all(jjep.65.3.375.rm00, pattern = rm.01, replacement = ""); jjep.65.3.375.rm02 <- str_replace_all(jjep.65.3.375.rm01, pattern = rm.02, replacement = "^"); jjep.65.3.375.rm03 <- str_replace_all(jjep.65.3.375.rm02, pattern = rm.03, replacement = ""); jjep.65.3.375.rm04 <- str_replace_all(jjep.65.3.375.rm03, pattern = rm.04, replacement = ""); jjep.65.3.375.rm05 <- str_replace_all(jjep.65.3.375.rm04, pattern = rm.05, replacement = ""); jjep.65.3.375.rm06 <- str_replace_all(jjep.65.3.375.rm05, pattern = rm.06, replacement = ""); jjep.65.3.375.rm07 <- str_replace_all(jjep.65.3.375.rm06, pattern = rm.07, replacement = ""); jjep.65.3.375.rm08 <- str_replace_all(jjep.65.3.375.rm07, pattern = rm.08, replacement = ""); jjep.65.3.375.rm09 <- str_replace_all(jjep.65.3.375.rm08, pattern = rm.09, replacement = ""); jjep.65.3.375.rp10 <- str_replace_all(jjep.65.3.375.rm09, pattern = rp.01, replacement = "・"); jjep.65.3.375.rp11 <- str_replace_all(jjep.65.3.375.rp10, pattern = rp.02, replacement = "^"); jjep.65.3.375.rp12 <- str_replace_all(jjep.65.3.375.rp11, pattern = rp.03, replacement = "^"); jjep.65.3.375.rp13 <- str_replace_all(jjep.65.3.375.rp12, pattern = rp.04, replacement = "^"); jjep.65.3.375.rp14 <- str_replace_all(jjep.65.3.375.rp13, pattern = rp.05, replacement = "^"); jjep.65.3.375.rp15 <- str_replace_all(jjep.65.3.375.rp14, pattern = rp.06, replacement = "^"); jjep.65.3.375.mod <- rbind(varname,jjep.65.3.375.rp15); write(jjep.65.3.375.mod, file = "./jjep/Mod_65_3_375.txt")
jjep.65.3.388.tx <- readr::read_file(file="./jjep/65_3_388.txt"); jjep.65.3.388.rm00 <- jjep.65.3.388.tx; jjep.65.3.388.rm01 <- str_replace_all(jjep.65.3.388.rm00, pattern = rm.01, replacement = ""); jjep.65.3.388.rm02 <- str_replace_all(jjep.65.3.388.rm01, pattern = rm.02, replacement = "^"); jjep.65.3.388.rm03 <- str_replace_all(jjep.65.3.388.rm02, pattern = rm.03, replacement = ""); jjep.65.3.388.rm04 <- str_replace_all(jjep.65.3.388.rm03, pattern = rm.04, replacement = ""); jjep.65.3.388.rm05 <- str_replace_all(jjep.65.3.388.rm04, pattern = rm.05, replacement = ""); jjep.65.3.388.rm06 <- str_replace_all(jjep.65.3.388.rm05, pattern = rm.06, replacement = ""); jjep.65.3.388.rm07 <- str_replace_all(jjep.65.3.388.rm06, pattern = rm.07, replacement = ""); jjep.65.3.388.rm08 <- str_replace_all(jjep.65.3.388.rm07, pattern = rm.08, replacement = ""); jjep.65.3.388.rm09 <- str_replace_all(jjep.65.3.388.rm08, pattern = rm.09, replacement = ""); jjep.65.3.388.rp10 <- str_replace_all(jjep.65.3.388.rm09, pattern = rp.01, replacement = "・"); jjep.65.3.388.rp11 <- str_replace_all(jjep.65.3.388.rp10, pattern = rp.02, replacement = "^"); jjep.65.3.388.rp12 <- str_replace_all(jjep.65.3.388.rp11, pattern = rp.03, replacement = "^"); jjep.65.3.388.rp13 <- str_replace_all(jjep.65.3.388.rp12, pattern = rp.04, replacement = "^"); jjep.65.3.388.rp14 <- str_replace_all(jjep.65.3.388.rp13, pattern = rp.05, replacement = "^"); jjep.65.3.388.rp15 <- str_replace_all(jjep.65.3.388.rp14, pattern = rp.06, replacement = "^"); jjep.65.3.388.mod <- rbind(varname,jjep.65.3.388.rp15); write(jjep.65.3.388.mod, file = "./jjep/Mod_65_3_388.txt")
jjep.65.3.401.tx <- readr::read_file(file="./jjep/65_3_401.txt"); jjep.65.3.401.rm00 <- jjep.65.3.401.tx; jjep.65.3.401.rm01 <- str_replace_all(jjep.65.3.401.rm00, pattern = rm.01, replacement = ""); jjep.65.3.401.rm02 <- str_replace_all(jjep.65.3.401.rm01, pattern = rm.02, replacement = "^"); jjep.65.3.401.rm03 <- str_replace_all(jjep.65.3.401.rm02, pattern = rm.03, replacement = ""); jjep.65.3.401.rm04 <- str_replace_all(jjep.65.3.401.rm03, pattern = rm.04, replacement = ""); jjep.65.3.401.rm05 <- str_replace_all(jjep.65.3.401.rm04, pattern = rm.05, replacement = ""); jjep.65.3.401.rm06 <- str_replace_all(jjep.65.3.401.rm05, pattern = rm.06, replacement = ""); jjep.65.3.401.rm07 <- str_replace_all(jjep.65.3.401.rm06, pattern = rm.07, replacement = ""); jjep.65.3.401.rm08 <- str_replace_all(jjep.65.3.401.rm07, pattern = rm.08, replacement = ""); jjep.65.3.401.rm09 <- str_replace_all(jjep.65.3.401.rm08, pattern = rm.09, replacement = ""); jjep.65.3.401.rp10 <- str_replace_all(jjep.65.3.401.rm09, pattern = rp.01, replacement = "・"); jjep.65.3.401.rp11 <- str_replace_all(jjep.65.3.401.rp10, pattern = rp.02, replacement = "^"); jjep.65.3.401.rp12 <- str_replace_all(jjep.65.3.401.rp11, pattern = rp.03, replacement = "^"); jjep.65.3.401.rp13 <- str_replace_all(jjep.65.3.401.rp12, pattern = rp.04, replacement = "^"); jjep.65.3.401.rp14 <- str_replace_all(jjep.65.3.401.rp13, pattern = rp.05, replacement = "^"); jjep.65.3.401.rp15 <- str_replace_all(jjep.65.3.401.rp14, pattern = rp.06, replacement = "^"); jjep.65.3.401.mod <- rbind(varname,jjep.65.3.401.rp15); write(jjep.65.3.401.mod, file = "./jjep/Mod_65_3_401.txt")
jjep.65.3.414.tx <- readr::read_file(file="./jjep/65_3_414.txt"); jjep.65.3.414.rm00 <- jjep.65.3.414.tx; jjep.65.3.414.rm01 <- str_replace_all(jjep.65.3.414.rm00, pattern = rm.01, replacement = ""); jjep.65.3.414.rm02 <- str_replace_all(jjep.65.3.414.rm01, pattern = rm.02, replacement = "^"); jjep.65.3.414.rm03 <- str_replace_all(jjep.65.3.414.rm02, pattern = rm.03, replacement = ""); jjep.65.3.414.rm04 <- str_replace_all(jjep.65.3.414.rm03, pattern = rm.04, replacement = ""); jjep.65.3.414.rm05 <- str_replace_all(jjep.65.3.414.rm04, pattern = rm.05, replacement = ""); jjep.65.3.414.rm06 <- str_replace_all(jjep.65.3.414.rm05, pattern = rm.06, replacement = ""); jjep.65.3.414.rm07 <- str_replace_all(jjep.65.3.414.rm06, pattern = rm.07, replacement = ""); jjep.65.3.414.rm08 <- str_replace_all(jjep.65.3.414.rm07, pattern = rm.08, replacement = ""); jjep.65.3.414.rm09 <- str_replace_all(jjep.65.3.414.rm08, pattern = rm.09, replacement = ""); jjep.65.3.414.rp10 <- str_replace_all(jjep.65.3.414.rm09, pattern = rp.01, replacement = "・"); jjep.65.3.414.rp11 <- str_replace_all(jjep.65.3.414.rp10, pattern = rp.02, replacement = "^"); jjep.65.3.414.rp12 <- str_replace_all(jjep.65.3.414.rp11, pattern = rp.03, replacement = "^"); jjep.65.3.414.rp13 <- str_replace_all(jjep.65.3.414.rp12, pattern = rp.04, replacement = "^"); jjep.65.3.414.rp14 <- str_replace_all(jjep.65.3.414.rp13, pattern = rp.05, replacement = "^"); jjep.65.3.414.rp15 <- str_replace_all(jjep.65.3.414.rp14, pattern = rp.06, replacement = "^"); jjep.65.3.414.mod <- rbind(varname,jjep.65.3.414.rp15); write(jjep.65.3.414.mod, file = "./jjep/Mod_65_3_414.txt")
jjep.65.2.167.tx <- readr::read_file(file="./jjep/65_2_167.txt"); jjep.65.2.167.rm00 <- jjep.65.2.167.tx; jjep.65.2.167.rm01 <- str_replace_all(jjep.65.2.167.rm00, pattern = rm.01, replacement = ""); jjep.65.2.167.rm02 <- str_replace_all(jjep.65.2.167.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.167.rm03 <- str_replace_all(jjep.65.2.167.rm02, pattern = rm.03, replacement = ""); jjep.65.2.167.rm04 <- str_replace_all(jjep.65.2.167.rm03, pattern = rm.04, replacement = ""); jjep.65.2.167.rm05 <- str_replace_all(jjep.65.2.167.rm04, pattern = rm.05, replacement = ""); jjep.65.2.167.rm06 <- str_replace_all(jjep.65.2.167.rm05, pattern = rm.06, replacement = ""); jjep.65.2.167.rm07 <- str_replace_all(jjep.65.2.167.rm06, pattern = rm.07, replacement = ""); jjep.65.2.167.rm08 <- str_replace_all(jjep.65.2.167.rm07, pattern = rm.08, replacement = ""); jjep.65.2.167.rm09 <- str_replace_all(jjep.65.2.167.rm08, pattern = rm.09, replacement = ""); jjep.65.2.167.rp10 <- str_replace_all(jjep.65.2.167.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.167.rp11 <- str_replace_all(jjep.65.2.167.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.167.rp12 <- str_replace_all(jjep.65.2.167.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.167.rp13 <- str_replace_all(jjep.65.2.167.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.167.rp14 <- str_replace_all(jjep.65.2.167.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.167.rp15 <- str_replace_all(jjep.65.2.167.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.167.mod <- rbind(varname,jjep.65.2.167.rp15); write(jjep.65.2.167.mod, file = "./jjep/Mod_65_2_167.txt")
jjep.65.2.183.tx <- readr::read_file(file="./jjep/65_2_183.txt"); jjep.65.2.183.rm00 <- jjep.65.2.183.tx; jjep.65.2.183.rm01 <- str_replace_all(jjep.65.2.183.rm00, pattern = rm.01, replacement = ""); jjep.65.2.183.rm02 <- str_replace_all(jjep.65.2.183.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.183.rm03 <- str_replace_all(jjep.65.2.183.rm02, pattern = rm.03, replacement = ""); jjep.65.2.183.rm04 <- str_replace_all(jjep.65.2.183.rm03, pattern = rm.04, replacement = ""); jjep.65.2.183.rm05 <- str_replace_all(jjep.65.2.183.rm04, pattern = rm.05, replacement = ""); jjep.65.2.183.rm06 <- str_replace_all(jjep.65.2.183.rm05, pattern = rm.06, replacement = ""); jjep.65.2.183.rm07 <- str_replace_all(jjep.65.2.183.rm06, pattern = rm.07, replacement = ""); jjep.65.2.183.rm08 <- str_replace_all(jjep.65.2.183.rm07, pattern = rm.08, replacement = ""); jjep.65.2.183.rm09 <- str_replace_all(jjep.65.2.183.rm08, pattern = rm.09, replacement = ""); jjep.65.2.183.rp10 <- str_replace_all(jjep.65.2.183.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.183.rp11 <- str_replace_all(jjep.65.2.183.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.183.rp12 <- str_replace_all(jjep.65.2.183.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.183.rp13 <- str_replace_all(jjep.65.2.183.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.183.rp14 <- str_replace_all(jjep.65.2.183.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.183.rp15 <- str_replace_all(jjep.65.2.183.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.183.mod <- rbind(varname,jjep.65.2.183.rp15); write(jjep.65.2.183.mod, file = "./jjep/Mod_65_2_183.txt")
jjep.65.2.197.tx <- readr::read_file(file="./jjep/65_2_197.txt"); jjep.65.2.197.rm00 <- jjep.65.2.197.tx; jjep.65.2.197.rm01 <- str_replace_all(jjep.65.2.197.rm00, pattern = rm.01, replacement = ""); jjep.65.2.197.rm02 <- str_replace_all(jjep.65.2.197.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.197.rm03 <- str_replace_all(jjep.65.2.197.rm02, pattern = rm.03, replacement = ""); jjep.65.2.197.rm04 <- str_replace_all(jjep.65.2.197.rm03, pattern = rm.04, replacement = ""); jjep.65.2.197.rm05 <- str_replace_all(jjep.65.2.197.rm04, pattern = rm.05, replacement = ""); jjep.65.2.197.rm06 <- str_replace_all(jjep.65.2.197.rm05, pattern = rm.06, replacement = ""); jjep.65.2.197.rm07 <- str_replace_all(jjep.65.2.197.rm06, pattern = rm.07, replacement = ""); jjep.65.2.197.rm08 <- str_replace_all(jjep.65.2.197.rm07, pattern = rm.08, replacement = ""); jjep.65.2.197.rm09 <- str_replace_all(jjep.65.2.197.rm08, pattern = rm.09, replacement = ""); jjep.65.2.197.rp10 <- str_replace_all(jjep.65.2.197.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.197.rp11 <- str_replace_all(jjep.65.2.197.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.197.rp12 <- str_replace_all(jjep.65.2.197.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.197.rp13 <- str_replace_all(jjep.65.2.197.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.197.rp14 <- str_replace_all(jjep.65.2.197.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.197.rp15 <- str_replace_all(jjep.65.2.197.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.197.mod <- rbind(varname,jjep.65.2.197.rp15); write(jjep.65.2.197.mod, file = "./jjep/Mod_65_2_197.txt")
jjep.65.2.211.tx <- readr::read_file(file="./jjep/65_2_211.txt"); jjep.65.2.211.rm00 <- jjep.65.2.211.tx; jjep.65.2.211.rm01 <- str_replace_all(jjep.65.2.211.rm00, pattern = rm.01, replacement = ""); jjep.65.2.211.rm02 <- str_replace_all(jjep.65.2.211.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.211.rm03 <- str_replace_all(jjep.65.2.211.rm02, pattern = rm.03, replacement = ""); jjep.65.2.211.rm04 <- str_replace_all(jjep.65.2.211.rm03, pattern = rm.04, replacement = ""); jjep.65.2.211.rm05 <- str_replace_all(jjep.65.2.211.rm04, pattern = rm.05, replacement = ""); jjep.65.2.211.rm06 <- str_replace_all(jjep.65.2.211.rm05, pattern = rm.06, replacement = ""); jjep.65.2.211.rm07 <- str_replace_all(jjep.65.2.211.rm06, pattern = rm.07, replacement = ""); jjep.65.2.211.rm08 <- str_replace_all(jjep.65.2.211.rm07, pattern = rm.08, replacement = ""); jjep.65.2.211.rm09 <- str_replace_all(jjep.65.2.211.rm08, pattern = rm.09, replacement = ""); jjep.65.2.211.rp10 <- str_replace_all(jjep.65.2.211.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.211.rp11 <- str_replace_all(jjep.65.2.211.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.211.rp12 <- str_replace_all(jjep.65.2.211.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.211.rp13 <- str_replace_all(jjep.65.2.211.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.211.rp14 <- str_replace_all(jjep.65.2.211.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.211.rp15 <- str_replace_all(jjep.65.2.211.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.211.mod <- rbind(varname,jjep.65.2.211.rp15); write(jjep.65.2.211.mod, file = "./jjep/Mod_65_2_211.txt")
jjep.65.2.225.tx <- readr::read_file(file="./jjep/65_2_225.txt"); jjep.65.2.225.rm00 <- jjep.65.2.225.tx; jjep.65.2.225.rm01 <- str_replace_all(jjep.65.2.225.rm00, pattern = rm.01, replacement = ""); jjep.65.2.225.rm02 <- str_replace_all(jjep.65.2.225.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.225.rm03 <- str_replace_all(jjep.65.2.225.rm02, pattern = rm.03, replacement = ""); jjep.65.2.225.rm04 <- str_replace_all(jjep.65.2.225.rm03, pattern = rm.04, replacement = ""); jjep.65.2.225.rm05 <- str_replace_all(jjep.65.2.225.rm04, pattern = rm.05, replacement = ""); jjep.65.2.225.rm06 <- str_replace_all(jjep.65.2.225.rm05, pattern = rm.06, replacement = ""); jjep.65.2.225.rm07 <- str_replace_all(jjep.65.2.225.rm06, pattern = rm.07, replacement = ""); jjep.65.2.225.rm08 <- str_replace_all(jjep.65.2.225.rm07, pattern = rm.08, replacement = ""); jjep.65.2.225.rm09 <- str_replace_all(jjep.65.2.225.rm08, pattern = rm.09, replacement = ""); jjep.65.2.225.rp10 <- str_replace_all(jjep.65.2.225.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.225.rp11 <- str_replace_all(jjep.65.2.225.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.225.rp12 <- str_replace_all(jjep.65.2.225.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.225.rp13 <- str_replace_all(jjep.65.2.225.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.225.rp14 <- str_replace_all(jjep.65.2.225.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.225.rp15 <- str_replace_all(jjep.65.2.225.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.225.mod <- rbind(varname,jjep.65.2.225.rp15); write(jjep.65.2.225.mod, file = "./jjep/Mod_65_2_225.txt")
jjep.65.2.239.tx <- readr::read_file(file="./jjep/65_2_239.txt"); jjep.65.2.239.rm00 <- jjep.65.2.239.tx; jjep.65.2.239.rm01 <- str_replace_all(jjep.65.2.239.rm00, pattern = rm.01, replacement = ""); jjep.65.2.239.rm02 <- str_replace_all(jjep.65.2.239.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.239.rm03 <- str_replace_all(jjep.65.2.239.rm02, pattern = rm.03, replacement = ""); jjep.65.2.239.rm04 <- str_replace_all(jjep.65.2.239.rm03, pattern = rm.04, replacement = ""); jjep.65.2.239.rm05 <- str_replace_all(jjep.65.2.239.rm04, pattern = rm.05, replacement = ""); jjep.65.2.239.rm06 <- str_replace_all(jjep.65.2.239.rm05, pattern = rm.06, replacement = ""); jjep.65.2.239.rm07 <- str_replace_all(jjep.65.2.239.rm06, pattern = rm.07, replacement = ""); jjep.65.2.239.rm08 <- str_replace_all(jjep.65.2.239.rm07, pattern = rm.08, replacement = ""); jjep.65.2.239.rm09 <- str_replace_all(jjep.65.2.239.rm08, pattern = rm.09, replacement = ""); jjep.65.2.239.rp10 <- str_replace_all(jjep.65.2.239.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.239.rp11 <- str_replace_all(jjep.65.2.239.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.239.rp12 <- str_replace_all(jjep.65.2.239.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.239.rp13 <- str_replace_all(jjep.65.2.239.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.239.rp14 <- str_replace_all(jjep.65.2.239.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.239.rp15 <- str_replace_all(jjep.65.2.239.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.239.mod <- rbind(varname,jjep.65.2.239.rp15); write(jjep.65.2.239.mod, file = "./jjep/Mod_65_2_239.txt")
jjep.65.2.248.tx <- readr::read_file(file="./jjep/65_2_248.txt"); jjep.65.2.248.rm00 <- jjep.65.2.248.tx; jjep.65.2.248.rm01 <- str_replace_all(jjep.65.2.248.rm00, pattern = rm.01, replacement = ""); jjep.65.2.248.rm02 <- str_replace_all(jjep.65.2.248.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.248.rm03 <- str_replace_all(jjep.65.2.248.rm02, pattern = rm.03, replacement = ""); jjep.65.2.248.rm04 <- str_replace_all(jjep.65.2.248.rm03, pattern = rm.04, replacement = ""); jjep.65.2.248.rm05 <- str_replace_all(jjep.65.2.248.rm04, pattern = rm.05, replacement = ""); jjep.65.2.248.rm06 <- str_replace_all(jjep.65.2.248.rm05, pattern = rm.06, replacement = ""); jjep.65.2.248.rm07 <- str_replace_all(jjep.65.2.248.rm06, pattern = rm.07, replacement = ""); jjep.65.2.248.rm08 <- str_replace_all(jjep.65.2.248.rm07, pattern = rm.08, replacement = ""); jjep.65.2.248.rm09 <- str_replace_all(jjep.65.2.248.rm08, pattern = rm.09, replacement = ""); jjep.65.2.248.rp10 <- str_replace_all(jjep.65.2.248.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.248.rp11 <- str_replace_all(jjep.65.2.248.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.248.rp12 <- str_replace_all(jjep.65.2.248.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.248.rp13 <- str_replace_all(jjep.65.2.248.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.248.rp14 <- str_replace_all(jjep.65.2.248.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.248.rp15 <- str_replace_all(jjep.65.2.248.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.248.mod <- rbind(varname,jjep.65.2.248.rp15); write(jjep.65.2.248.mod, file = "./jjep/Mod_65_2_248.txt")
jjep.65.2.265.tx <- readr::read_file(file="./jjep/65_2_265.txt"); jjep.65.2.265.rm00 <- jjep.65.2.265.tx; jjep.65.2.265.rm01 <- str_replace_all(jjep.65.2.265.rm00, pattern = rm.01, replacement = ""); jjep.65.2.265.rm02 <- str_replace_all(jjep.65.2.265.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.265.rm03 <- str_replace_all(jjep.65.2.265.rm02, pattern = rm.03, replacement = ""); jjep.65.2.265.rm04 <- str_replace_all(jjep.65.2.265.rm03, pattern = rm.04, replacement = ""); jjep.65.2.265.rm05 <- str_replace_all(jjep.65.2.265.rm04, pattern = rm.05, replacement = ""); jjep.65.2.265.rm06 <- str_replace_all(jjep.65.2.265.rm05, pattern = rm.06, replacement = ""); jjep.65.2.265.rm07 <- str_replace_all(jjep.65.2.265.rm06, pattern = rm.07, replacement = ""); jjep.65.2.265.rm08 <- str_replace_all(jjep.65.2.265.rm07, pattern = rm.08, replacement = ""); jjep.65.2.265.rm09 <- str_replace_all(jjep.65.2.265.rm08, pattern = rm.09, replacement = ""); jjep.65.2.265.rp10 <- str_replace_all(jjep.65.2.265.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.265.rp11 <- str_replace_all(jjep.65.2.265.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.265.rp12 <- str_replace_all(jjep.65.2.265.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.265.rp13 <- str_replace_all(jjep.65.2.265.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.265.rp14 <- str_replace_all(jjep.65.2.265.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.265.rp15 <- str_replace_all(jjep.65.2.265.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.265.mod <- rbind(varname,jjep.65.2.265.rp15); write(jjep.65.2.265.mod, file = "./jjep/Mod_65_2_265.txt")
jjep.65.2.281.tx <- readr::read_file(file="./jjep/65_2_281.txt"); jjep.65.2.281.rm00 <- jjep.65.2.281.tx; jjep.65.2.281.rm01 <- str_replace_all(jjep.65.2.281.rm00, pattern = rm.01, replacement = ""); jjep.65.2.281.rm02 <- str_replace_all(jjep.65.2.281.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.281.rm03 <- str_replace_all(jjep.65.2.281.rm02, pattern = rm.03, replacement = ""); jjep.65.2.281.rm04 <- str_replace_all(jjep.65.2.281.rm03, pattern = rm.04, replacement = ""); jjep.65.2.281.rm05 <- str_replace_all(jjep.65.2.281.rm04, pattern = rm.05, replacement = ""); jjep.65.2.281.rm06 <- str_replace_all(jjep.65.2.281.rm05, pattern = rm.06, replacement = ""); jjep.65.2.281.rm07 <- str_replace_all(jjep.65.2.281.rm06, pattern = rm.07, replacement = ""); jjep.65.2.281.rm08 <- str_replace_all(jjep.65.2.281.rm07, pattern = rm.08, replacement = ""); jjep.65.2.281.rm09 <- str_replace_all(jjep.65.2.281.rm08, pattern = rm.09, replacement = ""); jjep.65.2.281.rp10 <- str_replace_all(jjep.65.2.281.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.281.rp11 <- str_replace_all(jjep.65.2.281.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.281.rp12 <- str_replace_all(jjep.65.2.281.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.281.rp13 <- str_replace_all(jjep.65.2.281.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.281.rp14 <- str_replace_all(jjep.65.2.281.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.281.rp15 <- str_replace_all(jjep.65.2.281.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.281.mod <- rbind(varname,jjep.65.2.281.rp15); write(jjep.65.2.281.mod, file = "./jjep/Mod_65_2_281.txt")
jjep.65.2.295.tx <- readr::read_file(file="./jjep/65_2_295.txt"); jjep.65.2.295.rm00 <- jjep.65.2.295.tx; jjep.65.2.295.rm01 <- str_replace_all(jjep.65.2.295.rm00, pattern = rm.01, replacement = ""); jjep.65.2.295.rm02 <- str_replace_all(jjep.65.2.295.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.295.rm03 <- str_replace_all(jjep.65.2.295.rm02, pattern = rm.03, replacement = ""); jjep.65.2.295.rm04 <- str_replace_all(jjep.65.2.295.rm03, pattern = rm.04, replacement = ""); jjep.65.2.295.rm05 <- str_replace_all(jjep.65.2.295.rm04, pattern = rm.05, replacement = ""); jjep.65.2.295.rm06 <- str_replace_all(jjep.65.2.295.rm05, pattern = rm.06, replacement = ""); jjep.65.2.295.rm07 <- str_replace_all(jjep.65.2.295.rm06, pattern = rm.07, replacement = ""); jjep.65.2.295.rm08 <- str_replace_all(jjep.65.2.295.rm07, pattern = rm.08, replacement = ""); jjep.65.2.295.rm09 <- str_replace_all(jjep.65.2.295.rm08, pattern = rm.09, replacement = ""); jjep.65.2.295.rp10 <- str_replace_all(jjep.65.2.295.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.295.rp11 <- str_replace_all(jjep.65.2.295.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.295.rp12 <- str_replace_all(jjep.65.2.295.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.295.rp13 <- str_replace_all(jjep.65.2.295.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.295.rp14 <- str_replace_all(jjep.65.2.295.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.295.rp15 <- str_replace_all(jjep.65.2.295.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.295.mod <- rbind(varname,jjep.65.2.295.rp15); write(jjep.65.2.295.mod, file = "./jjep/Mod_65_2_295.txt")
jjep.65.2.305.tx <- readr::read_file(file="./jjep/65_2_305.txt"); jjep.65.2.305.rm00 <- jjep.65.2.305.tx; jjep.65.2.305.rm01 <- str_replace_all(jjep.65.2.305.rm00, pattern = rm.01, replacement = ""); jjep.65.2.305.rm02 <- str_replace_all(jjep.65.2.305.rm01, pattern = rm.02, replacement = "^"); jjep.65.2.305.rm03 <- str_replace_all(jjep.65.2.305.rm02, pattern = rm.03, replacement = ""); jjep.65.2.305.rm04 <- str_replace_all(jjep.65.2.305.rm03, pattern = rm.04, replacement = ""); jjep.65.2.305.rm05 <- str_replace_all(jjep.65.2.305.rm04, pattern = rm.05, replacement = ""); jjep.65.2.305.rm06 <- str_replace_all(jjep.65.2.305.rm05, pattern = rm.06, replacement = ""); jjep.65.2.305.rm07 <- str_replace_all(jjep.65.2.305.rm06, pattern = rm.07, replacement = ""); jjep.65.2.305.rm08 <- str_replace_all(jjep.65.2.305.rm07, pattern = rm.08, replacement = ""); jjep.65.2.305.rm09 <- str_replace_all(jjep.65.2.305.rm08, pattern = rm.09, replacement = ""); jjep.65.2.305.rp10 <- str_replace_all(jjep.65.2.305.rm09, pattern = rp.01, replacement = "・"); jjep.65.2.305.rp11 <- str_replace_all(jjep.65.2.305.rp10, pattern = rp.02, replacement = "^"); jjep.65.2.305.rp12 <- str_replace_all(jjep.65.2.305.rp11, pattern = rp.03, replacement = "^"); jjep.65.2.305.rp13 <- str_replace_all(jjep.65.2.305.rp12, pattern = rp.04, replacement = "^"); jjep.65.2.305.rp14 <- str_replace_all(jjep.65.2.305.rp13, pattern = rp.05, replacement = "^"); jjep.65.2.305.rp15 <- str_replace_all(jjep.65.2.305.rp14, pattern = rp.06, replacement = "^"); jjep.65.2.305.mod <- rbind(varname,jjep.65.2.305.rp15); write(jjep.65.2.305.mod, file = "./jjep/Mod_65_2_305.txt")
jjep.65.1.1.tx <- readr::read_file(file="./jjep/65_1_1.txt"); jjep.65.1.1.rm00 <- jjep.65.1.1.tx; jjep.65.1.1.rm01 <- str_replace_all(jjep.65.1.1.rm00, pattern = rm.01, replacement = ""); jjep.65.1.1.rm02 <- str_replace_all(jjep.65.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.1.rm03 <- str_replace_all(jjep.65.1.1.rm02, pattern = rm.03, replacement = ""); jjep.65.1.1.rm04 <- str_replace_all(jjep.65.1.1.rm03, pattern = rm.04, replacement = ""); jjep.65.1.1.rm05 <- str_replace_all(jjep.65.1.1.rm04, pattern = rm.05, replacement = ""); jjep.65.1.1.rm06 <- str_replace_all(jjep.65.1.1.rm05, pattern = rm.06, replacement = ""); jjep.65.1.1.rm07 <- str_replace_all(jjep.65.1.1.rm06, pattern = rm.07, replacement = ""); jjep.65.1.1.rm08 <- str_replace_all(jjep.65.1.1.rm07, pattern = rm.08, replacement = ""); jjep.65.1.1.rm09 <- str_replace_all(jjep.65.1.1.rm08, pattern = rm.09, replacement = ""); jjep.65.1.1.rp10 <- str_replace_all(jjep.65.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.1.rp11 <- str_replace_all(jjep.65.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.1.rp12 <- str_replace_all(jjep.65.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.1.rp13 <- str_replace_all(jjep.65.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.1.rp14 <- str_replace_all(jjep.65.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.1.rp15 <- str_replace_all(jjep.65.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.1.mod <- rbind(varname,jjep.65.1.1.rp15); write(jjep.65.1.1.mod, file = "./jjep/Mod_65_1_1.txt")
jjep.65.1.12.tx <- readr::read_file(file="./jjep/65_1_12.txt"); jjep.65.1.12.rm00 <- jjep.65.1.12.tx; jjep.65.1.12.rm01 <- str_replace_all(jjep.65.1.12.rm00, pattern = rm.01, replacement = ""); jjep.65.1.12.rm02 <- str_replace_all(jjep.65.1.12.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.12.rm03 <- str_replace_all(jjep.65.1.12.rm02, pattern = rm.03, replacement = ""); jjep.65.1.12.rm04 <- str_replace_all(jjep.65.1.12.rm03, pattern = rm.04, replacement = ""); jjep.65.1.12.rm05 <- str_replace_all(jjep.65.1.12.rm04, pattern = rm.05, replacement = ""); jjep.65.1.12.rm06 <- str_replace_all(jjep.65.1.12.rm05, pattern = rm.06, replacement = ""); jjep.65.1.12.rm07 <- str_replace_all(jjep.65.1.12.rm06, pattern = rm.07, replacement = ""); jjep.65.1.12.rm08 <- str_replace_all(jjep.65.1.12.rm07, pattern = rm.08, replacement = ""); jjep.65.1.12.rm09 <- str_replace_all(jjep.65.1.12.rm08, pattern = rm.09, replacement = ""); jjep.65.1.12.rp10 <- str_replace_all(jjep.65.1.12.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.12.rp11 <- str_replace_all(jjep.65.1.12.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.12.rp12 <- str_replace_all(jjep.65.1.12.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.12.rp13 <- str_replace_all(jjep.65.1.12.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.12.rp14 <- str_replace_all(jjep.65.1.12.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.12.rp15 <- str_replace_all(jjep.65.1.12.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.12.mod <- rbind(varname,jjep.65.1.12.rp15); write(jjep.65.1.12.mod, file = "./jjep/Mod_65_1_12.txt")
jjep.65.1.26.tx <- readr::read_file(file="./jjep/65_1_26.txt"); jjep.65.1.26.rm00 <- jjep.65.1.26.tx; jjep.65.1.26.rm01 <- str_replace_all(jjep.65.1.26.rm00, pattern = rm.01, replacement = ""); jjep.65.1.26.rm02 <- str_replace_all(jjep.65.1.26.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.26.rm03 <- str_replace_all(jjep.65.1.26.rm02, pattern = rm.03, replacement = ""); jjep.65.1.26.rm04 <- str_replace_all(jjep.65.1.26.rm03, pattern = rm.04, replacement = ""); jjep.65.1.26.rm05 <- str_replace_all(jjep.65.1.26.rm04, pattern = rm.05, replacement = ""); jjep.65.1.26.rm06 <- str_replace_all(jjep.65.1.26.rm05, pattern = rm.06, replacement = ""); jjep.65.1.26.rm07 <- str_replace_all(jjep.65.1.26.rm06, pattern = rm.07, replacement = ""); jjep.65.1.26.rm08 <- str_replace_all(jjep.65.1.26.rm07, pattern = rm.08, replacement = ""); jjep.65.1.26.rm09 <- str_replace_all(jjep.65.1.26.rm08, pattern = rm.09, replacement = ""); jjep.65.1.26.rp10 <- str_replace_all(jjep.65.1.26.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.26.rp11 <- str_replace_all(jjep.65.1.26.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.26.rp12 <- str_replace_all(jjep.65.1.26.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.26.rp13 <- str_replace_all(jjep.65.1.26.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.26.rp14 <- str_replace_all(jjep.65.1.26.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.26.rp15 <- str_replace_all(jjep.65.1.26.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.26.mod <- rbind(varname,jjep.65.1.26.rp15); write(jjep.65.1.26.mod, file = "./jjep/Mod_65_1_26.txt")
jjep.65.1.37.tx <- readr::read_file(file="./jjep/65_1_37.txt"); jjep.65.1.37.rm00 <- jjep.65.1.37.tx; jjep.65.1.37.rm01 <- str_replace_all(jjep.65.1.37.rm00, pattern = rm.01, replacement = ""); jjep.65.1.37.rm02 <- str_replace_all(jjep.65.1.37.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.37.rm03 <- str_replace_all(jjep.65.1.37.rm02, pattern = rm.03, replacement = ""); jjep.65.1.37.rm04 <- str_replace_all(jjep.65.1.37.rm03, pattern = rm.04, replacement = ""); jjep.65.1.37.rm05 <- str_replace_all(jjep.65.1.37.rm04, pattern = rm.05, replacement = ""); jjep.65.1.37.rm06 <- str_replace_all(jjep.65.1.37.rm05, pattern = rm.06, replacement = ""); jjep.65.1.37.rm07 <- str_replace_all(jjep.65.1.37.rm06, pattern = rm.07, replacement = ""); jjep.65.1.37.rm08 <- str_replace_all(jjep.65.1.37.rm07, pattern = rm.08, replacement = ""); jjep.65.1.37.rm09 <- str_replace_all(jjep.65.1.37.rm08, pattern = rm.09, replacement = ""); jjep.65.1.37.rp10 <- str_replace_all(jjep.65.1.37.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.37.rp11 <- str_replace_all(jjep.65.1.37.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.37.rp12 <- str_replace_all(jjep.65.1.37.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.37.rp13 <- str_replace_all(jjep.65.1.37.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.37.rp14 <- str_replace_all(jjep.65.1.37.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.37.rp15 <- str_replace_all(jjep.65.1.37.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.37.mod <- rbind(varname,jjep.65.1.37.rp15); write(jjep.65.1.37.mod, file = "./jjep/Mod_65_1_37.txt")
jjep.65.1.52.tx <- readr::read_file(file="./jjep/65_1_52.txt"); jjep.65.1.52.rm00 <- jjep.65.1.52.tx; jjep.65.1.52.rm01 <- str_replace_all(jjep.65.1.52.rm00, pattern = rm.01, replacement = ""); jjep.65.1.52.rm02 <- str_replace_all(jjep.65.1.52.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.52.rm03 <- str_replace_all(jjep.65.1.52.rm02, pattern = rm.03, replacement = ""); jjep.65.1.52.rm04 <- str_replace_all(jjep.65.1.52.rm03, pattern = rm.04, replacement = ""); jjep.65.1.52.rm05 <- str_replace_all(jjep.65.1.52.rm04, pattern = rm.05, replacement = ""); jjep.65.1.52.rm06 <- str_replace_all(jjep.65.1.52.rm05, pattern = rm.06, replacement = ""); jjep.65.1.52.rm07 <- str_replace_all(jjep.65.1.52.rm06, pattern = rm.07, replacement = ""); jjep.65.1.52.rm08 <- str_replace_all(jjep.65.1.52.rm07, pattern = rm.08, replacement = ""); jjep.65.1.52.rm09 <- str_replace_all(jjep.65.1.52.rm08, pattern = rm.09, replacement = ""); jjep.65.1.52.rp10 <- str_replace_all(jjep.65.1.52.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.52.rp11 <- str_replace_all(jjep.65.1.52.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.52.rp12 <- str_replace_all(jjep.65.1.52.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.52.rp13 <- str_replace_all(jjep.65.1.52.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.52.rp14 <- str_replace_all(jjep.65.1.52.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.52.rp15 <- str_replace_all(jjep.65.1.52.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.52.mod <- rbind(varname,jjep.65.1.52.rp15); write(jjep.65.1.52.mod, file = "./jjep/Mod_65_1_52.txt")
jjep.65.1.64.tx <- readr::read_file(file="./jjep/65_1_64.txt"); jjep.65.1.64.rm00 <- jjep.65.1.64.tx; jjep.65.1.64.rm01 <- str_replace_all(jjep.65.1.64.rm00, pattern = rm.01, replacement = ""); jjep.65.1.64.rm02 <- str_replace_all(jjep.65.1.64.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.64.rm03 <- str_replace_all(jjep.65.1.64.rm02, pattern = rm.03, replacement = ""); jjep.65.1.64.rm04 <- str_replace_all(jjep.65.1.64.rm03, pattern = rm.04, replacement = ""); jjep.65.1.64.rm05 <- str_replace_all(jjep.65.1.64.rm04, pattern = rm.05, replacement = ""); jjep.65.1.64.rm06 <- str_replace_all(jjep.65.1.64.rm05, pattern = rm.06, replacement = ""); jjep.65.1.64.rm07 <- str_replace_all(jjep.65.1.64.rm06, pattern = rm.07, replacement = ""); jjep.65.1.64.rm08 <- str_replace_all(jjep.65.1.64.rm07, pattern = rm.08, replacement = ""); jjep.65.1.64.rm09 <- str_replace_all(jjep.65.1.64.rm08, pattern = rm.09, replacement = ""); jjep.65.1.64.rp10 <- str_replace_all(jjep.65.1.64.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.64.rp11 <- str_replace_all(jjep.65.1.64.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.64.rp12 <- str_replace_all(jjep.65.1.64.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.64.rp13 <- str_replace_all(jjep.65.1.64.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.64.rp14 <- str_replace_all(jjep.65.1.64.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.64.rp15 <- str_replace_all(jjep.65.1.64.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.64.mod <- rbind(varname,jjep.65.1.64.rp15); write(jjep.65.1.64.mod, file = "./jjep/Mod_65_1_64.txt")
jjep.65.1.77.tx <- readr::read_file(file="./jjep/65_1_77.txt"); jjep.65.1.77.rm00 <- jjep.65.1.77.tx; jjep.65.1.77.rm01 <- str_replace_all(jjep.65.1.77.rm00, pattern = rm.01, replacement = ""); jjep.65.1.77.rm02 <- str_replace_all(jjep.65.1.77.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.77.rm03 <- str_replace_all(jjep.65.1.77.rm02, pattern = rm.03, replacement = ""); jjep.65.1.77.rm04 <- str_replace_all(jjep.65.1.77.rm03, pattern = rm.04, replacement = ""); jjep.65.1.77.rm05 <- str_replace_all(jjep.65.1.77.rm04, pattern = rm.05, replacement = ""); jjep.65.1.77.rm06 <- str_replace_all(jjep.65.1.77.rm05, pattern = rm.06, replacement = ""); jjep.65.1.77.rm07 <- str_replace_all(jjep.65.1.77.rm06, pattern = rm.07, replacement = ""); jjep.65.1.77.rm08 <- str_replace_all(jjep.65.1.77.rm07, pattern = rm.08, replacement = ""); jjep.65.1.77.rm09 <- str_replace_all(jjep.65.1.77.rm08, pattern = rm.09, replacement = ""); jjep.65.1.77.rp10 <- str_replace_all(jjep.65.1.77.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.77.rp11 <- str_replace_all(jjep.65.1.77.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.77.rp12 <- str_replace_all(jjep.65.1.77.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.77.rp13 <- str_replace_all(jjep.65.1.77.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.77.rp14 <- str_replace_all(jjep.65.1.77.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.77.rp15 <- str_replace_all(jjep.65.1.77.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.77.mod <- rbind(varname,jjep.65.1.77.rp15); write(jjep.65.1.77.mod, file = "./jjep/Mod_65_1_77.txt")
jjep.65.1.91.tx <- readr::read_file(file="./jjep/65_1_91.txt"); jjep.65.1.91.rm00 <- jjep.65.1.91.tx; jjep.65.1.91.rm01 <- str_replace_all(jjep.65.1.91.rm00, pattern = rm.01, replacement = ""); jjep.65.1.91.rm02 <- str_replace_all(jjep.65.1.91.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.91.rm03 <- str_replace_all(jjep.65.1.91.rm02, pattern = rm.03, replacement = ""); jjep.65.1.91.rm04 <- str_replace_all(jjep.65.1.91.rm03, pattern = rm.04, replacement = ""); jjep.65.1.91.rm05 <- str_replace_all(jjep.65.1.91.rm04, pattern = rm.05, replacement = ""); jjep.65.1.91.rm06 <- str_replace_all(jjep.65.1.91.rm05, pattern = rm.06, replacement = ""); jjep.65.1.91.rm07 <- str_replace_all(jjep.65.1.91.rm06, pattern = rm.07, replacement = ""); jjep.65.1.91.rm08 <- str_replace_all(jjep.65.1.91.rm07, pattern = rm.08, replacement = ""); jjep.65.1.91.rm09 <- str_replace_all(jjep.65.1.91.rm08, pattern = rm.09, replacement = ""); jjep.65.1.91.rp10 <- str_replace_all(jjep.65.1.91.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.91.rp11 <- str_replace_all(jjep.65.1.91.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.91.rp12 <- str_replace_all(jjep.65.1.91.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.91.rp13 <- str_replace_all(jjep.65.1.91.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.91.rp14 <- str_replace_all(jjep.65.1.91.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.91.rp15 <- str_replace_all(jjep.65.1.91.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.91.mod <- rbind(varname,jjep.65.1.91.rp15); write(jjep.65.1.91.mod, file = "./jjep/Mod_65_1_91.txt")
jjep.65.1.106.tx <- readr::read_file(file="./jjep/65_1_106.txt"); jjep.65.1.106.rm00 <- jjep.65.1.106.tx; jjep.65.1.106.rm01 <- str_replace_all(jjep.65.1.106.rm00, pattern = rm.01, replacement = ""); jjep.65.1.106.rm02 <- str_replace_all(jjep.65.1.106.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.106.rm03 <- str_replace_all(jjep.65.1.106.rm02, pattern = rm.03, replacement = ""); jjep.65.1.106.rm04 <- str_replace_all(jjep.65.1.106.rm03, pattern = rm.04, replacement = ""); jjep.65.1.106.rm05 <- str_replace_all(jjep.65.1.106.rm04, pattern = rm.05, replacement = ""); jjep.65.1.106.rm06 <- str_replace_all(jjep.65.1.106.rm05, pattern = rm.06, replacement = ""); jjep.65.1.106.rm07 <- str_replace_all(jjep.65.1.106.rm06, pattern = rm.07, replacement = ""); jjep.65.1.106.rm08 <- str_replace_all(jjep.65.1.106.rm07, pattern = rm.08, replacement = ""); jjep.65.1.106.rm09 <- str_replace_all(jjep.65.1.106.rm08, pattern = rm.09, replacement = ""); jjep.65.1.106.rp10 <- str_replace_all(jjep.65.1.106.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.106.rp11 <- str_replace_all(jjep.65.1.106.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.106.rp12 <- str_replace_all(jjep.65.1.106.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.106.rp13 <- str_replace_all(jjep.65.1.106.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.106.rp14 <- str_replace_all(jjep.65.1.106.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.106.rp15 <- str_replace_all(jjep.65.1.106.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.106.mod <- rbind(varname,jjep.65.1.106.rp15); write(jjep.65.1.106.mod, file = "./jjep/Mod_65_1_106.txt")
jjep.65.1.120.tx <- readr::read_file(file="./jjep/65_1_120.txt"); jjep.65.1.120.rm00 <- jjep.65.1.120.tx; jjep.65.1.120.rm01 <- str_replace_all(jjep.65.1.120.rm00, pattern = rm.01, replacement = ""); jjep.65.1.120.rm02 <- str_replace_all(jjep.65.1.120.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.120.rm03 <- str_replace_all(jjep.65.1.120.rm02, pattern = rm.03, replacement = ""); jjep.65.1.120.rm04 <- str_replace_all(jjep.65.1.120.rm03, pattern = rm.04, replacement = ""); jjep.65.1.120.rm05 <- str_replace_all(jjep.65.1.120.rm04, pattern = rm.05, replacement = ""); jjep.65.1.120.rm06 <- str_replace_all(jjep.65.1.120.rm05, pattern = rm.06, replacement = ""); jjep.65.1.120.rm07 <- str_replace_all(jjep.65.1.120.rm06, pattern = rm.07, replacement = ""); jjep.65.1.120.rm08 <- str_replace_all(jjep.65.1.120.rm07, pattern = rm.08, replacement = ""); jjep.65.1.120.rm09 <- str_replace_all(jjep.65.1.120.rm08, pattern = rm.09, replacement = ""); jjep.65.1.120.rp10 <- str_replace_all(jjep.65.1.120.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.120.rp11 <- str_replace_all(jjep.65.1.120.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.120.rp12 <- str_replace_all(jjep.65.1.120.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.120.rp13 <- str_replace_all(jjep.65.1.120.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.120.rp14 <- str_replace_all(jjep.65.1.120.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.120.rp15 <- str_replace_all(jjep.65.1.120.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.120.mod <- rbind(varname,jjep.65.1.120.rp15); write(jjep.65.1.120.mod, file = "./jjep/Mod_65_1_120.txt")
jjep.65.1.132.tx <- readr::read_file(file="./jjep/65_1_132.txt"); jjep.65.1.132.rm00 <- jjep.65.1.132.tx; jjep.65.1.132.rm01 <- str_replace_all(jjep.65.1.132.rm00, pattern = rm.01, replacement = ""); jjep.65.1.132.rm02 <- str_replace_all(jjep.65.1.132.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.132.rm03 <- str_replace_all(jjep.65.1.132.rm02, pattern = rm.03, replacement = ""); jjep.65.1.132.rm04 <- str_replace_all(jjep.65.1.132.rm03, pattern = rm.04, replacement = ""); jjep.65.1.132.rm05 <- str_replace_all(jjep.65.1.132.rm04, pattern = rm.05, replacement = ""); jjep.65.1.132.rm06 <- str_replace_all(jjep.65.1.132.rm05, pattern = rm.06, replacement = ""); jjep.65.1.132.rm07 <- str_replace_all(jjep.65.1.132.rm06, pattern = rm.07, replacement = ""); jjep.65.1.132.rm08 <- str_replace_all(jjep.65.1.132.rm07, pattern = rm.08, replacement = ""); jjep.65.1.132.rm09 <- str_replace_all(jjep.65.1.132.rm08, pattern = rm.09, replacement = ""); jjep.65.1.132.rp10 <- str_replace_all(jjep.65.1.132.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.132.rp11 <- str_replace_all(jjep.65.1.132.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.132.rp12 <- str_replace_all(jjep.65.1.132.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.132.rp13 <- str_replace_all(jjep.65.1.132.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.132.rp14 <- str_replace_all(jjep.65.1.132.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.132.rp15 <- str_replace_all(jjep.65.1.132.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.132.mod <- rbind(varname,jjep.65.1.132.rp15); write(jjep.65.1.132.mod, file = "./jjep/Mod_65_1_132.txt")
jjep.65.1.145.tx <- readr::read_file(file="./jjep/65_1_145.txt"); jjep.65.1.145.rm00 <- jjep.65.1.145.tx; jjep.65.1.145.rm01 <- str_replace_all(jjep.65.1.145.rm00, pattern = rm.01, replacement = ""); jjep.65.1.145.rm02 <- str_replace_all(jjep.65.1.145.rm01, pattern = rm.02, replacement = "^"); jjep.65.1.145.rm03 <- str_replace_all(jjep.65.1.145.rm02, pattern = rm.03, replacement = ""); jjep.65.1.145.rm04 <- str_replace_all(jjep.65.1.145.rm03, pattern = rm.04, replacement = ""); jjep.65.1.145.rm05 <- str_replace_all(jjep.65.1.145.rm04, pattern = rm.05, replacement = ""); jjep.65.1.145.rm06 <- str_replace_all(jjep.65.1.145.rm05, pattern = rm.06, replacement = ""); jjep.65.1.145.rm07 <- str_replace_all(jjep.65.1.145.rm06, pattern = rm.07, replacement = ""); jjep.65.1.145.rm08 <- str_replace_all(jjep.65.1.145.rm07, pattern = rm.08, replacement = ""); jjep.65.1.145.rm09 <- str_replace_all(jjep.65.1.145.rm08, pattern = rm.09, replacement = ""); jjep.65.1.145.rp10 <- str_replace_all(jjep.65.1.145.rm09, pattern = rp.01, replacement = "・"); jjep.65.1.145.rp11 <- str_replace_all(jjep.65.1.145.rp10, pattern = rp.02, replacement = "^"); jjep.65.1.145.rp12 <- str_replace_all(jjep.65.1.145.rp11, pattern = rp.03, replacement = "^"); jjep.65.1.145.rp13 <- str_replace_all(jjep.65.1.145.rp12, pattern = rp.04, replacement = "^"); jjep.65.1.145.rp14 <- str_replace_all(jjep.65.1.145.rp13, pattern = rp.05, replacement = "^"); jjep.65.1.145.rp15 <- str_replace_all(jjep.65.1.145.rp14, pattern = rp.06, replacement = "^"); jjep.65.1.145.mod <- rbind(varname,jjep.65.1.145.rp15); write(jjep.65.1.145.mod, file = "./jjep/Mod_65_1_145.txt")
jjep.64.4.445.tx <- readr::read_file(file="./jjep/64_4_445.txt"); jjep.64.4.445.rm00 <- jjep.64.4.445.tx; jjep.64.4.445.rm01 <- str_replace_all(jjep.64.4.445.rm00, pattern = rm.01, replacement = ""); jjep.64.4.445.rm02 <- str_replace_all(jjep.64.4.445.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.445.rm03 <- str_replace_all(jjep.64.4.445.rm02, pattern = rm.03, replacement = ""); jjep.64.4.445.rm04 <- str_replace_all(jjep.64.4.445.rm03, pattern = rm.04, replacement = ""); jjep.64.4.445.rm05 <- str_replace_all(jjep.64.4.445.rm04, pattern = rm.05, replacement = ""); jjep.64.4.445.rm06 <- str_replace_all(jjep.64.4.445.rm05, pattern = rm.06, replacement = ""); jjep.64.4.445.rm07 <- str_replace_all(jjep.64.4.445.rm06, pattern = rm.07, replacement = ""); jjep.64.4.445.rm08 <- str_replace_all(jjep.64.4.445.rm07, pattern = rm.08, replacement = ""); jjep.64.4.445.rm09 <- str_replace_all(jjep.64.4.445.rm08, pattern = rm.09, replacement = ""); jjep.64.4.445.rp10 <- str_replace_all(jjep.64.4.445.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.445.rp11 <- str_replace_all(jjep.64.4.445.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.445.rp12 <- str_replace_all(jjep.64.4.445.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.445.rp13 <- str_replace_all(jjep.64.4.445.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.445.rp14 <- str_replace_all(jjep.64.4.445.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.445.rp15 <- str_replace_all(jjep.64.4.445.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.445.mod <- rbind(varname,jjep.64.4.445.rp15); write(jjep.64.4.445.mod, file = "./jjep/Mod_64_4_445.txt")
jjep.64.4.456.tx <- readr::read_file(file="./jjep/64_4_456.txt"); jjep.64.4.456.rm00 <- jjep.64.4.456.tx; jjep.64.4.456.rm01 <- str_replace_all(jjep.64.4.456.rm00, pattern = rm.01, replacement = ""); jjep.64.4.456.rm02 <- str_replace_all(jjep.64.4.456.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.456.rm03 <- str_replace_all(jjep.64.4.456.rm02, pattern = rm.03, replacement = ""); jjep.64.4.456.rm04 <- str_replace_all(jjep.64.4.456.rm03, pattern = rm.04, replacement = ""); jjep.64.4.456.rm05 <- str_replace_all(jjep.64.4.456.rm04, pattern = rm.05, replacement = ""); jjep.64.4.456.rm06 <- str_replace_all(jjep.64.4.456.rm05, pattern = rm.06, replacement = ""); jjep.64.4.456.rm07 <- str_replace_all(jjep.64.4.456.rm06, pattern = rm.07, replacement = ""); jjep.64.4.456.rm08 <- str_replace_all(jjep.64.4.456.rm07, pattern = rm.08, replacement = ""); jjep.64.4.456.rm09 <- str_replace_all(jjep.64.4.456.rm08, pattern = rm.09, replacement = ""); jjep.64.4.456.rp10 <- str_replace_all(jjep.64.4.456.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.456.rp11 <- str_replace_all(jjep.64.4.456.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.456.rp12 <- str_replace_all(jjep.64.4.456.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.456.rp13 <- str_replace_all(jjep.64.4.456.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.456.rp14 <- str_replace_all(jjep.64.4.456.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.456.rp15 <- str_replace_all(jjep.64.4.456.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.456.mod <- rbind(varname,jjep.64.4.456.rp15); write(jjep.64.4.456.mod, file = "./jjep/Mod_64_4_456.txt")
jjep.64.4.477.tx <- readr::read_file(file="./jjep/64_4_477.txt"); jjep.64.4.477.rm00 <- jjep.64.4.477.tx; jjep.64.4.477.rm01 <- str_replace_all(jjep.64.4.477.rm00, pattern = rm.01, replacement = ""); jjep.64.4.477.rm02 <- str_replace_all(jjep.64.4.477.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.477.rm03 <- str_replace_all(jjep.64.4.477.rm02, pattern = rm.03, replacement = ""); jjep.64.4.477.rm04 <- str_replace_all(jjep.64.4.477.rm03, pattern = rm.04, replacement = ""); jjep.64.4.477.rm05 <- str_replace_all(jjep.64.4.477.rm04, pattern = rm.05, replacement = ""); jjep.64.4.477.rm06 <- str_replace_all(jjep.64.4.477.rm05, pattern = rm.06, replacement = ""); jjep.64.4.477.rm07 <- str_replace_all(jjep.64.4.477.rm06, pattern = rm.07, replacement = ""); jjep.64.4.477.rm08 <- str_replace_all(jjep.64.4.477.rm07, pattern = rm.08, replacement = ""); jjep.64.4.477.rm09 <- str_replace_all(jjep.64.4.477.rm08, pattern = rm.09, replacement = ""); jjep.64.4.477.rp10 <- str_replace_all(jjep.64.4.477.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.477.rp11 <- str_replace_all(jjep.64.4.477.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.477.rp12 <- str_replace_all(jjep.64.4.477.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.477.rp13 <- str_replace_all(jjep.64.4.477.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.477.rp14 <- str_replace_all(jjep.64.4.477.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.477.rp15 <- str_replace_all(jjep.64.4.477.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.477.mod <- rbind(varname,jjep.64.4.477.rp15); write(jjep.64.4.477.mod, file = "./jjep/Mod_64_4_477.txt")
jjep.64.4.492.tx <- readr::read_file(file="./jjep/64_4_492.txt"); jjep.64.4.492.rm00 <- jjep.64.4.492.tx; jjep.64.4.492.rm01 <- str_replace_all(jjep.64.4.492.rm00, pattern = rm.01, replacement = ""); jjep.64.4.492.rm02 <- str_replace_all(jjep.64.4.492.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.492.rm03 <- str_replace_all(jjep.64.4.492.rm02, pattern = rm.03, replacement = ""); jjep.64.4.492.rm04 <- str_replace_all(jjep.64.4.492.rm03, pattern = rm.04, replacement = ""); jjep.64.4.492.rm05 <- str_replace_all(jjep.64.4.492.rm04, pattern = rm.05, replacement = ""); jjep.64.4.492.rm06 <- str_replace_all(jjep.64.4.492.rm05, pattern = rm.06, replacement = ""); jjep.64.4.492.rm07 <- str_replace_all(jjep.64.4.492.rm06, pattern = rm.07, replacement = ""); jjep.64.4.492.rm08 <- str_replace_all(jjep.64.4.492.rm07, pattern = rm.08, replacement = ""); jjep.64.4.492.rm09 <- str_replace_all(jjep.64.4.492.rm08, pattern = rm.09, replacement = ""); jjep.64.4.492.rp10 <- str_replace_all(jjep.64.4.492.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.492.rp11 <- str_replace_all(jjep.64.4.492.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.492.rp12 <- str_replace_all(jjep.64.4.492.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.492.rp13 <- str_replace_all(jjep.64.4.492.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.492.rp14 <- str_replace_all(jjep.64.4.492.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.492.rp15 <- str_replace_all(jjep.64.4.492.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.492.mod <- rbind(varname,jjep.64.4.492.rp15); write(jjep.64.4.492.mod, file = "./jjep/Mod_64_4_492.txt")
jjep.64.4.505.tx <- readr::read_file(file="./jjep/64_4_505.txt"); jjep.64.4.505.rm00 <- jjep.64.4.505.tx; jjep.64.4.505.rm01 <- str_replace_all(jjep.64.4.505.rm00, pattern = rm.01, replacement = ""); jjep.64.4.505.rm02 <- str_replace_all(jjep.64.4.505.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.505.rm03 <- str_replace_all(jjep.64.4.505.rm02, pattern = rm.03, replacement = ""); jjep.64.4.505.rm04 <- str_replace_all(jjep.64.4.505.rm03, pattern = rm.04, replacement = ""); jjep.64.4.505.rm05 <- str_replace_all(jjep.64.4.505.rm04, pattern = rm.05, replacement = ""); jjep.64.4.505.rm06 <- str_replace_all(jjep.64.4.505.rm05, pattern = rm.06, replacement = ""); jjep.64.4.505.rm07 <- str_replace_all(jjep.64.4.505.rm06, pattern = rm.07, replacement = ""); jjep.64.4.505.rm08 <- str_replace_all(jjep.64.4.505.rm07, pattern = rm.08, replacement = ""); jjep.64.4.505.rm09 <- str_replace_all(jjep.64.4.505.rm08, pattern = rm.09, replacement = ""); jjep.64.4.505.rp10 <- str_replace_all(jjep.64.4.505.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.505.rp11 <- str_replace_all(jjep.64.4.505.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.505.rp12 <- str_replace_all(jjep.64.4.505.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.505.rp13 <- str_replace_all(jjep.64.4.505.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.505.rp14 <- str_replace_all(jjep.64.4.505.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.505.rp15 <- str_replace_all(jjep.64.4.505.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.505.mod <- rbind(varname,jjep.64.4.505.rp15); write(jjep.64.4.505.mod, file = "./jjep/Mod_64_4_505.txt")
jjep.64.4.518.tx <- readr::read_file(file="./jjep/64_4_518.txt"); jjep.64.4.518.rm00 <- jjep.64.4.518.tx; jjep.64.4.518.rm01 <- str_replace_all(jjep.64.4.518.rm00, pattern = rm.01, replacement = ""); jjep.64.4.518.rm02 <- str_replace_all(jjep.64.4.518.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.518.rm03 <- str_replace_all(jjep.64.4.518.rm02, pattern = rm.03, replacement = ""); jjep.64.4.518.rm04 <- str_replace_all(jjep.64.4.518.rm03, pattern = rm.04, replacement = ""); jjep.64.4.518.rm05 <- str_replace_all(jjep.64.4.518.rm04, pattern = rm.05, replacement = ""); jjep.64.4.518.rm06 <- str_replace_all(jjep.64.4.518.rm05, pattern = rm.06, replacement = ""); jjep.64.4.518.rm07 <- str_replace_all(jjep.64.4.518.rm06, pattern = rm.07, replacement = ""); jjep.64.4.518.rm08 <- str_replace_all(jjep.64.4.518.rm07, pattern = rm.08, replacement = ""); jjep.64.4.518.rm09 <- str_replace_all(jjep.64.4.518.rm08, pattern = rm.09, replacement = ""); jjep.64.4.518.rp10 <- str_replace_all(jjep.64.4.518.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.518.rp11 <- str_replace_all(jjep.64.4.518.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.518.rp12 <- str_replace_all(jjep.64.4.518.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.518.rp13 <- str_replace_all(jjep.64.4.518.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.518.rp14 <- str_replace_all(jjep.64.4.518.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.518.rp15 <- str_replace_all(jjep.64.4.518.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.518.mod <- rbind(varname,jjep.64.4.518.rp15); write(jjep.64.4.518.mod, file = "./jjep/Mod_64_4_518.txt")
jjep.64.4.531.tx <- readr::read_file(file="./jjep/64_4_531.txt"); jjep.64.4.531.rm00 <- jjep.64.4.531.tx; jjep.64.4.531.rm01 <- str_replace_all(jjep.64.4.531.rm00, pattern = rm.01, replacement = ""); jjep.64.4.531.rm02 <- str_replace_all(jjep.64.4.531.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.531.rm03 <- str_replace_all(jjep.64.4.531.rm02, pattern = rm.03, replacement = ""); jjep.64.4.531.rm04 <- str_replace_all(jjep.64.4.531.rm03, pattern = rm.04, replacement = ""); jjep.64.4.531.rm05 <- str_replace_all(jjep.64.4.531.rm04, pattern = rm.05, replacement = ""); jjep.64.4.531.rm06 <- str_replace_all(jjep.64.4.531.rm05, pattern = rm.06, replacement = ""); jjep.64.4.531.rm07 <- str_replace_all(jjep.64.4.531.rm06, pattern = rm.07, replacement = ""); jjep.64.4.531.rm08 <- str_replace_all(jjep.64.4.531.rm07, pattern = rm.08, replacement = ""); jjep.64.4.531.rm09 <- str_replace_all(jjep.64.4.531.rm08, pattern = rm.09, replacement = ""); jjep.64.4.531.rp10 <- str_replace_all(jjep.64.4.531.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.531.rp11 <- str_replace_all(jjep.64.4.531.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.531.rp12 <- str_replace_all(jjep.64.4.531.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.531.rp13 <- str_replace_all(jjep.64.4.531.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.531.rp14 <- str_replace_all(jjep.64.4.531.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.531.rp15 <- str_replace_all(jjep.64.4.531.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.531.mod <- rbind(varname,jjep.64.4.531.rp15); write(jjep.64.4.531.mod, file = "./jjep/Mod_64_4_531.txt")
jjep.64.4.544.tx <- readr::read_file(file="./jjep/64_4_544.txt"); jjep.64.4.544.rm00 <- jjep.64.4.544.tx; jjep.64.4.544.rm01 <- str_replace_all(jjep.64.4.544.rm00, pattern = rm.01, replacement = ""); jjep.64.4.544.rm02 <- str_replace_all(jjep.64.4.544.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.544.rm03 <- str_replace_all(jjep.64.4.544.rm02, pattern = rm.03, replacement = ""); jjep.64.4.544.rm04 <- str_replace_all(jjep.64.4.544.rm03, pattern = rm.04, replacement = ""); jjep.64.4.544.rm05 <- str_replace_all(jjep.64.4.544.rm04, pattern = rm.05, replacement = ""); jjep.64.4.544.rm06 <- str_replace_all(jjep.64.4.544.rm05, pattern = rm.06, replacement = ""); jjep.64.4.544.rm07 <- str_replace_all(jjep.64.4.544.rm06, pattern = rm.07, replacement = ""); jjep.64.4.544.rm08 <- str_replace_all(jjep.64.4.544.rm07, pattern = rm.08, replacement = ""); jjep.64.4.544.rm09 <- str_replace_all(jjep.64.4.544.rm08, pattern = rm.09, replacement = ""); jjep.64.4.544.rp10 <- str_replace_all(jjep.64.4.544.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.544.rp11 <- str_replace_all(jjep.64.4.544.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.544.rp12 <- str_replace_all(jjep.64.4.544.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.544.rp13 <- str_replace_all(jjep.64.4.544.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.544.rp14 <- str_replace_all(jjep.64.4.544.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.544.rp15 <- str_replace_all(jjep.64.4.544.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.544.mod <- rbind(varname,jjep.64.4.544.rp15); write(jjep.64.4.544.mod, file = "./jjep/Mod_64_4_544.txt")
jjep.64.4.555.tx <- readr::read_file(file="./jjep/64_4_555.txt"); jjep.64.4.555.rm00 <- jjep.64.4.555.tx; jjep.64.4.555.rm01 <- str_replace_all(jjep.64.4.555.rm00, pattern = rm.01, replacement = ""); jjep.64.4.555.rm02 <- str_replace_all(jjep.64.4.555.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.555.rm03 <- str_replace_all(jjep.64.4.555.rm02, pattern = rm.03, replacement = ""); jjep.64.4.555.rm04 <- str_replace_all(jjep.64.4.555.rm03, pattern = rm.04, replacement = ""); jjep.64.4.555.rm05 <- str_replace_all(jjep.64.4.555.rm04, pattern = rm.05, replacement = ""); jjep.64.4.555.rm06 <- str_replace_all(jjep.64.4.555.rm05, pattern = rm.06, replacement = ""); jjep.64.4.555.rm07 <- str_replace_all(jjep.64.4.555.rm06, pattern = rm.07, replacement = ""); jjep.64.4.555.rm08 <- str_replace_all(jjep.64.4.555.rm07, pattern = rm.08, replacement = ""); jjep.64.4.555.rm09 <- str_replace_all(jjep.64.4.555.rm08, pattern = rm.09, replacement = ""); jjep.64.4.555.rp10 <- str_replace_all(jjep.64.4.555.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.555.rp11 <- str_replace_all(jjep.64.4.555.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.555.rp12 <- str_replace_all(jjep.64.4.555.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.555.rp13 <- str_replace_all(jjep.64.4.555.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.555.rp14 <- str_replace_all(jjep.64.4.555.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.555.rp15 <- str_replace_all(jjep.64.4.555.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.555.mod <- rbind(varname,jjep.64.4.555.rp15); write(jjep.64.4.555.mod, file = "./jjep/Mod_64_4_555.txt")
jjep.64.4.569.tx <- readr::read_file(file="./jjep/64_4_569.txt"); jjep.64.4.569.rm00 <- jjep.64.4.569.tx; jjep.64.4.569.rm01 <- str_replace_all(jjep.64.4.569.rm00, pattern = rm.01, replacement = ""); jjep.64.4.569.rm02 <- str_replace_all(jjep.64.4.569.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.569.rm03 <- str_replace_all(jjep.64.4.569.rm02, pattern = rm.03, replacement = ""); jjep.64.4.569.rm04 <- str_replace_all(jjep.64.4.569.rm03, pattern = rm.04, replacement = ""); jjep.64.4.569.rm05 <- str_replace_all(jjep.64.4.569.rm04, pattern = rm.05, replacement = ""); jjep.64.4.569.rm06 <- str_replace_all(jjep.64.4.569.rm05, pattern = rm.06, replacement = ""); jjep.64.4.569.rm07 <- str_replace_all(jjep.64.4.569.rm06, pattern = rm.07, replacement = ""); jjep.64.4.569.rm08 <- str_replace_all(jjep.64.4.569.rm07, pattern = rm.08, replacement = ""); jjep.64.4.569.rm09 <- str_replace_all(jjep.64.4.569.rm08, pattern = rm.09, replacement = ""); jjep.64.4.569.rp10 <- str_replace_all(jjep.64.4.569.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.569.rp11 <- str_replace_all(jjep.64.4.569.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.569.rp12 <- str_replace_all(jjep.64.4.569.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.569.rp13 <- str_replace_all(jjep.64.4.569.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.569.rp14 <- str_replace_all(jjep.64.4.569.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.569.rp15 <- str_replace_all(jjep.64.4.569.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.569.mod <- rbind(varname,jjep.64.4.569.rp15); write(jjep.64.4.569.mod, file = "./jjep/Mod_64_4_569.txt")
jjep.64.4.583.tx <- readr::read_file(file="./jjep/64_4_583.txt"); jjep.64.4.583.rm00 <- jjep.64.4.583.tx; jjep.64.4.583.rm01 <- str_replace_all(jjep.64.4.583.rm00, pattern = rm.01, replacement = ""); jjep.64.4.583.rm02 <- str_replace_all(jjep.64.4.583.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.583.rm03 <- str_replace_all(jjep.64.4.583.rm02, pattern = rm.03, replacement = ""); jjep.64.4.583.rm04 <- str_replace_all(jjep.64.4.583.rm03, pattern = rm.04, replacement = ""); jjep.64.4.583.rm05 <- str_replace_all(jjep.64.4.583.rm04, pattern = rm.05, replacement = ""); jjep.64.4.583.rm06 <- str_replace_all(jjep.64.4.583.rm05, pattern = rm.06, replacement = ""); jjep.64.4.583.rm07 <- str_replace_all(jjep.64.4.583.rm06, pattern = rm.07, replacement = ""); jjep.64.4.583.rm08 <- str_replace_all(jjep.64.4.583.rm07, pattern = rm.08, replacement = ""); jjep.64.4.583.rm09 <- str_replace_all(jjep.64.4.583.rm08, pattern = rm.09, replacement = ""); jjep.64.4.583.rp10 <- str_replace_all(jjep.64.4.583.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.583.rp11 <- str_replace_all(jjep.64.4.583.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.583.rp12 <- str_replace_all(jjep.64.4.583.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.583.rp13 <- str_replace_all(jjep.64.4.583.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.583.rp14 <- str_replace_all(jjep.64.4.583.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.583.rp15 <- str_replace_all(jjep.64.4.583.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.583.mod <- rbind(varname,jjep.64.4.583.rp15); write(jjep.64.4.583.mod, file = "./jjep/Mod_64_4_583.txt")
jjep.64.4.598.tx <- readr::read_file(file="./jjep/64_4_598.txt"); jjep.64.4.598.rm00 <- jjep.64.4.598.tx; jjep.64.4.598.rm01 <- str_replace_all(jjep.64.4.598.rm00, pattern = rm.01, replacement = ""); jjep.64.4.598.rm02 <- str_replace_all(jjep.64.4.598.rm01, pattern = rm.02, replacement = "^"); jjep.64.4.598.rm03 <- str_replace_all(jjep.64.4.598.rm02, pattern = rm.03, replacement = ""); jjep.64.4.598.rm04 <- str_replace_all(jjep.64.4.598.rm03, pattern = rm.04, replacement = ""); jjep.64.4.598.rm05 <- str_replace_all(jjep.64.4.598.rm04, pattern = rm.05, replacement = ""); jjep.64.4.598.rm06 <- str_replace_all(jjep.64.4.598.rm05, pattern = rm.06, replacement = ""); jjep.64.4.598.rm07 <- str_replace_all(jjep.64.4.598.rm06, pattern = rm.07, replacement = ""); jjep.64.4.598.rm08 <- str_replace_all(jjep.64.4.598.rm07, pattern = rm.08, replacement = ""); jjep.64.4.598.rm09 <- str_replace_all(jjep.64.4.598.rm08, pattern = rm.09, replacement = ""); jjep.64.4.598.rp10 <- str_replace_all(jjep.64.4.598.rm09, pattern = rp.01, replacement = "・"); jjep.64.4.598.rp11 <- str_replace_all(jjep.64.4.598.rp10, pattern = rp.02, replacement = "^"); jjep.64.4.598.rp12 <- str_replace_all(jjep.64.4.598.rp11, pattern = rp.03, replacement = "^"); jjep.64.4.598.rp13 <- str_replace_all(jjep.64.4.598.rp12, pattern = rp.04, replacement = "^"); jjep.64.4.598.rp14 <- str_replace_all(jjep.64.4.598.rp13, pattern = rp.05, replacement = "^"); jjep.64.4.598.rp15 <- str_replace_all(jjep.64.4.598.rp14, pattern = rp.06, replacement = "^"); jjep.64.4.598.mod <- rbind(varname,jjep.64.4.598.rp15); write(jjep.64.4.598.mod, file = "./jjep/Mod_64_4_598.txt")
jjep.64.3.285.tx <- readr::read_file(file="./jjep/64_3_285.txt"); jjep.64.3.285.rm00 <- jjep.64.3.285.tx; jjep.64.3.285.rm01 <- str_replace_all(jjep.64.3.285.rm00, pattern = rm.01, replacement = ""); jjep.64.3.285.rm02 <- str_replace_all(jjep.64.3.285.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.285.rm03 <- str_replace_all(jjep.64.3.285.rm02, pattern = rm.03, replacement = ""); jjep.64.3.285.rm04 <- str_replace_all(jjep.64.3.285.rm03, pattern = rm.04, replacement = ""); jjep.64.3.285.rm05 <- str_replace_all(jjep.64.3.285.rm04, pattern = rm.05, replacement = ""); jjep.64.3.285.rm06 <- str_replace_all(jjep.64.3.285.rm05, pattern = rm.06, replacement = ""); jjep.64.3.285.rm07 <- str_replace_all(jjep.64.3.285.rm06, pattern = rm.07, replacement = ""); jjep.64.3.285.rm08 <- str_replace_all(jjep.64.3.285.rm07, pattern = rm.08, replacement = ""); jjep.64.3.285.rm09 <- str_replace_all(jjep.64.3.285.rm08, pattern = rm.09, replacement = ""); jjep.64.3.285.rp10 <- str_replace_all(jjep.64.3.285.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.285.rp11 <- str_replace_all(jjep.64.3.285.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.285.rp12 <- str_replace_all(jjep.64.3.285.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.285.rp13 <- str_replace_all(jjep.64.3.285.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.285.rp14 <- str_replace_all(jjep.64.3.285.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.285.rp15 <- str_replace_all(jjep.64.3.285.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.285.mod <- rbind(varname,jjep.64.3.285.rp15); write(jjep.64.3.285.mod, file = "./jjep/Mod_64_3_285.txt")
jjep.64.3.296.tx <- readr::read_file(file="./jjep/64_3_296.txt"); jjep.64.3.296.rm00 <- jjep.64.3.296.tx; jjep.64.3.296.rm01 <- str_replace_all(jjep.64.3.296.rm00, pattern = rm.01, replacement = ""); jjep.64.3.296.rm02 <- str_replace_all(jjep.64.3.296.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.296.rm03 <- str_replace_all(jjep.64.3.296.rm02, pattern = rm.03, replacement = ""); jjep.64.3.296.rm04 <- str_replace_all(jjep.64.3.296.rm03, pattern = rm.04, replacement = ""); jjep.64.3.296.rm05 <- str_replace_all(jjep.64.3.296.rm04, pattern = rm.05, replacement = ""); jjep.64.3.296.rm06 <- str_replace_all(jjep.64.3.296.rm05, pattern = rm.06, replacement = ""); jjep.64.3.296.rm07 <- str_replace_all(jjep.64.3.296.rm06, pattern = rm.07, replacement = ""); jjep.64.3.296.rm08 <- str_replace_all(jjep.64.3.296.rm07, pattern = rm.08, replacement = ""); jjep.64.3.296.rm09 <- str_replace_all(jjep.64.3.296.rm08, pattern = rm.09, replacement = ""); jjep.64.3.296.rp10 <- str_replace_all(jjep.64.3.296.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.296.rp11 <- str_replace_all(jjep.64.3.296.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.296.rp12 <- str_replace_all(jjep.64.3.296.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.296.rp13 <- str_replace_all(jjep.64.3.296.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.296.rp14 <- str_replace_all(jjep.64.3.296.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.296.rp15 <- str_replace_all(jjep.64.3.296.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.296.mod <- rbind(varname,jjep.64.3.296.rp15); write(jjep.64.3.296.mod, file = "./jjep/Mod_64_3_296.txt")
jjep.64.3.307.tx <- readr::read_file(file="./jjep/64_3_307.txt"); jjep.64.3.307.rm00 <- jjep.64.3.307.tx; jjep.64.3.307.rm01 <- str_replace_all(jjep.64.3.307.rm00, pattern = rm.01, replacement = ""); jjep.64.3.307.rm02 <- str_replace_all(jjep.64.3.307.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.307.rm03 <- str_replace_all(jjep.64.3.307.rm02, pattern = rm.03, replacement = ""); jjep.64.3.307.rm04 <- str_replace_all(jjep.64.3.307.rm03, pattern = rm.04, replacement = ""); jjep.64.3.307.rm05 <- str_replace_all(jjep.64.3.307.rm04, pattern = rm.05, replacement = ""); jjep.64.3.307.rm06 <- str_replace_all(jjep.64.3.307.rm05, pattern = rm.06, replacement = ""); jjep.64.3.307.rm07 <- str_replace_all(jjep.64.3.307.rm06, pattern = rm.07, replacement = ""); jjep.64.3.307.rm08 <- str_replace_all(jjep.64.3.307.rm07, pattern = rm.08, replacement = ""); jjep.64.3.307.rm09 <- str_replace_all(jjep.64.3.307.rm08, pattern = rm.09, replacement = ""); jjep.64.3.307.rp10 <- str_replace_all(jjep.64.3.307.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.307.rp11 <- str_replace_all(jjep.64.3.307.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.307.rp12 <- str_replace_all(jjep.64.3.307.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.307.rp13 <- str_replace_all(jjep.64.3.307.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.307.rp14 <- str_replace_all(jjep.64.3.307.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.307.rp15 <- str_replace_all(jjep.64.3.307.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.307.mod <- rbind(varname,jjep.64.3.307.rp15); write(jjep.64.3.307.mod, file = "./jjep/Mod_64_3_307.txt")
jjep.64.3.317.tx <- readr::read_file(file="./jjep/64_3_317.txt"); jjep.64.3.317.rm00 <- jjep.64.3.317.tx; jjep.64.3.317.rm01 <- str_replace_all(jjep.64.3.317.rm00, pattern = rm.01, replacement = ""); jjep.64.3.317.rm02 <- str_replace_all(jjep.64.3.317.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.317.rm03 <- str_replace_all(jjep.64.3.317.rm02, pattern = rm.03, replacement = ""); jjep.64.3.317.rm04 <- str_replace_all(jjep.64.3.317.rm03, pattern = rm.04, replacement = ""); jjep.64.3.317.rm05 <- str_replace_all(jjep.64.3.317.rm04, pattern = rm.05, replacement = ""); jjep.64.3.317.rm06 <- str_replace_all(jjep.64.3.317.rm05, pattern = rm.06, replacement = ""); jjep.64.3.317.rm07 <- str_replace_all(jjep.64.3.317.rm06, pattern = rm.07, replacement = ""); jjep.64.3.317.rm08 <- str_replace_all(jjep.64.3.317.rm07, pattern = rm.08, replacement = ""); jjep.64.3.317.rm09 <- str_replace_all(jjep.64.3.317.rm08, pattern = rm.09, replacement = ""); jjep.64.3.317.rp10 <- str_replace_all(jjep.64.3.317.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.317.rp11 <- str_replace_all(jjep.64.3.317.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.317.rp12 <- str_replace_all(jjep.64.3.317.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.317.rp13 <- str_replace_all(jjep.64.3.317.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.317.rp14 <- str_replace_all(jjep.64.3.317.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.317.rp15 <- str_replace_all(jjep.64.3.317.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.317.mod <- rbind(varname,jjep.64.3.317.rp15); write(jjep.64.3.317.mod, file = "./jjep/Mod_64_3_317.txt")
jjep.64.3.327.tx <- readr::read_file(file="./jjep/64_3_327.txt"); jjep.64.3.327.rm00 <- jjep.64.3.327.tx; jjep.64.3.327.rm01 <- str_replace_all(jjep.64.3.327.rm00, pattern = rm.01, replacement = ""); jjep.64.3.327.rm02 <- str_replace_all(jjep.64.3.327.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.327.rm03 <- str_replace_all(jjep.64.3.327.rm02, pattern = rm.03, replacement = ""); jjep.64.3.327.rm04 <- str_replace_all(jjep.64.3.327.rm03, pattern = rm.04, replacement = ""); jjep.64.3.327.rm05 <- str_replace_all(jjep.64.3.327.rm04, pattern = rm.05, replacement = ""); jjep.64.3.327.rm06 <- str_replace_all(jjep.64.3.327.rm05, pattern = rm.06, replacement = ""); jjep.64.3.327.rm07 <- str_replace_all(jjep.64.3.327.rm06, pattern = rm.07, replacement = ""); jjep.64.3.327.rm08 <- str_replace_all(jjep.64.3.327.rm07, pattern = rm.08, replacement = ""); jjep.64.3.327.rm09 <- str_replace_all(jjep.64.3.327.rm08, pattern = rm.09, replacement = ""); jjep.64.3.327.rp10 <- str_replace_all(jjep.64.3.327.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.327.rp11 <- str_replace_all(jjep.64.3.327.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.327.rp12 <- str_replace_all(jjep.64.3.327.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.327.rp13 <- str_replace_all(jjep.64.3.327.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.327.rp14 <- str_replace_all(jjep.64.3.327.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.327.rp15 <- str_replace_all(jjep.64.3.327.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.327.mod <- rbind(varname,jjep.64.3.327.rp15); write(jjep.64.3.327.mod, file = "./jjep/Mod_64_3_327.txt")
jjep.64.3.340.tx <- readr::read_file(file="./jjep/64_3_340.txt"); jjep.64.3.340.rm00 <- jjep.64.3.340.tx; jjep.64.3.340.rm01 <- str_replace_all(jjep.64.3.340.rm00, pattern = rm.01, replacement = ""); jjep.64.3.340.rm02 <- str_replace_all(jjep.64.3.340.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.340.rm03 <- str_replace_all(jjep.64.3.340.rm02, pattern = rm.03, replacement = ""); jjep.64.3.340.rm04 <- str_replace_all(jjep.64.3.340.rm03, pattern = rm.04, replacement = ""); jjep.64.3.340.rm05 <- str_replace_all(jjep.64.3.340.rm04, pattern = rm.05, replacement = ""); jjep.64.3.340.rm06 <- str_replace_all(jjep.64.3.340.rm05, pattern = rm.06, replacement = ""); jjep.64.3.340.rm07 <- str_replace_all(jjep.64.3.340.rm06, pattern = rm.07, replacement = ""); jjep.64.3.340.rm08 <- str_replace_all(jjep.64.3.340.rm07, pattern = rm.08, replacement = ""); jjep.64.3.340.rm09 <- str_replace_all(jjep.64.3.340.rm08, pattern = rm.09, replacement = ""); jjep.64.3.340.rp10 <- str_replace_all(jjep.64.3.340.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.340.rp11 <- str_replace_all(jjep.64.3.340.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.340.rp12 <- str_replace_all(jjep.64.3.340.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.340.rp13 <- str_replace_all(jjep.64.3.340.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.340.rp14 <- str_replace_all(jjep.64.3.340.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.340.rp15 <- str_replace_all(jjep.64.3.340.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.340.mod <- rbind(varname,jjep.64.3.340.rp15); write(jjep.64.3.340.mod, file = "./jjep/Mod_64_3_340.txt")
jjep.64.3.352.tx <- readr::read_file(file="./jjep/64_3_352.txt"); jjep.64.3.352.rm00 <- jjep.64.3.352.tx; jjep.64.3.352.rm01 <- str_replace_all(jjep.64.3.352.rm00, pattern = rm.01, replacement = ""); jjep.64.3.352.rm02 <- str_replace_all(jjep.64.3.352.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.352.rm03 <- str_replace_all(jjep.64.3.352.rm02, pattern = rm.03, replacement = ""); jjep.64.3.352.rm04 <- str_replace_all(jjep.64.3.352.rm03, pattern = rm.04, replacement = ""); jjep.64.3.352.rm05 <- str_replace_all(jjep.64.3.352.rm04, pattern = rm.05, replacement = ""); jjep.64.3.352.rm06 <- str_replace_all(jjep.64.3.352.rm05, pattern = rm.06, replacement = ""); jjep.64.3.352.rm07 <- str_replace_all(jjep.64.3.352.rm06, pattern = rm.07, replacement = ""); jjep.64.3.352.rm08 <- str_replace_all(jjep.64.3.352.rm07, pattern = rm.08, replacement = ""); jjep.64.3.352.rm09 <- str_replace_all(jjep.64.3.352.rm08, pattern = rm.09, replacement = ""); jjep.64.3.352.rp10 <- str_replace_all(jjep.64.3.352.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.352.rp11 <- str_replace_all(jjep.64.3.352.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.352.rp12 <- str_replace_all(jjep.64.3.352.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.352.rp13 <- str_replace_all(jjep.64.3.352.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.352.rp14 <- str_replace_all(jjep.64.3.352.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.352.rp15 <- str_replace_all(jjep.64.3.352.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.352.mod <- rbind(varname,jjep.64.3.352.rp15); write(jjep.64.3.352.mod, file = "./jjep/Mod_64_3_352.txt")
jjep.64.3.364.tx <- readr::read_file(file="./jjep/64_3_364.txt"); jjep.64.3.364.rm00 <- jjep.64.3.364.tx; jjep.64.3.364.rm01 <- str_replace_all(jjep.64.3.364.rm00, pattern = rm.01, replacement = ""); jjep.64.3.364.rm02 <- str_replace_all(jjep.64.3.364.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.364.rm03 <- str_replace_all(jjep.64.3.364.rm02, pattern = rm.03, replacement = ""); jjep.64.3.364.rm04 <- str_replace_all(jjep.64.3.364.rm03, pattern = rm.04, replacement = ""); jjep.64.3.364.rm05 <- str_replace_all(jjep.64.3.364.rm04, pattern = rm.05, replacement = ""); jjep.64.3.364.rm06 <- str_replace_all(jjep.64.3.364.rm05, pattern = rm.06, replacement = ""); jjep.64.3.364.rm07 <- str_replace_all(jjep.64.3.364.rm06, pattern = rm.07, replacement = ""); jjep.64.3.364.rm08 <- str_replace_all(jjep.64.3.364.rm07, pattern = rm.08, replacement = ""); jjep.64.3.364.rm09 <- str_replace_all(jjep.64.3.364.rm08, pattern = rm.09, replacement = ""); jjep.64.3.364.rp10 <- str_replace_all(jjep.64.3.364.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.364.rp11 <- str_replace_all(jjep.64.3.364.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.364.rp12 <- str_replace_all(jjep.64.3.364.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.364.rp13 <- str_replace_all(jjep.64.3.364.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.364.rp14 <- str_replace_all(jjep.64.3.364.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.364.rp15 <- str_replace_all(jjep.64.3.364.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.364.mod <- rbind(varname,jjep.64.3.364.rp15); write(jjep.64.3.364.mod, file = "./jjep/Mod_64_3_364.txt")
jjep.64.3.376.tx <- readr::read_file(file="./jjep/64_3_376.txt"); jjep.64.3.376.rm00 <- jjep.64.3.376.tx; jjep.64.3.376.rm01 <- str_replace_all(jjep.64.3.376.rm00, pattern = rm.01, replacement = ""); jjep.64.3.376.rm02 <- str_replace_all(jjep.64.3.376.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.376.rm03 <- str_replace_all(jjep.64.3.376.rm02, pattern = rm.03, replacement = ""); jjep.64.3.376.rm04 <- str_replace_all(jjep.64.3.376.rm03, pattern = rm.04, replacement = ""); jjep.64.3.376.rm05 <- str_replace_all(jjep.64.3.376.rm04, pattern = rm.05, replacement = ""); jjep.64.3.376.rm06 <- str_replace_all(jjep.64.3.376.rm05, pattern = rm.06, replacement = ""); jjep.64.3.376.rm07 <- str_replace_all(jjep.64.3.376.rm06, pattern = rm.07, replacement = ""); jjep.64.3.376.rm08 <- str_replace_all(jjep.64.3.376.rm07, pattern = rm.08, replacement = ""); jjep.64.3.376.rm09 <- str_replace_all(jjep.64.3.376.rm08, pattern = rm.09, replacement = ""); jjep.64.3.376.rp10 <- str_replace_all(jjep.64.3.376.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.376.rp11 <- str_replace_all(jjep.64.3.376.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.376.rp12 <- str_replace_all(jjep.64.3.376.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.376.rp13 <- str_replace_all(jjep.64.3.376.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.376.rp14 <- str_replace_all(jjep.64.3.376.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.376.rp15 <- str_replace_all(jjep.64.3.376.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.376.mod <- rbind(varname,jjep.64.3.376.rp15); write(jjep.64.3.376.mod, file = "./jjep/Mod_64_3_376.txt")
jjep.64.3.395.tx <- readr::read_file(file="./jjep/64_3_395.txt"); jjep.64.3.395.rm00 <- jjep.64.3.395.tx; jjep.64.3.395.rm01 <- str_replace_all(jjep.64.3.395.rm00, pattern = rm.01, replacement = ""); jjep.64.3.395.rm02 <- str_replace_all(jjep.64.3.395.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.395.rm03 <- str_replace_all(jjep.64.3.395.rm02, pattern = rm.03, replacement = ""); jjep.64.3.395.rm04 <- str_replace_all(jjep.64.3.395.rm03, pattern = rm.04, replacement = ""); jjep.64.3.395.rm05 <- str_replace_all(jjep.64.3.395.rm04, pattern = rm.05, replacement = ""); jjep.64.3.395.rm06 <- str_replace_all(jjep.64.3.395.rm05, pattern = rm.06, replacement = ""); jjep.64.3.395.rm07 <- str_replace_all(jjep.64.3.395.rm06, pattern = rm.07, replacement = ""); jjep.64.3.395.rm08 <- str_replace_all(jjep.64.3.395.rm07, pattern = rm.08, replacement = ""); jjep.64.3.395.rm09 <- str_replace_all(jjep.64.3.395.rm08, pattern = rm.09, replacement = ""); jjep.64.3.395.rp10 <- str_replace_all(jjep.64.3.395.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.395.rp11 <- str_replace_all(jjep.64.3.395.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.395.rp12 <- str_replace_all(jjep.64.3.395.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.395.rp13 <- str_replace_all(jjep.64.3.395.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.395.rp14 <- str_replace_all(jjep.64.3.395.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.395.rp15 <- str_replace_all(jjep.64.3.395.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.395.mod <- rbind(varname,jjep.64.3.395.rp15); write(jjep.64.3.395.mod, file = "./jjep/Mod_64_3_395.txt")
jjep.64.3.407.tx <- readr::read_file(file="./jjep/64_3_407.txt"); jjep.64.3.407.rm00 <- jjep.64.3.407.tx; jjep.64.3.407.rm01 <- str_replace_all(jjep.64.3.407.rm00, pattern = rm.01, replacement = ""); jjep.64.3.407.rm02 <- str_replace_all(jjep.64.3.407.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.407.rm03 <- str_replace_all(jjep.64.3.407.rm02, pattern = rm.03, replacement = ""); jjep.64.3.407.rm04 <- str_replace_all(jjep.64.3.407.rm03, pattern = rm.04, replacement = ""); jjep.64.3.407.rm05 <- str_replace_all(jjep.64.3.407.rm04, pattern = rm.05, replacement = ""); jjep.64.3.407.rm06 <- str_replace_all(jjep.64.3.407.rm05, pattern = rm.06, replacement = ""); jjep.64.3.407.rm07 <- str_replace_all(jjep.64.3.407.rm06, pattern = rm.07, replacement = ""); jjep.64.3.407.rm08 <- str_replace_all(jjep.64.3.407.rm07, pattern = rm.08, replacement = ""); jjep.64.3.407.rm09 <- str_replace_all(jjep.64.3.407.rm08, pattern = rm.09, replacement = ""); jjep.64.3.407.rp10 <- str_replace_all(jjep.64.3.407.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.407.rp11 <- str_replace_all(jjep.64.3.407.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.407.rp12 <- str_replace_all(jjep.64.3.407.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.407.rp13 <- str_replace_all(jjep.64.3.407.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.407.rp14 <- str_replace_all(jjep.64.3.407.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.407.rp15 <- str_replace_all(jjep.64.3.407.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.407.mod <- rbind(varname,jjep.64.3.407.rp15); write(jjep.64.3.407.mod, file = "./jjep/Mod_64_3_407.txt")
jjep.64.3.423.tx <- readr::read_file(file="./jjep/64_3_423.txt"); jjep.64.3.423.rm00 <- jjep.64.3.423.tx; jjep.64.3.423.rm01 <- str_replace_all(jjep.64.3.423.rm00, pattern = rm.01, replacement = ""); jjep.64.3.423.rm02 <- str_replace_all(jjep.64.3.423.rm01, pattern = rm.02, replacement = "^"); jjep.64.3.423.rm03 <- str_replace_all(jjep.64.3.423.rm02, pattern = rm.03, replacement = ""); jjep.64.3.423.rm04 <- str_replace_all(jjep.64.3.423.rm03, pattern = rm.04, replacement = ""); jjep.64.3.423.rm05 <- str_replace_all(jjep.64.3.423.rm04, pattern = rm.05, replacement = ""); jjep.64.3.423.rm06 <- str_replace_all(jjep.64.3.423.rm05, pattern = rm.06, replacement = ""); jjep.64.3.423.rm07 <- str_replace_all(jjep.64.3.423.rm06, pattern = rm.07, replacement = ""); jjep.64.3.423.rm08 <- str_replace_all(jjep.64.3.423.rm07, pattern = rm.08, replacement = ""); jjep.64.3.423.rm09 <- str_replace_all(jjep.64.3.423.rm08, pattern = rm.09, replacement = ""); jjep.64.3.423.rp10 <- str_replace_all(jjep.64.3.423.rm09, pattern = rp.01, replacement = "・"); jjep.64.3.423.rp11 <- str_replace_all(jjep.64.3.423.rp10, pattern = rp.02, replacement = "^"); jjep.64.3.423.rp12 <- str_replace_all(jjep.64.3.423.rp11, pattern = rp.03, replacement = "^"); jjep.64.3.423.rp13 <- str_replace_all(jjep.64.3.423.rp12, pattern = rp.04, replacement = "^"); jjep.64.3.423.rp14 <- str_replace_all(jjep.64.3.423.rp13, pattern = rp.05, replacement = "^"); jjep.64.3.423.rp15 <- str_replace_all(jjep.64.3.423.rp14, pattern = rp.06, replacement = "^"); jjep.64.3.423.mod <- rbind(varname,jjep.64.3.423.rp15); write(jjep.64.3.423.mod, file = "./jjep/Mod_64_3_423.txt")
jjep.64.2.147.tx <- readr::read_file(file="./jjep/64_2_147.txt"); jjep.64.2.147.rm00 <- jjep.64.2.147.tx; jjep.64.2.147.rm01 <- str_replace_all(jjep.64.2.147.rm00, pattern = rm.01, replacement = ""); jjep.64.2.147.rm02 <- str_replace_all(jjep.64.2.147.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.147.rm03 <- str_replace_all(jjep.64.2.147.rm02, pattern = rm.03, replacement = ""); jjep.64.2.147.rm04 <- str_replace_all(jjep.64.2.147.rm03, pattern = rm.04, replacement = ""); jjep.64.2.147.rm05 <- str_replace_all(jjep.64.2.147.rm04, pattern = rm.05, replacement = ""); jjep.64.2.147.rm06 <- str_replace_all(jjep.64.2.147.rm05, pattern = rm.06, replacement = ""); jjep.64.2.147.rm07 <- str_replace_all(jjep.64.2.147.rm06, pattern = rm.07, replacement = ""); jjep.64.2.147.rm08 <- str_replace_all(jjep.64.2.147.rm07, pattern = rm.08, replacement = ""); jjep.64.2.147.rm09 <- str_replace_all(jjep.64.2.147.rm08, pattern = rm.09, replacement = ""); jjep.64.2.147.rp10 <- str_replace_all(jjep.64.2.147.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.147.rp11 <- str_replace_all(jjep.64.2.147.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.147.rp12 <- str_replace_all(jjep.64.2.147.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.147.rp13 <- str_replace_all(jjep.64.2.147.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.147.rp14 <- str_replace_all(jjep.64.2.147.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.147.rp15 <- str_replace_all(jjep.64.2.147.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.147.mod <- rbind(varname,jjep.64.2.147.rp15); write(jjep.64.2.147.mod, file = "./jjep/Mod_64_2_147.txt")
jjep.64.2.156.tx <- readr::read_file(file="./jjep/64_2_156.txt"); jjep.64.2.156.rm00 <- jjep.64.2.156.tx; jjep.64.2.156.rm01 <- str_replace_all(jjep.64.2.156.rm00, pattern = rm.01, replacement = ""); jjep.64.2.156.rm02 <- str_replace_all(jjep.64.2.156.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.156.rm03 <- str_replace_all(jjep.64.2.156.rm02, pattern = rm.03, replacement = ""); jjep.64.2.156.rm04 <- str_replace_all(jjep.64.2.156.rm03, pattern = rm.04, replacement = ""); jjep.64.2.156.rm05 <- str_replace_all(jjep.64.2.156.rm04, pattern = rm.05, replacement = ""); jjep.64.2.156.rm06 <- str_replace_all(jjep.64.2.156.rm05, pattern = rm.06, replacement = ""); jjep.64.2.156.rm07 <- str_replace_all(jjep.64.2.156.rm06, pattern = rm.07, replacement = ""); jjep.64.2.156.rm08 <- str_replace_all(jjep.64.2.156.rm07, pattern = rm.08, replacement = ""); jjep.64.2.156.rm09 <- str_replace_all(jjep.64.2.156.rm08, pattern = rm.09, replacement = ""); jjep.64.2.156.rp10 <- str_replace_all(jjep.64.2.156.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.156.rp11 <- str_replace_all(jjep.64.2.156.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.156.rp12 <- str_replace_all(jjep.64.2.156.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.156.rp13 <- str_replace_all(jjep.64.2.156.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.156.rp14 <- str_replace_all(jjep.64.2.156.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.156.rp15 <- str_replace_all(jjep.64.2.156.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.156.mod <- rbind(varname,jjep.64.2.156.rp15); write(jjep.64.2.156.mod, file = "./jjep/Mod_64_2_156.txt")
jjep.64.2.170.tx <- readr::read_file(file="./jjep/64_2_170.txt"); jjep.64.2.170.rm00 <- jjep.64.2.170.tx; jjep.64.2.170.rm01 <- str_replace_all(jjep.64.2.170.rm00, pattern = rm.01, replacement = ""); jjep.64.2.170.rm02 <- str_replace_all(jjep.64.2.170.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.170.rm03 <- str_replace_all(jjep.64.2.170.rm02, pattern = rm.03, replacement = ""); jjep.64.2.170.rm04 <- str_replace_all(jjep.64.2.170.rm03, pattern = rm.04, replacement = ""); jjep.64.2.170.rm05 <- str_replace_all(jjep.64.2.170.rm04, pattern = rm.05, replacement = ""); jjep.64.2.170.rm06 <- str_replace_all(jjep.64.2.170.rm05, pattern = rm.06, replacement = ""); jjep.64.2.170.rm07 <- str_replace_all(jjep.64.2.170.rm06, pattern = rm.07, replacement = ""); jjep.64.2.170.rm08 <- str_replace_all(jjep.64.2.170.rm07, pattern = rm.08, replacement = ""); jjep.64.2.170.rm09 <- str_replace_all(jjep.64.2.170.rm08, pattern = rm.09, replacement = ""); jjep.64.2.170.rp10 <- str_replace_all(jjep.64.2.170.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.170.rp11 <- str_replace_all(jjep.64.2.170.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.170.rp12 <- str_replace_all(jjep.64.2.170.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.170.rp13 <- str_replace_all(jjep.64.2.170.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.170.rp14 <- str_replace_all(jjep.64.2.170.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.170.rp15 <- str_replace_all(jjep.64.2.170.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.170.mod <- rbind(varname,jjep.64.2.170.rp15); write(jjep.64.2.170.mod, file = "./jjep/Mod_64_2_170.txt")
jjep.64.2.184.tx <- readr::read_file(file="./jjep/64_2_184.txt"); jjep.64.2.184.rm00 <- jjep.64.2.184.tx; jjep.64.2.184.rm01 <- str_replace_all(jjep.64.2.184.rm00, pattern = rm.01, replacement = ""); jjep.64.2.184.rm02 <- str_replace_all(jjep.64.2.184.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.184.rm03 <- str_replace_all(jjep.64.2.184.rm02, pattern = rm.03, replacement = ""); jjep.64.2.184.rm04 <- str_replace_all(jjep.64.2.184.rm03, pattern = rm.04, replacement = ""); jjep.64.2.184.rm05 <- str_replace_all(jjep.64.2.184.rm04, pattern = rm.05, replacement = ""); jjep.64.2.184.rm06 <- str_replace_all(jjep.64.2.184.rm05, pattern = rm.06, replacement = ""); jjep.64.2.184.rm07 <- str_replace_all(jjep.64.2.184.rm06, pattern = rm.07, replacement = ""); jjep.64.2.184.rm08 <- str_replace_all(jjep.64.2.184.rm07, pattern = rm.08, replacement = ""); jjep.64.2.184.rm09 <- str_replace_all(jjep.64.2.184.rm08, pattern = rm.09, replacement = ""); jjep.64.2.184.rp10 <- str_replace_all(jjep.64.2.184.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.184.rp11 <- str_replace_all(jjep.64.2.184.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.184.rp12 <- str_replace_all(jjep.64.2.184.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.184.rp13 <- str_replace_all(jjep.64.2.184.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.184.rp14 <- str_replace_all(jjep.64.2.184.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.184.rp15 <- str_replace_all(jjep.64.2.184.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.184.mod <- rbind(varname,jjep.64.2.184.rp15); write(jjep.64.2.184.mod, file = "./jjep/Mod_64_2_184.txt")
jjep.64.2.199.tx <- readr::read_file(file="./jjep/64_2_199.txt"); jjep.64.2.199.rm00 <- jjep.64.2.199.tx; jjep.64.2.199.rm01 <- str_replace_all(jjep.64.2.199.rm00, pattern = rm.01, replacement = ""); jjep.64.2.199.rm02 <- str_replace_all(jjep.64.2.199.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.199.rm03 <- str_replace_all(jjep.64.2.199.rm02, pattern = rm.03, replacement = ""); jjep.64.2.199.rm04 <- str_replace_all(jjep.64.2.199.rm03, pattern = rm.04, replacement = ""); jjep.64.2.199.rm05 <- str_replace_all(jjep.64.2.199.rm04, pattern = rm.05, replacement = ""); jjep.64.2.199.rm06 <- str_replace_all(jjep.64.2.199.rm05, pattern = rm.06, replacement = ""); jjep.64.2.199.rm07 <- str_replace_all(jjep.64.2.199.rm06, pattern = rm.07, replacement = ""); jjep.64.2.199.rm08 <- str_replace_all(jjep.64.2.199.rm07, pattern = rm.08, replacement = ""); jjep.64.2.199.rm09 <- str_replace_all(jjep.64.2.199.rm08, pattern = rm.09, replacement = ""); jjep.64.2.199.rp10 <- str_replace_all(jjep.64.2.199.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.199.rp11 <- str_replace_all(jjep.64.2.199.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.199.rp12 <- str_replace_all(jjep.64.2.199.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.199.rp13 <- str_replace_all(jjep.64.2.199.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.199.rp14 <- str_replace_all(jjep.64.2.199.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.199.rp15 <- str_replace_all(jjep.64.2.199.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.199.mod <- rbind(varname,jjep.64.2.199.rp15); write(jjep.64.2.199.mod, file = "./jjep/Mod_64_2_199.txt")
jjep.64.2.212.tx <- readr::read_file(file="./jjep/64_2_212.txt"); jjep.64.2.212.rm00 <- jjep.64.2.212.tx; jjep.64.2.212.rm01 <- str_replace_all(jjep.64.2.212.rm00, pattern = rm.01, replacement = ""); jjep.64.2.212.rm02 <- str_replace_all(jjep.64.2.212.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.212.rm03 <- str_replace_all(jjep.64.2.212.rm02, pattern = rm.03, replacement = ""); jjep.64.2.212.rm04 <- str_replace_all(jjep.64.2.212.rm03, pattern = rm.04, replacement = ""); jjep.64.2.212.rm05 <- str_replace_all(jjep.64.2.212.rm04, pattern = rm.05, replacement = ""); jjep.64.2.212.rm06 <- str_replace_all(jjep.64.2.212.rm05, pattern = rm.06, replacement = ""); jjep.64.2.212.rm07 <- str_replace_all(jjep.64.2.212.rm06, pattern = rm.07, replacement = ""); jjep.64.2.212.rm08 <- str_replace_all(jjep.64.2.212.rm07, pattern = rm.08, replacement = ""); jjep.64.2.212.rm09 <- str_replace_all(jjep.64.2.212.rm08, pattern = rm.09, replacement = ""); jjep.64.2.212.rp10 <- str_replace_all(jjep.64.2.212.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.212.rp11 <- str_replace_all(jjep.64.2.212.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.212.rp12 <- str_replace_all(jjep.64.2.212.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.212.rp13 <- str_replace_all(jjep.64.2.212.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.212.rp14 <- str_replace_all(jjep.64.2.212.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.212.rp15 <- str_replace_all(jjep.64.2.212.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.212.mod <- rbind(varname,jjep.64.2.212.rp15); write(jjep.64.2.212.mod, file = "./jjep/Mod_64_2_212.txt")
jjep.64.2.228.tx <- readr::read_file(file="./jjep/64_2_228.txt"); jjep.64.2.228.rm00 <- jjep.64.2.228.tx; jjep.64.2.228.rm01 <- str_replace_all(jjep.64.2.228.rm00, pattern = rm.01, replacement = ""); jjep.64.2.228.rm02 <- str_replace_all(jjep.64.2.228.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.228.rm03 <- str_replace_all(jjep.64.2.228.rm02, pattern = rm.03, replacement = ""); jjep.64.2.228.rm04 <- str_replace_all(jjep.64.2.228.rm03, pattern = rm.04, replacement = ""); jjep.64.2.228.rm05 <- str_replace_all(jjep.64.2.228.rm04, pattern = rm.05, replacement = ""); jjep.64.2.228.rm06 <- str_replace_all(jjep.64.2.228.rm05, pattern = rm.06, replacement = ""); jjep.64.2.228.rm07 <- str_replace_all(jjep.64.2.228.rm06, pattern = rm.07, replacement = ""); jjep.64.2.228.rm08 <- str_replace_all(jjep.64.2.228.rm07, pattern = rm.08, replacement = ""); jjep.64.2.228.rm09 <- str_replace_all(jjep.64.2.228.rm08, pattern = rm.09, replacement = ""); jjep.64.2.228.rp10 <- str_replace_all(jjep.64.2.228.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.228.rp11 <- str_replace_all(jjep.64.2.228.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.228.rp12 <- str_replace_all(jjep.64.2.228.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.228.rp13 <- str_replace_all(jjep.64.2.228.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.228.rp14 <- str_replace_all(jjep.64.2.228.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.228.rp15 <- str_replace_all(jjep.64.2.228.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.228.mod <- rbind(varname,jjep.64.2.228.rp15); write(jjep.64.2.228.mod, file = "./jjep/Mod_64_2_228.txt")
jjep.64.2.241.tx <- readr::read_file(file="./jjep/64_2_241.txt"); jjep.64.2.241.rm00 <- jjep.64.2.241.tx; jjep.64.2.241.rm01 <- str_replace_all(jjep.64.2.241.rm00, pattern = rm.01, replacement = ""); jjep.64.2.241.rm02 <- str_replace_all(jjep.64.2.241.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.241.rm03 <- str_replace_all(jjep.64.2.241.rm02, pattern = rm.03, replacement = ""); jjep.64.2.241.rm04 <- str_replace_all(jjep.64.2.241.rm03, pattern = rm.04, replacement = ""); jjep.64.2.241.rm05 <- str_replace_all(jjep.64.2.241.rm04, pattern = rm.05, replacement = ""); jjep.64.2.241.rm06 <- str_replace_all(jjep.64.2.241.rm05, pattern = rm.06, replacement = ""); jjep.64.2.241.rm07 <- str_replace_all(jjep.64.2.241.rm06, pattern = rm.07, replacement = ""); jjep.64.2.241.rm08 <- str_replace_all(jjep.64.2.241.rm07, pattern = rm.08, replacement = ""); jjep.64.2.241.rm09 <- str_replace_all(jjep.64.2.241.rm08, pattern = rm.09, replacement = ""); jjep.64.2.241.rp10 <- str_replace_all(jjep.64.2.241.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.241.rp11 <- str_replace_all(jjep.64.2.241.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.241.rp12 <- str_replace_all(jjep.64.2.241.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.241.rp13 <- str_replace_all(jjep.64.2.241.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.241.rp14 <- str_replace_all(jjep.64.2.241.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.241.rp15 <- str_replace_all(jjep.64.2.241.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.241.mod <- rbind(varname,jjep.64.2.241.rp15); write(jjep.64.2.241.mod, file = "./jjep/Mod_64_2_241.txt")
jjep.64.2.256.tx <- readr::read_file(file="./jjep/64_2_256.txt"); jjep.64.2.256.rm00 <- jjep.64.2.256.tx; jjep.64.2.256.rm01 <- str_replace_all(jjep.64.2.256.rm00, pattern = rm.01, replacement = ""); jjep.64.2.256.rm02 <- str_replace_all(jjep.64.2.256.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.256.rm03 <- str_replace_all(jjep.64.2.256.rm02, pattern = rm.03, replacement = ""); jjep.64.2.256.rm04 <- str_replace_all(jjep.64.2.256.rm03, pattern = rm.04, replacement = ""); jjep.64.2.256.rm05 <- str_replace_all(jjep.64.2.256.rm04, pattern = rm.05, replacement = ""); jjep.64.2.256.rm06 <- str_replace_all(jjep.64.2.256.rm05, pattern = rm.06, replacement = ""); jjep.64.2.256.rm07 <- str_replace_all(jjep.64.2.256.rm06, pattern = rm.07, replacement = ""); jjep.64.2.256.rm08 <- str_replace_all(jjep.64.2.256.rm07, pattern = rm.08, replacement = ""); jjep.64.2.256.rm09 <- str_replace_all(jjep.64.2.256.rm08, pattern = rm.09, replacement = ""); jjep.64.2.256.rp10 <- str_replace_all(jjep.64.2.256.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.256.rp11 <- str_replace_all(jjep.64.2.256.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.256.rp12 <- str_replace_all(jjep.64.2.256.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.256.rp13 <- str_replace_all(jjep.64.2.256.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.256.rp14 <- str_replace_all(jjep.64.2.256.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.256.rp15 <- str_replace_all(jjep.64.2.256.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.256.mod <- rbind(varname,jjep.64.2.256.rp15); write(jjep.64.2.256.mod, file = "./jjep/Mod_64_2_256.txt")
jjep.64.2.268.tx <- readr::read_file(file="./jjep/64_2_268.txt"); jjep.64.2.268.rm00 <- jjep.64.2.268.tx; jjep.64.2.268.rm01 <- str_replace_all(jjep.64.2.268.rm00, pattern = rm.01, replacement = ""); jjep.64.2.268.rm02 <- str_replace_all(jjep.64.2.268.rm01, pattern = rm.02, replacement = "^"); jjep.64.2.268.rm03 <- str_replace_all(jjep.64.2.268.rm02, pattern = rm.03, replacement = ""); jjep.64.2.268.rm04 <- str_replace_all(jjep.64.2.268.rm03, pattern = rm.04, replacement = ""); jjep.64.2.268.rm05 <- str_replace_all(jjep.64.2.268.rm04, pattern = rm.05, replacement = ""); jjep.64.2.268.rm06 <- str_replace_all(jjep.64.2.268.rm05, pattern = rm.06, replacement = ""); jjep.64.2.268.rm07 <- str_replace_all(jjep.64.2.268.rm06, pattern = rm.07, replacement = ""); jjep.64.2.268.rm08 <- str_replace_all(jjep.64.2.268.rm07, pattern = rm.08, replacement = ""); jjep.64.2.268.rm09 <- str_replace_all(jjep.64.2.268.rm08, pattern = rm.09, replacement = ""); jjep.64.2.268.rp10 <- str_replace_all(jjep.64.2.268.rm09, pattern = rp.01, replacement = "・"); jjep.64.2.268.rp11 <- str_replace_all(jjep.64.2.268.rp10, pattern = rp.02, replacement = "^"); jjep.64.2.268.rp12 <- str_replace_all(jjep.64.2.268.rp11, pattern = rp.03, replacement = "^"); jjep.64.2.268.rp13 <- str_replace_all(jjep.64.2.268.rp12, pattern = rp.04, replacement = "^"); jjep.64.2.268.rp14 <- str_replace_all(jjep.64.2.268.rp13, pattern = rp.05, replacement = "^"); jjep.64.2.268.rp15 <- str_replace_all(jjep.64.2.268.rp14, pattern = rp.06, replacement = "^"); jjep.64.2.268.mod <- rbind(varname,jjep.64.2.268.rp15); write(jjep.64.2.268.mod, file = "./jjep/Mod_64_2_268.txt")
jjep.64.1.1.tx <- readr::read_file(file="./jjep/64_1_1.txt"); jjep.64.1.1.rm00 <- jjep.64.1.1.tx; jjep.64.1.1.rm01 <- str_replace_all(jjep.64.1.1.rm00, pattern = rm.01, replacement = ""); jjep.64.1.1.rm02 <- str_replace_all(jjep.64.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.1.rm03 <- str_replace_all(jjep.64.1.1.rm02, pattern = rm.03, replacement = ""); jjep.64.1.1.rm04 <- str_replace_all(jjep.64.1.1.rm03, pattern = rm.04, replacement = ""); jjep.64.1.1.rm05 <- str_replace_all(jjep.64.1.1.rm04, pattern = rm.05, replacement = ""); jjep.64.1.1.rm06 <- str_replace_all(jjep.64.1.1.rm05, pattern = rm.06, replacement = ""); jjep.64.1.1.rm07 <- str_replace_all(jjep.64.1.1.rm06, pattern = rm.07, replacement = ""); jjep.64.1.1.rm08 <- str_replace_all(jjep.64.1.1.rm07, pattern = rm.08, replacement = ""); jjep.64.1.1.rm09 <- str_replace_all(jjep.64.1.1.rm08, pattern = rm.09, replacement = ""); jjep.64.1.1.rp10 <- str_replace_all(jjep.64.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.1.rp11 <- str_replace_all(jjep.64.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.1.rp12 <- str_replace_all(jjep.64.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.1.rp13 <- str_replace_all(jjep.64.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.1.rp14 <- str_replace_all(jjep.64.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.1.rp15 <- str_replace_all(jjep.64.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.1.mod <- rbind(varname,jjep.64.1.1.rp15); write(jjep.64.1.1.mod, file = "./jjep/Mod_64_1_1.txt")
jjep.64.1.13.tx <- readr::read_file(file="./jjep/64_1_13.txt"); jjep.64.1.13.rm00 <- jjep.64.1.13.tx; jjep.64.1.13.rm01 <- str_replace_all(jjep.64.1.13.rm00, pattern = rm.01, replacement = ""); jjep.64.1.13.rm02 <- str_replace_all(jjep.64.1.13.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.13.rm03 <- str_replace_all(jjep.64.1.13.rm02, pattern = rm.03, replacement = ""); jjep.64.1.13.rm04 <- str_replace_all(jjep.64.1.13.rm03, pattern = rm.04, replacement = ""); jjep.64.1.13.rm05 <- str_replace_all(jjep.64.1.13.rm04, pattern = rm.05, replacement = ""); jjep.64.1.13.rm06 <- str_replace_all(jjep.64.1.13.rm05, pattern = rm.06, replacement = ""); jjep.64.1.13.rm07 <- str_replace_all(jjep.64.1.13.rm06, pattern = rm.07, replacement = ""); jjep.64.1.13.rm08 <- str_replace_all(jjep.64.1.13.rm07, pattern = rm.08, replacement = ""); jjep.64.1.13.rm09 <- str_replace_all(jjep.64.1.13.rm08, pattern = rm.09, replacement = ""); jjep.64.1.13.rp10 <- str_replace_all(jjep.64.1.13.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.13.rp11 <- str_replace_all(jjep.64.1.13.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.13.rp12 <- str_replace_all(jjep.64.1.13.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.13.rp13 <- str_replace_all(jjep.64.1.13.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.13.rp14 <- str_replace_all(jjep.64.1.13.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.13.rp15 <- str_replace_all(jjep.64.1.13.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.13.mod <- rbind(varname,jjep.64.1.13.rp15); write(jjep.64.1.13.mod, file = "./jjep/Mod_64_1_13.txt")
jjep.64.1.26.tx <- readr::read_file(file="./jjep/64_1_26.txt"); jjep.64.1.26.rm00 <- jjep.64.1.26.tx; jjep.64.1.26.rm01 <- str_replace_all(jjep.64.1.26.rm00, pattern = rm.01, replacement = ""); jjep.64.1.26.rm02 <- str_replace_all(jjep.64.1.26.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.26.rm03 <- str_replace_all(jjep.64.1.26.rm02, pattern = rm.03, replacement = ""); jjep.64.1.26.rm04 <- str_replace_all(jjep.64.1.26.rm03, pattern = rm.04, replacement = ""); jjep.64.1.26.rm05 <- str_replace_all(jjep.64.1.26.rm04, pattern = rm.05, replacement = ""); jjep.64.1.26.rm06 <- str_replace_all(jjep.64.1.26.rm05, pattern = rm.06, replacement = ""); jjep.64.1.26.rm07 <- str_replace_all(jjep.64.1.26.rm06, pattern = rm.07, replacement = ""); jjep.64.1.26.rm08 <- str_replace_all(jjep.64.1.26.rm07, pattern = rm.08, replacement = ""); jjep.64.1.26.rm09 <- str_replace_all(jjep.64.1.26.rm08, pattern = rm.09, replacement = ""); jjep.64.1.26.rp10 <- str_replace_all(jjep.64.1.26.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.26.rp11 <- str_replace_all(jjep.64.1.26.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.26.rp12 <- str_replace_all(jjep.64.1.26.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.26.rp13 <- str_replace_all(jjep.64.1.26.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.26.rp14 <- str_replace_all(jjep.64.1.26.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.26.rp15 <- str_replace_all(jjep.64.1.26.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.26.mod <- rbind(varname,jjep.64.1.26.rp15); write(jjep.64.1.26.mod, file = "./jjep/Mod_64_1_26.txt")
jjep.64.1.41.tx <- readr::read_file(file="./jjep/64_1_41.txt"); jjep.64.1.41.rm00 <- jjep.64.1.41.tx; jjep.64.1.41.rm01 <- str_replace_all(jjep.64.1.41.rm00, pattern = rm.01, replacement = ""); jjep.64.1.41.rm02 <- str_replace_all(jjep.64.1.41.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.41.rm03 <- str_replace_all(jjep.64.1.41.rm02, pattern = rm.03, replacement = ""); jjep.64.1.41.rm04 <- str_replace_all(jjep.64.1.41.rm03, pattern = rm.04, replacement = ""); jjep.64.1.41.rm05 <- str_replace_all(jjep.64.1.41.rm04, pattern = rm.05, replacement = ""); jjep.64.1.41.rm06 <- str_replace_all(jjep.64.1.41.rm05, pattern = rm.06, replacement = ""); jjep.64.1.41.rm07 <- str_replace_all(jjep.64.1.41.rm06, pattern = rm.07, replacement = ""); jjep.64.1.41.rm08 <- str_replace_all(jjep.64.1.41.rm07, pattern = rm.08, replacement = ""); jjep.64.1.41.rm09 <- str_replace_all(jjep.64.1.41.rm08, pattern = rm.09, replacement = ""); jjep.64.1.41.rp10 <- str_replace_all(jjep.64.1.41.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.41.rp11 <- str_replace_all(jjep.64.1.41.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.41.rp12 <- str_replace_all(jjep.64.1.41.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.41.rp13 <- str_replace_all(jjep.64.1.41.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.41.rp14 <- str_replace_all(jjep.64.1.41.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.41.rp15 <- str_replace_all(jjep.64.1.41.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.41.mod <- rbind(varname,jjep.64.1.41.rp15); write(jjep.64.1.41.mod, file = "./jjep/Mod_64_1_41.txt")
jjep.64.1.59.tx <- readr::read_file(file="./jjep/64_1_59.txt"); jjep.64.1.59.rm00 <- jjep.64.1.59.tx; jjep.64.1.59.rm01 <- str_replace_all(jjep.64.1.59.rm00, pattern = rm.01, replacement = ""); jjep.64.1.59.rm02 <- str_replace_all(jjep.64.1.59.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.59.rm03 <- str_replace_all(jjep.64.1.59.rm02, pattern = rm.03, replacement = ""); jjep.64.1.59.rm04 <- str_replace_all(jjep.64.1.59.rm03, pattern = rm.04, replacement = ""); jjep.64.1.59.rm05 <- str_replace_all(jjep.64.1.59.rm04, pattern = rm.05, replacement = ""); jjep.64.1.59.rm06 <- str_replace_all(jjep.64.1.59.rm05, pattern = rm.06, replacement = ""); jjep.64.1.59.rm07 <- str_replace_all(jjep.64.1.59.rm06, pattern = rm.07, replacement = ""); jjep.64.1.59.rm08 <- str_replace_all(jjep.64.1.59.rm07, pattern = rm.08, replacement = ""); jjep.64.1.59.rm09 <- str_replace_all(jjep.64.1.59.rm08, pattern = rm.09, replacement = ""); jjep.64.1.59.rp10 <- str_replace_all(jjep.64.1.59.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.59.rp11 <- str_replace_all(jjep.64.1.59.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.59.rp12 <- str_replace_all(jjep.64.1.59.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.59.rp13 <- str_replace_all(jjep.64.1.59.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.59.rp14 <- str_replace_all(jjep.64.1.59.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.59.rp15 <- str_replace_all(jjep.64.1.59.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.59.mod <- rbind(varname,jjep.64.1.59.rp15); write(jjep.64.1.59.mod, file = "./jjep/Mod_64_1_59.txt")
jjep.64.1.76.tx <- readr::read_file(file="./jjep/64_1_76.txt"); jjep.64.1.76.rm00 <- jjep.64.1.76.tx; jjep.64.1.76.rm01 <- str_replace_all(jjep.64.1.76.rm00, pattern = rm.01, replacement = ""); jjep.64.1.76.rm02 <- str_replace_all(jjep.64.1.76.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.76.rm03 <- str_replace_all(jjep.64.1.76.rm02, pattern = rm.03, replacement = ""); jjep.64.1.76.rm04 <- str_replace_all(jjep.64.1.76.rm03, pattern = rm.04, replacement = ""); jjep.64.1.76.rm05 <- str_replace_all(jjep.64.1.76.rm04, pattern = rm.05, replacement = ""); jjep.64.1.76.rm06 <- str_replace_all(jjep.64.1.76.rm05, pattern = rm.06, replacement = ""); jjep.64.1.76.rm07 <- str_replace_all(jjep.64.1.76.rm06, pattern = rm.07, replacement = ""); jjep.64.1.76.rm08 <- str_replace_all(jjep.64.1.76.rm07, pattern = rm.08, replacement = ""); jjep.64.1.76.rm09 <- str_replace_all(jjep.64.1.76.rm08, pattern = rm.09, replacement = ""); jjep.64.1.76.rp10 <- str_replace_all(jjep.64.1.76.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.76.rp11 <- str_replace_all(jjep.64.1.76.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.76.rp12 <- str_replace_all(jjep.64.1.76.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.76.rp13 <- str_replace_all(jjep.64.1.76.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.76.rp14 <- str_replace_all(jjep.64.1.76.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.76.rp15 <- str_replace_all(jjep.64.1.76.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.76.mod <- rbind(varname,jjep.64.1.76.rp15); write(jjep.64.1.76.mod, file = "./jjep/Mod_64_1_76.txt")
jjep.64.1.88.tx <- readr::read_file(file="./jjep/64_1_88.txt"); jjep.64.1.88.rm00 <- jjep.64.1.88.tx; jjep.64.1.88.rm01 <- str_replace_all(jjep.64.1.88.rm00, pattern = rm.01, replacement = ""); jjep.64.1.88.rm02 <- str_replace_all(jjep.64.1.88.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.88.rm03 <- str_replace_all(jjep.64.1.88.rm02, pattern = rm.03, replacement = ""); jjep.64.1.88.rm04 <- str_replace_all(jjep.64.1.88.rm03, pattern = rm.04, replacement = ""); jjep.64.1.88.rm05 <- str_replace_all(jjep.64.1.88.rm04, pattern = rm.05, replacement = ""); jjep.64.1.88.rm06 <- str_replace_all(jjep.64.1.88.rm05, pattern = rm.06, replacement = ""); jjep.64.1.88.rm07 <- str_replace_all(jjep.64.1.88.rm06, pattern = rm.07, replacement = ""); jjep.64.1.88.rm08 <- str_replace_all(jjep.64.1.88.rm07, pattern = rm.08, replacement = ""); jjep.64.1.88.rm09 <- str_replace_all(jjep.64.1.88.rm08, pattern = rm.09, replacement = ""); jjep.64.1.88.rp10 <- str_replace_all(jjep.64.1.88.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.88.rp11 <- str_replace_all(jjep.64.1.88.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.88.rp12 <- str_replace_all(jjep.64.1.88.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.88.rp13 <- str_replace_all(jjep.64.1.88.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.88.rp14 <- str_replace_all(jjep.64.1.88.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.88.rp15 <- str_replace_all(jjep.64.1.88.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.88.mod <- rbind(varname,jjep.64.1.88.rp15); write(jjep.64.1.88.mod, file = "./jjep/Mod_64_1_88.txt")
jjep.64.1.105.tx <- readr::read_file(file="./jjep/64_1_105.txt"); jjep.64.1.105.rm00 <- jjep.64.1.105.tx; jjep.64.1.105.rm01 <- str_replace_all(jjep.64.1.105.rm00, pattern = rm.01, replacement = ""); jjep.64.1.105.rm02 <- str_replace_all(jjep.64.1.105.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.105.rm03 <- str_replace_all(jjep.64.1.105.rm02, pattern = rm.03, replacement = ""); jjep.64.1.105.rm04 <- str_replace_all(jjep.64.1.105.rm03, pattern = rm.04, replacement = ""); jjep.64.1.105.rm05 <- str_replace_all(jjep.64.1.105.rm04, pattern = rm.05, replacement = ""); jjep.64.1.105.rm06 <- str_replace_all(jjep.64.1.105.rm05, pattern = rm.06, replacement = ""); jjep.64.1.105.rm07 <- str_replace_all(jjep.64.1.105.rm06, pattern = rm.07, replacement = ""); jjep.64.1.105.rm08 <- str_replace_all(jjep.64.1.105.rm07, pattern = rm.08, replacement = ""); jjep.64.1.105.rm09 <- str_replace_all(jjep.64.1.105.rm08, pattern = rm.09, replacement = ""); jjep.64.1.105.rp10 <- str_replace_all(jjep.64.1.105.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.105.rp11 <- str_replace_all(jjep.64.1.105.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.105.rp12 <- str_replace_all(jjep.64.1.105.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.105.rp13 <- str_replace_all(jjep.64.1.105.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.105.rp14 <- str_replace_all(jjep.64.1.105.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.105.rp15 <- str_replace_all(jjep.64.1.105.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.105.mod <- rbind(varname,jjep.64.1.105.rp15); write(jjep.64.1.105.mod, file = "./jjep/Mod_64_1_105.txt")
jjep.64.1.118.tx <- readr::read_file(file="./jjep/64_1_118.txt"); jjep.64.1.118.rm00 <- jjep.64.1.118.tx; jjep.64.1.118.rm01 <- str_replace_all(jjep.64.1.118.rm00, pattern = rm.01, replacement = ""); jjep.64.1.118.rm02 <- str_replace_all(jjep.64.1.118.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.118.rm03 <- str_replace_all(jjep.64.1.118.rm02, pattern = rm.03, replacement = ""); jjep.64.1.118.rm04 <- str_replace_all(jjep.64.1.118.rm03, pattern = rm.04, replacement = ""); jjep.64.1.118.rm05 <- str_replace_all(jjep.64.1.118.rm04, pattern = rm.05, replacement = ""); jjep.64.1.118.rm06 <- str_replace_all(jjep.64.1.118.rm05, pattern = rm.06, replacement = ""); jjep.64.1.118.rm07 <- str_replace_all(jjep.64.1.118.rm06, pattern = rm.07, replacement = ""); jjep.64.1.118.rm08 <- str_replace_all(jjep.64.1.118.rm07, pattern = rm.08, replacement = ""); jjep.64.1.118.rm09 <- str_replace_all(jjep.64.1.118.rm08, pattern = rm.09, replacement = ""); jjep.64.1.118.rp10 <- str_replace_all(jjep.64.1.118.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.118.rp11 <- str_replace_all(jjep.64.1.118.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.118.rp12 <- str_replace_all(jjep.64.1.118.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.118.rp13 <- str_replace_all(jjep.64.1.118.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.118.rp14 <- str_replace_all(jjep.64.1.118.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.118.rp15 <- str_replace_all(jjep.64.1.118.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.118.mod <- rbind(varname,jjep.64.1.118.rp15); write(jjep.64.1.118.mod, file = "./jjep/Mod_64_1_118.txt")
jjep.64.1.131.tx <- readr::read_file(file="./jjep/64_1_131.txt"); jjep.64.1.131.rm00 <- jjep.64.1.131.tx; jjep.64.1.131.rm01 <- str_replace_all(jjep.64.1.131.rm00, pattern = rm.01, replacement = ""); jjep.64.1.131.rm02 <- str_replace_all(jjep.64.1.131.rm01, pattern = rm.02, replacement = "^"); jjep.64.1.131.rm03 <- str_replace_all(jjep.64.1.131.rm02, pattern = rm.03, replacement = ""); jjep.64.1.131.rm04 <- str_replace_all(jjep.64.1.131.rm03, pattern = rm.04, replacement = ""); jjep.64.1.131.rm05 <- str_replace_all(jjep.64.1.131.rm04, pattern = rm.05, replacement = ""); jjep.64.1.131.rm06 <- str_replace_all(jjep.64.1.131.rm05, pattern = rm.06, replacement = ""); jjep.64.1.131.rm07 <- str_replace_all(jjep.64.1.131.rm06, pattern = rm.07, replacement = ""); jjep.64.1.131.rm08 <- str_replace_all(jjep.64.1.131.rm07, pattern = rm.08, replacement = ""); jjep.64.1.131.rm09 <- str_replace_all(jjep.64.1.131.rm08, pattern = rm.09, replacement = ""); jjep.64.1.131.rp10 <- str_replace_all(jjep.64.1.131.rm09, pattern = rp.01, replacement = "・"); jjep.64.1.131.rp11 <- str_replace_all(jjep.64.1.131.rp10, pattern = rp.02, replacement = "^"); jjep.64.1.131.rp12 <- str_replace_all(jjep.64.1.131.rp11, pattern = rp.03, replacement = "^"); jjep.64.1.131.rp13 <- str_replace_all(jjep.64.1.131.rp12, pattern = rp.04, replacement = "^"); jjep.64.1.131.rp14 <- str_replace_all(jjep.64.1.131.rp13, pattern = rp.05, replacement = "^"); jjep.64.1.131.rp15 <- str_replace_all(jjep.64.1.131.rp14, pattern = rp.06, replacement = "^"); jjep.64.1.131.mod <- rbind(varname,jjep.64.1.131.rp15); write(jjep.64.1.131.mod, file = "./jjep/Mod_64_1_131.txt")
jjep.63.4.345.tx <- readr::read_file(file="./jjep/63_4_345.txt"); jjep.63.4.345.rm00 <- jjep.63.4.345.tx; jjep.63.4.345.rm01 <- str_replace_all(jjep.63.4.345.rm00, pattern = rm.01, replacement = ""); jjep.63.4.345.rm02 <- str_replace_all(jjep.63.4.345.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.345.rm03 <- str_replace_all(jjep.63.4.345.rm02, pattern = rm.03, replacement = ""); jjep.63.4.345.rm04 <- str_replace_all(jjep.63.4.345.rm03, pattern = rm.04, replacement = ""); jjep.63.4.345.rm05 <- str_replace_all(jjep.63.4.345.rm04, pattern = rm.05, replacement = ""); jjep.63.4.345.rm06 <- str_replace_all(jjep.63.4.345.rm05, pattern = rm.06, replacement = ""); jjep.63.4.345.rm07 <- str_replace_all(jjep.63.4.345.rm06, pattern = rm.07, replacement = ""); jjep.63.4.345.rm08 <- str_replace_all(jjep.63.4.345.rm07, pattern = rm.08, replacement = ""); jjep.63.4.345.rm09 <- str_replace_all(jjep.63.4.345.rm08, pattern = rm.09, replacement = ""); jjep.63.4.345.rp10 <- str_replace_all(jjep.63.4.345.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.345.rp11 <- str_replace_all(jjep.63.4.345.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.345.rp12 <- str_replace_all(jjep.63.4.345.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.345.rp13 <- str_replace_all(jjep.63.4.345.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.345.rp14 <- str_replace_all(jjep.63.4.345.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.345.rp15 <- str_replace_all(jjep.63.4.345.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.345.mod <- rbind(varname,jjep.63.4.345.rp15); write(jjep.63.4.345.mod, file = "./jjep/Mod_63_4_345.txt")
jjep.63.4.359.tx <- readr::read_file(file="./jjep/63_4_359.txt"); jjep.63.4.359.rm00 <- jjep.63.4.359.tx; jjep.63.4.359.rm01 <- str_replace_all(jjep.63.4.359.rm00, pattern = rm.01, replacement = ""); jjep.63.4.359.rm02 <- str_replace_all(jjep.63.4.359.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.359.rm03 <- str_replace_all(jjep.63.4.359.rm02, pattern = rm.03, replacement = ""); jjep.63.4.359.rm04 <- str_replace_all(jjep.63.4.359.rm03, pattern = rm.04, replacement = ""); jjep.63.4.359.rm05 <- str_replace_all(jjep.63.4.359.rm04, pattern = rm.05, replacement = ""); jjep.63.4.359.rm06 <- str_replace_all(jjep.63.4.359.rm05, pattern = rm.06, replacement = ""); jjep.63.4.359.rm07 <- str_replace_all(jjep.63.4.359.rm06, pattern = rm.07, replacement = ""); jjep.63.4.359.rm08 <- str_replace_all(jjep.63.4.359.rm07, pattern = rm.08, replacement = ""); jjep.63.4.359.rm09 <- str_replace_all(jjep.63.4.359.rm08, pattern = rm.09, replacement = ""); jjep.63.4.359.rp10 <- str_replace_all(jjep.63.4.359.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.359.rp11 <- str_replace_all(jjep.63.4.359.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.359.rp12 <- str_replace_all(jjep.63.4.359.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.359.rp13 <- str_replace_all(jjep.63.4.359.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.359.rp14 <- str_replace_all(jjep.63.4.359.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.359.rp15 <- str_replace_all(jjep.63.4.359.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.359.mod <- rbind(varname,jjep.63.4.359.rp15); write(jjep.63.4.359.mod, file = "./jjep/Mod_63_4_359.txt")
jjep.63.4.372.tx <- readr::read_file(file="./jjep/63_4_372.txt"); jjep.63.4.372.rm00 <- jjep.63.4.372.tx; jjep.63.4.372.rm01 <- str_replace_all(jjep.63.4.372.rm00, pattern = rm.01, replacement = ""); jjep.63.4.372.rm02 <- str_replace_all(jjep.63.4.372.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.372.rm03 <- str_replace_all(jjep.63.4.372.rm02, pattern = rm.03, replacement = ""); jjep.63.4.372.rm04 <- str_replace_all(jjep.63.4.372.rm03, pattern = rm.04, replacement = ""); jjep.63.4.372.rm05 <- str_replace_all(jjep.63.4.372.rm04, pattern = rm.05, replacement = ""); jjep.63.4.372.rm06 <- str_replace_all(jjep.63.4.372.rm05, pattern = rm.06, replacement = ""); jjep.63.4.372.rm07 <- str_replace_all(jjep.63.4.372.rm06, pattern = rm.07, replacement = ""); jjep.63.4.372.rm08 <- str_replace_all(jjep.63.4.372.rm07, pattern = rm.08, replacement = ""); jjep.63.4.372.rm09 <- str_replace_all(jjep.63.4.372.rm08, pattern = rm.09, replacement = ""); jjep.63.4.372.rp10 <- str_replace_all(jjep.63.4.372.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.372.rp11 <- str_replace_all(jjep.63.4.372.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.372.rp12 <- str_replace_all(jjep.63.4.372.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.372.rp13 <- str_replace_all(jjep.63.4.372.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.372.rp14 <- str_replace_all(jjep.63.4.372.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.372.rp15 <- str_replace_all(jjep.63.4.372.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.372.mod <- rbind(varname,jjep.63.4.372.rp15); write(jjep.63.4.372.mod, file = "./jjep/Mod_63_4_372.txt")
jjep.63.4.386.tx <- readr::read_file(file="./jjep/63_4_386.txt"); jjep.63.4.386.rm00 <- jjep.63.4.386.tx; jjep.63.4.386.rm01 <- str_replace_all(jjep.63.4.386.rm00, pattern = rm.01, replacement = ""); jjep.63.4.386.rm02 <- str_replace_all(jjep.63.4.386.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.386.rm03 <- str_replace_all(jjep.63.4.386.rm02, pattern = rm.03, replacement = ""); jjep.63.4.386.rm04 <- str_replace_all(jjep.63.4.386.rm03, pattern = rm.04, replacement = ""); jjep.63.4.386.rm05 <- str_replace_all(jjep.63.4.386.rm04, pattern = rm.05, replacement = ""); jjep.63.4.386.rm06 <- str_replace_all(jjep.63.4.386.rm05, pattern = rm.06, replacement = ""); jjep.63.4.386.rm07 <- str_replace_all(jjep.63.4.386.rm06, pattern = rm.07, replacement = ""); jjep.63.4.386.rm08 <- str_replace_all(jjep.63.4.386.rm07, pattern = rm.08, replacement = ""); jjep.63.4.386.rm09 <- str_replace_all(jjep.63.4.386.rm08, pattern = rm.09, replacement = ""); jjep.63.4.386.rp10 <- str_replace_all(jjep.63.4.386.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.386.rp11 <- str_replace_all(jjep.63.4.386.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.386.rp12 <- str_replace_all(jjep.63.4.386.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.386.rp13 <- str_replace_all(jjep.63.4.386.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.386.rp14 <- str_replace_all(jjep.63.4.386.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.386.rp15 <- str_replace_all(jjep.63.4.386.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.386.mod <- rbind(varname,jjep.63.4.386.rp15); write(jjep.63.4.386.mod, file = "./jjep/Mod_63_4_386.txt")
jjep.63.4.401.tx <- readr::read_file(file="./jjep/63_4_401.txt"); jjep.63.4.401.rm00 <- jjep.63.4.401.tx; jjep.63.4.401.rm01 <- str_replace_all(jjep.63.4.401.rm00, pattern = rm.01, replacement = ""); jjep.63.4.401.rm02 <- str_replace_all(jjep.63.4.401.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.401.rm03 <- str_replace_all(jjep.63.4.401.rm02, pattern = rm.03, replacement = ""); jjep.63.4.401.rm04 <- str_replace_all(jjep.63.4.401.rm03, pattern = rm.04, replacement = ""); jjep.63.4.401.rm05 <- str_replace_all(jjep.63.4.401.rm04, pattern = rm.05, replacement = ""); jjep.63.4.401.rm06 <- str_replace_all(jjep.63.4.401.rm05, pattern = rm.06, replacement = ""); jjep.63.4.401.rm07 <- str_replace_all(jjep.63.4.401.rm06, pattern = rm.07, replacement = ""); jjep.63.4.401.rm08 <- str_replace_all(jjep.63.4.401.rm07, pattern = rm.08, replacement = ""); jjep.63.4.401.rm09 <- str_replace_all(jjep.63.4.401.rm08, pattern = rm.09, replacement = ""); jjep.63.4.401.rp10 <- str_replace_all(jjep.63.4.401.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.401.rp11 <- str_replace_all(jjep.63.4.401.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.401.rp12 <- str_replace_all(jjep.63.4.401.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.401.rp13 <- str_replace_all(jjep.63.4.401.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.401.rp14 <- str_replace_all(jjep.63.4.401.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.401.rp15 <- str_replace_all(jjep.63.4.401.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.401.mod <- rbind(varname,jjep.63.4.401.rp15); write(jjep.63.4.401.mod, file = "./jjep/Mod_63_4_401.txt")
jjep.63.4.412.tx <- readr::read_file(file="./jjep/63_4_412.txt"); jjep.63.4.412.rm00 <- jjep.63.4.412.tx; jjep.63.4.412.rm01 <- str_replace_all(jjep.63.4.412.rm00, pattern = rm.01, replacement = ""); jjep.63.4.412.rm02 <- str_replace_all(jjep.63.4.412.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.412.rm03 <- str_replace_all(jjep.63.4.412.rm02, pattern = rm.03, replacement = ""); jjep.63.4.412.rm04 <- str_replace_all(jjep.63.4.412.rm03, pattern = rm.04, replacement = ""); jjep.63.4.412.rm05 <- str_replace_all(jjep.63.4.412.rm04, pattern = rm.05, replacement = ""); jjep.63.4.412.rm06 <- str_replace_all(jjep.63.4.412.rm05, pattern = rm.06, replacement = ""); jjep.63.4.412.rm07 <- str_replace_all(jjep.63.4.412.rm06, pattern = rm.07, replacement = ""); jjep.63.4.412.rm08 <- str_replace_all(jjep.63.4.412.rm07, pattern = rm.08, replacement = ""); jjep.63.4.412.rm09 <- str_replace_all(jjep.63.4.412.rm08, pattern = rm.09, replacement = ""); jjep.63.4.412.rp10 <- str_replace_all(jjep.63.4.412.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.412.rp11 <- str_replace_all(jjep.63.4.412.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.412.rp12 <- str_replace_all(jjep.63.4.412.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.412.rp13 <- str_replace_all(jjep.63.4.412.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.412.rp14 <- str_replace_all(jjep.63.4.412.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.412.rp15 <- str_replace_all(jjep.63.4.412.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.412.mod <- rbind(varname,jjep.63.4.412.rp15); write(jjep.63.4.412.mod, file = "./jjep/Mod_63_4_412.txt")
jjep.63.4.426.tx <- readr::read_file(file="./jjep/63_4_426.txt"); jjep.63.4.426.rm00 <- jjep.63.4.426.tx; jjep.63.4.426.rm01 <- str_replace_all(jjep.63.4.426.rm00, pattern = rm.01, replacement = ""); jjep.63.4.426.rm02 <- str_replace_all(jjep.63.4.426.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.426.rm03 <- str_replace_all(jjep.63.4.426.rm02, pattern = rm.03, replacement = ""); jjep.63.4.426.rm04 <- str_replace_all(jjep.63.4.426.rm03, pattern = rm.04, replacement = ""); jjep.63.4.426.rm05 <- str_replace_all(jjep.63.4.426.rm04, pattern = rm.05, replacement = ""); jjep.63.4.426.rm06 <- str_replace_all(jjep.63.4.426.rm05, pattern = rm.06, replacement = ""); jjep.63.4.426.rm07 <- str_replace_all(jjep.63.4.426.rm06, pattern = rm.07, replacement = ""); jjep.63.4.426.rm08 <- str_replace_all(jjep.63.4.426.rm07, pattern = rm.08, replacement = ""); jjep.63.4.426.rm09 <- str_replace_all(jjep.63.4.426.rm08, pattern = rm.09, replacement = ""); jjep.63.4.426.rp10 <- str_replace_all(jjep.63.4.426.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.426.rp11 <- str_replace_all(jjep.63.4.426.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.426.rp12 <- str_replace_all(jjep.63.4.426.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.426.rp13 <- str_replace_all(jjep.63.4.426.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.426.rp14 <- str_replace_all(jjep.63.4.426.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.426.rp15 <- str_replace_all(jjep.63.4.426.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.426.mod <- rbind(varname,jjep.63.4.426.rp15); write(jjep.63.4.426.mod, file = "./jjep/Mod_63_4_426.txt")
jjep.63.4.438.tx <- readr::read_file(file="./jjep/63_4_438.txt"); jjep.63.4.438.rm00 <- jjep.63.4.438.tx; jjep.63.4.438.rm01 <- str_replace_all(jjep.63.4.438.rm00, pattern = rm.01, replacement = ""); jjep.63.4.438.rm02 <- str_replace_all(jjep.63.4.438.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.438.rm03 <- str_replace_all(jjep.63.4.438.rm02, pattern = rm.03, replacement = ""); jjep.63.4.438.rm04 <- str_replace_all(jjep.63.4.438.rm03, pattern = rm.04, replacement = ""); jjep.63.4.438.rm05 <- str_replace_all(jjep.63.4.438.rm04, pattern = rm.05, replacement = ""); jjep.63.4.438.rm06 <- str_replace_all(jjep.63.4.438.rm05, pattern = rm.06, replacement = ""); jjep.63.4.438.rm07 <- str_replace_all(jjep.63.4.438.rm06, pattern = rm.07, replacement = ""); jjep.63.4.438.rm08 <- str_replace_all(jjep.63.4.438.rm07, pattern = rm.08, replacement = ""); jjep.63.4.438.rm09 <- str_replace_all(jjep.63.4.438.rm08, pattern = rm.09, replacement = ""); jjep.63.4.438.rp10 <- str_replace_all(jjep.63.4.438.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.438.rp11 <- str_replace_all(jjep.63.4.438.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.438.rp12 <- str_replace_all(jjep.63.4.438.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.438.rp13 <- str_replace_all(jjep.63.4.438.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.438.rp14 <- str_replace_all(jjep.63.4.438.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.438.rp15 <- str_replace_all(jjep.63.4.438.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.438.mod <- rbind(varname,jjep.63.4.438.rp15); write(jjep.63.4.438.mod, file = "./jjep/Mod_63_4_438.txt")
jjep.63.4.453.tx <- readr::read_file(file="./jjep/63_4_453.txt"); jjep.63.4.453.rm00 <- jjep.63.4.453.tx; jjep.63.4.453.rm01 <- str_replace_all(jjep.63.4.453.rm00, pattern = rm.01, replacement = ""); jjep.63.4.453.rm02 <- str_replace_all(jjep.63.4.453.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.453.rm03 <- str_replace_all(jjep.63.4.453.rm02, pattern = rm.03, replacement = ""); jjep.63.4.453.rm04 <- str_replace_all(jjep.63.4.453.rm03, pattern = rm.04, replacement = ""); jjep.63.4.453.rm05 <- str_replace_all(jjep.63.4.453.rm04, pattern = rm.05, replacement = ""); jjep.63.4.453.rm06 <- str_replace_all(jjep.63.4.453.rm05, pattern = rm.06, replacement = ""); jjep.63.4.453.rm07 <- str_replace_all(jjep.63.4.453.rm06, pattern = rm.07, replacement = ""); jjep.63.4.453.rm08 <- str_replace_all(jjep.63.4.453.rm07, pattern = rm.08, replacement = ""); jjep.63.4.453.rm09 <- str_replace_all(jjep.63.4.453.rm08, pattern = rm.09, replacement = ""); jjep.63.4.453.rp10 <- str_replace_all(jjep.63.4.453.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.453.rp11 <- str_replace_all(jjep.63.4.453.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.453.rp12 <- str_replace_all(jjep.63.4.453.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.453.rp13 <- str_replace_all(jjep.63.4.453.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.453.rp14 <- str_replace_all(jjep.63.4.453.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.453.rp15 <- str_replace_all(jjep.63.4.453.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.453.mod <- rbind(varname,jjep.63.4.453.rp15); write(jjep.63.4.453.mod, file = "./jjep/Mod_63_4_453.txt")
jjep.63.4.467.tx <- readr::read_file(file="./jjep/63_4_467.txt"); jjep.63.4.467.rm00 <- jjep.63.4.467.tx; jjep.63.4.467.rm01 <- str_replace_all(jjep.63.4.467.rm00, pattern = rm.01, replacement = ""); jjep.63.4.467.rm02 <- str_replace_all(jjep.63.4.467.rm01, pattern = rm.02, replacement = "^"); jjep.63.4.467.rm03 <- str_replace_all(jjep.63.4.467.rm02, pattern = rm.03, replacement = ""); jjep.63.4.467.rm04 <- str_replace_all(jjep.63.4.467.rm03, pattern = rm.04, replacement = ""); jjep.63.4.467.rm05 <- str_replace_all(jjep.63.4.467.rm04, pattern = rm.05, replacement = ""); jjep.63.4.467.rm06 <- str_replace_all(jjep.63.4.467.rm05, pattern = rm.06, replacement = ""); jjep.63.4.467.rm07 <- str_replace_all(jjep.63.4.467.rm06, pattern = rm.07, replacement = ""); jjep.63.4.467.rm08 <- str_replace_all(jjep.63.4.467.rm07, pattern = rm.08, replacement = ""); jjep.63.4.467.rm09 <- str_replace_all(jjep.63.4.467.rm08, pattern = rm.09, replacement = ""); jjep.63.4.467.rp10 <- str_replace_all(jjep.63.4.467.rm09, pattern = rp.01, replacement = "・"); jjep.63.4.467.rp11 <- str_replace_all(jjep.63.4.467.rp10, pattern = rp.02, replacement = "^"); jjep.63.4.467.rp12 <- str_replace_all(jjep.63.4.467.rp11, pattern = rp.03, replacement = "^"); jjep.63.4.467.rp13 <- str_replace_all(jjep.63.4.467.rp12, pattern = rp.04, replacement = "^"); jjep.63.4.467.rp14 <- str_replace_all(jjep.63.4.467.rp13, pattern = rp.05, replacement = "^"); jjep.63.4.467.rp15 <- str_replace_all(jjep.63.4.467.rp14, pattern = rp.06, replacement = "^"); jjep.63.4.467.mod <- rbind(varname,jjep.63.4.467.rp15); write(jjep.63.4.467.mod, file = "./jjep/Mod_63_4_467.txt")
jjep.63.3.199.tx <- readr::read_file(file="./jjep/63_3_199.txt"); jjep.63.3.199.rm00 <- jjep.63.3.199.tx; jjep.63.3.199.rm01 <- str_replace_all(jjep.63.3.199.rm00, pattern = rm.01, replacement = ""); jjep.63.3.199.rm02 <- str_replace_all(jjep.63.3.199.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.199.rm03 <- str_replace_all(jjep.63.3.199.rm02, pattern = rm.03, replacement = ""); jjep.63.3.199.rm04 <- str_replace_all(jjep.63.3.199.rm03, pattern = rm.04, replacement = ""); jjep.63.3.199.rm05 <- str_replace_all(jjep.63.3.199.rm04, pattern = rm.05, replacement = ""); jjep.63.3.199.rm06 <- str_replace_all(jjep.63.3.199.rm05, pattern = rm.06, replacement = ""); jjep.63.3.199.rm07 <- str_replace_all(jjep.63.3.199.rm06, pattern = rm.07, replacement = ""); jjep.63.3.199.rm08 <- str_replace_all(jjep.63.3.199.rm07, pattern = rm.08, replacement = ""); jjep.63.3.199.rm09 <- str_replace_all(jjep.63.3.199.rm08, pattern = rm.09, replacement = ""); jjep.63.3.199.rp10 <- str_replace_all(jjep.63.3.199.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.199.rp11 <- str_replace_all(jjep.63.3.199.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.199.rp12 <- str_replace_all(jjep.63.3.199.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.199.rp13 <- str_replace_all(jjep.63.3.199.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.199.rp14 <- str_replace_all(jjep.63.3.199.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.199.rp15 <- str_replace_all(jjep.63.3.199.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.199.mod <- rbind(varname,jjep.63.3.199.rp15); write(jjep.63.3.199.mod, file = "./jjep/Mod_63_3_199.txt")
jjep.63.3.217.tx <- readr::read_file(file="./jjep/63_3_217.txt"); jjep.63.3.217.rm00 <- jjep.63.3.217.tx; jjep.63.3.217.rm01 <- str_replace_all(jjep.63.3.217.rm00, pattern = rm.01, replacement = ""); jjep.63.3.217.rm02 <- str_replace_all(jjep.63.3.217.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.217.rm03 <- str_replace_all(jjep.63.3.217.rm02, pattern = rm.03, replacement = ""); jjep.63.3.217.rm04 <- str_replace_all(jjep.63.3.217.rm03, pattern = rm.04, replacement = ""); jjep.63.3.217.rm05 <- str_replace_all(jjep.63.3.217.rm04, pattern = rm.05, replacement = ""); jjep.63.3.217.rm06 <- str_replace_all(jjep.63.3.217.rm05, pattern = rm.06, replacement = ""); jjep.63.3.217.rm07 <- str_replace_all(jjep.63.3.217.rm06, pattern = rm.07, replacement = ""); jjep.63.3.217.rm08 <- str_replace_all(jjep.63.3.217.rm07, pattern = rm.08, replacement = ""); jjep.63.3.217.rm09 <- str_replace_all(jjep.63.3.217.rm08, pattern = rm.09, replacement = ""); jjep.63.3.217.rp10 <- str_replace_all(jjep.63.3.217.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.217.rp11 <- str_replace_all(jjep.63.3.217.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.217.rp12 <- str_replace_all(jjep.63.3.217.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.217.rp13 <- str_replace_all(jjep.63.3.217.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.217.rp14 <- str_replace_all(jjep.63.3.217.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.217.rp15 <- str_replace_all(jjep.63.3.217.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.217.mod <- rbind(varname,jjep.63.3.217.rp15); write(jjep.63.3.217.mod, file = "./jjep/Mod_63_3_217.txt")
jjep.63.3.228.tx <- readr::read_file(file="./jjep/63_3_228.txt"); jjep.63.3.228.rm00 <- jjep.63.3.228.tx; jjep.63.3.228.rm01 <- str_replace_all(jjep.63.3.228.rm00, pattern = rm.01, replacement = ""); jjep.63.3.228.rm02 <- str_replace_all(jjep.63.3.228.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.228.rm03 <- str_replace_all(jjep.63.3.228.rm02, pattern = rm.03, replacement = ""); jjep.63.3.228.rm04 <- str_replace_all(jjep.63.3.228.rm03, pattern = rm.04, replacement = ""); jjep.63.3.228.rm05 <- str_replace_all(jjep.63.3.228.rm04, pattern = rm.05, replacement = ""); jjep.63.3.228.rm06 <- str_replace_all(jjep.63.3.228.rm05, pattern = rm.06, replacement = ""); jjep.63.3.228.rm07 <- str_replace_all(jjep.63.3.228.rm06, pattern = rm.07, replacement = ""); jjep.63.3.228.rm08 <- str_replace_all(jjep.63.3.228.rm07, pattern = rm.08, replacement = ""); jjep.63.3.228.rm09 <- str_replace_all(jjep.63.3.228.rm08, pattern = rm.09, replacement = ""); jjep.63.3.228.rp10 <- str_replace_all(jjep.63.3.228.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.228.rp11 <- str_replace_all(jjep.63.3.228.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.228.rp12 <- str_replace_all(jjep.63.3.228.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.228.rp13 <- str_replace_all(jjep.63.3.228.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.228.rp14 <- str_replace_all(jjep.63.3.228.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.228.rp15 <- str_replace_all(jjep.63.3.228.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.228.mod <- rbind(varname,jjep.63.3.228.rp15); write(jjep.63.3.228.mod, file = "./jjep/Mod_63_3_228.txt")
jjep.63.3.242.tx <- readr::read_file(file="./jjep/63_3_242.txt"); jjep.63.3.242.rm00 <- jjep.63.3.242.tx; jjep.63.3.242.rm01 <- str_replace_all(jjep.63.3.242.rm00, pattern = rm.01, replacement = ""); jjep.63.3.242.rm02 <- str_replace_all(jjep.63.3.242.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.242.rm03 <- str_replace_all(jjep.63.3.242.rm02, pattern = rm.03, replacement = ""); jjep.63.3.242.rm04 <- str_replace_all(jjep.63.3.242.rm03, pattern = rm.04, replacement = ""); jjep.63.3.242.rm05 <- str_replace_all(jjep.63.3.242.rm04, pattern = rm.05, replacement = ""); jjep.63.3.242.rm06 <- str_replace_all(jjep.63.3.242.rm05, pattern = rm.06, replacement = ""); jjep.63.3.242.rm07 <- str_replace_all(jjep.63.3.242.rm06, pattern = rm.07, replacement = ""); jjep.63.3.242.rm08 <- str_replace_all(jjep.63.3.242.rm07, pattern = rm.08, replacement = ""); jjep.63.3.242.rm09 <- str_replace_all(jjep.63.3.242.rm08, pattern = rm.09, replacement = ""); jjep.63.3.242.rp10 <- str_replace_all(jjep.63.3.242.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.242.rp11 <- str_replace_all(jjep.63.3.242.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.242.rp12 <- str_replace_all(jjep.63.3.242.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.242.rp13 <- str_replace_all(jjep.63.3.242.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.242.rp14 <- str_replace_all(jjep.63.3.242.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.242.rp15 <- str_replace_all(jjep.63.3.242.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.242.mod <- rbind(varname,jjep.63.3.242.rp15); write(jjep.63.3.242.mod, file = "./jjep/Mod_63_3_242.txt")
jjep.63.3.254.tx <- readr::read_file(file="./jjep/63_3_254.txt"); jjep.63.3.254.rm00 <- jjep.63.3.254.tx; jjep.63.3.254.rm01 <- str_replace_all(jjep.63.3.254.rm00, pattern = rm.01, replacement = ""); jjep.63.3.254.rm02 <- str_replace_all(jjep.63.3.254.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.254.rm03 <- str_replace_all(jjep.63.3.254.rm02, pattern = rm.03, replacement = ""); jjep.63.3.254.rm04 <- str_replace_all(jjep.63.3.254.rm03, pattern = rm.04, replacement = ""); jjep.63.3.254.rm05 <- str_replace_all(jjep.63.3.254.rm04, pattern = rm.05, replacement = ""); jjep.63.3.254.rm06 <- str_replace_all(jjep.63.3.254.rm05, pattern = rm.06, replacement = ""); jjep.63.3.254.rm07 <- str_replace_all(jjep.63.3.254.rm06, pattern = rm.07, replacement = ""); jjep.63.3.254.rm08 <- str_replace_all(jjep.63.3.254.rm07, pattern = rm.08, replacement = ""); jjep.63.3.254.rm09 <- str_replace_all(jjep.63.3.254.rm08, pattern = rm.09, replacement = ""); jjep.63.3.254.rp10 <- str_replace_all(jjep.63.3.254.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.254.rp11 <- str_replace_all(jjep.63.3.254.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.254.rp12 <- str_replace_all(jjep.63.3.254.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.254.rp13 <- str_replace_all(jjep.63.3.254.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.254.rp14 <- str_replace_all(jjep.63.3.254.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.254.rp15 <- str_replace_all(jjep.63.3.254.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.254.mod <- rbind(varname,jjep.63.3.254.rp15); write(jjep.63.3.254.mod, file = "./jjep/Mod_63_3_254.txt")
jjep.63.3.267.tx <- readr::read_file(file="./jjep/63_3_267.txt"); jjep.63.3.267.rm00 <- jjep.63.3.267.tx; jjep.63.3.267.rm01 <- str_replace_all(jjep.63.3.267.rm00, pattern = rm.01, replacement = ""); jjep.63.3.267.rm02 <- str_replace_all(jjep.63.3.267.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.267.rm03 <- str_replace_all(jjep.63.3.267.rm02, pattern = rm.03, replacement = ""); jjep.63.3.267.rm04 <- str_replace_all(jjep.63.3.267.rm03, pattern = rm.04, replacement = ""); jjep.63.3.267.rm05 <- str_replace_all(jjep.63.3.267.rm04, pattern = rm.05, replacement = ""); jjep.63.3.267.rm06 <- str_replace_all(jjep.63.3.267.rm05, pattern = rm.06, replacement = ""); jjep.63.3.267.rm07 <- str_replace_all(jjep.63.3.267.rm06, pattern = rm.07, replacement = ""); jjep.63.3.267.rm08 <- str_replace_all(jjep.63.3.267.rm07, pattern = rm.08, replacement = ""); jjep.63.3.267.rm09 <- str_replace_all(jjep.63.3.267.rm08, pattern = rm.09, replacement = ""); jjep.63.3.267.rp10 <- str_replace_all(jjep.63.3.267.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.267.rp11 <- str_replace_all(jjep.63.3.267.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.267.rp12 <- str_replace_all(jjep.63.3.267.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.267.rp13 <- str_replace_all(jjep.63.3.267.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.267.rp14 <- str_replace_all(jjep.63.3.267.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.267.rp15 <- str_replace_all(jjep.63.3.267.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.267.mod <- rbind(varname,jjep.63.3.267.rp15); write(jjep.63.3.267.mod, file = "./jjep/Mod_63_3_267.txt")
jjep.63.3.279.tx <- readr::read_file(file="./jjep/63_3_279.txt"); jjep.63.3.279.rm00 <- jjep.63.3.279.tx; jjep.63.3.279.rm01 <- str_replace_all(jjep.63.3.279.rm00, pattern = rm.01, replacement = ""); jjep.63.3.279.rm02 <- str_replace_all(jjep.63.3.279.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.279.rm03 <- str_replace_all(jjep.63.3.279.rm02, pattern = rm.03, replacement = ""); jjep.63.3.279.rm04 <- str_replace_all(jjep.63.3.279.rm03, pattern = rm.04, replacement = ""); jjep.63.3.279.rm05 <- str_replace_all(jjep.63.3.279.rm04, pattern = rm.05, replacement = ""); jjep.63.3.279.rm06 <- str_replace_all(jjep.63.3.279.rm05, pattern = rm.06, replacement = ""); jjep.63.3.279.rm07 <- str_replace_all(jjep.63.3.279.rm06, pattern = rm.07, replacement = ""); jjep.63.3.279.rm08 <- str_replace_all(jjep.63.3.279.rm07, pattern = rm.08, replacement = ""); jjep.63.3.279.rm09 <- str_replace_all(jjep.63.3.279.rm08, pattern = rm.09, replacement = ""); jjep.63.3.279.rp10 <- str_replace_all(jjep.63.3.279.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.279.rp11 <- str_replace_all(jjep.63.3.279.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.279.rp12 <- str_replace_all(jjep.63.3.279.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.279.rp13 <- str_replace_all(jjep.63.3.279.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.279.rp14 <- str_replace_all(jjep.63.3.279.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.279.rp15 <- str_replace_all(jjep.63.3.279.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.279.mod <- rbind(varname,jjep.63.3.279.rp15); write(jjep.63.3.279.mod, file = "./jjep/Mod_63_3_279.txt")
jjep.63.3.295.tx <- readr::read_file(file="./jjep/63_3_295.txt"); jjep.63.3.295.rm00 <- jjep.63.3.295.tx; jjep.63.3.295.rm01 <- str_replace_all(jjep.63.3.295.rm00, pattern = rm.01, replacement = ""); jjep.63.3.295.rm02 <- str_replace_all(jjep.63.3.295.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.295.rm03 <- str_replace_all(jjep.63.3.295.rm02, pattern = rm.03, replacement = ""); jjep.63.3.295.rm04 <- str_replace_all(jjep.63.3.295.rm03, pattern = rm.04, replacement = ""); jjep.63.3.295.rm05 <- str_replace_all(jjep.63.3.295.rm04, pattern = rm.05, replacement = ""); jjep.63.3.295.rm06 <- str_replace_all(jjep.63.3.295.rm05, pattern = rm.06, replacement = ""); jjep.63.3.295.rm07 <- str_replace_all(jjep.63.3.295.rm06, pattern = rm.07, replacement = ""); jjep.63.3.295.rm08 <- str_replace_all(jjep.63.3.295.rm07, pattern = rm.08, replacement = ""); jjep.63.3.295.rm09 <- str_replace_all(jjep.63.3.295.rm08, pattern = rm.09, replacement = ""); jjep.63.3.295.rp10 <- str_replace_all(jjep.63.3.295.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.295.rp11 <- str_replace_all(jjep.63.3.295.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.295.rp12 <- str_replace_all(jjep.63.3.295.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.295.rp13 <- str_replace_all(jjep.63.3.295.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.295.rp14 <- str_replace_all(jjep.63.3.295.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.295.rp15 <- str_replace_all(jjep.63.3.295.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.295.mod <- rbind(varname,jjep.63.3.295.rp15); write(jjep.63.3.295.mod, file = "./jjep/Mod_63_3_295.txt")
jjep.63.3.309.tx <- readr::read_file(file="./jjep/63_3_309.txt"); jjep.63.3.309.rm00 <- jjep.63.3.309.tx; jjep.63.3.309.rm01 <- str_replace_all(jjep.63.3.309.rm00, pattern = rm.01, replacement = ""); jjep.63.3.309.rm02 <- str_replace_all(jjep.63.3.309.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.309.rm03 <- str_replace_all(jjep.63.3.309.rm02, pattern = rm.03, replacement = ""); jjep.63.3.309.rm04 <- str_replace_all(jjep.63.3.309.rm03, pattern = rm.04, replacement = ""); jjep.63.3.309.rm05 <- str_replace_all(jjep.63.3.309.rm04, pattern = rm.05, replacement = ""); jjep.63.3.309.rm06 <- str_replace_all(jjep.63.3.309.rm05, pattern = rm.06, replacement = ""); jjep.63.3.309.rm07 <- str_replace_all(jjep.63.3.309.rm06, pattern = rm.07, replacement = ""); jjep.63.3.309.rm08 <- str_replace_all(jjep.63.3.309.rm07, pattern = rm.08, replacement = ""); jjep.63.3.309.rm09 <- str_replace_all(jjep.63.3.309.rm08, pattern = rm.09, replacement = ""); jjep.63.3.309.rp10 <- str_replace_all(jjep.63.3.309.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.309.rp11 <- str_replace_all(jjep.63.3.309.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.309.rp12 <- str_replace_all(jjep.63.3.309.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.309.rp13 <- str_replace_all(jjep.63.3.309.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.309.rp14 <- str_replace_all(jjep.63.3.309.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.309.rp15 <- str_replace_all(jjep.63.3.309.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.309.mod <- rbind(varname,jjep.63.3.309.rp15); write(jjep.63.3.309.mod, file = "./jjep/Mod_63_3_309.txt")
jjep.63.3.323.tx <- readr::read_file(file="./jjep/63_3_323.txt"); jjep.63.3.323.rm00 <- jjep.63.3.323.tx; jjep.63.3.323.rm01 <- str_replace_all(jjep.63.3.323.rm00, pattern = rm.01, replacement = ""); jjep.63.3.323.rm02 <- str_replace_all(jjep.63.3.323.rm01, pattern = rm.02, replacement = "^"); jjep.63.3.323.rm03 <- str_replace_all(jjep.63.3.323.rm02, pattern = rm.03, replacement = ""); jjep.63.3.323.rm04 <- str_replace_all(jjep.63.3.323.rm03, pattern = rm.04, replacement = ""); jjep.63.3.323.rm05 <- str_replace_all(jjep.63.3.323.rm04, pattern = rm.05, replacement = ""); jjep.63.3.323.rm06 <- str_replace_all(jjep.63.3.323.rm05, pattern = rm.06, replacement = ""); jjep.63.3.323.rm07 <- str_replace_all(jjep.63.3.323.rm06, pattern = rm.07, replacement = ""); jjep.63.3.323.rm08 <- str_replace_all(jjep.63.3.323.rm07, pattern = rm.08, replacement = ""); jjep.63.3.323.rm09 <- str_replace_all(jjep.63.3.323.rm08, pattern = rm.09, replacement = ""); jjep.63.3.323.rp10 <- str_replace_all(jjep.63.3.323.rm09, pattern = rp.01, replacement = "・"); jjep.63.3.323.rp11 <- str_replace_all(jjep.63.3.323.rp10, pattern = rp.02, replacement = "^"); jjep.63.3.323.rp12 <- str_replace_all(jjep.63.3.323.rp11, pattern = rp.03, replacement = "^"); jjep.63.3.323.rp13 <- str_replace_all(jjep.63.3.323.rp12, pattern = rp.04, replacement = "^"); jjep.63.3.323.rp14 <- str_replace_all(jjep.63.3.323.rp13, pattern = rp.05, replacement = "^"); jjep.63.3.323.rp15 <- str_replace_all(jjep.63.3.323.rp14, pattern = rp.06, replacement = "^"); jjep.63.3.323.mod <- rbind(varname,jjep.63.3.323.rp15); write(jjep.63.3.323.mod, file = "./jjep/Mod_63_3_323.txt")
jjep.63.2.85.tx <- readr::read_file(file="./jjep/63_2_85.txt"); jjep.63.2.85.rm00 <- jjep.63.2.85.tx; jjep.63.2.85.rm01 <- str_replace_all(jjep.63.2.85.rm00, pattern = rm.01, replacement = ""); jjep.63.2.85.rm02 <- str_replace_all(jjep.63.2.85.rm01, pattern = rm.02, replacement = "^"); jjep.63.2.85.rm03 <- str_replace_all(jjep.63.2.85.rm02, pattern = rm.03, replacement = ""); jjep.63.2.85.rm04 <- str_replace_all(jjep.63.2.85.rm03, pattern = rm.04, replacement = ""); jjep.63.2.85.rm05 <- str_replace_all(jjep.63.2.85.rm04, pattern = rm.05, replacement = ""); jjep.63.2.85.rm06 <- str_replace_all(jjep.63.2.85.rm05, pattern = rm.06, replacement = ""); jjep.63.2.85.rm07 <- str_replace_all(jjep.63.2.85.rm06, pattern = rm.07, replacement = ""); jjep.63.2.85.rm08 <- str_replace_all(jjep.63.2.85.rm07, pattern = rm.08, replacement = ""); jjep.63.2.85.rm09 <- str_replace_all(jjep.63.2.85.rm08, pattern = rm.09, replacement = ""); jjep.63.2.85.rp10 <- str_replace_all(jjep.63.2.85.rm09, pattern = rp.01, replacement = "・"); jjep.63.2.85.rp11 <- str_replace_all(jjep.63.2.85.rp10, pattern = rp.02, replacement = "^"); jjep.63.2.85.rp12 <- str_replace_all(jjep.63.2.85.rp11, pattern = rp.03, replacement = "^"); jjep.63.2.85.rp13 <- str_replace_all(jjep.63.2.85.rp12, pattern = rp.04, replacement = "^"); jjep.63.2.85.rp14 <- str_replace_all(jjep.63.2.85.rp13, pattern = rp.05, replacement = "^"); jjep.63.2.85.rp15 <- str_replace_all(jjep.63.2.85.rp14, pattern = rp.06, replacement = "^"); jjep.63.2.85.mod <- rbind(varname,jjep.63.2.85.rp15); write(jjep.63.2.85.mod, file = "./jjep/Mod_63_2_85.txt")
jjep.63.2.102.tx <- readr::read_file(file="./jjep/63_2_102.txt"); jjep.63.2.102.rm00 <- jjep.63.2.102.tx; jjep.63.2.102.rm01 <- str_replace_all(jjep.63.2.102.rm00, pattern = rm.01, replacement = ""); jjep.63.2.102.rm02 <- str_replace_all(jjep.63.2.102.rm01, pattern = rm.02, replacement = "^"); jjep.63.2.102.rm03 <- str_replace_all(jjep.63.2.102.rm02, pattern = rm.03, replacement = ""); jjep.63.2.102.rm04 <- str_replace_all(jjep.63.2.102.rm03, pattern = rm.04, replacement = ""); jjep.63.2.102.rm05 <- str_replace_all(jjep.63.2.102.rm04, pattern = rm.05, replacement = ""); jjep.63.2.102.rm06 <- str_replace_all(jjep.63.2.102.rm05, pattern = rm.06, replacement = ""); jjep.63.2.102.rm07 <- str_replace_all(jjep.63.2.102.rm06, pattern = rm.07, replacement = ""); jjep.63.2.102.rm08 <- str_replace_all(jjep.63.2.102.rm07, pattern = rm.08, replacement = ""); jjep.63.2.102.rm09 <- str_replace_all(jjep.63.2.102.rm08, pattern = rm.09, replacement = ""); jjep.63.2.102.rp10 <- str_replace_all(jjep.63.2.102.rm09, pattern = rp.01, replacement = "・"); jjep.63.2.102.rp11 <- str_replace_all(jjep.63.2.102.rp10, pattern = rp.02, replacement = "^"); jjep.63.2.102.rp12 <- str_replace_all(jjep.63.2.102.rp11, pattern = rp.03, replacement = "^"); jjep.63.2.102.rp13 <- str_replace_all(jjep.63.2.102.rp12, pattern = rp.04, replacement = "^"); jjep.63.2.102.rp14 <- str_replace_all(jjep.63.2.102.rp13, pattern = rp.05, replacement = "^"); jjep.63.2.102.rp15 <- str_replace_all(jjep.63.2.102.rp14, pattern = rp.06, replacement = "^"); jjep.63.2.102.mod <- rbind(varname,jjep.63.2.102.rp15); write(jjep.63.2.102.mod, file = "./jjep/Mod_63_2_102.txt")
jjep.63.2.111.tx <- readr::read_file(file="./jjep/63_2_111.txt"); jjep.63.2.111.rm00 <- jjep.63.2.111.tx; jjep.63.2.111.rm01 <- str_replace_all(jjep.63.2.111.rm00, pattern = rm.01, replacement = ""); jjep.63.2.111.rm02 <- str_replace_all(jjep.63.2.111.rm01, pattern = rm.02, replacement = "^"); jjep.63.2.111.rm03 <- str_replace_all(jjep.63.2.111.rm02, pattern = rm.03, replacement = ""); jjep.63.2.111.rm04 <- str_replace_all(jjep.63.2.111.rm03, pattern = rm.04, replacement = ""); jjep.63.2.111.rm05 <- str_replace_all(jjep.63.2.111.rm04, pattern = rm.05, replacement = ""); jjep.63.2.111.rm06 <- str_replace_all(jjep.63.2.111.rm05, pattern = rm.06, replacement = ""); jjep.63.2.111.rm07 <- str_replace_all(jjep.63.2.111.rm06, pattern = rm.07, replacement = ""); jjep.63.2.111.rm08 <- str_replace_all(jjep.63.2.111.rm07, pattern = rm.08, replacement = ""); jjep.63.2.111.rm09 <- str_replace_all(jjep.63.2.111.rm08, pattern = rm.09, replacement = ""); jjep.63.2.111.rp10 <- str_replace_all(jjep.63.2.111.rm09, pattern = rp.01, replacement = "・"); jjep.63.2.111.rp11 <- str_replace_all(jjep.63.2.111.rp10, pattern = rp.02, replacement = "^"); jjep.63.2.111.rp12 <- str_replace_all(jjep.63.2.111.rp11, pattern = rp.03, replacement = "^"); jjep.63.2.111.rp13 <- str_replace_all(jjep.63.2.111.rp12, pattern = rp.04, replacement = "^"); jjep.63.2.111.rp14 <- str_replace_all(jjep.63.2.111.rp13, pattern = rp.05, replacement = "^"); jjep.63.2.111.rp15 <- str_replace_all(jjep.63.2.111.rp14, pattern = rp.06, replacement = "^"); jjep.63.2.111.mod <- rbind(varname,jjep.63.2.111.rp15); write(jjep.63.2.111.mod, file = "./jjep/Mod_63_2_111.txt")
jjep.63.2.121.tx <- readr::read_file(file="./jjep/63_2_121.txt"); jjep.63.2.121.rm00 <- jjep.63.2.121.tx; jjep.63.2.121.rm01 <- str_replace_all(jjep.63.2.121.rm00, pattern = rm.01, replacement = ""); jjep.63.2.121.rm02 <- str_replace_all(jjep.63.2.121.rm01, pattern = rm.02, replacement = "^"); jjep.63.2.121.rm03 <- str_replace_all(jjep.63.2.121.rm02, pattern = rm.03, replacement = ""); jjep.63.2.121.rm04 <- str_replace_all(jjep.63.2.121.rm03, pattern = rm.04, replacement = ""); jjep.63.2.121.rm05 <- str_replace_all(jjep.63.2.121.rm04, pattern = rm.05, replacement = ""); jjep.63.2.121.rm06 <- str_replace_all(jjep.63.2.121.rm05, pattern = rm.06, replacement = ""); jjep.63.2.121.rm07 <- str_replace_all(jjep.63.2.121.rm06, pattern = rm.07, replacement = ""); jjep.63.2.121.rm08 <- str_replace_all(jjep.63.2.121.rm07, pattern = rm.08, replacement = ""); jjep.63.2.121.rm09 <- str_replace_all(jjep.63.2.121.rm08, pattern = rm.09, replacement = ""); jjep.63.2.121.rp10 <- str_replace_all(jjep.63.2.121.rm09, pattern = rp.01, replacement = "・"); jjep.63.2.121.rp11 <- str_replace_all(jjep.63.2.121.rp10, pattern = rp.02, replacement = "^"); jjep.63.2.121.rp12 <- str_replace_all(jjep.63.2.121.rp11, pattern = rp.03, replacement = "^"); jjep.63.2.121.rp13 <- str_replace_all(jjep.63.2.121.rp12, pattern = rp.04, replacement = "^"); jjep.63.2.121.rp14 <- str_replace_all(jjep.63.2.121.rp13, pattern = rp.05, replacement = "^"); jjep.63.2.121.rp15 <- str_replace_all(jjep.63.2.121.rp14, pattern = rp.06, replacement = "^"); jjep.63.2.121.mod <- rbind(varname,jjep.63.2.121.rp15); write(jjep.63.2.121.mod, file = "./jjep/Mod_63_2_121.txt")
jjep.63.2.138.tx <- readr::read_file(file="./jjep/63_2_138.txt"); jjep.63.2.138.rm00 <- jjep.63.2.138.tx; jjep.63.2.138.rm01 <- str_replace_all(jjep.63.2.138.rm00, pattern = rm.01, replacement = ""); jjep.63.2.138.rm02 <- str_replace_all(jjep.63.2.138.rm01, pattern = rm.02, replacement = "^"); jjep.63.2.138.rm03 <- str_replace_all(jjep.63.2.138.rm02, pattern = rm.03, replacement = ""); jjep.63.2.138.rm04 <- str_replace_all(jjep.63.2.138.rm03, pattern = rm.04, replacement = ""); jjep.63.2.138.rm05 <- str_replace_all(jjep.63.2.138.rm04, pattern = rm.05, replacement = ""); jjep.63.2.138.rm06 <- str_replace_all(jjep.63.2.138.rm05, pattern = rm.06, replacement = ""); jjep.63.2.138.rm07 <- str_replace_all(jjep.63.2.138.rm06, pattern = rm.07, replacement = ""); jjep.63.2.138.rm08 <- str_replace_all(jjep.63.2.138.rm07, pattern = rm.08, replacement = ""); jjep.63.2.138.rm09 <- str_replace_all(jjep.63.2.138.rm08, pattern = rm.09, replacement = ""); jjep.63.2.138.rp10 <- str_replace_all(jjep.63.2.138.rm09, pattern = rp.01, replacement = "・"); jjep.63.2.138.rp11 <- str_replace_all(jjep.63.2.138.rp10, pattern = rp.02, replacement = "^"); jjep.63.2.138.rp12 <- str_replace_all(jjep.63.2.138.rp11, pattern = rp.03, replacement = "^"); jjep.63.2.138.rp13 <- str_replace_all(jjep.63.2.138.rp12, pattern = rp.04, replacement = "^"); jjep.63.2.138.rp14 <- str_replace_all(jjep.63.2.138.rp13, pattern = rp.05, replacement = "^"); jjep.63.2.138.rp15 <- str_replace_all(jjep.63.2.138.rp14, pattern = rp.06, replacement = "^"); jjep.63.2.138.mod <- rbind(varname,jjep.63.2.138.rp15); write(jjep.63.2.138.mod, file = "./jjep/Mod_63_2_138.txt")
jjep.63.2.151.tx <- readr::read_file(file="./jjep/63_2_151.txt"); jjep.63.2.151.rm00 <- jjep.63.2.151.tx; jjep.63.2.151.rm01 <- str_replace_all(jjep.63.2.151.rm00, pattern = rm.01, replacement = ""); jjep.63.2.151.rm02 <- str_replace_all(jjep.63.2.151.rm01, pattern = rm.02, replacement = "^"); jjep.63.2.151.rm03 <- str_replace_all(jjep.63.2.151.rm02, pattern = rm.03, replacement = ""); jjep.63.2.151.rm04 <- str_replace_all(jjep.63.2.151.rm03, pattern = rm.04, replacement = ""); jjep.63.2.151.rm05 <- str_replace_all(jjep.63.2.151.rm04, pattern = rm.05, replacement = ""); jjep.63.2.151.rm06 <- str_replace_all(jjep.63.2.151.rm05, pattern = rm.06, replacement = ""); jjep.63.2.151.rm07 <- str_replace_all(jjep.63.2.151.rm06, pattern = rm.07, replacement = ""); jjep.63.2.151.rm08 <- str_replace_all(jjep.63.2.151.rm07, pattern = rm.08, replacement = ""); jjep.63.2.151.rm09 <- str_replace_all(jjep.63.2.151.rm08, pattern = rm.09, replacement = ""); jjep.63.2.151.rp10 <- str_replace_all(jjep.63.2.151.rm09, pattern = rp.01, replacement = "・"); jjep.63.2.151.rp11 <- str_replace_all(jjep.63.2.151.rp10, pattern = rp.02, replacement = "^"); jjep.63.2.151.rp12 <- str_replace_all(jjep.63.2.151.rp11, pattern = rp.03, replacement = "^"); jjep.63.2.151.rp13 <- str_replace_all(jjep.63.2.151.rp12, pattern = rp.04, replacement = "^"); jjep.63.2.151.rp14 <- str_replace_all(jjep.63.2.151.rp13, pattern = rp.05, replacement = "^"); jjep.63.2.151.rp15 <- str_replace_all(jjep.63.2.151.rp14, pattern = rp.06, replacement = "^"); jjep.63.2.151.mod <- rbind(varname,jjep.63.2.151.rp15); write(jjep.63.2.151.mod, file = "./jjep/Mod_63_2_151.txt")
jjep.63.2.162.tx <- readr::read_file(file="./jjep/63_2_162.txt"); jjep.63.2.162.rm00 <- jjep.63.2.162.tx; jjep.63.2.162.rm01 <- str_replace_all(jjep.63.2.162.rm00, pattern = rm.01, replacement = ""); jjep.63.2.162.rm02 <- str_replace_all(jjep.63.2.162.rm01, pattern = rm.02, replacement = "^"); jjep.63.2.162.rm03 <- str_replace_all(jjep.63.2.162.rm02, pattern = rm.03, replacement = ""); jjep.63.2.162.rm04 <- str_replace_all(jjep.63.2.162.rm03, pattern = rm.04, replacement = ""); jjep.63.2.162.rm05 <- str_replace_all(jjep.63.2.162.rm04, pattern = rm.05, replacement = ""); jjep.63.2.162.rm06 <- str_replace_all(jjep.63.2.162.rm05, pattern = rm.06, replacement = ""); jjep.63.2.162.rm07 <- str_replace_all(jjep.63.2.162.rm06, pattern = rm.07, replacement = ""); jjep.63.2.162.rm08 <- str_replace_all(jjep.63.2.162.rm07, pattern = rm.08, replacement = ""); jjep.63.2.162.rm09 <- str_replace_all(jjep.63.2.162.rm08, pattern = rm.09, replacement = ""); jjep.63.2.162.rp10 <- str_replace_all(jjep.63.2.162.rm09, pattern = rp.01, replacement = "・"); jjep.63.2.162.rp11 <- str_replace_all(jjep.63.2.162.rp10, pattern = rp.02, replacement = "^"); jjep.63.2.162.rp12 <- str_replace_all(jjep.63.2.162.rp11, pattern = rp.03, replacement = "^"); jjep.63.2.162.rp13 <- str_replace_all(jjep.63.2.162.rp12, pattern = rp.04, replacement = "^"); jjep.63.2.162.rp14 <- str_replace_all(jjep.63.2.162.rp13, pattern = rp.05, replacement = "^"); jjep.63.2.162.rp15 <- str_replace_all(jjep.63.2.162.rp14, pattern = rp.06, replacement = "^"); jjep.63.2.162.mod <- rbind(varname,jjep.63.2.162.rp15); write(jjep.63.2.162.mod, file = "./jjep/Mod_63_2_162.txt")
jjep.63.2.181.tx <- readr::read_file(file="./jjep/63_2_181.txt"); jjep.63.2.181.rm00 <- jjep.63.2.181.tx; jjep.63.2.181.rm01 <- str_replace_all(jjep.63.2.181.rm00, pattern = rm.01, replacement = ""); jjep.63.2.181.rm02 <- str_replace_all(jjep.63.2.181.rm01, pattern = rm.02, replacement = "^"); jjep.63.2.181.rm03 <- str_replace_all(jjep.63.2.181.rm02, pattern = rm.03, replacement = ""); jjep.63.2.181.rm04 <- str_replace_all(jjep.63.2.181.rm03, pattern = rm.04, replacement = ""); jjep.63.2.181.rm05 <- str_replace_all(jjep.63.2.181.rm04, pattern = rm.05, replacement = ""); jjep.63.2.181.rm06 <- str_replace_all(jjep.63.2.181.rm05, pattern = rm.06, replacement = ""); jjep.63.2.181.rm07 <- str_replace_all(jjep.63.2.181.rm06, pattern = rm.07, replacement = ""); jjep.63.2.181.rm08 <- str_replace_all(jjep.63.2.181.rm07, pattern = rm.08, replacement = ""); jjep.63.2.181.rm09 <- str_replace_all(jjep.63.2.181.rm08, pattern = rm.09, replacement = ""); jjep.63.2.181.rp10 <- str_replace_all(jjep.63.2.181.rm09, pattern = rp.01, replacement = "・"); jjep.63.2.181.rp11 <- str_replace_all(jjep.63.2.181.rp10, pattern = rp.02, replacement = "^"); jjep.63.2.181.rp12 <- str_replace_all(jjep.63.2.181.rp11, pattern = rp.03, replacement = "^"); jjep.63.2.181.rp13 <- str_replace_all(jjep.63.2.181.rp12, pattern = rp.04, replacement = "^"); jjep.63.2.181.rp14 <- str_replace_all(jjep.63.2.181.rp13, pattern = rp.05, replacement = "^"); jjep.63.2.181.rp15 <- str_replace_all(jjep.63.2.181.rp14, pattern = rp.06, replacement = "^"); jjep.63.2.181.mod <- rbind(varname,jjep.63.2.181.rp15); write(jjep.63.2.181.mod, file = "./jjep/Mod_63_2_181.txt")
jjep.63.1.1.tx <- readr::read_file(file="./jjep/63_1_1.txt"); jjep.63.1.1.rm00 <- jjep.63.1.1.tx; jjep.63.1.1.rm01 <- str_replace_all(jjep.63.1.1.rm00, pattern = rm.01, replacement = ""); jjep.63.1.1.rm02 <- str_replace_all(jjep.63.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.63.1.1.rm03 <- str_replace_all(jjep.63.1.1.rm02, pattern = rm.03, replacement = ""); jjep.63.1.1.rm04 <- str_replace_all(jjep.63.1.1.rm03, pattern = rm.04, replacement = ""); jjep.63.1.1.rm05 <- str_replace_all(jjep.63.1.1.rm04, pattern = rm.05, replacement = ""); jjep.63.1.1.rm06 <- str_replace_all(jjep.63.1.1.rm05, pattern = rm.06, replacement = ""); jjep.63.1.1.rm07 <- str_replace_all(jjep.63.1.1.rm06, pattern = rm.07, replacement = ""); jjep.63.1.1.rm08 <- str_replace_all(jjep.63.1.1.rm07, pattern = rm.08, replacement = ""); jjep.63.1.1.rm09 <- str_replace_all(jjep.63.1.1.rm08, pattern = rm.09, replacement = ""); jjep.63.1.1.rp10 <- str_replace_all(jjep.63.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.63.1.1.rp11 <- str_replace_all(jjep.63.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.63.1.1.rp12 <- str_replace_all(jjep.63.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.63.1.1.rp13 <- str_replace_all(jjep.63.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.63.1.1.rp14 <- str_replace_all(jjep.63.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.63.1.1.rp15 <- str_replace_all(jjep.63.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.63.1.1.mod <- rbind(varname,jjep.63.1.1.rp15); write(jjep.63.1.1.mod, file = "./jjep/Mod_63_1_1.txt")
jjep.63.1.13.tx <- readr::read_file(file="./jjep/63_1_13.txt"); jjep.63.1.13.rm00 <- jjep.63.1.13.tx; jjep.63.1.13.rm01 <- str_replace_all(jjep.63.1.13.rm00, pattern = rm.01, replacement = ""); jjep.63.1.13.rm02 <- str_replace_all(jjep.63.1.13.rm01, pattern = rm.02, replacement = "^"); jjep.63.1.13.rm03 <- str_replace_all(jjep.63.1.13.rm02, pattern = rm.03, replacement = ""); jjep.63.1.13.rm04 <- str_replace_all(jjep.63.1.13.rm03, pattern = rm.04, replacement = ""); jjep.63.1.13.rm05 <- str_replace_all(jjep.63.1.13.rm04, pattern = rm.05, replacement = ""); jjep.63.1.13.rm06 <- str_replace_all(jjep.63.1.13.rm05, pattern = rm.06, replacement = ""); jjep.63.1.13.rm07 <- str_replace_all(jjep.63.1.13.rm06, pattern = rm.07, replacement = ""); jjep.63.1.13.rm08 <- str_replace_all(jjep.63.1.13.rm07, pattern = rm.08, replacement = ""); jjep.63.1.13.rm09 <- str_replace_all(jjep.63.1.13.rm08, pattern = rm.09, replacement = ""); jjep.63.1.13.rp10 <- str_replace_all(jjep.63.1.13.rm09, pattern = rp.01, replacement = "・"); jjep.63.1.13.rp11 <- str_replace_all(jjep.63.1.13.rp10, pattern = rp.02, replacement = "^"); jjep.63.1.13.rp12 <- str_replace_all(jjep.63.1.13.rp11, pattern = rp.03, replacement = "^"); jjep.63.1.13.rp13 <- str_replace_all(jjep.63.1.13.rp12, pattern = rp.04, replacement = "^"); jjep.63.1.13.rp14 <- str_replace_all(jjep.63.1.13.rp13, pattern = rp.05, replacement = "^"); jjep.63.1.13.rp15 <- str_replace_all(jjep.63.1.13.rp14, pattern = rp.06, replacement = "^"); jjep.63.1.13.mod <- rbind(varname,jjep.63.1.13.rp15); write(jjep.63.1.13.mod, file = "./jjep/Mod_63_1_13.txt")
jjep.63.1.23.tx <- readr::read_file(file="./jjep/63_1_23.txt"); jjep.63.1.23.rm00 <- jjep.63.1.23.tx; jjep.63.1.23.rm01 <- str_replace_all(jjep.63.1.23.rm00, pattern = rm.01, replacement = ""); jjep.63.1.23.rm02 <- str_replace_all(jjep.63.1.23.rm01, pattern = rm.02, replacement = "^"); jjep.63.1.23.rm03 <- str_replace_all(jjep.63.1.23.rm02, pattern = rm.03, replacement = ""); jjep.63.1.23.rm04 <- str_replace_all(jjep.63.1.23.rm03, pattern = rm.04, replacement = ""); jjep.63.1.23.rm05 <- str_replace_all(jjep.63.1.23.rm04, pattern = rm.05, replacement = ""); jjep.63.1.23.rm06 <- str_replace_all(jjep.63.1.23.rm05, pattern = rm.06, replacement = ""); jjep.63.1.23.rm07 <- str_replace_all(jjep.63.1.23.rm06, pattern = rm.07, replacement = ""); jjep.63.1.23.rm08 <- str_replace_all(jjep.63.1.23.rm07, pattern = rm.08, replacement = ""); jjep.63.1.23.rm09 <- str_replace_all(jjep.63.1.23.rm08, pattern = rm.09, replacement = ""); jjep.63.1.23.rp10 <- str_replace_all(jjep.63.1.23.rm09, pattern = rp.01, replacement = "・"); jjep.63.1.23.rp11 <- str_replace_all(jjep.63.1.23.rp10, pattern = rp.02, replacement = "^"); jjep.63.1.23.rp12 <- str_replace_all(jjep.63.1.23.rp11, pattern = rp.03, replacement = "^"); jjep.63.1.23.rp13 <- str_replace_all(jjep.63.1.23.rp12, pattern = rp.04, replacement = "^"); jjep.63.1.23.rp14 <- str_replace_all(jjep.63.1.23.rp13, pattern = rp.05, replacement = "^"); jjep.63.1.23.rp15 <- str_replace_all(jjep.63.1.23.rp14, pattern = rp.06, replacement = "^"); jjep.63.1.23.mod <- rbind(varname,jjep.63.1.23.rp15); write(jjep.63.1.23.mod, file = "./jjep/Mod_63_1_23.txt")
jjep.63.1.37.tx <- readr::read_file(file="./jjep/63_1_37.txt"); jjep.63.1.37.rm00 <- jjep.63.1.37.tx; jjep.63.1.37.rm01 <- str_replace_all(jjep.63.1.37.rm00, pattern = rm.01, replacement = ""); jjep.63.1.37.rm02 <- str_replace_all(jjep.63.1.37.rm01, pattern = rm.02, replacement = "^"); jjep.63.1.37.rm03 <- str_replace_all(jjep.63.1.37.rm02, pattern = rm.03, replacement = ""); jjep.63.1.37.rm04 <- str_replace_all(jjep.63.1.37.rm03, pattern = rm.04, replacement = ""); jjep.63.1.37.rm05 <- str_replace_all(jjep.63.1.37.rm04, pattern = rm.05, replacement = ""); jjep.63.1.37.rm06 <- str_replace_all(jjep.63.1.37.rm05, pattern = rm.06, replacement = ""); jjep.63.1.37.rm07 <- str_replace_all(jjep.63.1.37.rm06, pattern = rm.07, replacement = ""); jjep.63.1.37.rm08 <- str_replace_all(jjep.63.1.37.rm07, pattern = rm.08, replacement = ""); jjep.63.1.37.rm09 <- str_replace_all(jjep.63.1.37.rm08, pattern = rm.09, replacement = ""); jjep.63.1.37.rp10 <- str_replace_all(jjep.63.1.37.rm09, pattern = rp.01, replacement = "・"); jjep.63.1.37.rp11 <- str_replace_all(jjep.63.1.37.rp10, pattern = rp.02, replacement = "^"); jjep.63.1.37.rp12 <- str_replace_all(jjep.63.1.37.rp11, pattern = rp.03, replacement = "^"); jjep.63.1.37.rp13 <- str_replace_all(jjep.63.1.37.rp12, pattern = rp.04, replacement = "^"); jjep.63.1.37.rp14 <- str_replace_all(jjep.63.1.37.rp13, pattern = rp.05, replacement = "^"); jjep.63.1.37.rp15 <- str_replace_all(jjep.63.1.37.rp14, pattern = rp.06, replacement = "^"); jjep.63.1.37.mod <- rbind(varname,jjep.63.1.37.rp15); write(jjep.63.1.37.mod, file = "./jjep/Mod_63_1_37.txt")
jjep.63.1.48.tx <- readr::read_file(file="./jjep/63_1_48.txt"); jjep.63.1.48.rm00 <- jjep.63.1.48.tx; jjep.63.1.48.rm01 <- str_replace_all(jjep.63.1.48.rm00, pattern = rm.01, replacement = ""); jjep.63.1.48.rm02 <- str_replace_all(jjep.63.1.48.rm01, pattern = rm.02, replacement = "^"); jjep.63.1.48.rm03 <- str_replace_all(jjep.63.1.48.rm02, pattern = rm.03, replacement = ""); jjep.63.1.48.rm04 <- str_replace_all(jjep.63.1.48.rm03, pattern = rm.04, replacement = ""); jjep.63.1.48.rm05 <- str_replace_all(jjep.63.1.48.rm04, pattern = rm.05, replacement = ""); jjep.63.1.48.rm06 <- str_replace_all(jjep.63.1.48.rm05, pattern = rm.06, replacement = ""); jjep.63.1.48.rm07 <- str_replace_all(jjep.63.1.48.rm06, pattern = rm.07, replacement = ""); jjep.63.1.48.rm08 <- str_replace_all(jjep.63.1.48.rm07, pattern = rm.08, replacement = ""); jjep.63.1.48.rm09 <- str_replace_all(jjep.63.1.48.rm08, pattern = rm.09, replacement = ""); jjep.63.1.48.rp10 <- str_replace_all(jjep.63.1.48.rm09, pattern = rp.01, replacement = "・"); jjep.63.1.48.rp11 <- str_replace_all(jjep.63.1.48.rp10, pattern = rp.02, replacement = "^"); jjep.63.1.48.rp12 <- str_replace_all(jjep.63.1.48.rp11, pattern = rp.03, replacement = "^"); jjep.63.1.48.rp13 <- str_replace_all(jjep.63.1.48.rp12, pattern = rp.04, replacement = "^"); jjep.63.1.48.rp14 <- str_replace_all(jjep.63.1.48.rp13, pattern = rp.05, replacement = "^"); jjep.63.1.48.rp15 <- str_replace_all(jjep.63.1.48.rp14, pattern = rp.06, replacement = "^"); jjep.63.1.48.mod <- rbind(varname,jjep.63.1.48.rp15); write(jjep.63.1.48.mod, file = "./jjep/Mod_63_1_48.txt")
jjep.63.1.63.tx <- readr::read_file(file="./jjep/63_1_63.txt"); jjep.63.1.63.rm00 <- jjep.63.1.63.tx; jjep.63.1.63.rm01 <- str_replace_all(jjep.63.1.63.rm00, pattern = rm.01, replacement = ""); jjep.63.1.63.rm02 <- str_replace_all(jjep.63.1.63.rm01, pattern = rm.02, replacement = "^"); jjep.63.1.63.rm03 <- str_replace_all(jjep.63.1.63.rm02, pattern = rm.03, replacement = ""); jjep.63.1.63.rm04 <- str_replace_all(jjep.63.1.63.rm03, pattern = rm.04, replacement = ""); jjep.63.1.63.rm05 <- str_replace_all(jjep.63.1.63.rm04, pattern = rm.05, replacement = ""); jjep.63.1.63.rm06 <- str_replace_all(jjep.63.1.63.rm05, pattern = rm.06, replacement = ""); jjep.63.1.63.rm07 <- str_replace_all(jjep.63.1.63.rm06, pattern = rm.07, replacement = ""); jjep.63.1.63.rm08 <- str_replace_all(jjep.63.1.63.rm07, pattern = rm.08, replacement = ""); jjep.63.1.63.rm09 <- str_replace_all(jjep.63.1.63.rm08, pattern = rm.09, replacement = ""); jjep.63.1.63.rp10 <- str_replace_all(jjep.63.1.63.rm09, pattern = rp.01, replacement = "・"); jjep.63.1.63.rp11 <- str_replace_all(jjep.63.1.63.rp10, pattern = rp.02, replacement = "^"); jjep.63.1.63.rp12 <- str_replace_all(jjep.63.1.63.rp11, pattern = rp.03, replacement = "^"); jjep.63.1.63.rp13 <- str_replace_all(jjep.63.1.63.rp12, pattern = rp.04, replacement = "^"); jjep.63.1.63.rp14 <- str_replace_all(jjep.63.1.63.rp13, pattern = rp.05, replacement = "^"); jjep.63.1.63.rp15 <- str_replace_all(jjep.63.1.63.rp14, pattern = rp.06, replacement = "^"); jjep.63.1.63.mod <- rbind(varname,jjep.63.1.63.rp15); write(jjep.63.1.63.mod, file = "./jjep/Mod_63_1_63.txt")
jjep.63.1.83.tx <- readr::read_file(file="./jjep/63_1_83.txt"); jjep.63.1.83.rm00 <- jjep.63.1.83.tx; jjep.63.1.83.rm01 <- str_replace_all(jjep.63.1.83.rm00, pattern = rm.01, replacement = ""); jjep.63.1.83.rm02 <- str_replace_all(jjep.63.1.83.rm01, pattern = rm.02, replacement = "^"); jjep.63.1.83.rm03 <- str_replace_all(jjep.63.1.83.rm02, pattern = rm.03, replacement = ""); jjep.63.1.83.rm04 <- str_replace_all(jjep.63.1.83.rm03, pattern = rm.04, replacement = ""); jjep.63.1.83.rm05 <- str_replace_all(jjep.63.1.83.rm04, pattern = rm.05, replacement = ""); jjep.63.1.83.rm06 <- str_replace_all(jjep.63.1.83.rm05, pattern = rm.06, replacement = ""); jjep.63.1.83.rm07 <- str_replace_all(jjep.63.1.83.rm06, pattern = rm.07, replacement = ""); jjep.63.1.83.rm08 <- str_replace_all(jjep.63.1.83.rm07, pattern = rm.08, replacement = ""); jjep.63.1.83.rm09 <- str_replace_all(jjep.63.1.83.rm08, pattern = rm.09, replacement = ""); jjep.63.1.83.rp10 <- str_replace_all(jjep.63.1.83.rm09, pattern = rp.01, replacement = "・"); jjep.63.1.83.rp11 <- str_replace_all(jjep.63.1.83.rp10, pattern = rp.02, replacement = "^"); jjep.63.1.83.rp12 <- str_replace_all(jjep.63.1.83.rp11, pattern = rp.03, replacement = "^"); jjep.63.1.83.rp13 <- str_replace_all(jjep.63.1.83.rp12, pattern = rp.04, replacement = "^"); jjep.63.1.83.rp14 <- str_replace_all(jjep.63.1.83.rp13, pattern = rp.05, replacement = "^"); jjep.63.1.83.rp15 <- str_replace_all(jjep.63.1.83.rp14, pattern = rp.06, replacement = "^"); jjep.63.1.83.mod <- rbind(varname,jjep.63.1.83.rp15); write(jjep.63.1.83.mod, file = "./jjep/Mod_63_1_83.txt")
jjep.62.4.257.tx <- readr::read_file(file="./jjep/62_4_257.txt"); jjep.62.4.257.rm00 <- jjep.62.4.257.tx; jjep.62.4.257.rm01 <- str_replace_all(jjep.62.4.257.rm00, pattern = rm.01, replacement = ""); jjep.62.4.257.rm02 <- str_replace_all(jjep.62.4.257.rm01, pattern = rm.02, replacement = "^"); jjep.62.4.257.rm03 <- str_replace_all(jjep.62.4.257.rm02, pattern = rm.03, replacement = ""); jjep.62.4.257.rm04 <- str_replace_all(jjep.62.4.257.rm03, pattern = rm.04, replacement = ""); jjep.62.4.257.rm05 <- str_replace_all(jjep.62.4.257.rm04, pattern = rm.05, replacement = ""); jjep.62.4.257.rm06 <- str_replace_all(jjep.62.4.257.rm05, pattern = rm.06, replacement = ""); jjep.62.4.257.rm07 <- str_replace_all(jjep.62.4.257.rm06, pattern = rm.07, replacement = ""); jjep.62.4.257.rm08 <- str_replace_all(jjep.62.4.257.rm07, pattern = rm.08, replacement = ""); jjep.62.4.257.rm09 <- str_replace_all(jjep.62.4.257.rm08, pattern = rm.09, replacement = ""); jjep.62.4.257.rp10 <- str_replace_all(jjep.62.4.257.rm09, pattern = rp.01, replacement = "・"); jjep.62.4.257.rp11 <- str_replace_all(jjep.62.4.257.rp10, pattern = rp.02, replacement = "^"); jjep.62.4.257.rp12 <- str_replace_all(jjep.62.4.257.rp11, pattern = rp.03, replacement = "^"); jjep.62.4.257.rp13 <- str_replace_all(jjep.62.4.257.rp12, pattern = rp.04, replacement = "^"); jjep.62.4.257.rp14 <- str_replace_all(jjep.62.4.257.rp13, pattern = rp.05, replacement = "^"); jjep.62.4.257.rp15 <- str_replace_all(jjep.62.4.257.rp14, pattern = rp.06, replacement = "^"); jjep.62.4.257.mod <- rbind(varname,jjep.62.4.257.rp15); write(jjep.62.4.257.mod, file = "./jjep/Mod_62_4_257.txt")
jjep.62.4.273.tx <- readr::read_file(file="./jjep/62_4_273.txt"); jjep.62.4.273.rm00 <- jjep.62.4.273.tx; jjep.62.4.273.rm01 <- str_replace_all(jjep.62.4.273.rm00, pattern = rm.01, replacement = ""); jjep.62.4.273.rm02 <- str_replace_all(jjep.62.4.273.rm01, pattern = rm.02, replacement = "^"); jjep.62.4.273.rm03 <- str_replace_all(jjep.62.4.273.rm02, pattern = rm.03, replacement = ""); jjep.62.4.273.rm04 <- str_replace_all(jjep.62.4.273.rm03, pattern = rm.04, replacement = ""); jjep.62.4.273.rm05 <- str_replace_all(jjep.62.4.273.rm04, pattern = rm.05, replacement = ""); jjep.62.4.273.rm06 <- str_replace_all(jjep.62.4.273.rm05, pattern = rm.06, replacement = ""); jjep.62.4.273.rm07 <- str_replace_all(jjep.62.4.273.rm06, pattern = rm.07, replacement = ""); jjep.62.4.273.rm08 <- str_replace_all(jjep.62.4.273.rm07, pattern = rm.08, replacement = ""); jjep.62.4.273.rm09 <- str_replace_all(jjep.62.4.273.rm08, pattern = rm.09, replacement = ""); jjep.62.4.273.rp10 <- str_replace_all(jjep.62.4.273.rm09, pattern = rp.01, replacement = "・"); jjep.62.4.273.rp11 <- str_replace_all(jjep.62.4.273.rp10, pattern = rp.02, replacement = "^"); jjep.62.4.273.rp12 <- str_replace_all(jjep.62.4.273.rp11, pattern = rp.03, replacement = "^"); jjep.62.4.273.rp13 <- str_replace_all(jjep.62.4.273.rp12, pattern = rp.04, replacement = "^"); jjep.62.4.273.rp14 <- str_replace_all(jjep.62.4.273.rp13, pattern = rp.05, replacement = "^"); jjep.62.4.273.rp15 <- str_replace_all(jjep.62.4.273.rp14, pattern = rp.06, replacement = "^"); jjep.62.4.273.mod <- rbind(varname,jjep.62.4.273.rp15); write(jjep.62.4.273.mod, file = "./jjep/Mod_62_4_273.txt")
jjep.62.4.283.tx <- readr::read_file(file="./jjep/62_4_283.txt"); jjep.62.4.283.rm00 <- jjep.62.4.283.tx; jjep.62.4.283.rm01 <- str_replace_all(jjep.62.4.283.rm00, pattern = rm.01, replacement = ""); jjep.62.4.283.rm02 <- str_replace_all(jjep.62.4.283.rm01, pattern = rm.02, replacement = "^"); jjep.62.4.283.rm03 <- str_replace_all(jjep.62.4.283.rm02, pattern = rm.03, replacement = ""); jjep.62.4.283.rm04 <- str_replace_all(jjep.62.4.283.rm03, pattern = rm.04, replacement = ""); jjep.62.4.283.rm05 <- str_replace_all(jjep.62.4.283.rm04, pattern = rm.05, replacement = ""); jjep.62.4.283.rm06 <- str_replace_all(jjep.62.4.283.rm05, pattern = rm.06, replacement = ""); jjep.62.4.283.rm07 <- str_replace_all(jjep.62.4.283.rm06, pattern = rm.07, replacement = ""); jjep.62.4.283.rm08 <- str_replace_all(jjep.62.4.283.rm07, pattern = rm.08, replacement = ""); jjep.62.4.283.rm09 <- str_replace_all(jjep.62.4.283.rm08, pattern = rm.09, replacement = ""); jjep.62.4.283.rp10 <- str_replace_all(jjep.62.4.283.rm09, pattern = rp.01, replacement = "・"); jjep.62.4.283.rp11 <- str_replace_all(jjep.62.4.283.rp10, pattern = rp.02, replacement = "^"); jjep.62.4.283.rp12 <- str_replace_all(jjep.62.4.283.rp11, pattern = rp.03, replacement = "^"); jjep.62.4.283.rp13 <- str_replace_all(jjep.62.4.283.rp12, pattern = rp.04, replacement = "^"); jjep.62.4.283.rp14 <- str_replace_all(jjep.62.4.283.rp13, pattern = rp.05, replacement = "^"); jjep.62.4.283.rp15 <- str_replace_all(jjep.62.4.283.rp14, pattern = rp.06, replacement = "^"); jjep.62.4.283.mod <- rbind(varname,jjep.62.4.283.rp15); write(jjep.62.4.283.mod, file = "./jjep/Mod_62_4_283.txt")
jjep.62.4.294.tx <- readr::read_file(file="./jjep/62_4_294.txt"); jjep.62.4.294.rm00 <- jjep.62.4.294.tx; jjep.62.4.294.rm01 <- str_replace_all(jjep.62.4.294.rm00, pattern = rm.01, replacement = ""); jjep.62.4.294.rm02 <- str_replace_all(jjep.62.4.294.rm01, pattern = rm.02, replacement = "^"); jjep.62.4.294.rm03 <- str_replace_all(jjep.62.4.294.rm02, pattern = rm.03, replacement = ""); jjep.62.4.294.rm04 <- str_replace_all(jjep.62.4.294.rm03, pattern = rm.04, replacement = ""); jjep.62.4.294.rm05 <- str_replace_all(jjep.62.4.294.rm04, pattern = rm.05, replacement = ""); jjep.62.4.294.rm06 <- str_replace_all(jjep.62.4.294.rm05, pattern = rm.06, replacement = ""); jjep.62.4.294.rm07 <- str_replace_all(jjep.62.4.294.rm06, pattern = rm.07, replacement = ""); jjep.62.4.294.rm08 <- str_replace_all(jjep.62.4.294.rm07, pattern = rm.08, replacement = ""); jjep.62.4.294.rm09 <- str_replace_all(jjep.62.4.294.rm08, pattern = rm.09, replacement = ""); jjep.62.4.294.rp10 <- str_replace_all(jjep.62.4.294.rm09, pattern = rp.01, replacement = "・"); jjep.62.4.294.rp11 <- str_replace_all(jjep.62.4.294.rp10, pattern = rp.02, replacement = "^"); jjep.62.4.294.rp12 <- str_replace_all(jjep.62.4.294.rp11, pattern = rp.03, replacement = "^"); jjep.62.4.294.rp13 <- str_replace_all(jjep.62.4.294.rp12, pattern = rp.04, replacement = "^"); jjep.62.4.294.rp14 <- str_replace_all(jjep.62.4.294.rp13, pattern = rp.05, replacement = "^"); jjep.62.4.294.rp15 <- str_replace_all(jjep.62.4.294.rp14, pattern = rp.06, replacement = "^"); jjep.62.4.294.mod <- rbind(varname,jjep.62.4.294.rp15); write(jjep.62.4.294.mod, file = "./jjep/Mod_62_4_294.txt")
jjep.62.4.305.tx <- readr::read_file(file="./jjep/62_4_305.txt"); jjep.62.4.305.rm00 <- jjep.62.4.305.tx; jjep.62.4.305.rm01 <- str_replace_all(jjep.62.4.305.rm00, pattern = rm.01, replacement = ""); jjep.62.4.305.rm02 <- str_replace_all(jjep.62.4.305.rm01, pattern = rm.02, replacement = "^"); jjep.62.4.305.rm03 <- str_replace_all(jjep.62.4.305.rm02, pattern = rm.03, replacement = ""); jjep.62.4.305.rm04 <- str_replace_all(jjep.62.4.305.rm03, pattern = rm.04, replacement = ""); jjep.62.4.305.rm05 <- str_replace_all(jjep.62.4.305.rm04, pattern = rm.05, replacement = ""); jjep.62.4.305.rm06 <- str_replace_all(jjep.62.4.305.rm05, pattern = rm.06, replacement = ""); jjep.62.4.305.rm07 <- str_replace_all(jjep.62.4.305.rm06, pattern = rm.07, replacement = ""); jjep.62.4.305.rm08 <- str_replace_all(jjep.62.4.305.rm07, pattern = rm.08, replacement = ""); jjep.62.4.305.rm09 <- str_replace_all(jjep.62.4.305.rm08, pattern = rm.09, replacement = ""); jjep.62.4.305.rp10 <- str_replace_all(jjep.62.4.305.rm09, pattern = rp.01, replacement = "・"); jjep.62.4.305.rp11 <- str_replace_all(jjep.62.4.305.rp10, pattern = rp.02, replacement = "^"); jjep.62.4.305.rp12 <- str_replace_all(jjep.62.4.305.rp11, pattern = rp.03, replacement = "^"); jjep.62.4.305.rp13 <- str_replace_all(jjep.62.4.305.rp12, pattern = rp.04, replacement = "^"); jjep.62.4.305.rp14 <- str_replace_all(jjep.62.4.305.rp13, pattern = rp.05, replacement = "^"); jjep.62.4.305.rp15 <- str_replace_all(jjep.62.4.305.rp14, pattern = rp.06, replacement = "^"); jjep.62.4.305.mod <- rbind(varname,jjep.62.4.305.rp15); write(jjep.62.4.305.mod, file = "./jjep/Mod_62_4_305.txt")
jjep.62.4.322.tx <- readr::read_file(file="./jjep/62_4_322.txt"); jjep.62.4.322.rm00 <- jjep.62.4.322.tx; jjep.62.4.322.rm01 <- str_replace_all(jjep.62.4.322.rm00, pattern = rm.01, replacement = ""); jjep.62.4.322.rm02 <- str_replace_all(jjep.62.4.322.rm01, pattern = rm.02, replacement = "^"); jjep.62.4.322.rm03 <- str_replace_all(jjep.62.4.322.rm02, pattern = rm.03, replacement = ""); jjep.62.4.322.rm04 <- str_replace_all(jjep.62.4.322.rm03, pattern = rm.04, replacement = ""); jjep.62.4.322.rm05 <- str_replace_all(jjep.62.4.322.rm04, pattern = rm.05, replacement = ""); jjep.62.4.322.rm06 <- str_replace_all(jjep.62.4.322.rm05, pattern = rm.06, replacement = ""); jjep.62.4.322.rm07 <- str_replace_all(jjep.62.4.322.rm06, pattern = rm.07, replacement = ""); jjep.62.4.322.rm08 <- str_replace_all(jjep.62.4.322.rm07, pattern = rm.08, replacement = ""); jjep.62.4.322.rm09 <- str_replace_all(jjep.62.4.322.rm08, pattern = rm.09, replacement = ""); jjep.62.4.322.rp10 <- str_replace_all(jjep.62.4.322.rm09, pattern = rp.01, replacement = "・"); jjep.62.4.322.rp11 <- str_replace_all(jjep.62.4.322.rp10, pattern = rp.02, replacement = "^"); jjep.62.4.322.rp12 <- str_replace_all(jjep.62.4.322.rp11, pattern = rp.03, replacement = "^"); jjep.62.4.322.rp13 <- str_replace_all(jjep.62.4.322.rp12, pattern = rp.04, replacement = "^"); jjep.62.4.322.rp14 <- str_replace_all(jjep.62.4.322.rp13, pattern = rp.05, replacement = "^"); jjep.62.4.322.rp15 <- str_replace_all(jjep.62.4.322.rp14, pattern = rp.06, replacement = "^"); jjep.62.4.322.mod <- rbind(varname,jjep.62.4.322.rp15); write(jjep.62.4.322.mod, file = "./jjep/Mod_62_4_322.txt")
jjep.62.3.173.tx <- readr::read_file(file="./jjep/62_3_173.txt"); jjep.62.3.173.rm00 <- jjep.62.3.173.tx; jjep.62.3.173.rm01 <- str_replace_all(jjep.62.3.173.rm00, pattern = rm.01, replacement = ""); jjep.62.3.173.rm02 <- str_replace_all(jjep.62.3.173.rm01, pattern = rm.02, replacement = "^"); jjep.62.3.173.rm03 <- str_replace_all(jjep.62.3.173.rm02, pattern = rm.03, replacement = ""); jjep.62.3.173.rm04 <- str_replace_all(jjep.62.3.173.rm03, pattern = rm.04, replacement = ""); jjep.62.3.173.rm05 <- str_replace_all(jjep.62.3.173.rm04, pattern = rm.05, replacement = ""); jjep.62.3.173.rm06 <- str_replace_all(jjep.62.3.173.rm05, pattern = rm.06, replacement = ""); jjep.62.3.173.rm07 <- str_replace_all(jjep.62.3.173.rm06, pattern = rm.07, replacement = ""); jjep.62.3.173.rm08 <- str_replace_all(jjep.62.3.173.rm07, pattern = rm.08, replacement = ""); jjep.62.3.173.rm09 <- str_replace_all(jjep.62.3.173.rm08, pattern = rm.09, replacement = ""); jjep.62.3.173.rp10 <- str_replace_all(jjep.62.3.173.rm09, pattern = rp.01, replacement = "・"); jjep.62.3.173.rp11 <- str_replace_all(jjep.62.3.173.rp10, pattern = rp.02, replacement = "^"); jjep.62.3.173.rp12 <- str_replace_all(jjep.62.3.173.rp11, pattern = rp.03, replacement = "^"); jjep.62.3.173.rp13 <- str_replace_all(jjep.62.3.173.rp12, pattern = rp.04, replacement = "^"); jjep.62.3.173.rp14 <- str_replace_all(jjep.62.3.173.rp13, pattern = rp.05, replacement = "^"); jjep.62.3.173.rp15 <- str_replace_all(jjep.62.3.173.rp14, pattern = rp.06, replacement = "^"); jjep.62.3.173.mod <- rbind(varname,jjep.62.3.173.rp15); write(jjep.62.3.173.mod, file = "./jjep/Mod_62_3_173.txt")
jjep.62.3.187.tx <- readr::read_file(file="./jjep/62_3_187.txt"); jjep.62.3.187.rm00 <- jjep.62.3.187.tx; jjep.62.3.187.rm01 <- str_replace_all(jjep.62.3.187.rm00, pattern = rm.01, replacement = ""); jjep.62.3.187.rm02 <- str_replace_all(jjep.62.3.187.rm01, pattern = rm.02, replacement = "^"); jjep.62.3.187.rm03 <- str_replace_all(jjep.62.3.187.rm02, pattern = rm.03, replacement = ""); jjep.62.3.187.rm04 <- str_replace_all(jjep.62.3.187.rm03, pattern = rm.04, replacement = ""); jjep.62.3.187.rm05 <- str_replace_all(jjep.62.3.187.rm04, pattern = rm.05, replacement = ""); jjep.62.3.187.rm06 <- str_replace_all(jjep.62.3.187.rm05, pattern = rm.06, replacement = ""); jjep.62.3.187.rm07 <- str_replace_all(jjep.62.3.187.rm06, pattern = rm.07, replacement = ""); jjep.62.3.187.rm08 <- str_replace_all(jjep.62.3.187.rm07, pattern = rm.08, replacement = ""); jjep.62.3.187.rm09 <- str_replace_all(jjep.62.3.187.rm08, pattern = rm.09, replacement = ""); jjep.62.3.187.rp10 <- str_replace_all(jjep.62.3.187.rm09, pattern = rp.01, replacement = "・"); jjep.62.3.187.rp11 <- str_replace_all(jjep.62.3.187.rp10, pattern = rp.02, replacement = "^"); jjep.62.3.187.rp12 <- str_replace_all(jjep.62.3.187.rp11, pattern = rp.03, replacement = "^"); jjep.62.3.187.rp13 <- str_replace_all(jjep.62.3.187.rp12, pattern = rp.04, replacement = "^"); jjep.62.3.187.rp14 <- str_replace_all(jjep.62.3.187.rp13, pattern = rp.05, replacement = "^"); jjep.62.3.187.rp15 <- str_replace_all(jjep.62.3.187.rp14, pattern = rp.06, replacement = "^"); jjep.62.3.187.mod <- rbind(varname,jjep.62.3.187.rp15); write(jjep.62.3.187.mod, file = "./jjep/Mod_62_3_187.txt")
jjep.62.3.197.tx <- readr::read_file(file="./jjep/62_3_197.txt"); jjep.62.3.197.rm00 <- jjep.62.3.197.tx; jjep.62.3.197.rm01 <- str_replace_all(jjep.62.3.197.rm00, pattern = rm.01, replacement = ""); jjep.62.3.197.rm02 <- str_replace_all(jjep.62.3.197.rm01, pattern = rm.02, replacement = "^"); jjep.62.3.197.rm03 <- str_replace_all(jjep.62.3.197.rm02, pattern = rm.03, replacement = ""); jjep.62.3.197.rm04 <- str_replace_all(jjep.62.3.197.rm03, pattern = rm.04, replacement = ""); jjep.62.3.197.rm05 <- str_replace_all(jjep.62.3.197.rm04, pattern = rm.05, replacement = ""); jjep.62.3.197.rm06 <- str_replace_all(jjep.62.3.197.rm05, pattern = rm.06, replacement = ""); jjep.62.3.197.rm07 <- str_replace_all(jjep.62.3.197.rm06, pattern = rm.07, replacement = ""); jjep.62.3.197.rm08 <- str_replace_all(jjep.62.3.197.rm07, pattern = rm.08, replacement = ""); jjep.62.3.197.rm09 <- str_replace_all(jjep.62.3.197.rm08, pattern = rm.09, replacement = ""); jjep.62.3.197.rp10 <- str_replace_all(jjep.62.3.197.rm09, pattern = rp.01, replacement = "・"); jjep.62.3.197.rp11 <- str_replace_all(jjep.62.3.197.rp10, pattern = rp.02, replacement = "^"); jjep.62.3.197.rp12 <- str_replace_all(jjep.62.3.197.rp11, pattern = rp.03, replacement = "^"); jjep.62.3.197.rp13 <- str_replace_all(jjep.62.3.197.rp12, pattern = rp.04, replacement = "^"); jjep.62.3.197.rp14 <- str_replace_all(jjep.62.3.197.rp13, pattern = rp.05, replacement = "^"); jjep.62.3.197.rp15 <- str_replace_all(jjep.62.3.197.rp14, pattern = rp.06, replacement = "^"); jjep.62.3.197.mod <- rbind(varname,jjep.62.3.197.rp15); write(jjep.62.3.197.mod, file = "./jjep/Mod_62_3_197.txt")
jjep.62.3.209.tx <- readr::read_file(file="./jjep/62_3_209.txt"); jjep.62.3.209.rm00 <- jjep.62.3.209.tx; jjep.62.3.209.rm01 <- str_replace_all(jjep.62.3.209.rm00, pattern = rm.01, replacement = ""); jjep.62.3.209.rm02 <- str_replace_all(jjep.62.3.209.rm01, pattern = rm.02, replacement = "^"); jjep.62.3.209.rm03 <- str_replace_all(jjep.62.3.209.rm02, pattern = rm.03, replacement = ""); jjep.62.3.209.rm04 <- str_replace_all(jjep.62.3.209.rm03, pattern = rm.04, replacement = ""); jjep.62.3.209.rm05 <- str_replace_all(jjep.62.3.209.rm04, pattern = rm.05, replacement = ""); jjep.62.3.209.rm06 <- str_replace_all(jjep.62.3.209.rm05, pattern = rm.06, replacement = ""); jjep.62.3.209.rm07 <- str_replace_all(jjep.62.3.209.rm06, pattern = rm.07, replacement = ""); jjep.62.3.209.rm08 <- str_replace_all(jjep.62.3.209.rm07, pattern = rm.08, replacement = ""); jjep.62.3.209.rm09 <- str_replace_all(jjep.62.3.209.rm08, pattern = rm.09, replacement = ""); jjep.62.3.209.rp10 <- str_replace_all(jjep.62.3.209.rm09, pattern = rp.01, replacement = "・"); jjep.62.3.209.rp11 <- str_replace_all(jjep.62.3.209.rp10, pattern = rp.02, replacement = "^"); jjep.62.3.209.rp12 <- str_replace_all(jjep.62.3.209.rp11, pattern = rp.03, replacement = "^"); jjep.62.3.209.rp13 <- str_replace_all(jjep.62.3.209.rp12, pattern = rp.04, replacement = "^"); jjep.62.3.209.rp14 <- str_replace_all(jjep.62.3.209.rp13, pattern = rp.05, replacement = "^"); jjep.62.3.209.rp15 <- str_replace_all(jjep.62.3.209.rp14, pattern = rp.06, replacement = "^"); jjep.62.3.209.mod <- rbind(varname,jjep.62.3.209.rp15); write(jjep.62.3.209.mod, file = "./jjep/Mod_62_3_209.txt")
jjep.62.3.226.tx <- readr::read_file(file="./jjep/62_3_226.txt"); jjep.62.3.226.rm00 <- jjep.62.3.226.tx; jjep.62.3.226.rm01 <- str_replace_all(jjep.62.3.226.rm00, pattern = rm.01, replacement = ""); jjep.62.3.226.rm02 <- str_replace_all(jjep.62.3.226.rm01, pattern = rm.02, replacement = "^"); jjep.62.3.226.rm03 <- str_replace_all(jjep.62.3.226.rm02, pattern = rm.03, replacement = ""); jjep.62.3.226.rm04 <- str_replace_all(jjep.62.3.226.rm03, pattern = rm.04, replacement = ""); jjep.62.3.226.rm05 <- str_replace_all(jjep.62.3.226.rm04, pattern = rm.05, replacement = ""); jjep.62.3.226.rm06 <- str_replace_all(jjep.62.3.226.rm05, pattern = rm.06, replacement = ""); jjep.62.3.226.rm07 <- str_replace_all(jjep.62.3.226.rm06, pattern = rm.07, replacement = ""); jjep.62.3.226.rm08 <- str_replace_all(jjep.62.3.226.rm07, pattern = rm.08, replacement = ""); jjep.62.3.226.rm09 <- str_replace_all(jjep.62.3.226.rm08, pattern = rm.09, replacement = ""); jjep.62.3.226.rp10 <- str_replace_all(jjep.62.3.226.rm09, pattern = rp.01, replacement = "・"); jjep.62.3.226.rp11 <- str_replace_all(jjep.62.3.226.rp10, pattern = rp.02, replacement = "^"); jjep.62.3.226.rp12 <- str_replace_all(jjep.62.3.226.rp11, pattern = rp.03, replacement = "^"); jjep.62.3.226.rp13 <- str_replace_all(jjep.62.3.226.rp12, pattern = rp.04, replacement = "^"); jjep.62.3.226.rp14 <- str_replace_all(jjep.62.3.226.rp13, pattern = rp.05, replacement = "^"); jjep.62.3.226.rp15 <- str_replace_all(jjep.62.3.226.rp14, pattern = rp.06, replacement = "^"); jjep.62.3.226.mod <- rbind(varname,jjep.62.3.226.rp15); write(jjep.62.3.226.mod, file = "./jjep/Mod_62_3_226.txt")
jjep.62.3.240.tx <- readr::read_file(file="./jjep/62_3_240.txt"); jjep.62.3.240.rm00 <- jjep.62.3.240.tx; jjep.62.3.240.rm01 <- str_replace_all(jjep.62.3.240.rm00, pattern = rm.01, replacement = ""); jjep.62.3.240.rm02 <- str_replace_all(jjep.62.3.240.rm01, pattern = rm.02, replacement = "^"); jjep.62.3.240.rm03 <- str_replace_all(jjep.62.3.240.rm02, pattern = rm.03, replacement = ""); jjep.62.3.240.rm04 <- str_replace_all(jjep.62.3.240.rm03, pattern = rm.04, replacement = ""); jjep.62.3.240.rm05 <- str_replace_all(jjep.62.3.240.rm04, pattern = rm.05, replacement = ""); jjep.62.3.240.rm06 <- str_replace_all(jjep.62.3.240.rm05, pattern = rm.06, replacement = ""); jjep.62.3.240.rm07 <- str_replace_all(jjep.62.3.240.rm06, pattern = rm.07, replacement = ""); jjep.62.3.240.rm08 <- str_replace_all(jjep.62.3.240.rm07, pattern = rm.08, replacement = ""); jjep.62.3.240.rm09 <- str_replace_all(jjep.62.3.240.rm08, pattern = rm.09, replacement = ""); jjep.62.3.240.rp10 <- str_replace_all(jjep.62.3.240.rm09, pattern = rp.01, replacement = "・"); jjep.62.3.240.rp11 <- str_replace_all(jjep.62.3.240.rp10, pattern = rp.02, replacement = "^"); jjep.62.3.240.rp12 <- str_replace_all(jjep.62.3.240.rp11, pattern = rp.03, replacement = "^"); jjep.62.3.240.rp13 <- str_replace_all(jjep.62.3.240.rp12, pattern = rp.04, replacement = "^"); jjep.62.3.240.rp14 <- str_replace_all(jjep.62.3.240.rp13, pattern = rp.05, replacement = "^"); jjep.62.3.240.rp15 <- str_replace_all(jjep.62.3.240.rp14, pattern = rp.06, replacement = "^"); jjep.62.3.240.mod <- rbind(varname,jjep.62.3.240.rp15); write(jjep.62.3.240.mod, file = "./jjep/Mod_62_3_240.txt")
jjep.62.2.87.tx <- readr::read_file(file="./jjep/62_2_87.txt"); jjep.62.2.87.rm00 <- jjep.62.2.87.tx; jjep.62.2.87.rm01 <- str_replace_all(jjep.62.2.87.rm00, pattern = rm.01, replacement = ""); jjep.62.2.87.rm02 <- str_replace_all(jjep.62.2.87.rm01, pattern = rm.02, replacement = "^"); jjep.62.2.87.rm03 <- str_replace_all(jjep.62.2.87.rm02, pattern = rm.03, replacement = ""); jjep.62.2.87.rm04 <- str_replace_all(jjep.62.2.87.rm03, pattern = rm.04, replacement = ""); jjep.62.2.87.rm05 <- str_replace_all(jjep.62.2.87.rm04, pattern = rm.05, replacement = ""); jjep.62.2.87.rm06 <- str_replace_all(jjep.62.2.87.rm05, pattern = rm.06, replacement = ""); jjep.62.2.87.rm07 <- str_replace_all(jjep.62.2.87.rm06, pattern = rm.07, replacement = ""); jjep.62.2.87.rm08 <- str_replace_all(jjep.62.2.87.rm07, pattern = rm.08, replacement = ""); jjep.62.2.87.rm09 <- str_replace_all(jjep.62.2.87.rm08, pattern = rm.09, replacement = ""); jjep.62.2.87.rp10 <- str_replace_all(jjep.62.2.87.rm09, pattern = rp.01, replacement = "・"); jjep.62.2.87.rp11 <- str_replace_all(jjep.62.2.87.rp10, pattern = rp.02, replacement = "^"); jjep.62.2.87.rp12 <- str_replace_all(jjep.62.2.87.rp11, pattern = rp.03, replacement = "^"); jjep.62.2.87.rp13 <- str_replace_all(jjep.62.2.87.rp12, pattern = rp.04, replacement = "^"); jjep.62.2.87.rp14 <- str_replace_all(jjep.62.2.87.rp13, pattern = rp.05, replacement = "^"); jjep.62.2.87.rp15 <- str_replace_all(jjep.62.2.87.rp14, pattern = rp.06, replacement = "^"); jjep.62.2.87.mod <- rbind(varname,jjep.62.2.87.rp15); write(jjep.62.2.87.mod, file = "./jjep/Mod_62_2_87.txt")
jjep.62.2.101.tx <- readr::read_file(file="./jjep/62_2_101.txt"); jjep.62.2.101.rm00 <- jjep.62.2.101.tx; jjep.62.2.101.rm01 <- str_replace_all(jjep.62.2.101.rm00, pattern = rm.01, replacement = ""); jjep.62.2.101.rm02 <- str_replace_all(jjep.62.2.101.rm01, pattern = rm.02, replacement = "^"); jjep.62.2.101.rm03 <- str_replace_all(jjep.62.2.101.rm02, pattern = rm.03, replacement = ""); jjep.62.2.101.rm04 <- str_replace_all(jjep.62.2.101.rm03, pattern = rm.04, replacement = ""); jjep.62.2.101.rm05 <- str_replace_all(jjep.62.2.101.rm04, pattern = rm.05, replacement = ""); jjep.62.2.101.rm06 <- str_replace_all(jjep.62.2.101.rm05, pattern = rm.06, replacement = ""); jjep.62.2.101.rm07 <- str_replace_all(jjep.62.2.101.rm06, pattern = rm.07, replacement = ""); jjep.62.2.101.rm08 <- str_replace_all(jjep.62.2.101.rm07, pattern = rm.08, replacement = ""); jjep.62.2.101.rm09 <- str_replace_all(jjep.62.2.101.rm08, pattern = rm.09, replacement = ""); jjep.62.2.101.rp10 <- str_replace_all(jjep.62.2.101.rm09, pattern = rp.01, replacement = "・"); jjep.62.2.101.rp11 <- str_replace_all(jjep.62.2.101.rp10, pattern = rp.02, replacement = "^"); jjep.62.2.101.rp12 <- str_replace_all(jjep.62.2.101.rp11, pattern = rp.03, replacement = "^"); jjep.62.2.101.rp13 <- str_replace_all(jjep.62.2.101.rp12, pattern = rp.04, replacement = "^"); jjep.62.2.101.rp14 <- str_replace_all(jjep.62.2.101.rp13, pattern = rp.05, replacement = "^"); jjep.62.2.101.rp15 <- str_replace_all(jjep.62.2.101.rp14, pattern = rp.06, replacement = "^"); jjep.62.2.101.mod <- rbind(varname,jjep.62.2.101.rp15); write(jjep.62.2.101.mod, file = "./jjep/Mod_62_2_101.txt")
jjep.62.2.115.tx <- readr::read_file(file="./jjep/62_2_115.txt"); jjep.62.2.115.rm00 <- jjep.62.2.115.tx; jjep.62.2.115.rm01 <- str_replace_all(jjep.62.2.115.rm00, pattern = rm.01, replacement = ""); jjep.62.2.115.rm02 <- str_replace_all(jjep.62.2.115.rm01, pattern = rm.02, replacement = "^"); jjep.62.2.115.rm03 <- str_replace_all(jjep.62.2.115.rm02, pattern = rm.03, replacement = ""); jjep.62.2.115.rm04 <- str_replace_all(jjep.62.2.115.rm03, pattern = rm.04, replacement = ""); jjep.62.2.115.rm05 <- str_replace_all(jjep.62.2.115.rm04, pattern = rm.05, replacement = ""); jjep.62.2.115.rm06 <- str_replace_all(jjep.62.2.115.rm05, pattern = rm.06, replacement = ""); jjep.62.2.115.rm07 <- str_replace_all(jjep.62.2.115.rm06, pattern = rm.07, replacement = ""); jjep.62.2.115.rm08 <- str_replace_all(jjep.62.2.115.rm07, pattern = rm.08, replacement = ""); jjep.62.2.115.rm09 <- str_replace_all(jjep.62.2.115.rm08, pattern = rm.09, replacement = ""); jjep.62.2.115.rp10 <- str_replace_all(jjep.62.2.115.rm09, pattern = rp.01, replacement = "・"); jjep.62.2.115.rp11 <- str_replace_all(jjep.62.2.115.rp10, pattern = rp.02, replacement = "^"); jjep.62.2.115.rp12 <- str_replace_all(jjep.62.2.115.rp11, pattern = rp.03, replacement = "^"); jjep.62.2.115.rp13 <- str_replace_all(jjep.62.2.115.rp12, pattern = rp.04, replacement = "^"); jjep.62.2.115.rp14 <- str_replace_all(jjep.62.2.115.rp13, pattern = rp.05, replacement = "^"); jjep.62.2.115.rp15 <- str_replace_all(jjep.62.2.115.rp14, pattern = rp.06, replacement = "^"); jjep.62.2.115.mod <- rbind(varname,jjep.62.2.115.rp15); write(jjep.62.2.115.mod, file = "./jjep/Mod_62_2_115.txt")
jjep.62.2.129.tx <- readr::read_file(file="./jjep/62_2_129.txt"); jjep.62.2.129.rm00 <- jjep.62.2.129.tx; jjep.62.2.129.rm01 <- str_replace_all(jjep.62.2.129.rm00, pattern = rm.01, replacement = ""); jjep.62.2.129.rm02 <- str_replace_all(jjep.62.2.129.rm01, pattern = rm.02, replacement = "^"); jjep.62.2.129.rm03 <- str_replace_all(jjep.62.2.129.rm02, pattern = rm.03, replacement = ""); jjep.62.2.129.rm04 <- str_replace_all(jjep.62.2.129.rm03, pattern = rm.04, replacement = ""); jjep.62.2.129.rm05 <- str_replace_all(jjep.62.2.129.rm04, pattern = rm.05, replacement = ""); jjep.62.2.129.rm06 <- str_replace_all(jjep.62.2.129.rm05, pattern = rm.06, replacement = ""); jjep.62.2.129.rm07 <- str_replace_all(jjep.62.2.129.rm06, pattern = rm.07, replacement = ""); jjep.62.2.129.rm08 <- str_replace_all(jjep.62.2.129.rm07, pattern = rm.08, replacement = ""); jjep.62.2.129.rm09 <- str_replace_all(jjep.62.2.129.rm08, pattern = rm.09, replacement = ""); jjep.62.2.129.rp10 <- str_replace_all(jjep.62.2.129.rm09, pattern = rp.01, replacement = "・"); jjep.62.2.129.rp11 <- str_replace_all(jjep.62.2.129.rp10, pattern = rp.02, replacement = "^"); jjep.62.2.129.rp12 <- str_replace_all(jjep.62.2.129.rp11, pattern = rp.03, replacement = "^"); jjep.62.2.129.rp13 <- str_replace_all(jjep.62.2.129.rp12, pattern = rp.04, replacement = "^"); jjep.62.2.129.rp14 <- str_replace_all(jjep.62.2.129.rp13, pattern = rp.05, replacement = "^"); jjep.62.2.129.rp15 <- str_replace_all(jjep.62.2.129.rp14, pattern = rp.06, replacement = "^"); jjep.62.2.129.mod <- rbind(varname,jjep.62.2.129.rp15); write(jjep.62.2.129.mod, file = "./jjep/Mod_62_2_129.txt")
jjep.62.2.143.tx <- readr::read_file(file="./jjep/62_2_143.txt"); jjep.62.2.143.rm00 <- jjep.62.2.143.tx; jjep.62.2.143.rm01 <- str_replace_all(jjep.62.2.143.rm00, pattern = rm.01, replacement = ""); jjep.62.2.143.rm02 <- str_replace_all(jjep.62.2.143.rm01, pattern = rm.02, replacement = "^"); jjep.62.2.143.rm03 <- str_replace_all(jjep.62.2.143.rm02, pattern = rm.03, replacement = ""); jjep.62.2.143.rm04 <- str_replace_all(jjep.62.2.143.rm03, pattern = rm.04, replacement = ""); jjep.62.2.143.rm05 <- str_replace_all(jjep.62.2.143.rm04, pattern = rm.05, replacement = ""); jjep.62.2.143.rm06 <- str_replace_all(jjep.62.2.143.rm05, pattern = rm.06, replacement = ""); jjep.62.2.143.rm07 <- str_replace_all(jjep.62.2.143.rm06, pattern = rm.07, replacement = ""); jjep.62.2.143.rm08 <- str_replace_all(jjep.62.2.143.rm07, pattern = rm.08, replacement = ""); jjep.62.2.143.rm09 <- str_replace_all(jjep.62.2.143.rm08, pattern = rm.09, replacement = ""); jjep.62.2.143.rp10 <- str_replace_all(jjep.62.2.143.rm09, pattern = rp.01, replacement = "・"); jjep.62.2.143.rp11 <- str_replace_all(jjep.62.2.143.rp10, pattern = rp.02, replacement = "^"); jjep.62.2.143.rp12 <- str_replace_all(jjep.62.2.143.rp11, pattern = rp.03, replacement = "^"); jjep.62.2.143.rp13 <- str_replace_all(jjep.62.2.143.rp12, pattern = rp.04, replacement = "^"); jjep.62.2.143.rp14 <- str_replace_all(jjep.62.2.143.rp13, pattern = rp.05, replacement = "^"); jjep.62.2.143.rp15 <- str_replace_all(jjep.62.2.143.rp14, pattern = rp.06, replacement = "^"); jjep.62.2.143.mod <- rbind(varname,jjep.62.2.143.rp15); write(jjep.62.2.143.mod, file = "./jjep/Mod_62_2_143.txt")
jjep.62.2.156.tx <- readr::read_file(file="./jjep/62_2_156.txt"); jjep.62.2.156.rm00 <- jjep.62.2.156.tx; jjep.62.2.156.rm01 <- str_replace_all(jjep.62.2.156.rm00, pattern = rm.01, replacement = ""); jjep.62.2.156.rm02 <- str_replace_all(jjep.62.2.156.rm01, pattern = rm.02, replacement = "^"); jjep.62.2.156.rm03 <- str_replace_all(jjep.62.2.156.rm02, pattern = rm.03, replacement = ""); jjep.62.2.156.rm04 <- str_replace_all(jjep.62.2.156.rm03, pattern = rm.04, replacement = ""); jjep.62.2.156.rm05 <- str_replace_all(jjep.62.2.156.rm04, pattern = rm.05, replacement = ""); jjep.62.2.156.rm06 <- str_replace_all(jjep.62.2.156.rm05, pattern = rm.06, replacement = ""); jjep.62.2.156.rm07 <- str_replace_all(jjep.62.2.156.rm06, pattern = rm.07, replacement = ""); jjep.62.2.156.rm08 <- str_replace_all(jjep.62.2.156.rm07, pattern = rm.08, replacement = ""); jjep.62.2.156.rm09 <- str_replace_all(jjep.62.2.156.rm08, pattern = rm.09, replacement = ""); jjep.62.2.156.rp10 <- str_replace_all(jjep.62.2.156.rm09, pattern = rp.01, replacement = "・"); jjep.62.2.156.rp11 <- str_replace_all(jjep.62.2.156.rp10, pattern = rp.02, replacement = "^"); jjep.62.2.156.rp12 <- str_replace_all(jjep.62.2.156.rp11, pattern = rp.03, replacement = "^"); jjep.62.2.156.rp13 <- str_replace_all(jjep.62.2.156.rp12, pattern = rp.04, replacement = "^"); jjep.62.2.156.rp14 <- str_replace_all(jjep.62.2.156.rp13, pattern = rp.05, replacement = "^"); jjep.62.2.156.rp15 <- str_replace_all(jjep.62.2.156.rp14, pattern = rp.06, replacement = "^"); jjep.62.2.156.mod <- rbind(varname,jjep.62.2.156.rp15); write(jjep.62.2.156.mod, file = "./jjep/Mod_62_2_156.txt")
jjep.62.1.1.tx <- readr::read_file(file="./jjep/62_1_1.txt"); jjep.62.1.1.rm00 <- jjep.62.1.1.tx; jjep.62.1.1.rm01 <- str_replace_all(jjep.62.1.1.rm00, pattern = rm.01, replacement = ""); jjep.62.1.1.rm02 <- str_replace_all(jjep.62.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.62.1.1.rm03 <- str_replace_all(jjep.62.1.1.rm02, pattern = rm.03, replacement = ""); jjep.62.1.1.rm04 <- str_replace_all(jjep.62.1.1.rm03, pattern = rm.04, replacement = ""); jjep.62.1.1.rm05 <- str_replace_all(jjep.62.1.1.rm04, pattern = rm.05, replacement = ""); jjep.62.1.1.rm06 <- str_replace_all(jjep.62.1.1.rm05, pattern = rm.06, replacement = ""); jjep.62.1.1.rm07 <- str_replace_all(jjep.62.1.1.rm06, pattern = rm.07, replacement = ""); jjep.62.1.1.rm08 <- str_replace_all(jjep.62.1.1.rm07, pattern = rm.08, replacement = ""); jjep.62.1.1.rm09 <- str_replace_all(jjep.62.1.1.rm08, pattern = rm.09, replacement = ""); jjep.62.1.1.rp10 <- str_replace_all(jjep.62.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.62.1.1.rp11 <- str_replace_all(jjep.62.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.62.1.1.rp12 <- str_replace_all(jjep.62.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.62.1.1.rp13 <- str_replace_all(jjep.62.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.62.1.1.rp14 <- str_replace_all(jjep.62.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.62.1.1.rp15 <- str_replace_all(jjep.62.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.62.1.1.mod <- rbind(varname,jjep.62.1.1.rp15); write(jjep.62.1.1.mod, file = "./jjep/Mod_62_1_1.txt")
jjep.62.1.13.tx <- readr::read_file(file="./jjep/62_1_13.txt"); jjep.62.1.13.rm00 <- jjep.62.1.13.tx; jjep.62.1.13.rm01 <- str_replace_all(jjep.62.1.13.rm00, pattern = rm.01, replacement = ""); jjep.62.1.13.rm02 <- str_replace_all(jjep.62.1.13.rm01, pattern = rm.02, replacement = "^"); jjep.62.1.13.rm03 <- str_replace_all(jjep.62.1.13.rm02, pattern = rm.03, replacement = ""); jjep.62.1.13.rm04 <- str_replace_all(jjep.62.1.13.rm03, pattern = rm.04, replacement = ""); jjep.62.1.13.rm05 <- str_replace_all(jjep.62.1.13.rm04, pattern = rm.05, replacement = ""); jjep.62.1.13.rm06 <- str_replace_all(jjep.62.1.13.rm05, pattern = rm.06, replacement = ""); jjep.62.1.13.rm07 <- str_replace_all(jjep.62.1.13.rm06, pattern = rm.07, replacement = ""); jjep.62.1.13.rm08 <- str_replace_all(jjep.62.1.13.rm07, pattern = rm.08, replacement = ""); jjep.62.1.13.rm09 <- str_replace_all(jjep.62.1.13.rm08, pattern = rm.09, replacement = ""); jjep.62.1.13.rp10 <- str_replace_all(jjep.62.1.13.rm09, pattern = rp.01, replacement = "・"); jjep.62.1.13.rp11 <- str_replace_all(jjep.62.1.13.rp10, pattern = rp.02, replacement = "^"); jjep.62.1.13.rp12 <- str_replace_all(jjep.62.1.13.rp11, pattern = rp.03, replacement = "^"); jjep.62.1.13.rp13 <- str_replace_all(jjep.62.1.13.rp12, pattern = rp.04, replacement = "^"); jjep.62.1.13.rp14 <- str_replace_all(jjep.62.1.13.rp13, pattern = rp.05, replacement = "^"); jjep.62.1.13.rp15 <- str_replace_all(jjep.62.1.13.rp14, pattern = rp.06, replacement = "^"); jjep.62.1.13.mod <- rbind(varname,jjep.62.1.13.rp15); write(jjep.62.1.13.mod, file = "./jjep/Mod_62_1_13.txt")
jjep.62.1.24.tx <- readr::read_file(file="./jjep/62_1_24.txt"); jjep.62.1.24.rm00 <- jjep.62.1.24.tx; jjep.62.1.24.rm01 <- str_replace_all(jjep.62.1.24.rm00, pattern = rm.01, replacement = ""); jjep.62.1.24.rm02 <- str_replace_all(jjep.62.1.24.rm01, pattern = rm.02, replacement = "^"); jjep.62.1.24.rm03 <- str_replace_all(jjep.62.1.24.rm02, pattern = rm.03, replacement = ""); jjep.62.1.24.rm04 <- str_replace_all(jjep.62.1.24.rm03, pattern = rm.04, replacement = ""); jjep.62.1.24.rm05 <- str_replace_all(jjep.62.1.24.rm04, pattern = rm.05, replacement = ""); jjep.62.1.24.rm06 <- str_replace_all(jjep.62.1.24.rm05, pattern = rm.06, replacement = ""); jjep.62.1.24.rm07 <- str_replace_all(jjep.62.1.24.rm06, pattern = rm.07, replacement = ""); jjep.62.1.24.rm08 <- str_replace_all(jjep.62.1.24.rm07, pattern = rm.08, replacement = ""); jjep.62.1.24.rm09 <- str_replace_all(jjep.62.1.24.rm08, pattern = rm.09, replacement = ""); jjep.62.1.24.rp10 <- str_replace_all(jjep.62.1.24.rm09, pattern = rp.01, replacement = "・"); jjep.62.1.24.rp11 <- str_replace_all(jjep.62.1.24.rp10, pattern = rp.02, replacement = "^"); jjep.62.1.24.rp12 <- str_replace_all(jjep.62.1.24.rp11, pattern = rp.03, replacement = "^"); jjep.62.1.24.rp13 <- str_replace_all(jjep.62.1.24.rp12, pattern = rp.04, replacement = "^"); jjep.62.1.24.rp14 <- str_replace_all(jjep.62.1.24.rp13, pattern = rp.05, replacement = "^"); jjep.62.1.24.rp15 <- str_replace_all(jjep.62.1.24.rp14, pattern = rp.06, replacement = "^"); jjep.62.1.24.mod <- rbind(varname,jjep.62.1.24.rp15); write(jjep.62.1.24.mod, file = "./jjep/Mod_62_1_24.txt")
jjep.62.1.38.tx <- readr::read_file(file="./jjep/62_1_38.txt"); jjep.62.1.38.rm00 <- jjep.62.1.38.tx; jjep.62.1.38.rm01 <- str_replace_all(jjep.62.1.38.rm00, pattern = rm.01, replacement = ""); jjep.62.1.38.rm02 <- str_replace_all(jjep.62.1.38.rm01, pattern = rm.02, replacement = "^"); jjep.62.1.38.rm03 <- str_replace_all(jjep.62.1.38.rm02, pattern = rm.03, replacement = ""); jjep.62.1.38.rm04 <- str_replace_all(jjep.62.1.38.rm03, pattern = rm.04, replacement = ""); jjep.62.1.38.rm05 <- str_replace_all(jjep.62.1.38.rm04, pattern = rm.05, replacement = ""); jjep.62.1.38.rm06 <- str_replace_all(jjep.62.1.38.rm05, pattern = rm.06, replacement = ""); jjep.62.1.38.rm07 <- str_replace_all(jjep.62.1.38.rm06, pattern = rm.07, replacement = ""); jjep.62.1.38.rm08 <- str_replace_all(jjep.62.1.38.rm07, pattern = rm.08, replacement = ""); jjep.62.1.38.rm09 <- str_replace_all(jjep.62.1.38.rm08, pattern = rm.09, replacement = ""); jjep.62.1.38.rp10 <- str_replace_all(jjep.62.1.38.rm09, pattern = rp.01, replacement = "・"); jjep.62.1.38.rp11 <- str_replace_all(jjep.62.1.38.rp10, pattern = rp.02, replacement = "^"); jjep.62.1.38.rp12 <- str_replace_all(jjep.62.1.38.rp11, pattern = rp.03, replacement = "^"); jjep.62.1.38.rp13 <- str_replace_all(jjep.62.1.38.rp12, pattern = rp.04, replacement = "^"); jjep.62.1.38.rp14 <- str_replace_all(jjep.62.1.38.rp13, pattern = rp.05, replacement = "^"); jjep.62.1.38.rp15 <- str_replace_all(jjep.62.1.38.rp14, pattern = rp.06, replacement = "^"); jjep.62.1.38.mod <- rbind(varname,jjep.62.1.38.rp15); write(jjep.62.1.38.mod, file = "./jjep/Mod_62_1_38.txt")
jjep.62.1.50.tx <- readr::read_file(file="./jjep/62_1_50.txt"); jjep.62.1.50.rm00 <- jjep.62.1.50.tx; jjep.62.1.50.rm01 <- str_replace_all(jjep.62.1.50.rm00, pattern = rm.01, replacement = ""); jjep.62.1.50.rm02 <- str_replace_all(jjep.62.1.50.rm01, pattern = rm.02, replacement = "^"); jjep.62.1.50.rm03 <- str_replace_all(jjep.62.1.50.rm02, pattern = rm.03, replacement = ""); jjep.62.1.50.rm04 <- str_replace_all(jjep.62.1.50.rm03, pattern = rm.04, replacement = ""); jjep.62.1.50.rm05 <- str_replace_all(jjep.62.1.50.rm04, pattern = rm.05, replacement = ""); jjep.62.1.50.rm06 <- str_replace_all(jjep.62.1.50.rm05, pattern = rm.06, replacement = ""); jjep.62.1.50.rm07 <- str_replace_all(jjep.62.1.50.rm06, pattern = rm.07, replacement = ""); jjep.62.1.50.rm08 <- str_replace_all(jjep.62.1.50.rm07, pattern = rm.08, replacement = ""); jjep.62.1.50.rm09 <- str_replace_all(jjep.62.1.50.rm08, pattern = rm.09, replacement = ""); jjep.62.1.50.rp10 <- str_replace_all(jjep.62.1.50.rm09, pattern = rp.01, replacement = "・"); jjep.62.1.50.rp11 <- str_replace_all(jjep.62.1.50.rp10, pattern = rp.02, replacement = "^"); jjep.62.1.50.rp12 <- str_replace_all(jjep.62.1.50.rp11, pattern = rp.03, replacement = "^"); jjep.62.1.50.rp13 <- str_replace_all(jjep.62.1.50.rp12, pattern = rp.04, replacement = "^"); jjep.62.1.50.rp14 <- str_replace_all(jjep.62.1.50.rp13, pattern = rp.05, replacement = "^"); jjep.62.1.50.rp15 <- str_replace_all(jjep.62.1.50.rp14, pattern = rp.06, replacement = "^"); jjep.62.1.50.mod <- rbind(varname,jjep.62.1.50.rp15); write(jjep.62.1.50.mod, file = "./jjep/Mod_62_1_50.txt")
jjep.62.1.64.tx <- readr::read_file(file="./jjep/62_1_64.txt"); jjep.62.1.64.rm00 <- jjep.62.1.64.tx; jjep.62.1.64.rm01 <- str_replace_all(jjep.62.1.64.rm00, pattern = rm.01, replacement = ""); jjep.62.1.64.rm02 <- str_replace_all(jjep.62.1.64.rm01, pattern = rm.02, replacement = "^"); jjep.62.1.64.rm03 <- str_replace_all(jjep.62.1.64.rm02, pattern = rm.03, replacement = ""); jjep.62.1.64.rm04 <- str_replace_all(jjep.62.1.64.rm03, pattern = rm.04, replacement = ""); jjep.62.1.64.rm05 <- str_replace_all(jjep.62.1.64.rm04, pattern = rm.05, replacement = ""); jjep.62.1.64.rm06 <- str_replace_all(jjep.62.1.64.rm05, pattern = rm.06, replacement = ""); jjep.62.1.64.rm07 <- str_replace_all(jjep.62.1.64.rm06, pattern = rm.07, replacement = ""); jjep.62.1.64.rm08 <- str_replace_all(jjep.62.1.64.rm07, pattern = rm.08, replacement = ""); jjep.62.1.64.rm09 <- str_replace_all(jjep.62.1.64.rm08, pattern = rm.09, replacement = ""); jjep.62.1.64.rp10 <- str_replace_all(jjep.62.1.64.rm09, pattern = rp.01, replacement = "・"); jjep.62.1.64.rp11 <- str_replace_all(jjep.62.1.64.rp10, pattern = rp.02, replacement = "^"); jjep.62.1.64.rp12 <- str_replace_all(jjep.62.1.64.rp11, pattern = rp.03, replacement = "^"); jjep.62.1.64.rp13 <- str_replace_all(jjep.62.1.64.rp12, pattern = rp.04, replacement = "^"); jjep.62.1.64.rp14 <- str_replace_all(jjep.62.1.64.rp13, pattern = rp.05, replacement = "^"); jjep.62.1.64.rp15 <- str_replace_all(jjep.62.1.64.rp14, pattern = rp.06, replacement = "^"); jjep.62.1.64.mod <- rbind(varname,jjep.62.1.64.rp15); write(jjep.62.1.64.mod, file = "./jjep/Mod_62_1_64.txt")
jjep.61.4.351.tx <- readr::read_file(file="./jjep/61_4_351.txt"); jjep.61.4.351.rm00 <- jjep.61.4.351.tx; jjep.61.4.351.rm01 <- str_replace_all(jjep.61.4.351.rm00, pattern = rm.01, replacement = ""); jjep.61.4.351.rm02 <- str_replace_all(jjep.61.4.351.rm01, pattern = rm.02, replacement = "^"); jjep.61.4.351.rm03 <- str_replace_all(jjep.61.4.351.rm02, pattern = rm.03, replacement = ""); jjep.61.4.351.rm04 <- str_replace_all(jjep.61.4.351.rm03, pattern = rm.04, replacement = ""); jjep.61.4.351.rm05 <- str_replace_all(jjep.61.4.351.rm04, pattern = rm.05, replacement = ""); jjep.61.4.351.rm06 <- str_replace_all(jjep.61.4.351.rm05, pattern = rm.06, replacement = ""); jjep.61.4.351.rm07 <- str_replace_all(jjep.61.4.351.rm06, pattern = rm.07, replacement = ""); jjep.61.4.351.rm08 <- str_replace_all(jjep.61.4.351.rm07, pattern = rm.08, replacement = ""); jjep.61.4.351.rm09 <- str_replace_all(jjep.61.4.351.rm08, pattern = rm.09, replacement = ""); jjep.61.4.351.rp10 <- str_replace_all(jjep.61.4.351.rm09, pattern = rp.01, replacement = "・"); jjep.61.4.351.rp11 <- str_replace_all(jjep.61.4.351.rp10, pattern = rp.02, replacement = "^"); jjep.61.4.351.rp12 <- str_replace_all(jjep.61.4.351.rp11, pattern = rp.03, replacement = "^"); jjep.61.4.351.rp13 <- str_replace_all(jjep.61.4.351.rp12, pattern = rp.04, replacement = "^"); jjep.61.4.351.rp14 <- str_replace_all(jjep.61.4.351.rp13, pattern = rp.05, replacement = "^"); jjep.61.4.351.rp15 <- str_replace_all(jjep.61.4.351.rp14, pattern = rp.06, replacement = "^"); jjep.61.4.351.mod <- rbind(varname,jjep.61.4.351.rp15); write(jjep.61.4.351.mod, file = "./jjep/Mod_61_4_351.txt")
jjep.61.4.362.tx <- readr::read_file(file="./jjep/61_4_362.txt"); jjep.61.4.362.rm00 <- jjep.61.4.362.tx; jjep.61.4.362.rm01 <- str_replace_all(jjep.61.4.362.rm00, pattern = rm.01, replacement = ""); jjep.61.4.362.rm02 <- str_replace_all(jjep.61.4.362.rm01, pattern = rm.02, replacement = "^"); jjep.61.4.362.rm03 <- str_replace_all(jjep.61.4.362.rm02, pattern = rm.03, replacement = ""); jjep.61.4.362.rm04 <- str_replace_all(jjep.61.4.362.rm03, pattern = rm.04, replacement = ""); jjep.61.4.362.rm05 <- str_replace_all(jjep.61.4.362.rm04, pattern = rm.05, replacement = ""); jjep.61.4.362.rm06 <- str_replace_all(jjep.61.4.362.rm05, pattern = rm.06, replacement = ""); jjep.61.4.362.rm07 <- str_replace_all(jjep.61.4.362.rm06, pattern = rm.07, replacement = ""); jjep.61.4.362.rm08 <- str_replace_all(jjep.61.4.362.rm07, pattern = rm.08, replacement = ""); jjep.61.4.362.rm09 <- str_replace_all(jjep.61.4.362.rm08, pattern = rm.09, replacement = ""); jjep.61.4.362.rp10 <- str_replace_all(jjep.61.4.362.rm09, pattern = rp.01, replacement = "・"); jjep.61.4.362.rp11 <- str_replace_all(jjep.61.4.362.rp10, pattern = rp.02, replacement = "^"); jjep.61.4.362.rp12 <- str_replace_all(jjep.61.4.362.rp11, pattern = rp.03, replacement = "^"); jjep.61.4.362.rp13 <- str_replace_all(jjep.61.4.362.rp12, pattern = rp.04, replacement = "^"); jjep.61.4.362.rp14 <- str_replace_all(jjep.61.4.362.rp13, pattern = rp.05, replacement = "^"); jjep.61.4.362.rp15 <- str_replace_all(jjep.61.4.362.rp14, pattern = rp.06, replacement = "^"); jjep.61.4.362.mod <- rbind(varname,jjep.61.4.362.rp15); write(jjep.61.4.362.mod, file = "./jjep/Mod_61_4_362.txt")
jjep.61.4.374.tx <- readr::read_file(file="./jjep/61_4_374.txt"); jjep.61.4.374.rm00 <- jjep.61.4.374.tx; jjep.61.4.374.rm01 <- str_replace_all(jjep.61.4.374.rm00, pattern = rm.01, replacement = ""); jjep.61.4.374.rm02 <- str_replace_all(jjep.61.4.374.rm01, pattern = rm.02, replacement = "^"); jjep.61.4.374.rm03 <- str_replace_all(jjep.61.4.374.rm02, pattern = rm.03, replacement = ""); jjep.61.4.374.rm04 <- str_replace_all(jjep.61.4.374.rm03, pattern = rm.04, replacement = ""); jjep.61.4.374.rm05 <- str_replace_all(jjep.61.4.374.rm04, pattern = rm.05, replacement = ""); jjep.61.4.374.rm06 <- str_replace_all(jjep.61.4.374.rm05, pattern = rm.06, replacement = ""); jjep.61.4.374.rm07 <- str_replace_all(jjep.61.4.374.rm06, pattern = rm.07, replacement = ""); jjep.61.4.374.rm08 <- str_replace_all(jjep.61.4.374.rm07, pattern = rm.08, replacement = ""); jjep.61.4.374.rm09 <- str_replace_all(jjep.61.4.374.rm08, pattern = rm.09, replacement = ""); jjep.61.4.374.rp10 <- str_replace_all(jjep.61.4.374.rm09, pattern = rp.01, replacement = "・"); jjep.61.4.374.rp11 <- str_replace_all(jjep.61.4.374.rp10, pattern = rp.02, replacement = "^"); jjep.61.4.374.rp12 <- str_replace_all(jjep.61.4.374.rp11, pattern = rp.03, replacement = "^"); jjep.61.4.374.rp13 <- str_replace_all(jjep.61.4.374.rp12, pattern = rp.04, replacement = "^"); jjep.61.4.374.rp14 <- str_replace_all(jjep.61.4.374.rp13, pattern = rp.05, replacement = "^"); jjep.61.4.374.rp15 <- str_replace_all(jjep.61.4.374.rp14, pattern = rp.06, replacement = "^"); jjep.61.4.374.mod <- rbind(varname,jjep.61.4.374.rp15); write(jjep.61.4.374.mod, file = "./jjep/Mod_61_4_374.txt")
jjep.61.4.387.tx <- readr::read_file(file="./jjep/61_4_387.txt"); jjep.61.4.387.rm00 <- jjep.61.4.387.tx; jjep.61.4.387.rm01 <- str_replace_all(jjep.61.4.387.rm00, pattern = rm.01, replacement = ""); jjep.61.4.387.rm02 <- str_replace_all(jjep.61.4.387.rm01, pattern = rm.02, replacement = "^"); jjep.61.4.387.rm03 <- str_replace_all(jjep.61.4.387.rm02, pattern = rm.03, replacement = ""); jjep.61.4.387.rm04 <- str_replace_all(jjep.61.4.387.rm03, pattern = rm.04, replacement = ""); jjep.61.4.387.rm05 <- str_replace_all(jjep.61.4.387.rm04, pattern = rm.05, replacement = ""); jjep.61.4.387.rm06 <- str_replace_all(jjep.61.4.387.rm05, pattern = rm.06, replacement = ""); jjep.61.4.387.rm07 <- str_replace_all(jjep.61.4.387.rm06, pattern = rm.07, replacement = ""); jjep.61.4.387.rm08 <- str_replace_all(jjep.61.4.387.rm07, pattern = rm.08, replacement = ""); jjep.61.4.387.rm09 <- str_replace_all(jjep.61.4.387.rm08, pattern = rm.09, replacement = ""); jjep.61.4.387.rp10 <- str_replace_all(jjep.61.4.387.rm09, pattern = rp.01, replacement = "・"); jjep.61.4.387.rp11 <- str_replace_all(jjep.61.4.387.rp10, pattern = rp.02, replacement = "^"); jjep.61.4.387.rp12 <- str_replace_all(jjep.61.4.387.rp11, pattern = rp.03, replacement = "^"); jjep.61.4.387.rp13 <- str_replace_all(jjep.61.4.387.rp12, pattern = rp.04, replacement = "^"); jjep.61.4.387.rp14 <- str_replace_all(jjep.61.4.387.rp13, pattern = rp.05, replacement = "^"); jjep.61.4.387.rp15 <- str_replace_all(jjep.61.4.387.rp14, pattern = rp.06, replacement = "^"); jjep.61.4.387.mod <- rbind(varname,jjep.61.4.387.rp15); write(jjep.61.4.387.mod, file = "./jjep/Mod_61_4_387.txt")
jjep.61.4.398.tx <- readr::read_file(file="./jjep/61_4_398.txt"); jjep.61.4.398.rm00 <- jjep.61.4.398.tx; jjep.61.4.398.rm01 <- str_replace_all(jjep.61.4.398.rm00, pattern = rm.01, replacement = ""); jjep.61.4.398.rm02 <- str_replace_all(jjep.61.4.398.rm01, pattern = rm.02, replacement = "^"); jjep.61.4.398.rm03 <- str_replace_all(jjep.61.4.398.rm02, pattern = rm.03, replacement = ""); jjep.61.4.398.rm04 <- str_replace_all(jjep.61.4.398.rm03, pattern = rm.04, replacement = ""); jjep.61.4.398.rm05 <- str_replace_all(jjep.61.4.398.rm04, pattern = rm.05, replacement = ""); jjep.61.4.398.rm06 <- str_replace_all(jjep.61.4.398.rm05, pattern = rm.06, replacement = ""); jjep.61.4.398.rm07 <- str_replace_all(jjep.61.4.398.rm06, pattern = rm.07, replacement = ""); jjep.61.4.398.rm08 <- str_replace_all(jjep.61.4.398.rm07, pattern = rm.08, replacement = ""); jjep.61.4.398.rm09 <- str_replace_all(jjep.61.4.398.rm08, pattern = rm.09, replacement = ""); jjep.61.4.398.rp10 <- str_replace_all(jjep.61.4.398.rm09, pattern = rp.01, replacement = "・"); jjep.61.4.398.rp11 <- str_replace_all(jjep.61.4.398.rp10, pattern = rp.02, replacement = "^"); jjep.61.4.398.rp12 <- str_replace_all(jjep.61.4.398.rp11, pattern = rp.03, replacement = "^"); jjep.61.4.398.rp13 <- str_replace_all(jjep.61.4.398.rp12, pattern = rp.04, replacement = "^"); jjep.61.4.398.rp14 <- str_replace_all(jjep.61.4.398.rp13, pattern = rp.05, replacement = "^"); jjep.61.4.398.rp15 <- str_replace_all(jjep.61.4.398.rp14, pattern = rp.06, replacement = "^"); jjep.61.4.398.mod <- rbind(varname,jjep.61.4.398.rp15); write(jjep.61.4.398.mod, file = "./jjep/Mod_61_4_398.txt")
jjep.61.4.412.tx <- readr::read_file(file="./jjep/61_4_412.txt"); jjep.61.4.412.rm00 <- jjep.61.4.412.tx; jjep.61.4.412.rm01 <- str_replace_all(jjep.61.4.412.rm00, pattern = rm.01, replacement = ""); jjep.61.4.412.rm02 <- str_replace_all(jjep.61.4.412.rm01, pattern = rm.02, replacement = "^"); jjep.61.4.412.rm03 <- str_replace_all(jjep.61.4.412.rm02, pattern = rm.03, replacement = ""); jjep.61.4.412.rm04 <- str_replace_all(jjep.61.4.412.rm03, pattern = rm.04, replacement = ""); jjep.61.4.412.rm05 <- str_replace_all(jjep.61.4.412.rm04, pattern = rm.05, replacement = ""); jjep.61.4.412.rm06 <- str_replace_all(jjep.61.4.412.rm05, pattern = rm.06, replacement = ""); jjep.61.4.412.rm07 <- str_replace_all(jjep.61.4.412.rm06, pattern = rm.07, replacement = ""); jjep.61.4.412.rm08 <- str_replace_all(jjep.61.4.412.rm07, pattern = rm.08, replacement = ""); jjep.61.4.412.rm09 <- str_replace_all(jjep.61.4.412.rm08, pattern = rm.09, replacement = ""); jjep.61.4.412.rp10 <- str_replace_all(jjep.61.4.412.rm09, pattern = rp.01, replacement = "・"); jjep.61.4.412.rp11 <- str_replace_all(jjep.61.4.412.rp10, pattern = rp.02, replacement = "^"); jjep.61.4.412.rp12 <- str_replace_all(jjep.61.4.412.rp11, pattern = rp.03, replacement = "^"); jjep.61.4.412.rp13 <- str_replace_all(jjep.61.4.412.rp12, pattern = rp.04, replacement = "^"); jjep.61.4.412.rp14 <- str_replace_all(jjep.61.4.412.rp13, pattern = rp.05, replacement = "^"); jjep.61.4.412.rp15 <- str_replace_all(jjep.61.4.412.rp14, pattern = rp.06, replacement = "^"); jjep.61.4.412.mod <- rbind(varname,jjep.61.4.412.rp15); write(jjep.61.4.412.mod, file = "./jjep/Mod_61_4_412.txt")
jjep.61.3.229.tx <- readr::read_file(file="./jjep/61_3_229.txt"); jjep.61.3.229.rm00 <- jjep.61.3.229.tx; jjep.61.3.229.rm01 <- str_replace_all(jjep.61.3.229.rm00, pattern = rm.01, replacement = ""); jjep.61.3.229.rm02 <- str_replace_all(jjep.61.3.229.rm01, pattern = rm.02, replacement = "^"); jjep.61.3.229.rm03 <- str_replace_all(jjep.61.3.229.rm02, pattern = rm.03, replacement = ""); jjep.61.3.229.rm04 <- str_replace_all(jjep.61.3.229.rm03, pattern = rm.04, replacement = ""); jjep.61.3.229.rm05 <- str_replace_all(jjep.61.3.229.rm04, pattern = rm.05, replacement = ""); jjep.61.3.229.rm06 <- str_replace_all(jjep.61.3.229.rm05, pattern = rm.06, replacement = ""); jjep.61.3.229.rm07 <- str_replace_all(jjep.61.3.229.rm06, pattern = rm.07, replacement = ""); jjep.61.3.229.rm08 <- str_replace_all(jjep.61.3.229.rm07, pattern = rm.08, replacement = ""); jjep.61.3.229.rm09 <- str_replace_all(jjep.61.3.229.rm08, pattern = rm.09, replacement = ""); jjep.61.3.229.rp10 <- str_replace_all(jjep.61.3.229.rm09, pattern = rp.01, replacement = "・"); jjep.61.3.229.rp11 <- str_replace_all(jjep.61.3.229.rp10, pattern = rp.02, replacement = "^"); jjep.61.3.229.rp12 <- str_replace_all(jjep.61.3.229.rp11, pattern = rp.03, replacement = "^"); jjep.61.3.229.rp13 <- str_replace_all(jjep.61.3.229.rp12, pattern = rp.04, replacement = "^"); jjep.61.3.229.rp14 <- str_replace_all(jjep.61.3.229.rp13, pattern = rp.05, replacement = "^"); jjep.61.3.229.rp15 <- str_replace_all(jjep.61.3.229.rp14, pattern = rp.06, replacement = "^"); jjep.61.3.229.mod <- rbind(varname,jjep.61.3.229.rp15); write(jjep.61.3.229.mod, file = "./jjep/Mod_61_3_229.txt")
jjep.61.3.239.tx <- readr::read_file(file="./jjep/61_3_239.txt"); jjep.61.3.239.rm00 <- jjep.61.3.239.tx; jjep.61.3.239.rm01 <- str_replace_all(jjep.61.3.239.rm00, pattern = rm.01, replacement = ""); jjep.61.3.239.rm02 <- str_replace_all(jjep.61.3.239.rm01, pattern = rm.02, replacement = "^"); jjep.61.3.239.rm03 <- str_replace_all(jjep.61.3.239.rm02, pattern = rm.03, replacement = ""); jjep.61.3.239.rm04 <- str_replace_all(jjep.61.3.239.rm03, pattern = rm.04, replacement = ""); jjep.61.3.239.rm05 <- str_replace_all(jjep.61.3.239.rm04, pattern = rm.05, replacement = ""); jjep.61.3.239.rm06 <- str_replace_all(jjep.61.3.239.rm05, pattern = rm.06, replacement = ""); jjep.61.3.239.rm07 <- str_replace_all(jjep.61.3.239.rm06, pattern = rm.07, replacement = ""); jjep.61.3.239.rm08 <- str_replace_all(jjep.61.3.239.rm07, pattern = rm.08, replacement = ""); jjep.61.3.239.rm09 <- str_replace_all(jjep.61.3.239.rm08, pattern = rm.09, replacement = ""); jjep.61.3.239.rp10 <- str_replace_all(jjep.61.3.239.rm09, pattern = rp.01, replacement = "・"); jjep.61.3.239.rp11 <- str_replace_all(jjep.61.3.239.rp10, pattern = rp.02, replacement = "^"); jjep.61.3.239.rp12 <- str_replace_all(jjep.61.3.239.rp11, pattern = rp.03, replacement = "^"); jjep.61.3.239.rp13 <- str_replace_all(jjep.61.3.239.rp12, pattern = rp.04, replacement = "^"); jjep.61.3.239.rp14 <- str_replace_all(jjep.61.3.239.rp13, pattern = rp.05, replacement = "^"); jjep.61.3.239.rp15 <- str_replace_all(jjep.61.3.239.rp14, pattern = rp.06, replacement = "^"); jjep.61.3.239.mod <- rbind(varname,jjep.61.3.239.rp15); write(jjep.61.3.239.mod, file = "./jjep/Mod_61_3_239.txt")
jjep.61.3.251.tx <- readr::read_file(file="./jjep/61_3_251.txt"); jjep.61.3.251.rm00 <- jjep.61.3.251.tx; jjep.61.3.251.rm01 <- str_replace_all(jjep.61.3.251.rm00, pattern = rm.01, replacement = ""); jjep.61.3.251.rm02 <- str_replace_all(jjep.61.3.251.rm01, pattern = rm.02, replacement = "^"); jjep.61.3.251.rm03 <- str_replace_all(jjep.61.3.251.rm02, pattern = rm.03, replacement = ""); jjep.61.3.251.rm04 <- str_replace_all(jjep.61.3.251.rm03, pattern = rm.04, replacement = ""); jjep.61.3.251.rm05 <- str_replace_all(jjep.61.3.251.rm04, pattern = rm.05, replacement = ""); jjep.61.3.251.rm06 <- str_replace_all(jjep.61.3.251.rm05, pattern = rm.06, replacement = ""); jjep.61.3.251.rm07 <- str_replace_all(jjep.61.3.251.rm06, pattern = rm.07, replacement = ""); jjep.61.3.251.rm08 <- str_replace_all(jjep.61.3.251.rm07, pattern = rm.08, replacement = ""); jjep.61.3.251.rm09 <- str_replace_all(jjep.61.3.251.rm08, pattern = rm.09, replacement = ""); jjep.61.3.251.rp10 <- str_replace_all(jjep.61.3.251.rm09, pattern = rp.01, replacement = "・"); jjep.61.3.251.rp11 <- str_replace_all(jjep.61.3.251.rp10, pattern = rp.02, replacement = "^"); jjep.61.3.251.rp12 <- str_replace_all(jjep.61.3.251.rp11, pattern = rp.03, replacement = "^"); jjep.61.3.251.rp13 <- str_replace_all(jjep.61.3.251.rp12, pattern = rp.04, replacement = "^"); jjep.61.3.251.rp14 <- str_replace_all(jjep.61.3.251.rp13, pattern = rp.05, replacement = "^"); jjep.61.3.251.rp15 <- str_replace_all(jjep.61.3.251.rp14, pattern = rp.06, replacement = "^"); jjep.61.3.251.mod <- rbind(varname,jjep.61.3.251.rp15); write(jjep.61.3.251.mod, file = "./jjep/Mod_61_3_251.txt")
jjep.61.3.265.tx <- readr::read_file(file="./jjep/61_3_265.txt"); jjep.61.3.265.rm00 <- jjep.61.3.265.tx; jjep.61.3.265.rm01 <- str_replace_all(jjep.61.3.265.rm00, pattern = rm.01, replacement = ""); jjep.61.3.265.rm02 <- str_replace_all(jjep.61.3.265.rm01, pattern = rm.02, replacement = "^"); jjep.61.3.265.rm03 <- str_replace_all(jjep.61.3.265.rm02, pattern = rm.03, replacement = ""); jjep.61.3.265.rm04 <- str_replace_all(jjep.61.3.265.rm03, pattern = rm.04, replacement = ""); jjep.61.3.265.rm05 <- str_replace_all(jjep.61.3.265.rm04, pattern = rm.05, replacement = ""); jjep.61.3.265.rm06 <- str_replace_all(jjep.61.3.265.rm05, pattern = rm.06, replacement = ""); jjep.61.3.265.rm07 <- str_replace_all(jjep.61.3.265.rm06, pattern = rm.07, replacement = ""); jjep.61.3.265.rm08 <- str_replace_all(jjep.61.3.265.rm07, pattern = rm.08, replacement = ""); jjep.61.3.265.rm09 <- str_replace_all(jjep.61.3.265.rm08, pattern = rm.09, replacement = ""); jjep.61.3.265.rp10 <- str_replace_all(jjep.61.3.265.rm09, pattern = rp.01, replacement = "・"); jjep.61.3.265.rp11 <- str_replace_all(jjep.61.3.265.rp10, pattern = rp.02, replacement = "^"); jjep.61.3.265.rp12 <- str_replace_all(jjep.61.3.265.rp11, pattern = rp.03, replacement = "^"); jjep.61.3.265.rp13 <- str_replace_all(jjep.61.3.265.rp12, pattern = rp.04, replacement = "^"); jjep.61.3.265.rp14 <- str_replace_all(jjep.61.3.265.rp13, pattern = rp.05, replacement = "^"); jjep.61.3.265.rp15 <- str_replace_all(jjep.61.3.265.rp14, pattern = rp.06, replacement = "^"); jjep.61.3.265.mod <- rbind(varname,jjep.61.3.265.rp15); write(jjep.61.3.265.mod, file = "./jjep/Mod_61_3_265.txt")
jjep.61.3.277.tx <- readr::read_file(file="./jjep/61_3_277.txt"); jjep.61.3.277.rm00 <- jjep.61.3.277.tx; jjep.61.3.277.rm01 <- str_replace_all(jjep.61.3.277.rm00, pattern = rm.01, replacement = ""); jjep.61.3.277.rm02 <- str_replace_all(jjep.61.3.277.rm01, pattern = rm.02, replacement = "^"); jjep.61.3.277.rm03 <- str_replace_all(jjep.61.3.277.rm02, pattern = rm.03, replacement = ""); jjep.61.3.277.rm04 <- str_replace_all(jjep.61.3.277.rm03, pattern = rm.04, replacement = ""); jjep.61.3.277.rm05 <- str_replace_all(jjep.61.3.277.rm04, pattern = rm.05, replacement = ""); jjep.61.3.277.rm06 <- str_replace_all(jjep.61.3.277.rm05, pattern = rm.06, replacement = ""); jjep.61.3.277.rm07 <- str_replace_all(jjep.61.3.277.rm06, pattern = rm.07, replacement = ""); jjep.61.3.277.rm08 <- str_replace_all(jjep.61.3.277.rm07, pattern = rm.08, replacement = ""); jjep.61.3.277.rm09 <- str_replace_all(jjep.61.3.277.rm08, pattern = rm.09, replacement = ""); jjep.61.3.277.rp10 <- str_replace_all(jjep.61.3.277.rm09, pattern = rp.01, replacement = "・"); jjep.61.3.277.rp11 <- str_replace_all(jjep.61.3.277.rp10, pattern = rp.02, replacement = "^"); jjep.61.3.277.rp12 <- str_replace_all(jjep.61.3.277.rp11, pattern = rp.03, replacement = "^"); jjep.61.3.277.rp13 <- str_replace_all(jjep.61.3.277.rp12, pattern = rp.04, replacement = "^"); jjep.61.3.277.rp14 <- str_replace_all(jjep.61.3.277.rp13, pattern = rp.05, replacement = "^"); jjep.61.3.277.rp15 <- str_replace_all(jjep.61.3.277.rp14, pattern = rp.06, replacement = "^"); jjep.61.3.277.mod <- rbind(varname,jjep.61.3.277.rp15); write(jjep.61.3.277.mod, file = "./jjep/Mod_61_3_277.txt")
jjep.61.3.290.tx <- readr::read_file(file="./jjep/61_3_290.txt"); jjep.61.3.290.rm00 <- jjep.61.3.290.tx; jjep.61.3.290.rm01 <- str_replace_all(jjep.61.3.290.rm00, pattern = rm.01, replacement = ""); jjep.61.3.290.rm02 <- str_replace_all(jjep.61.3.290.rm01, pattern = rm.02, replacement = "^"); jjep.61.3.290.rm03 <- str_replace_all(jjep.61.3.290.rm02, pattern = rm.03, replacement = ""); jjep.61.3.290.rm04 <- str_replace_all(jjep.61.3.290.rm03, pattern = rm.04, replacement = ""); jjep.61.3.290.rm05 <- str_replace_all(jjep.61.3.290.rm04, pattern = rm.05, replacement = ""); jjep.61.3.290.rm06 <- str_replace_all(jjep.61.3.290.rm05, pattern = rm.06, replacement = ""); jjep.61.3.290.rm07 <- str_replace_all(jjep.61.3.290.rm06, pattern = rm.07, replacement = ""); jjep.61.3.290.rm08 <- str_replace_all(jjep.61.3.290.rm07, pattern = rm.08, replacement = ""); jjep.61.3.290.rm09 <- str_replace_all(jjep.61.3.290.rm08, pattern = rm.09, replacement = ""); jjep.61.3.290.rp10 <- str_replace_all(jjep.61.3.290.rm09, pattern = rp.01, replacement = "・"); jjep.61.3.290.rp11 <- str_replace_all(jjep.61.3.290.rp10, pattern = rp.02, replacement = "^"); jjep.61.3.290.rp12 <- str_replace_all(jjep.61.3.290.rp11, pattern = rp.03, replacement = "^"); jjep.61.3.290.rp13 <- str_replace_all(jjep.61.3.290.rp12, pattern = rp.04, replacement = "^"); jjep.61.3.290.rp14 <- str_replace_all(jjep.61.3.290.rp13, pattern = rp.05, replacement = "^"); jjep.61.3.290.rp15 <- str_replace_all(jjep.61.3.290.rp14, pattern = rp.06, replacement = "^"); jjep.61.3.290.mod <- rbind(varname,jjep.61.3.290.rp15); write(jjep.61.3.290.mod, file = "./jjep/Mod_61_3_290.txt")
jjep.61.3.311.tx <- readr::read_file(file="./jjep/61_3_311.txt"); jjep.61.3.311.rm00 <- jjep.61.3.311.tx; jjep.61.3.311.rm01 <- str_replace_all(jjep.61.3.311.rm00, pattern = rm.01, replacement = ""); jjep.61.3.311.rm02 <- str_replace_all(jjep.61.3.311.rm01, pattern = rm.02, replacement = "^"); jjep.61.3.311.rm03 <- str_replace_all(jjep.61.3.311.rm02, pattern = rm.03, replacement = ""); jjep.61.3.311.rm04 <- str_replace_all(jjep.61.3.311.rm03, pattern = rm.04, replacement = ""); jjep.61.3.311.rm05 <- str_replace_all(jjep.61.3.311.rm04, pattern = rm.05, replacement = ""); jjep.61.3.311.rm06 <- str_replace_all(jjep.61.3.311.rm05, pattern = rm.06, replacement = ""); jjep.61.3.311.rm07 <- str_replace_all(jjep.61.3.311.rm06, pattern = rm.07, replacement = ""); jjep.61.3.311.rm08 <- str_replace_all(jjep.61.3.311.rm07, pattern = rm.08, replacement = ""); jjep.61.3.311.rm09 <- str_replace_all(jjep.61.3.311.rm08, pattern = rm.09, replacement = ""); jjep.61.3.311.rp10 <- str_replace_all(jjep.61.3.311.rm09, pattern = rp.01, replacement = "・"); jjep.61.3.311.rp11 <- str_replace_all(jjep.61.3.311.rp10, pattern = rp.02, replacement = "^"); jjep.61.3.311.rp12 <- str_replace_all(jjep.61.3.311.rp11, pattern = rp.03, replacement = "^"); jjep.61.3.311.rp13 <- str_replace_all(jjep.61.3.311.rp12, pattern = rp.04, replacement = "^"); jjep.61.3.311.rp14 <- str_replace_all(jjep.61.3.311.rp13, pattern = rp.05, replacement = "^"); jjep.61.3.311.rp15 <- str_replace_all(jjep.61.3.311.rp14, pattern = rp.06, replacement = "^"); jjep.61.3.311.mod <- rbind(varname,jjep.61.3.311.rp15); write(jjep.61.3.311.mod, file = "./jjep/Mod_61_3_311.txt")
jjep.61.3.323.tx <- readr::read_file(file="./jjep/61_3_323.txt"); jjep.61.3.323.rm00 <- jjep.61.3.323.tx; jjep.61.3.323.rm01 <- str_replace_all(jjep.61.3.323.rm00, pattern = rm.01, replacement = ""); jjep.61.3.323.rm02 <- str_replace_all(jjep.61.3.323.rm01, pattern = rm.02, replacement = "^"); jjep.61.3.323.rm03 <- str_replace_all(jjep.61.3.323.rm02, pattern = rm.03, replacement = ""); jjep.61.3.323.rm04 <- str_replace_all(jjep.61.3.323.rm03, pattern = rm.04, replacement = ""); jjep.61.3.323.rm05 <- str_replace_all(jjep.61.3.323.rm04, pattern = rm.05, replacement = ""); jjep.61.3.323.rm06 <- str_replace_all(jjep.61.3.323.rm05, pattern = rm.06, replacement = ""); jjep.61.3.323.rm07 <- str_replace_all(jjep.61.3.323.rm06, pattern = rm.07, replacement = ""); jjep.61.3.323.rm08 <- str_replace_all(jjep.61.3.323.rm07, pattern = rm.08, replacement = ""); jjep.61.3.323.rm09 <- str_replace_all(jjep.61.3.323.rm08, pattern = rm.09, replacement = ""); jjep.61.3.323.rp10 <- str_replace_all(jjep.61.3.323.rm09, pattern = rp.01, replacement = "・"); jjep.61.3.323.rp11 <- str_replace_all(jjep.61.3.323.rp10, pattern = rp.02, replacement = "^"); jjep.61.3.323.rp12 <- str_replace_all(jjep.61.3.323.rp11, pattern = rp.03, replacement = "^"); jjep.61.3.323.rp13 <- str_replace_all(jjep.61.3.323.rp12, pattern = rp.04, replacement = "^"); jjep.61.3.323.rp14 <- str_replace_all(jjep.61.3.323.rp13, pattern = rp.05, replacement = "^"); jjep.61.3.323.rp15 <- str_replace_all(jjep.61.3.323.rp14, pattern = rp.06, replacement = "^"); jjep.61.3.323.mod <- rbind(varname,jjep.61.3.323.rp15); write(jjep.61.3.323.mod, file = "./jjep/Mod_61_3_323.txt")
jjep.61.2.121.tx <- readr::read_file(file="./jjep/61_2_121.txt"); jjep.61.2.121.rm00 <- jjep.61.2.121.tx; jjep.61.2.121.rm01 <- str_replace_all(jjep.61.2.121.rm00, pattern = rm.01, replacement = ""); jjep.61.2.121.rm02 <- str_replace_all(jjep.61.2.121.rm01, pattern = rm.02, replacement = "^"); jjep.61.2.121.rm03 <- str_replace_all(jjep.61.2.121.rm02, pattern = rm.03, replacement = ""); jjep.61.2.121.rm04 <- str_replace_all(jjep.61.2.121.rm03, pattern = rm.04, replacement = ""); jjep.61.2.121.rm05 <- str_replace_all(jjep.61.2.121.rm04, pattern = rm.05, replacement = ""); jjep.61.2.121.rm06 <- str_replace_all(jjep.61.2.121.rm05, pattern = rm.06, replacement = ""); jjep.61.2.121.rm07 <- str_replace_all(jjep.61.2.121.rm06, pattern = rm.07, replacement = ""); jjep.61.2.121.rm08 <- str_replace_all(jjep.61.2.121.rm07, pattern = rm.08, replacement = ""); jjep.61.2.121.rm09 <- str_replace_all(jjep.61.2.121.rm08, pattern = rm.09, replacement = ""); jjep.61.2.121.rp10 <- str_replace_all(jjep.61.2.121.rm09, pattern = rp.01, replacement = "・"); jjep.61.2.121.rp11 <- str_replace_all(jjep.61.2.121.rp10, pattern = rp.02, replacement = "^"); jjep.61.2.121.rp12 <- str_replace_all(jjep.61.2.121.rp11, pattern = rp.03, replacement = "^"); jjep.61.2.121.rp13 <- str_replace_all(jjep.61.2.121.rp12, pattern = rp.04, replacement = "^"); jjep.61.2.121.rp14 <- str_replace_all(jjep.61.2.121.rp13, pattern = rp.05, replacement = "^"); jjep.61.2.121.rp15 <- str_replace_all(jjep.61.2.121.rp14, pattern = rp.06, replacement = "^"); jjep.61.2.121.mod <- rbind(varname,jjep.61.2.121.rp15); write(jjep.61.2.121.mod, file = "./jjep/Mod_61_2_121.txt")
jjep.61.2.133.tx <- readr::read_file(file="./jjep/61_2_133.txt"); jjep.61.2.133.rm00 <- jjep.61.2.133.tx; jjep.61.2.133.rm01 <- str_replace_all(jjep.61.2.133.rm00, pattern = rm.01, replacement = ""); jjep.61.2.133.rm02 <- str_replace_all(jjep.61.2.133.rm01, pattern = rm.02, replacement = "^"); jjep.61.2.133.rm03 <- str_replace_all(jjep.61.2.133.rm02, pattern = rm.03, replacement = ""); jjep.61.2.133.rm04 <- str_replace_all(jjep.61.2.133.rm03, pattern = rm.04, replacement = ""); jjep.61.2.133.rm05 <- str_replace_all(jjep.61.2.133.rm04, pattern = rm.05, replacement = ""); jjep.61.2.133.rm06 <- str_replace_all(jjep.61.2.133.rm05, pattern = rm.06, replacement = ""); jjep.61.2.133.rm07 <- str_replace_all(jjep.61.2.133.rm06, pattern = rm.07, replacement = ""); jjep.61.2.133.rm08 <- str_replace_all(jjep.61.2.133.rm07, pattern = rm.08, replacement = ""); jjep.61.2.133.rm09 <- str_replace_all(jjep.61.2.133.rm08, pattern = rm.09, replacement = ""); jjep.61.2.133.rp10 <- str_replace_all(jjep.61.2.133.rm09, pattern = rp.01, replacement = "・"); jjep.61.2.133.rp11 <- str_replace_all(jjep.61.2.133.rp10, pattern = rp.02, replacement = "^"); jjep.61.2.133.rp12 <- str_replace_all(jjep.61.2.133.rp11, pattern = rp.03, replacement = "^"); jjep.61.2.133.rp13 <- str_replace_all(jjep.61.2.133.rp12, pattern = rp.04, replacement = "^"); jjep.61.2.133.rp14 <- str_replace_all(jjep.61.2.133.rp13, pattern = rp.05, replacement = "^"); jjep.61.2.133.rp15 <- str_replace_all(jjep.61.2.133.rp14, pattern = rp.06, replacement = "^"); jjep.61.2.133.mod <- rbind(varname,jjep.61.2.133.rp15); write(jjep.61.2.133.mod, file = "./jjep/Mod_61_2_133.txt")
jjep.61.2.146.tx <- readr::read_file(file="./jjep/61_2_146.txt"); jjep.61.2.146.rm00 <- jjep.61.2.146.tx; jjep.61.2.146.rm01 <- str_replace_all(jjep.61.2.146.rm00, pattern = rm.01, replacement = ""); jjep.61.2.146.rm02 <- str_replace_all(jjep.61.2.146.rm01, pattern = rm.02, replacement = "^"); jjep.61.2.146.rm03 <- str_replace_all(jjep.61.2.146.rm02, pattern = rm.03, replacement = ""); jjep.61.2.146.rm04 <- str_replace_all(jjep.61.2.146.rm03, pattern = rm.04, replacement = ""); jjep.61.2.146.rm05 <- str_replace_all(jjep.61.2.146.rm04, pattern = rm.05, replacement = ""); jjep.61.2.146.rm06 <- str_replace_all(jjep.61.2.146.rm05, pattern = rm.06, replacement = ""); jjep.61.2.146.rm07 <- str_replace_all(jjep.61.2.146.rm06, pattern = rm.07, replacement = ""); jjep.61.2.146.rm08 <- str_replace_all(jjep.61.2.146.rm07, pattern = rm.08, replacement = ""); jjep.61.2.146.rm09 <- str_replace_all(jjep.61.2.146.rm08, pattern = rm.09, replacement = ""); jjep.61.2.146.rp10 <- str_replace_all(jjep.61.2.146.rm09, pattern = rp.01, replacement = "・"); jjep.61.2.146.rp11 <- str_replace_all(jjep.61.2.146.rp10, pattern = rp.02, replacement = "^"); jjep.61.2.146.rp12 <- str_replace_all(jjep.61.2.146.rp11, pattern = rp.03, replacement = "^"); jjep.61.2.146.rp13 <- str_replace_all(jjep.61.2.146.rp12, pattern = rp.04, replacement = "^"); jjep.61.2.146.rp14 <- str_replace_all(jjep.61.2.146.rp13, pattern = rp.05, replacement = "^"); jjep.61.2.146.rp15 <- str_replace_all(jjep.61.2.146.rp14, pattern = rp.06, replacement = "^"); jjep.61.2.146.mod <- rbind(varname,jjep.61.2.146.rp15); write(jjep.61.2.146.mod, file = "./jjep/Mod_61_2_146.txt")
jjep.61.2.158.tx <- readr::read_file(file="./jjep/61_2_158.txt"); jjep.61.2.158.rm00 <- jjep.61.2.158.tx; jjep.61.2.158.rm01 <- str_replace_all(jjep.61.2.158.rm00, pattern = rm.01, replacement = ""); jjep.61.2.158.rm02 <- str_replace_all(jjep.61.2.158.rm01, pattern = rm.02, replacement = "^"); jjep.61.2.158.rm03 <- str_replace_all(jjep.61.2.158.rm02, pattern = rm.03, replacement = ""); jjep.61.2.158.rm04 <- str_replace_all(jjep.61.2.158.rm03, pattern = rm.04, replacement = ""); jjep.61.2.158.rm05 <- str_replace_all(jjep.61.2.158.rm04, pattern = rm.05, replacement = ""); jjep.61.2.158.rm06 <- str_replace_all(jjep.61.2.158.rm05, pattern = rm.06, replacement = ""); jjep.61.2.158.rm07 <- str_replace_all(jjep.61.2.158.rm06, pattern = rm.07, replacement = ""); jjep.61.2.158.rm08 <- str_replace_all(jjep.61.2.158.rm07, pattern = rm.08, replacement = ""); jjep.61.2.158.rm09 <- str_replace_all(jjep.61.2.158.rm08, pattern = rm.09, replacement = ""); jjep.61.2.158.rp10 <- str_replace_all(jjep.61.2.158.rm09, pattern = rp.01, replacement = "・"); jjep.61.2.158.rp11 <- str_replace_all(jjep.61.2.158.rp10, pattern = rp.02, replacement = "^"); jjep.61.2.158.rp12 <- str_replace_all(jjep.61.2.158.rp11, pattern = rp.03, replacement = "^"); jjep.61.2.158.rp13 <- str_replace_all(jjep.61.2.158.rp12, pattern = rp.04, replacement = "^"); jjep.61.2.158.rp14 <- str_replace_all(jjep.61.2.158.rp13, pattern = rp.05, replacement = "^"); jjep.61.2.158.rp15 <- str_replace_all(jjep.61.2.158.rp14, pattern = rp.06, replacement = "^"); jjep.61.2.158.mod <- rbind(varname,jjep.61.2.158.rp15); write(jjep.61.2.158.mod, file = "./jjep/Mod_61_2_158.txt")
jjep.61.2.169.tx <- readr::read_file(file="./jjep/61_2_169.txt"); jjep.61.2.169.rm00 <- jjep.61.2.169.tx; jjep.61.2.169.rm01 <- str_replace_all(jjep.61.2.169.rm00, pattern = rm.01, replacement = ""); jjep.61.2.169.rm02 <- str_replace_all(jjep.61.2.169.rm01, pattern = rm.02, replacement = "^"); jjep.61.2.169.rm03 <- str_replace_all(jjep.61.2.169.rm02, pattern = rm.03, replacement = ""); jjep.61.2.169.rm04 <- str_replace_all(jjep.61.2.169.rm03, pattern = rm.04, replacement = ""); jjep.61.2.169.rm05 <- str_replace_all(jjep.61.2.169.rm04, pattern = rm.05, replacement = ""); jjep.61.2.169.rm06 <- str_replace_all(jjep.61.2.169.rm05, pattern = rm.06, replacement = ""); jjep.61.2.169.rm07 <- str_replace_all(jjep.61.2.169.rm06, pattern = rm.07, replacement = ""); jjep.61.2.169.rm08 <- str_replace_all(jjep.61.2.169.rm07, pattern = rm.08, replacement = ""); jjep.61.2.169.rm09 <- str_replace_all(jjep.61.2.169.rm08, pattern = rm.09, replacement = ""); jjep.61.2.169.rp10 <- str_replace_all(jjep.61.2.169.rm09, pattern = rp.01, replacement = "・"); jjep.61.2.169.rp11 <- str_replace_all(jjep.61.2.169.rp10, pattern = rp.02, replacement = "^"); jjep.61.2.169.rp12 <- str_replace_all(jjep.61.2.169.rp11, pattern = rp.03, replacement = "^"); jjep.61.2.169.rp13 <- str_replace_all(jjep.61.2.169.rp12, pattern = rp.04, replacement = "^"); jjep.61.2.169.rp14 <- str_replace_all(jjep.61.2.169.rp13, pattern = rp.05, replacement = "^"); jjep.61.2.169.rp15 <- str_replace_all(jjep.61.2.169.rp14, pattern = rp.06, replacement = "^"); jjep.61.2.169.mod <- rbind(varname,jjep.61.2.169.rp15); write(jjep.61.2.169.mod, file = "./jjep/Mod_61_2_169.txt")
jjep.61.2.181.tx <- readr::read_file(file="./jjep/61_2_181.txt"); jjep.61.2.181.rm00 <- jjep.61.2.181.tx; jjep.61.2.181.rm01 <- str_replace_all(jjep.61.2.181.rm00, pattern = rm.01, replacement = ""); jjep.61.2.181.rm02 <- str_replace_all(jjep.61.2.181.rm01, pattern = rm.02, replacement = "^"); jjep.61.2.181.rm03 <- str_replace_all(jjep.61.2.181.rm02, pattern = rm.03, replacement = ""); jjep.61.2.181.rm04 <- str_replace_all(jjep.61.2.181.rm03, pattern = rm.04, replacement = ""); jjep.61.2.181.rm05 <- str_replace_all(jjep.61.2.181.rm04, pattern = rm.05, replacement = ""); jjep.61.2.181.rm06 <- str_replace_all(jjep.61.2.181.rm05, pattern = rm.06, replacement = ""); jjep.61.2.181.rm07 <- str_replace_all(jjep.61.2.181.rm06, pattern = rm.07, replacement = ""); jjep.61.2.181.rm08 <- str_replace_all(jjep.61.2.181.rm07, pattern = rm.08, replacement = ""); jjep.61.2.181.rm09 <- str_replace_all(jjep.61.2.181.rm08, pattern = rm.09, replacement = ""); jjep.61.2.181.rp10 <- str_replace_all(jjep.61.2.181.rm09, pattern = rp.01, replacement = "・"); jjep.61.2.181.rp11 <- str_replace_all(jjep.61.2.181.rp10, pattern = rp.02, replacement = "^"); jjep.61.2.181.rp12 <- str_replace_all(jjep.61.2.181.rp11, pattern = rp.03, replacement = "^"); jjep.61.2.181.rp13 <- str_replace_all(jjep.61.2.181.rp12, pattern = rp.04, replacement = "^"); jjep.61.2.181.rp14 <- str_replace_all(jjep.61.2.181.rp13, pattern = rp.05, replacement = "^"); jjep.61.2.181.rp15 <- str_replace_all(jjep.61.2.181.rp14, pattern = rp.06, replacement = "^"); jjep.61.2.181.mod <- rbind(varname,jjep.61.2.181.rp15); write(jjep.61.2.181.mod, file = "./jjep/Mod_61_2_181.txt")
jjep.61.2.193.tx <- readr::read_file(file="./jjep/61_2_193.txt"); jjep.61.2.193.rm00 <- jjep.61.2.193.tx; jjep.61.2.193.rm01 <- str_replace_all(jjep.61.2.193.rm00, pattern = rm.01, replacement = ""); jjep.61.2.193.rm02 <- str_replace_all(jjep.61.2.193.rm01, pattern = rm.02, replacement = "^"); jjep.61.2.193.rm03 <- str_replace_all(jjep.61.2.193.rm02, pattern = rm.03, replacement = ""); jjep.61.2.193.rm04 <- str_replace_all(jjep.61.2.193.rm03, pattern = rm.04, replacement = ""); jjep.61.2.193.rm05 <- str_replace_all(jjep.61.2.193.rm04, pattern = rm.05, replacement = ""); jjep.61.2.193.rm06 <- str_replace_all(jjep.61.2.193.rm05, pattern = rm.06, replacement = ""); jjep.61.2.193.rm07 <- str_replace_all(jjep.61.2.193.rm06, pattern = rm.07, replacement = ""); jjep.61.2.193.rm08 <- str_replace_all(jjep.61.2.193.rm07, pattern = rm.08, replacement = ""); jjep.61.2.193.rm09 <- str_replace_all(jjep.61.2.193.rm08, pattern = rm.09, replacement = ""); jjep.61.2.193.rp10 <- str_replace_all(jjep.61.2.193.rm09, pattern = rp.01, replacement = "・"); jjep.61.2.193.rp11 <- str_replace_all(jjep.61.2.193.rp10, pattern = rp.02, replacement = "^"); jjep.61.2.193.rp12 <- str_replace_all(jjep.61.2.193.rp11, pattern = rp.03, replacement = "^"); jjep.61.2.193.rp13 <- str_replace_all(jjep.61.2.193.rp12, pattern = rp.04, replacement = "^"); jjep.61.2.193.rp14 <- str_replace_all(jjep.61.2.193.rp13, pattern = rp.05, replacement = "^"); jjep.61.2.193.rp15 <- str_replace_all(jjep.61.2.193.rp14, pattern = rp.06, replacement = "^"); jjep.61.2.193.mod <- rbind(varname,jjep.61.2.193.rp15); write(jjep.61.2.193.mod, file = "./jjep/Mod_61_2_193.txt")
jjep.61.2.206.tx <- readr::read_file(file="./jjep/61_2_206.txt"); jjep.61.2.206.rm00 <- jjep.61.2.206.tx; jjep.61.2.206.rm01 <- str_replace_all(jjep.61.2.206.rm00, pattern = rm.01, replacement = ""); jjep.61.2.206.rm02 <- str_replace_all(jjep.61.2.206.rm01, pattern = rm.02, replacement = "^"); jjep.61.2.206.rm03 <- str_replace_all(jjep.61.2.206.rm02, pattern = rm.03, replacement = ""); jjep.61.2.206.rm04 <- str_replace_all(jjep.61.2.206.rm03, pattern = rm.04, replacement = ""); jjep.61.2.206.rm05 <- str_replace_all(jjep.61.2.206.rm04, pattern = rm.05, replacement = ""); jjep.61.2.206.rm06 <- str_replace_all(jjep.61.2.206.rm05, pattern = rm.06, replacement = ""); jjep.61.2.206.rm07 <- str_replace_all(jjep.61.2.206.rm06, pattern = rm.07, replacement = ""); jjep.61.2.206.rm08 <- str_replace_all(jjep.61.2.206.rm07, pattern = rm.08, replacement = ""); jjep.61.2.206.rm09 <- str_replace_all(jjep.61.2.206.rm08, pattern = rm.09, replacement = ""); jjep.61.2.206.rp10 <- str_replace_all(jjep.61.2.206.rm09, pattern = rp.01, replacement = "・"); jjep.61.2.206.rp11 <- str_replace_all(jjep.61.2.206.rp10, pattern = rp.02, replacement = "^"); jjep.61.2.206.rp12 <- str_replace_all(jjep.61.2.206.rp11, pattern = rp.03, replacement = "^"); jjep.61.2.206.rp13 <- str_replace_all(jjep.61.2.206.rp12, pattern = rp.04, replacement = "^"); jjep.61.2.206.rp14 <- str_replace_all(jjep.61.2.206.rp13, pattern = rp.05, replacement = "^"); jjep.61.2.206.rp15 <- str_replace_all(jjep.61.2.206.rp14, pattern = rp.06, replacement = "^"); jjep.61.2.206.mod <- rbind(varname,jjep.61.2.206.rp15); write(jjep.61.2.206.mod, file = "./jjep/Mod_61_2_206.txt")
jjep.61.1.1.tx <- readr::read_file(file="./jjep/61_1_1.txt"); jjep.61.1.1.rm00 <- jjep.61.1.1.tx; jjep.61.1.1.rm01 <- str_replace_all(jjep.61.1.1.rm00, pattern = rm.01, replacement = ""); jjep.61.1.1.rm02 <- str_replace_all(jjep.61.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.61.1.1.rm03 <- str_replace_all(jjep.61.1.1.rm02, pattern = rm.03, replacement = ""); jjep.61.1.1.rm04 <- str_replace_all(jjep.61.1.1.rm03, pattern = rm.04, replacement = ""); jjep.61.1.1.rm05 <- str_replace_all(jjep.61.1.1.rm04, pattern = rm.05, replacement = ""); jjep.61.1.1.rm06 <- str_replace_all(jjep.61.1.1.rm05, pattern = rm.06, replacement = ""); jjep.61.1.1.rm07 <- str_replace_all(jjep.61.1.1.rm06, pattern = rm.07, replacement = ""); jjep.61.1.1.rm08 <- str_replace_all(jjep.61.1.1.rm07, pattern = rm.08, replacement = ""); jjep.61.1.1.rm09 <- str_replace_all(jjep.61.1.1.rm08, pattern = rm.09, replacement = ""); jjep.61.1.1.rp10 <- str_replace_all(jjep.61.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.61.1.1.rp11 <- str_replace_all(jjep.61.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.61.1.1.rp12 <- str_replace_all(jjep.61.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.61.1.1.rp13 <- str_replace_all(jjep.61.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.61.1.1.rp14 <- str_replace_all(jjep.61.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.61.1.1.rp15 <- str_replace_all(jjep.61.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.61.1.1.mod <- rbind(varname,jjep.61.1.1.rp15); write(jjep.61.1.1.mod, file = "./jjep/Mod_61_1_1.txt")
jjep.61.1.17.tx <- readr::read_file(file="./jjep/61_1_17.txt"); jjep.61.1.17.rm00 <- jjep.61.1.17.tx; jjep.61.1.17.rm01 <- str_replace_all(jjep.61.1.17.rm00, pattern = rm.01, replacement = ""); jjep.61.1.17.rm02 <- str_replace_all(jjep.61.1.17.rm01, pattern = rm.02, replacement = "^"); jjep.61.1.17.rm03 <- str_replace_all(jjep.61.1.17.rm02, pattern = rm.03, replacement = ""); jjep.61.1.17.rm04 <- str_replace_all(jjep.61.1.17.rm03, pattern = rm.04, replacement = ""); jjep.61.1.17.rm05 <- str_replace_all(jjep.61.1.17.rm04, pattern = rm.05, replacement = ""); jjep.61.1.17.rm06 <- str_replace_all(jjep.61.1.17.rm05, pattern = rm.06, replacement = ""); jjep.61.1.17.rm07 <- str_replace_all(jjep.61.1.17.rm06, pattern = rm.07, replacement = ""); jjep.61.1.17.rm08 <- str_replace_all(jjep.61.1.17.rm07, pattern = rm.08, replacement = ""); jjep.61.1.17.rm09 <- str_replace_all(jjep.61.1.17.rm08, pattern = rm.09, replacement = ""); jjep.61.1.17.rp10 <- str_replace_all(jjep.61.1.17.rm09, pattern = rp.01, replacement = "・"); jjep.61.1.17.rp11 <- str_replace_all(jjep.61.1.17.rp10, pattern = rp.02, replacement = "^"); jjep.61.1.17.rp12 <- str_replace_all(jjep.61.1.17.rp11, pattern = rp.03, replacement = "^"); jjep.61.1.17.rp13 <- str_replace_all(jjep.61.1.17.rp12, pattern = rp.04, replacement = "^"); jjep.61.1.17.rp14 <- str_replace_all(jjep.61.1.17.rp13, pattern = rp.05, replacement = "^"); jjep.61.1.17.rp15 <- str_replace_all(jjep.61.1.17.rp14, pattern = rp.06, replacement = "^"); jjep.61.1.17.mod <- rbind(varname,jjep.61.1.17.rp15); write(jjep.61.1.17.mod, file = "./jjep/Mod_61_1_17.txt")
jjep.61.1.32.tx <- readr::read_file(file="./jjep/61_1_32.txt"); jjep.61.1.32.rm00 <- jjep.61.1.32.tx; jjep.61.1.32.rm01 <- str_replace_all(jjep.61.1.32.rm00, pattern = rm.01, replacement = ""); jjep.61.1.32.rm02 <- str_replace_all(jjep.61.1.32.rm01, pattern = rm.02, replacement = "^"); jjep.61.1.32.rm03 <- str_replace_all(jjep.61.1.32.rm02, pattern = rm.03, replacement = ""); jjep.61.1.32.rm04 <- str_replace_all(jjep.61.1.32.rm03, pattern = rm.04, replacement = ""); jjep.61.1.32.rm05 <- str_replace_all(jjep.61.1.32.rm04, pattern = rm.05, replacement = ""); jjep.61.1.32.rm06 <- str_replace_all(jjep.61.1.32.rm05, pattern = rm.06, replacement = ""); jjep.61.1.32.rm07 <- str_replace_all(jjep.61.1.32.rm06, pattern = rm.07, replacement = ""); jjep.61.1.32.rm08 <- str_replace_all(jjep.61.1.32.rm07, pattern = rm.08, replacement = ""); jjep.61.1.32.rm09 <- str_replace_all(jjep.61.1.32.rm08, pattern = rm.09, replacement = ""); jjep.61.1.32.rp10 <- str_replace_all(jjep.61.1.32.rm09, pattern = rp.01, replacement = "・"); jjep.61.1.32.rp11 <- str_replace_all(jjep.61.1.32.rp10, pattern = rp.02, replacement = "^"); jjep.61.1.32.rp12 <- str_replace_all(jjep.61.1.32.rp11, pattern = rp.03, replacement = "^"); jjep.61.1.32.rp13 <- str_replace_all(jjep.61.1.32.rp12, pattern = rp.04, replacement = "^"); jjep.61.1.32.rp14 <- str_replace_all(jjep.61.1.32.rp13, pattern = rp.05, replacement = "^"); jjep.61.1.32.rp15 <- str_replace_all(jjep.61.1.32.rp14, pattern = rp.06, replacement = "^"); jjep.61.1.32.mod <- rbind(varname,jjep.61.1.32.rp15); write(jjep.61.1.32.mod, file = "./jjep/Mod_61_1_32.txt")
jjep.61.1.44.tx <- readr::read_file(file="./jjep/61_1_44.txt"); jjep.61.1.44.rm00 <- jjep.61.1.44.tx; jjep.61.1.44.rm01 <- str_replace_all(jjep.61.1.44.rm00, pattern = rm.01, replacement = ""); jjep.61.1.44.rm02 <- str_replace_all(jjep.61.1.44.rm01, pattern = rm.02, replacement = "^"); jjep.61.1.44.rm03 <- str_replace_all(jjep.61.1.44.rm02, pattern = rm.03, replacement = ""); jjep.61.1.44.rm04 <- str_replace_all(jjep.61.1.44.rm03, pattern = rm.04, replacement = ""); jjep.61.1.44.rm05 <- str_replace_all(jjep.61.1.44.rm04, pattern = rm.05, replacement = ""); jjep.61.1.44.rm06 <- str_replace_all(jjep.61.1.44.rm05, pattern = rm.06, replacement = ""); jjep.61.1.44.rm07 <- str_replace_all(jjep.61.1.44.rm06, pattern = rm.07, replacement = ""); jjep.61.1.44.rm08 <- str_replace_all(jjep.61.1.44.rm07, pattern = rm.08, replacement = ""); jjep.61.1.44.rm09 <- str_replace_all(jjep.61.1.44.rm08, pattern = rm.09, replacement = ""); jjep.61.1.44.rp10 <- str_replace_all(jjep.61.1.44.rm09, pattern = rp.01, replacement = "・"); jjep.61.1.44.rp11 <- str_replace_all(jjep.61.1.44.rp10, pattern = rp.02, replacement = "^"); jjep.61.1.44.rp12 <- str_replace_all(jjep.61.1.44.rp11, pattern = rp.03, replacement = "^"); jjep.61.1.44.rp13 <- str_replace_all(jjep.61.1.44.rp12, pattern = rp.04, replacement = "^"); jjep.61.1.44.rp14 <- str_replace_all(jjep.61.1.44.rp13, pattern = rp.05, replacement = "^"); jjep.61.1.44.rp15 <- str_replace_all(jjep.61.1.44.rp14, pattern = rp.06, replacement = "^"); jjep.61.1.44.mod <- rbind(varname,jjep.61.1.44.rp15); write(jjep.61.1.44.mod, file = "./jjep/Mod_61_1_44.txt")
jjep.61.1.56.tx <- readr::read_file(file="./jjep/61_1_56.txt"); jjep.61.1.56.rm00 <- jjep.61.1.56.tx; jjep.61.1.56.rm01 <- str_replace_all(jjep.61.1.56.rm00, pattern = rm.01, replacement = ""); jjep.61.1.56.rm02 <- str_replace_all(jjep.61.1.56.rm01, pattern = rm.02, replacement = "^"); jjep.61.1.56.rm03 <- str_replace_all(jjep.61.1.56.rm02, pattern = rm.03, replacement = ""); jjep.61.1.56.rm04 <- str_replace_all(jjep.61.1.56.rm03, pattern = rm.04, replacement = ""); jjep.61.1.56.rm05 <- str_replace_all(jjep.61.1.56.rm04, pattern = rm.05, replacement = ""); jjep.61.1.56.rm06 <- str_replace_all(jjep.61.1.56.rm05, pattern = rm.06, replacement = ""); jjep.61.1.56.rm07 <- str_replace_all(jjep.61.1.56.rm06, pattern = rm.07, replacement = ""); jjep.61.1.56.rm08 <- str_replace_all(jjep.61.1.56.rm07, pattern = rm.08, replacement = ""); jjep.61.1.56.rm09 <- str_replace_all(jjep.61.1.56.rm08, pattern = rm.09, replacement = ""); jjep.61.1.56.rp10 <- str_replace_all(jjep.61.1.56.rm09, pattern = rp.01, replacement = "・"); jjep.61.1.56.rp11 <- str_replace_all(jjep.61.1.56.rp10, pattern = rp.02, replacement = "^"); jjep.61.1.56.rp12 <- str_replace_all(jjep.61.1.56.rp11, pattern = rp.03, replacement = "^"); jjep.61.1.56.rp13 <- str_replace_all(jjep.61.1.56.rp12, pattern = rp.04, replacement = "^"); jjep.61.1.56.rp14 <- str_replace_all(jjep.61.1.56.rp13, pattern = rp.05, replacement = "^"); jjep.61.1.56.rp15 <- str_replace_all(jjep.61.1.56.rp14, pattern = rp.06, replacement = "^"); jjep.61.1.56.mod <- rbind(varname,jjep.61.1.56.rp15); write(jjep.61.1.56.mod, file = "./jjep/Mod_61_1_56.txt")
jjep.61.1.67.tx <- readr::read_file(file="./jjep/61_1_67.txt"); jjep.61.1.67.rm00 <- jjep.61.1.67.tx; jjep.61.1.67.rm01 <- str_replace_all(jjep.61.1.67.rm00, pattern = rm.01, replacement = ""); jjep.61.1.67.rm02 <- str_replace_all(jjep.61.1.67.rm01, pattern = rm.02, replacement = "^"); jjep.61.1.67.rm03 <- str_replace_all(jjep.61.1.67.rm02, pattern = rm.03, replacement = ""); jjep.61.1.67.rm04 <- str_replace_all(jjep.61.1.67.rm03, pattern = rm.04, replacement = ""); jjep.61.1.67.rm05 <- str_replace_all(jjep.61.1.67.rm04, pattern = rm.05, replacement = ""); jjep.61.1.67.rm06 <- str_replace_all(jjep.61.1.67.rm05, pattern = rm.06, replacement = ""); jjep.61.1.67.rm07 <- str_replace_all(jjep.61.1.67.rm06, pattern = rm.07, replacement = ""); jjep.61.1.67.rm08 <- str_replace_all(jjep.61.1.67.rm07, pattern = rm.08, replacement = ""); jjep.61.1.67.rm09 <- str_replace_all(jjep.61.1.67.rm08, pattern = rm.09, replacement = ""); jjep.61.1.67.rp10 <- str_replace_all(jjep.61.1.67.rm09, pattern = rp.01, replacement = "・"); jjep.61.1.67.rp11 <- str_replace_all(jjep.61.1.67.rp10, pattern = rp.02, replacement = "^"); jjep.61.1.67.rp12 <- str_replace_all(jjep.61.1.67.rp11, pattern = rp.03, replacement = "^"); jjep.61.1.67.rp13 <- str_replace_all(jjep.61.1.67.rp12, pattern = rp.04, replacement = "^"); jjep.61.1.67.rp14 <- str_replace_all(jjep.61.1.67.rp13, pattern = rp.05, replacement = "^"); jjep.61.1.67.rp15 <- str_replace_all(jjep.61.1.67.rp14, pattern = rp.06, replacement = "^"); jjep.61.1.67.mod <- rbind(varname,jjep.61.1.67.rp15); write(jjep.61.1.67.mod, file = "./jjep/Mod_61_1_67.txt")
jjep.61.1.79.tx <- readr::read_file(file="./jjep/61_1_79.txt"); jjep.61.1.79.rm00 <- jjep.61.1.79.tx; jjep.61.1.79.rm01 <- str_replace_all(jjep.61.1.79.rm00, pattern = rm.01, replacement = ""); jjep.61.1.79.rm02 <- str_replace_all(jjep.61.1.79.rm01, pattern = rm.02, replacement = "^"); jjep.61.1.79.rm03 <- str_replace_all(jjep.61.1.79.rm02, pattern = rm.03, replacement = ""); jjep.61.1.79.rm04 <- str_replace_all(jjep.61.1.79.rm03, pattern = rm.04, replacement = ""); jjep.61.1.79.rm05 <- str_replace_all(jjep.61.1.79.rm04, pattern = rm.05, replacement = ""); jjep.61.1.79.rm06 <- str_replace_all(jjep.61.1.79.rm05, pattern = rm.06, replacement = ""); jjep.61.1.79.rm07 <- str_replace_all(jjep.61.1.79.rm06, pattern = rm.07, replacement = ""); jjep.61.1.79.rm08 <- str_replace_all(jjep.61.1.79.rm07, pattern = rm.08, replacement = ""); jjep.61.1.79.rm09 <- str_replace_all(jjep.61.1.79.rm08, pattern = rm.09, replacement = ""); jjep.61.1.79.rp10 <- str_replace_all(jjep.61.1.79.rm09, pattern = rp.01, replacement = "・"); jjep.61.1.79.rp11 <- str_replace_all(jjep.61.1.79.rp10, pattern = rp.02, replacement = "^"); jjep.61.1.79.rp12 <- str_replace_all(jjep.61.1.79.rp11, pattern = rp.03, replacement = "^"); jjep.61.1.79.rp13 <- str_replace_all(jjep.61.1.79.rp12, pattern = rp.04, replacement = "^"); jjep.61.1.79.rp14 <- str_replace_all(jjep.61.1.79.rp13, pattern = rp.05, replacement = "^"); jjep.61.1.79.rp15 <- str_replace_all(jjep.61.1.79.rp14, pattern = rp.06, replacement = "^"); jjep.61.1.79.mod <- rbind(varname,jjep.61.1.79.rp15); write(jjep.61.1.79.mod, file = "./jjep/Mod_61_1_79.txt")
jjep.61.1.95.tx <- readr::read_file(file="./jjep/61_1_95.txt"); jjep.61.1.95.rm00 <- jjep.61.1.95.tx; jjep.61.1.95.rm01 <- str_replace_all(jjep.61.1.95.rm00, pattern = rm.01, replacement = ""); jjep.61.1.95.rm02 <- str_replace_all(jjep.61.1.95.rm01, pattern = rm.02, replacement = "^"); jjep.61.1.95.rm03 <- str_replace_all(jjep.61.1.95.rm02, pattern = rm.03, replacement = ""); jjep.61.1.95.rm04 <- str_replace_all(jjep.61.1.95.rm03, pattern = rm.04, replacement = ""); jjep.61.1.95.rm05 <- str_replace_all(jjep.61.1.95.rm04, pattern = rm.05, replacement = ""); jjep.61.1.95.rm06 <- str_replace_all(jjep.61.1.95.rm05, pattern = rm.06, replacement = ""); jjep.61.1.95.rm07 <- str_replace_all(jjep.61.1.95.rm06, pattern = rm.07, replacement = ""); jjep.61.1.95.rm08 <- str_replace_all(jjep.61.1.95.rm07, pattern = rm.08, replacement = ""); jjep.61.1.95.rm09 <- str_replace_all(jjep.61.1.95.rm08, pattern = rm.09, replacement = ""); jjep.61.1.95.rp10 <- str_replace_all(jjep.61.1.95.rm09, pattern = rp.01, replacement = "・"); jjep.61.1.95.rp11 <- str_replace_all(jjep.61.1.95.rp10, pattern = rp.02, replacement = "^"); jjep.61.1.95.rp12 <- str_replace_all(jjep.61.1.95.rp11, pattern = rp.03, replacement = "^"); jjep.61.1.95.rp13 <- str_replace_all(jjep.61.1.95.rp12, pattern = rp.04, replacement = "^"); jjep.61.1.95.rp14 <- str_replace_all(jjep.61.1.95.rp13, pattern = rp.05, replacement = "^"); jjep.61.1.95.rp15 <- str_replace_all(jjep.61.1.95.rp14, pattern = rp.06, replacement = "^"); jjep.61.1.95.mod <- rbind(varname,jjep.61.1.95.rp15); write(jjep.61.1.95.mod, file = "./jjep/Mod_61_1_95.txt")
jjep.60.4.343.tx <- readr::read_file(file="./jjep/60_4_343.txt"); jjep.60.4.343.rm00 <- jjep.60.4.343.tx; jjep.60.4.343.rm01 <- str_replace_all(jjep.60.4.343.rm00, pattern = rm.01, replacement = ""); jjep.60.4.343.rm02 <- str_replace_all(jjep.60.4.343.rm01, pattern = rm.02, replacement = "^"); jjep.60.4.343.rm03 <- str_replace_all(jjep.60.4.343.rm02, pattern = rm.03, replacement = ""); jjep.60.4.343.rm04 <- str_replace_all(jjep.60.4.343.rm03, pattern = rm.04, replacement = ""); jjep.60.4.343.rm05 <- str_replace_all(jjep.60.4.343.rm04, pattern = rm.05, replacement = ""); jjep.60.4.343.rm06 <- str_replace_all(jjep.60.4.343.rm05, pattern = rm.06, replacement = ""); jjep.60.4.343.rm07 <- str_replace_all(jjep.60.4.343.rm06, pattern = rm.07, replacement = ""); jjep.60.4.343.rm08 <- str_replace_all(jjep.60.4.343.rm07, pattern = rm.08, replacement = ""); jjep.60.4.343.rm09 <- str_replace_all(jjep.60.4.343.rm08, pattern = rm.09, replacement = ""); jjep.60.4.343.rp10 <- str_replace_all(jjep.60.4.343.rm09, pattern = rp.01, replacement = "・"); jjep.60.4.343.rp11 <- str_replace_all(jjep.60.4.343.rp10, pattern = rp.02, replacement = "^"); jjep.60.4.343.rp12 <- str_replace_all(jjep.60.4.343.rp11, pattern = rp.03, replacement = "^"); jjep.60.4.343.rp13 <- str_replace_all(jjep.60.4.343.rp12, pattern = rp.04, replacement = "^"); jjep.60.4.343.rp14 <- str_replace_all(jjep.60.4.343.rp13, pattern = rp.05, replacement = "^"); jjep.60.4.343.rp15 <- str_replace_all(jjep.60.4.343.rp14, pattern = rp.06, replacement = "^"); jjep.60.4.343.mod <- rbind(varname,jjep.60.4.343.rp15); write(jjep.60.4.343.mod, file = "./jjep/Mod_60_4_343.txt")
jjep.60.4.355.tx <- readr::read_file(file="./jjep/60_4_355.txt"); jjep.60.4.355.rm00 <- jjep.60.4.355.tx; jjep.60.4.355.rm01 <- str_replace_all(jjep.60.4.355.rm00, pattern = rm.01, replacement = ""); jjep.60.4.355.rm02 <- str_replace_all(jjep.60.4.355.rm01, pattern = rm.02, replacement = "^"); jjep.60.4.355.rm03 <- str_replace_all(jjep.60.4.355.rm02, pattern = rm.03, replacement = ""); jjep.60.4.355.rm04 <- str_replace_all(jjep.60.4.355.rm03, pattern = rm.04, replacement = ""); jjep.60.4.355.rm05 <- str_replace_all(jjep.60.4.355.rm04, pattern = rm.05, replacement = ""); jjep.60.4.355.rm06 <- str_replace_all(jjep.60.4.355.rm05, pattern = rm.06, replacement = ""); jjep.60.4.355.rm07 <- str_replace_all(jjep.60.4.355.rm06, pattern = rm.07, replacement = ""); jjep.60.4.355.rm08 <- str_replace_all(jjep.60.4.355.rm07, pattern = rm.08, replacement = ""); jjep.60.4.355.rm09 <- str_replace_all(jjep.60.4.355.rm08, pattern = rm.09, replacement = ""); jjep.60.4.355.rp10 <- str_replace_all(jjep.60.4.355.rm09, pattern = rp.01, replacement = "・"); jjep.60.4.355.rp11 <- str_replace_all(jjep.60.4.355.rp10, pattern = rp.02, replacement = "^"); jjep.60.4.355.rp12 <- str_replace_all(jjep.60.4.355.rp11, pattern = rp.03, replacement = "^"); jjep.60.4.355.rp13 <- str_replace_all(jjep.60.4.355.rp12, pattern = rp.04, replacement = "^"); jjep.60.4.355.rp14 <- str_replace_all(jjep.60.4.355.rp13, pattern = rp.05, replacement = "^"); jjep.60.4.355.rp15 <- str_replace_all(jjep.60.4.355.rp14, pattern = rp.06, replacement = "^"); jjep.60.4.355.mod <- rbind(varname,jjep.60.4.355.rp15); write(jjep.60.4.355.mod, file = "./jjep/Mod_60_4_355.txt")
jjep.60.4.367.tx <- readr::read_file(file="./jjep/60_4_367.txt"); jjep.60.4.367.rm00 <- jjep.60.4.367.tx; jjep.60.4.367.rm01 <- str_replace_all(jjep.60.4.367.rm00, pattern = rm.01, replacement = ""); jjep.60.4.367.rm02 <- str_replace_all(jjep.60.4.367.rm01, pattern = rm.02, replacement = "^"); jjep.60.4.367.rm03 <- str_replace_all(jjep.60.4.367.rm02, pattern = rm.03, replacement = ""); jjep.60.4.367.rm04 <- str_replace_all(jjep.60.4.367.rm03, pattern = rm.04, replacement = ""); jjep.60.4.367.rm05 <- str_replace_all(jjep.60.4.367.rm04, pattern = rm.05, replacement = ""); jjep.60.4.367.rm06 <- str_replace_all(jjep.60.4.367.rm05, pattern = rm.06, replacement = ""); jjep.60.4.367.rm07 <- str_replace_all(jjep.60.4.367.rm06, pattern = rm.07, replacement = ""); jjep.60.4.367.rm08 <- str_replace_all(jjep.60.4.367.rm07, pattern = rm.08, replacement = ""); jjep.60.4.367.rm09 <- str_replace_all(jjep.60.4.367.rm08, pattern = rm.09, replacement = ""); jjep.60.4.367.rp10 <- str_replace_all(jjep.60.4.367.rm09, pattern = rp.01, replacement = "・"); jjep.60.4.367.rp11 <- str_replace_all(jjep.60.4.367.rp10, pattern = rp.02, replacement = "^"); jjep.60.4.367.rp12 <- str_replace_all(jjep.60.4.367.rp11, pattern = rp.03, replacement = "^"); jjep.60.4.367.rp13 <- str_replace_all(jjep.60.4.367.rp12, pattern = rp.04, replacement = "^"); jjep.60.4.367.rp14 <- str_replace_all(jjep.60.4.367.rp13, pattern = rp.05, replacement = "^"); jjep.60.4.367.rp15 <- str_replace_all(jjep.60.4.367.rp14, pattern = rp.06, replacement = "^"); jjep.60.4.367.mod <- rbind(varname,jjep.60.4.367.rp15); write(jjep.60.4.367.mod, file = "./jjep/Mod_60_4_367.txt")
jjep.60.4.380.tx <- readr::read_file(file="./jjep/60_4_380.txt"); jjep.60.4.380.rm00 <- jjep.60.4.380.tx; jjep.60.4.380.rm01 <- str_replace_all(jjep.60.4.380.rm00, pattern = rm.01, replacement = ""); jjep.60.4.380.rm02 <- str_replace_all(jjep.60.4.380.rm01, pattern = rm.02, replacement = "^"); jjep.60.4.380.rm03 <- str_replace_all(jjep.60.4.380.rm02, pattern = rm.03, replacement = ""); jjep.60.4.380.rm04 <- str_replace_all(jjep.60.4.380.rm03, pattern = rm.04, replacement = ""); jjep.60.4.380.rm05 <- str_replace_all(jjep.60.4.380.rm04, pattern = rm.05, replacement = ""); jjep.60.4.380.rm06 <- str_replace_all(jjep.60.4.380.rm05, pattern = rm.06, replacement = ""); jjep.60.4.380.rm07 <- str_replace_all(jjep.60.4.380.rm06, pattern = rm.07, replacement = ""); jjep.60.4.380.rm08 <- str_replace_all(jjep.60.4.380.rm07, pattern = rm.08, replacement = ""); jjep.60.4.380.rm09 <- str_replace_all(jjep.60.4.380.rm08, pattern = rm.09, replacement = ""); jjep.60.4.380.rp10 <- str_replace_all(jjep.60.4.380.rm09, pattern = rp.01, replacement = "・"); jjep.60.4.380.rp11 <- str_replace_all(jjep.60.4.380.rp10, pattern = rp.02, replacement = "^"); jjep.60.4.380.rp12 <- str_replace_all(jjep.60.4.380.rp11, pattern = rp.03, replacement = "^"); jjep.60.4.380.rp13 <- str_replace_all(jjep.60.4.380.rp12, pattern = rp.04, replacement = "^"); jjep.60.4.380.rp14 <- str_replace_all(jjep.60.4.380.rp13, pattern = rp.05, replacement = "^"); jjep.60.4.380.rp15 <- str_replace_all(jjep.60.4.380.rp14, pattern = rp.06, replacement = "^"); jjep.60.4.380.mod <- rbind(varname,jjep.60.4.380.rp15); write(jjep.60.4.380.mod, file = "./jjep/Mod_60_4_380.txt")
jjep.60.4.392.tx <- readr::read_file(file="./jjep/60_4_392.txt"); jjep.60.4.392.rm00 <- jjep.60.4.392.tx; jjep.60.4.392.rm01 <- str_replace_all(jjep.60.4.392.rm00, pattern = rm.01, replacement = ""); jjep.60.4.392.rm02 <- str_replace_all(jjep.60.4.392.rm01, pattern = rm.02, replacement = "^"); jjep.60.4.392.rm03 <- str_replace_all(jjep.60.4.392.rm02, pattern = rm.03, replacement = ""); jjep.60.4.392.rm04 <- str_replace_all(jjep.60.4.392.rm03, pattern = rm.04, replacement = ""); jjep.60.4.392.rm05 <- str_replace_all(jjep.60.4.392.rm04, pattern = rm.05, replacement = ""); jjep.60.4.392.rm06 <- str_replace_all(jjep.60.4.392.rm05, pattern = rm.06, replacement = ""); jjep.60.4.392.rm07 <- str_replace_all(jjep.60.4.392.rm06, pattern = rm.07, replacement = ""); jjep.60.4.392.rm08 <- str_replace_all(jjep.60.4.392.rm07, pattern = rm.08, replacement = ""); jjep.60.4.392.rm09 <- str_replace_all(jjep.60.4.392.rm08, pattern = rm.09, replacement = ""); jjep.60.4.392.rp10 <- str_replace_all(jjep.60.4.392.rm09, pattern = rp.01, replacement = "・"); jjep.60.4.392.rp11 <- str_replace_all(jjep.60.4.392.rp10, pattern = rp.02, replacement = "^"); jjep.60.4.392.rp12 <- str_replace_all(jjep.60.4.392.rp11, pattern = rp.03, replacement = "^"); jjep.60.4.392.rp13 <- str_replace_all(jjep.60.4.392.rp12, pattern = rp.04, replacement = "^"); jjep.60.4.392.rp14 <- str_replace_all(jjep.60.4.392.rp13, pattern = rp.05, replacement = "^"); jjep.60.4.392.rp15 <- str_replace_all(jjep.60.4.392.rp14, pattern = rp.06, replacement = "^"); jjep.60.4.392.mod <- rbind(varname,jjep.60.4.392.rp15); write(jjep.60.4.392.mod, file = "./jjep/Mod_60_4_392.txt")
jjep.60.3.235.tx <- readr::read_file(file="./jjep/60_3_235.txt"); jjep.60.3.235.rm00 <- jjep.60.3.235.tx; jjep.60.3.235.rm01 <- str_replace_all(jjep.60.3.235.rm00, pattern = rm.01, replacement = ""); jjep.60.3.235.rm02 <- str_replace_all(jjep.60.3.235.rm01, pattern = rm.02, replacement = "^"); jjep.60.3.235.rm03 <- str_replace_all(jjep.60.3.235.rm02, pattern = rm.03, replacement = ""); jjep.60.3.235.rm04 <- str_replace_all(jjep.60.3.235.rm03, pattern = rm.04, replacement = ""); jjep.60.3.235.rm05 <- str_replace_all(jjep.60.3.235.rm04, pattern = rm.05, replacement = ""); jjep.60.3.235.rm06 <- str_replace_all(jjep.60.3.235.rm05, pattern = rm.06, replacement = ""); jjep.60.3.235.rm07 <- str_replace_all(jjep.60.3.235.rm06, pattern = rm.07, replacement = ""); jjep.60.3.235.rm08 <- str_replace_all(jjep.60.3.235.rm07, pattern = rm.08, replacement = ""); jjep.60.3.235.rm09 <- str_replace_all(jjep.60.3.235.rm08, pattern = rm.09, replacement = ""); jjep.60.3.235.rp10 <- str_replace_all(jjep.60.3.235.rm09, pattern = rp.01, replacement = "・"); jjep.60.3.235.rp11 <- str_replace_all(jjep.60.3.235.rp10, pattern = rp.02, replacement = "^"); jjep.60.3.235.rp12 <- str_replace_all(jjep.60.3.235.rp11, pattern = rp.03, replacement = "^"); jjep.60.3.235.rp13 <- str_replace_all(jjep.60.3.235.rp12, pattern = rp.04, replacement = "^"); jjep.60.3.235.rp14 <- str_replace_all(jjep.60.3.235.rp13, pattern = rp.05, replacement = "^"); jjep.60.3.235.rp15 <- str_replace_all(jjep.60.3.235.rp14, pattern = rp.06, replacement = "^"); jjep.60.3.235.mod <- rbind(varname,jjep.60.3.235.rp15); write(jjep.60.3.235.mod, file = "./jjep/Mod_60_3_235.txt")
jjep.60.3.249.tx <- readr::read_file(file="./jjep/60_3_249.txt"); jjep.60.3.249.rm00 <- jjep.60.3.249.tx; jjep.60.3.249.rm01 <- str_replace_all(jjep.60.3.249.rm00, pattern = rm.01, replacement = ""); jjep.60.3.249.rm02 <- str_replace_all(jjep.60.3.249.rm01, pattern = rm.02, replacement = "^"); jjep.60.3.249.rm03 <- str_replace_all(jjep.60.3.249.rm02, pattern = rm.03, replacement = ""); jjep.60.3.249.rm04 <- str_replace_all(jjep.60.3.249.rm03, pattern = rm.04, replacement = ""); jjep.60.3.249.rm05 <- str_replace_all(jjep.60.3.249.rm04, pattern = rm.05, replacement = ""); jjep.60.3.249.rm06 <- str_replace_all(jjep.60.3.249.rm05, pattern = rm.06, replacement = ""); jjep.60.3.249.rm07 <- str_replace_all(jjep.60.3.249.rm06, pattern = rm.07, replacement = ""); jjep.60.3.249.rm08 <- str_replace_all(jjep.60.3.249.rm07, pattern = rm.08, replacement = ""); jjep.60.3.249.rm09 <- str_replace_all(jjep.60.3.249.rm08, pattern = rm.09, replacement = ""); jjep.60.3.249.rp10 <- str_replace_all(jjep.60.3.249.rm09, pattern = rp.01, replacement = "・"); jjep.60.3.249.rp11 <- str_replace_all(jjep.60.3.249.rp10, pattern = rp.02, replacement = "^"); jjep.60.3.249.rp12 <- str_replace_all(jjep.60.3.249.rp11, pattern = rp.03, replacement = "^"); jjep.60.3.249.rp13 <- str_replace_all(jjep.60.3.249.rp12, pattern = rp.04, replacement = "^"); jjep.60.3.249.rp14 <- str_replace_all(jjep.60.3.249.rp13, pattern = rp.05, replacement = "^"); jjep.60.3.249.rp15 <- str_replace_all(jjep.60.3.249.rp14, pattern = rp.06, replacement = "^"); jjep.60.3.249.mod <- rbind(varname,jjep.60.3.249.rp15); write(jjep.60.3.249.mod, file = "./jjep/Mod_60_3_249.txt")
jjep.60.3.261.tx <- readr::read_file(file="./jjep/60_3_261.txt"); jjep.60.3.261.rm00 <- jjep.60.3.261.tx; jjep.60.3.261.rm01 <- str_replace_all(jjep.60.3.261.rm00, pattern = rm.01, replacement = ""); jjep.60.3.261.rm02 <- str_replace_all(jjep.60.3.261.rm01, pattern = rm.02, replacement = "^"); jjep.60.3.261.rm03 <- str_replace_all(jjep.60.3.261.rm02, pattern = rm.03, replacement = ""); jjep.60.3.261.rm04 <- str_replace_all(jjep.60.3.261.rm03, pattern = rm.04, replacement = ""); jjep.60.3.261.rm05 <- str_replace_all(jjep.60.3.261.rm04, pattern = rm.05, replacement = ""); jjep.60.3.261.rm06 <- str_replace_all(jjep.60.3.261.rm05, pattern = rm.06, replacement = ""); jjep.60.3.261.rm07 <- str_replace_all(jjep.60.3.261.rm06, pattern = rm.07, replacement = ""); jjep.60.3.261.rm08 <- str_replace_all(jjep.60.3.261.rm07, pattern = rm.08, replacement = ""); jjep.60.3.261.rm09 <- str_replace_all(jjep.60.3.261.rm08, pattern = rm.09, replacement = ""); jjep.60.3.261.rp10 <- str_replace_all(jjep.60.3.261.rm09, pattern = rp.01, replacement = "・"); jjep.60.3.261.rp11 <- str_replace_all(jjep.60.3.261.rp10, pattern = rp.02, replacement = "^"); jjep.60.3.261.rp12 <- str_replace_all(jjep.60.3.261.rp11, pattern = rp.03, replacement = "^"); jjep.60.3.261.rp13 <- str_replace_all(jjep.60.3.261.rp12, pattern = rp.04, replacement = "^"); jjep.60.3.261.rp14 <- str_replace_all(jjep.60.3.261.rp13, pattern = rp.05, replacement = "^"); jjep.60.3.261.rp15 <- str_replace_all(jjep.60.3.261.rp14, pattern = rp.06, replacement = "^"); jjep.60.3.261.mod <- rbind(varname,jjep.60.3.261.rp15); write(jjep.60.3.261.mod, file = "./jjep/Mod_60_3_261.txt")
jjep.60.3.272.tx <- readr::read_file(file="./jjep/60_3_272.txt"); jjep.60.3.272.rm00 <- jjep.60.3.272.tx; jjep.60.3.272.rm01 <- str_replace_all(jjep.60.3.272.rm00, pattern = rm.01, replacement = ""); jjep.60.3.272.rm02 <- str_replace_all(jjep.60.3.272.rm01, pattern = rm.02, replacement = "^"); jjep.60.3.272.rm03 <- str_replace_all(jjep.60.3.272.rm02, pattern = rm.03, replacement = ""); jjep.60.3.272.rm04 <- str_replace_all(jjep.60.3.272.rm03, pattern = rm.04, replacement = ""); jjep.60.3.272.rm05 <- str_replace_all(jjep.60.3.272.rm04, pattern = rm.05, replacement = ""); jjep.60.3.272.rm06 <- str_replace_all(jjep.60.3.272.rm05, pattern = rm.06, replacement = ""); jjep.60.3.272.rm07 <- str_replace_all(jjep.60.3.272.rm06, pattern = rm.07, replacement = ""); jjep.60.3.272.rm08 <- str_replace_all(jjep.60.3.272.rm07, pattern = rm.08, replacement = ""); jjep.60.3.272.rm09 <- str_replace_all(jjep.60.3.272.rm08, pattern = rm.09, replacement = ""); jjep.60.3.272.rp10 <- str_replace_all(jjep.60.3.272.rm09, pattern = rp.01, replacement = "・"); jjep.60.3.272.rp11 <- str_replace_all(jjep.60.3.272.rp10, pattern = rp.02, replacement = "^"); jjep.60.3.272.rp12 <- str_replace_all(jjep.60.3.272.rp11, pattern = rp.03, replacement = "^"); jjep.60.3.272.rp13 <- str_replace_all(jjep.60.3.272.rp12, pattern = rp.04, replacement = "^"); jjep.60.3.272.rp14 <- str_replace_all(jjep.60.3.272.rp13, pattern = rp.05, replacement = "^"); jjep.60.3.272.rp15 <- str_replace_all(jjep.60.3.272.rp14, pattern = rp.06, replacement = "^"); jjep.60.3.272.mod <- rbind(varname,jjep.60.3.272.rp15); write(jjep.60.3.272.mod, file = "./jjep/Mod_60_3_272.txt")
jjep.60.3.285.tx <- readr::read_file(file="./jjep/60_3_285.txt"); jjep.60.3.285.rm00 <- jjep.60.3.285.tx; jjep.60.3.285.rm01 <- str_replace_all(jjep.60.3.285.rm00, pattern = rm.01, replacement = ""); jjep.60.3.285.rm02 <- str_replace_all(jjep.60.3.285.rm01, pattern = rm.02, replacement = "^"); jjep.60.3.285.rm03 <- str_replace_all(jjep.60.3.285.rm02, pattern = rm.03, replacement = ""); jjep.60.3.285.rm04 <- str_replace_all(jjep.60.3.285.rm03, pattern = rm.04, replacement = ""); jjep.60.3.285.rm05 <- str_replace_all(jjep.60.3.285.rm04, pattern = rm.05, replacement = ""); jjep.60.3.285.rm06 <- str_replace_all(jjep.60.3.285.rm05, pattern = rm.06, replacement = ""); jjep.60.3.285.rm07 <- str_replace_all(jjep.60.3.285.rm06, pattern = rm.07, replacement = ""); jjep.60.3.285.rm08 <- str_replace_all(jjep.60.3.285.rm07, pattern = rm.08, replacement = ""); jjep.60.3.285.rm09 <- str_replace_all(jjep.60.3.285.rm08, pattern = rm.09, replacement = ""); jjep.60.3.285.rp10 <- str_replace_all(jjep.60.3.285.rm09, pattern = rp.01, replacement = "・"); jjep.60.3.285.rp11 <- str_replace_all(jjep.60.3.285.rp10, pattern = rp.02, replacement = "^"); jjep.60.3.285.rp12 <- str_replace_all(jjep.60.3.285.rp11, pattern = rp.03, replacement = "^"); jjep.60.3.285.rp13 <- str_replace_all(jjep.60.3.285.rp12, pattern = rp.04, replacement = "^"); jjep.60.3.285.rp14 <- str_replace_all(jjep.60.3.285.rp13, pattern = rp.05, replacement = "^"); jjep.60.3.285.rp15 <- str_replace_all(jjep.60.3.285.rp14, pattern = rp.06, replacement = "^"); jjep.60.3.285.mod <- rbind(varname,jjep.60.3.285.rp15); write(jjep.60.3.285.mod, file = "./jjep/Mod_60_3_285.txt")
jjep.60.3.296.tx <- readr::read_file(file="./jjep/60_3_296.txt"); jjep.60.3.296.rm00 <- jjep.60.3.296.tx; jjep.60.3.296.rm01 <- str_replace_all(jjep.60.3.296.rm00, pattern = rm.01, replacement = ""); jjep.60.3.296.rm02 <- str_replace_all(jjep.60.3.296.rm01, pattern = rm.02, replacement = "^"); jjep.60.3.296.rm03 <- str_replace_all(jjep.60.3.296.rm02, pattern = rm.03, replacement = ""); jjep.60.3.296.rm04 <- str_replace_all(jjep.60.3.296.rm03, pattern = rm.04, replacement = ""); jjep.60.3.296.rm05 <- str_replace_all(jjep.60.3.296.rm04, pattern = rm.05, replacement = ""); jjep.60.3.296.rm06 <- str_replace_all(jjep.60.3.296.rm05, pattern = rm.06, replacement = ""); jjep.60.3.296.rm07 <- str_replace_all(jjep.60.3.296.rm06, pattern = rm.07, replacement = ""); jjep.60.3.296.rm08 <- str_replace_all(jjep.60.3.296.rm07, pattern = rm.08, replacement = ""); jjep.60.3.296.rm09 <- str_replace_all(jjep.60.3.296.rm08, pattern = rm.09, replacement = ""); jjep.60.3.296.rp10 <- str_replace_all(jjep.60.3.296.rm09, pattern = rp.01, replacement = "・"); jjep.60.3.296.rp11 <- str_replace_all(jjep.60.3.296.rp10, pattern = rp.02, replacement = "^"); jjep.60.3.296.rp12 <- str_replace_all(jjep.60.3.296.rp11, pattern = rp.03, replacement = "^"); jjep.60.3.296.rp13 <- str_replace_all(jjep.60.3.296.rp12, pattern = rp.04, replacement = "^"); jjep.60.3.296.rp14 <- str_replace_all(jjep.60.3.296.rp13, pattern = rp.05, replacement = "^"); jjep.60.3.296.rp15 <- str_replace_all(jjep.60.3.296.rp14, pattern = rp.06, replacement = "^"); jjep.60.3.296.mod <- rbind(varname,jjep.60.3.296.rp15); write(jjep.60.3.296.mod, file = "./jjep/Mod_60_3_296.txt")
jjep.60.3.310.tx <- readr::read_file(file="./jjep/60_3_310.txt"); jjep.60.3.310.rm00 <- jjep.60.3.310.tx; jjep.60.3.310.rm01 <- str_replace_all(jjep.60.3.310.rm00, pattern = rm.01, replacement = ""); jjep.60.3.310.rm02 <- str_replace_all(jjep.60.3.310.rm01, pattern = rm.02, replacement = "^"); jjep.60.3.310.rm03 <- str_replace_all(jjep.60.3.310.rm02, pattern = rm.03, replacement = ""); jjep.60.3.310.rm04 <- str_replace_all(jjep.60.3.310.rm03, pattern = rm.04, replacement = ""); jjep.60.3.310.rm05 <- str_replace_all(jjep.60.3.310.rm04, pattern = rm.05, replacement = ""); jjep.60.3.310.rm06 <- str_replace_all(jjep.60.3.310.rm05, pattern = rm.06, replacement = ""); jjep.60.3.310.rm07 <- str_replace_all(jjep.60.3.310.rm06, pattern = rm.07, replacement = ""); jjep.60.3.310.rm08 <- str_replace_all(jjep.60.3.310.rm07, pattern = rm.08, replacement = ""); jjep.60.3.310.rm09 <- str_replace_all(jjep.60.3.310.rm08, pattern = rm.09, replacement = ""); jjep.60.3.310.rp10 <- str_replace_all(jjep.60.3.310.rm09, pattern = rp.01, replacement = "・"); jjep.60.3.310.rp11 <- str_replace_all(jjep.60.3.310.rp10, pattern = rp.02, replacement = "^"); jjep.60.3.310.rp12 <- str_replace_all(jjep.60.3.310.rp11, pattern = rp.03, replacement = "^"); jjep.60.3.310.rp13 <- str_replace_all(jjep.60.3.310.rp12, pattern = rp.04, replacement = "^"); jjep.60.3.310.rp14 <- str_replace_all(jjep.60.3.310.rp13, pattern = rp.05, replacement = "^"); jjep.60.3.310.rp15 <- str_replace_all(jjep.60.3.310.rp14, pattern = rp.06, replacement = "^"); jjep.60.3.310.mod <- rbind(varname,jjep.60.3.310.rp15); write(jjep.60.3.310.mod, file = "./jjep/Mod_60_3_310.txt")
jjep.60.3.324.tx <- readr::read_file(file="./jjep/60_3_324.txt"); jjep.60.3.324.rm00 <- jjep.60.3.324.tx; jjep.60.3.324.rm01 <- str_replace_all(jjep.60.3.324.rm00, pattern = rm.01, replacement = ""); jjep.60.3.324.rm02 <- str_replace_all(jjep.60.3.324.rm01, pattern = rm.02, replacement = "^"); jjep.60.3.324.rm03 <- str_replace_all(jjep.60.3.324.rm02, pattern = rm.03, replacement = ""); jjep.60.3.324.rm04 <- str_replace_all(jjep.60.3.324.rm03, pattern = rm.04, replacement = ""); jjep.60.3.324.rm05 <- str_replace_all(jjep.60.3.324.rm04, pattern = rm.05, replacement = ""); jjep.60.3.324.rm06 <- str_replace_all(jjep.60.3.324.rm05, pattern = rm.06, replacement = ""); jjep.60.3.324.rm07 <- str_replace_all(jjep.60.3.324.rm06, pattern = rm.07, replacement = ""); jjep.60.3.324.rm08 <- str_replace_all(jjep.60.3.324.rm07, pattern = rm.08, replacement = ""); jjep.60.3.324.rm09 <- str_replace_all(jjep.60.3.324.rm08, pattern = rm.09, replacement = ""); jjep.60.3.324.rp10 <- str_replace_all(jjep.60.3.324.rm09, pattern = rp.01, replacement = "・"); jjep.60.3.324.rp11 <- str_replace_all(jjep.60.3.324.rp10, pattern = rp.02, replacement = "^"); jjep.60.3.324.rp12 <- str_replace_all(jjep.60.3.324.rp11, pattern = rp.03, replacement = "^"); jjep.60.3.324.rp13 <- str_replace_all(jjep.60.3.324.rp12, pattern = rp.04, replacement = "^"); jjep.60.3.324.rp14 <- str_replace_all(jjep.60.3.324.rp13, pattern = rp.05, replacement = "^"); jjep.60.3.324.rp15 <- str_replace_all(jjep.60.3.324.rp14, pattern = rp.06, replacement = "^"); jjep.60.3.324.mod <- rbind(varname,jjep.60.3.324.rp15); write(jjep.60.3.324.mod, file = "./jjep/Mod_60_3_324.txt")
jjep.60.2.117.tx <- readr::read_file(file="./jjep/60_2_117.txt"); jjep.60.2.117.rm00 <- jjep.60.2.117.tx; jjep.60.2.117.rm01 <- str_replace_all(jjep.60.2.117.rm00, pattern = rm.01, replacement = ""); jjep.60.2.117.rm02 <- str_replace_all(jjep.60.2.117.rm01, pattern = rm.02, replacement = "^"); jjep.60.2.117.rm03 <- str_replace_all(jjep.60.2.117.rm02, pattern = rm.03, replacement = ""); jjep.60.2.117.rm04 <- str_replace_all(jjep.60.2.117.rm03, pattern = rm.04, replacement = ""); jjep.60.2.117.rm05 <- str_replace_all(jjep.60.2.117.rm04, pattern = rm.05, replacement = ""); jjep.60.2.117.rm06 <- str_replace_all(jjep.60.2.117.rm05, pattern = rm.06, replacement = ""); jjep.60.2.117.rm07 <- str_replace_all(jjep.60.2.117.rm06, pattern = rm.07, replacement = ""); jjep.60.2.117.rm08 <- str_replace_all(jjep.60.2.117.rm07, pattern = rm.08, replacement = ""); jjep.60.2.117.rm09 <- str_replace_all(jjep.60.2.117.rm08, pattern = rm.09, replacement = ""); jjep.60.2.117.rp10 <- str_replace_all(jjep.60.2.117.rm09, pattern = rp.01, replacement = "・"); jjep.60.2.117.rp11 <- str_replace_all(jjep.60.2.117.rp10, pattern = rp.02, replacement = "^"); jjep.60.2.117.rp12 <- str_replace_all(jjep.60.2.117.rp11, pattern = rp.03, replacement = "^"); jjep.60.2.117.rp13 <- str_replace_all(jjep.60.2.117.rp12, pattern = rp.04, replacement = "^"); jjep.60.2.117.rp14 <- str_replace_all(jjep.60.2.117.rp13, pattern = rp.05, replacement = "^"); jjep.60.2.117.rp15 <- str_replace_all(jjep.60.2.117.rp14, pattern = rp.06, replacement = "^"); jjep.60.2.117.mod <- rbind(varname,jjep.60.2.117.rp15); write(jjep.60.2.117.mod, file = "./jjep/Mod_60_2_117.txt")
jjep.60.2.127.tx <- readr::read_file(file="./jjep/60_2_127.txt"); jjep.60.2.127.rm00 <- jjep.60.2.127.tx; jjep.60.2.127.rm01 <- str_replace_all(jjep.60.2.127.rm00, pattern = rm.01, replacement = ""); jjep.60.2.127.rm02 <- str_replace_all(jjep.60.2.127.rm01, pattern = rm.02, replacement = "^"); jjep.60.2.127.rm03 <- str_replace_all(jjep.60.2.127.rm02, pattern = rm.03, replacement = ""); jjep.60.2.127.rm04 <- str_replace_all(jjep.60.2.127.rm03, pattern = rm.04, replacement = ""); jjep.60.2.127.rm05 <- str_replace_all(jjep.60.2.127.rm04, pattern = rm.05, replacement = ""); jjep.60.2.127.rm06 <- str_replace_all(jjep.60.2.127.rm05, pattern = rm.06, replacement = ""); jjep.60.2.127.rm07 <- str_replace_all(jjep.60.2.127.rm06, pattern = rm.07, replacement = ""); jjep.60.2.127.rm08 <- str_replace_all(jjep.60.2.127.rm07, pattern = rm.08, replacement = ""); jjep.60.2.127.rm09 <- str_replace_all(jjep.60.2.127.rm08, pattern = rm.09, replacement = ""); jjep.60.2.127.rp10 <- str_replace_all(jjep.60.2.127.rm09, pattern = rp.01, replacement = "・"); jjep.60.2.127.rp11 <- str_replace_all(jjep.60.2.127.rp10, pattern = rp.02, replacement = "^"); jjep.60.2.127.rp12 <- str_replace_all(jjep.60.2.127.rp11, pattern = rp.03, replacement = "^"); jjep.60.2.127.rp13 <- str_replace_all(jjep.60.2.127.rp12, pattern = rp.04, replacement = "^"); jjep.60.2.127.rp14 <- str_replace_all(jjep.60.2.127.rp13, pattern = rp.05, replacement = "^"); jjep.60.2.127.rp15 <- str_replace_all(jjep.60.2.127.rp14, pattern = rp.06, replacement = "^"); jjep.60.2.127.mod <- rbind(varname,jjep.60.2.127.rp15); write(jjep.60.2.127.mod, file = "./jjep/Mod_60_2_127.txt")
jjep.60.2.137.tx <- readr::read_file(file="./jjep/60_2_137.txt"); jjep.60.2.137.rm00 <- jjep.60.2.137.tx; jjep.60.2.137.rm01 <- str_replace_all(jjep.60.2.137.rm00, pattern = rm.01, replacement = ""); jjep.60.2.137.rm02 <- str_replace_all(jjep.60.2.137.rm01, pattern = rm.02, replacement = "^"); jjep.60.2.137.rm03 <- str_replace_all(jjep.60.2.137.rm02, pattern = rm.03, replacement = ""); jjep.60.2.137.rm04 <- str_replace_all(jjep.60.2.137.rm03, pattern = rm.04, replacement = ""); jjep.60.2.137.rm05 <- str_replace_all(jjep.60.2.137.rm04, pattern = rm.05, replacement = ""); jjep.60.2.137.rm06 <- str_replace_all(jjep.60.2.137.rm05, pattern = rm.06, replacement = ""); jjep.60.2.137.rm07 <- str_replace_all(jjep.60.2.137.rm06, pattern = rm.07, replacement = ""); jjep.60.2.137.rm08 <- str_replace_all(jjep.60.2.137.rm07, pattern = rm.08, replacement = ""); jjep.60.2.137.rm09 <- str_replace_all(jjep.60.2.137.rm08, pattern = rm.09, replacement = ""); jjep.60.2.137.rp10 <- str_replace_all(jjep.60.2.137.rm09, pattern = rp.01, replacement = "・"); jjep.60.2.137.rp11 <- str_replace_all(jjep.60.2.137.rp10, pattern = rp.02, replacement = "^"); jjep.60.2.137.rp12 <- str_replace_all(jjep.60.2.137.rp11, pattern = rp.03, replacement = "^"); jjep.60.2.137.rp13 <- str_replace_all(jjep.60.2.137.rp12, pattern = rp.04, replacement = "^"); jjep.60.2.137.rp14 <- str_replace_all(jjep.60.2.137.rp13, pattern = rp.05, replacement = "^"); jjep.60.2.137.rp15 <- str_replace_all(jjep.60.2.137.rp14, pattern = rp.06, replacement = "^"); jjep.60.2.137.mod <- rbind(varname,jjep.60.2.137.rp15); write(jjep.60.2.137.mod, file = "./jjep/Mod_60_2_137.txt")
jjep.60.2.153.tx <- readr::read_file(file="./jjep/60_2_153.txt"); jjep.60.2.153.rm00 <- jjep.60.2.153.tx; jjep.60.2.153.rm01 <- str_replace_all(jjep.60.2.153.rm00, pattern = rm.01, replacement = ""); jjep.60.2.153.rm02 <- str_replace_all(jjep.60.2.153.rm01, pattern = rm.02, replacement = "^"); jjep.60.2.153.rm03 <- str_replace_all(jjep.60.2.153.rm02, pattern = rm.03, replacement = ""); jjep.60.2.153.rm04 <- str_replace_all(jjep.60.2.153.rm03, pattern = rm.04, replacement = ""); jjep.60.2.153.rm05 <- str_replace_all(jjep.60.2.153.rm04, pattern = rm.05, replacement = ""); jjep.60.2.153.rm06 <- str_replace_all(jjep.60.2.153.rm05, pattern = rm.06, replacement = ""); jjep.60.2.153.rm07 <- str_replace_all(jjep.60.2.153.rm06, pattern = rm.07, replacement = ""); jjep.60.2.153.rm08 <- str_replace_all(jjep.60.2.153.rm07, pattern = rm.08, replacement = ""); jjep.60.2.153.rm09 <- str_replace_all(jjep.60.2.153.rm08, pattern = rm.09, replacement = ""); jjep.60.2.153.rp10 <- str_replace_all(jjep.60.2.153.rm09, pattern = rp.01, replacement = "・"); jjep.60.2.153.rp11 <- str_replace_all(jjep.60.2.153.rp10, pattern = rp.02, replacement = "^"); jjep.60.2.153.rp12 <- str_replace_all(jjep.60.2.153.rp11, pattern = rp.03, replacement = "^"); jjep.60.2.153.rp13 <- str_replace_all(jjep.60.2.153.rp12, pattern = rp.04, replacement = "^"); jjep.60.2.153.rp14 <- str_replace_all(jjep.60.2.153.rp13, pattern = rp.05, replacement = "^"); jjep.60.2.153.rp15 <- str_replace_all(jjep.60.2.153.rp14, pattern = rp.06, replacement = "^"); jjep.60.2.153.mod <- rbind(varname,jjep.60.2.153.rp15); write(jjep.60.2.153.mod, file = "./jjep/Mod_60_2_153.txt")
jjep.60.2.167.tx <- readr::read_file(file="./jjep/60_2_167.txt"); jjep.60.2.167.rm00 <- jjep.60.2.167.tx; jjep.60.2.167.rm01 <- str_replace_all(jjep.60.2.167.rm00, pattern = rm.01, replacement = ""); jjep.60.2.167.rm02 <- str_replace_all(jjep.60.2.167.rm01, pattern = rm.02, replacement = "^"); jjep.60.2.167.rm03 <- str_replace_all(jjep.60.2.167.rm02, pattern = rm.03, replacement = ""); jjep.60.2.167.rm04 <- str_replace_all(jjep.60.2.167.rm03, pattern = rm.04, replacement = ""); jjep.60.2.167.rm05 <- str_replace_all(jjep.60.2.167.rm04, pattern = rm.05, replacement = ""); jjep.60.2.167.rm06 <- str_replace_all(jjep.60.2.167.rm05, pattern = rm.06, replacement = ""); jjep.60.2.167.rm07 <- str_replace_all(jjep.60.2.167.rm06, pattern = rm.07, replacement = ""); jjep.60.2.167.rm08 <- str_replace_all(jjep.60.2.167.rm07, pattern = rm.08, replacement = ""); jjep.60.2.167.rm09 <- str_replace_all(jjep.60.2.167.rm08, pattern = rm.09, replacement = ""); jjep.60.2.167.rp10 <- str_replace_all(jjep.60.2.167.rm09, pattern = rp.01, replacement = "・"); jjep.60.2.167.rp11 <- str_replace_all(jjep.60.2.167.rp10, pattern = rp.02, replacement = "^"); jjep.60.2.167.rp12 <- str_replace_all(jjep.60.2.167.rp11, pattern = rp.03, replacement = "^"); jjep.60.2.167.rp13 <- str_replace_all(jjep.60.2.167.rp12, pattern = rp.04, replacement = "^"); jjep.60.2.167.rp14 <- str_replace_all(jjep.60.2.167.rp13, pattern = rp.05, replacement = "^"); jjep.60.2.167.rp15 <- str_replace_all(jjep.60.2.167.rp14, pattern = rp.06, replacement = "^"); jjep.60.2.167.mod <- rbind(varname,jjep.60.2.167.rp15); write(jjep.60.2.167.mod, file = "./jjep/Mod_60_2_167.txt")
jjep.60.2.186.tx <- readr::read_file(file="./jjep/60_2_186.txt"); jjep.60.2.186.rm00 <- jjep.60.2.186.tx; jjep.60.2.186.rm01 <- str_replace_all(jjep.60.2.186.rm00, pattern = rm.01, replacement = ""); jjep.60.2.186.rm02 <- str_replace_all(jjep.60.2.186.rm01, pattern = rm.02, replacement = "^"); jjep.60.2.186.rm03 <- str_replace_all(jjep.60.2.186.rm02, pattern = rm.03, replacement = ""); jjep.60.2.186.rm04 <- str_replace_all(jjep.60.2.186.rm03, pattern = rm.04, replacement = ""); jjep.60.2.186.rm05 <- str_replace_all(jjep.60.2.186.rm04, pattern = rm.05, replacement = ""); jjep.60.2.186.rm06 <- str_replace_all(jjep.60.2.186.rm05, pattern = rm.06, replacement = ""); jjep.60.2.186.rm07 <- str_replace_all(jjep.60.2.186.rm06, pattern = rm.07, replacement = ""); jjep.60.2.186.rm08 <- str_replace_all(jjep.60.2.186.rm07, pattern = rm.08, replacement = ""); jjep.60.2.186.rm09 <- str_replace_all(jjep.60.2.186.rm08, pattern = rm.09, replacement = ""); jjep.60.2.186.rp10 <- str_replace_all(jjep.60.2.186.rm09, pattern = rp.01, replacement = "・"); jjep.60.2.186.rp11 <- str_replace_all(jjep.60.2.186.rp10, pattern = rp.02, replacement = "^"); jjep.60.2.186.rp12 <- str_replace_all(jjep.60.2.186.rp11, pattern = rp.03, replacement = "^"); jjep.60.2.186.rp13 <- str_replace_all(jjep.60.2.186.rp12, pattern = rp.04, replacement = "^"); jjep.60.2.186.rp14 <- str_replace_all(jjep.60.2.186.rp13, pattern = rp.05, replacement = "^"); jjep.60.2.186.rp15 <- str_replace_all(jjep.60.2.186.rp14, pattern = rp.06, replacement = "^"); jjep.60.2.186.mod <- rbind(varname,jjep.60.2.186.rp15); write(jjep.60.2.186.mod, file = "./jjep/Mod_60_2_186.txt")
jjep.60.2.199.tx <- readr::read_file(file="./jjep/60_2_199.txt"); jjep.60.2.199.rm00 <- jjep.60.2.199.tx; jjep.60.2.199.rm01 <- str_replace_all(jjep.60.2.199.rm00, pattern = rm.01, replacement = ""); jjep.60.2.199.rm02 <- str_replace_all(jjep.60.2.199.rm01, pattern = rm.02, replacement = "^"); jjep.60.2.199.rm03 <- str_replace_all(jjep.60.2.199.rm02, pattern = rm.03, replacement = ""); jjep.60.2.199.rm04 <- str_replace_all(jjep.60.2.199.rm03, pattern = rm.04, replacement = ""); jjep.60.2.199.rm05 <- str_replace_all(jjep.60.2.199.rm04, pattern = rm.05, replacement = ""); jjep.60.2.199.rm06 <- str_replace_all(jjep.60.2.199.rm05, pattern = rm.06, replacement = ""); jjep.60.2.199.rm07 <- str_replace_all(jjep.60.2.199.rm06, pattern = rm.07, replacement = ""); jjep.60.2.199.rm08 <- str_replace_all(jjep.60.2.199.rm07, pattern = rm.08, replacement = ""); jjep.60.2.199.rm09 <- str_replace_all(jjep.60.2.199.rm08, pattern = rm.09, replacement = ""); jjep.60.2.199.rp10 <- str_replace_all(jjep.60.2.199.rm09, pattern = rp.01, replacement = "・"); jjep.60.2.199.rp11 <- str_replace_all(jjep.60.2.199.rp10, pattern = rp.02, replacement = "^"); jjep.60.2.199.rp12 <- str_replace_all(jjep.60.2.199.rp11, pattern = rp.03, replacement = "^"); jjep.60.2.199.rp13 <- str_replace_all(jjep.60.2.199.rp12, pattern = rp.04, replacement = "^"); jjep.60.2.199.rp14 <- str_replace_all(jjep.60.2.199.rp13, pattern = rp.05, replacement = "^"); jjep.60.2.199.rp15 <- str_replace_all(jjep.60.2.199.rp14, pattern = rp.06, replacement = "^"); jjep.60.2.199.mod <- rbind(varname,jjep.60.2.199.rp15); write(jjep.60.2.199.mod, file = "./jjep/Mod_60_2_199.txt")
jjep.60.2.211.tx <- readr::read_file(file="./jjep/60_2_211.txt"); jjep.60.2.211.rm00 <- jjep.60.2.211.tx; jjep.60.2.211.rm01 <- str_replace_all(jjep.60.2.211.rm00, pattern = rm.01, replacement = ""); jjep.60.2.211.rm02 <- str_replace_all(jjep.60.2.211.rm01, pattern = rm.02, replacement = "^"); jjep.60.2.211.rm03 <- str_replace_all(jjep.60.2.211.rm02, pattern = rm.03, replacement = ""); jjep.60.2.211.rm04 <- str_replace_all(jjep.60.2.211.rm03, pattern = rm.04, replacement = ""); jjep.60.2.211.rm05 <- str_replace_all(jjep.60.2.211.rm04, pattern = rm.05, replacement = ""); jjep.60.2.211.rm06 <- str_replace_all(jjep.60.2.211.rm05, pattern = rm.06, replacement = ""); jjep.60.2.211.rm07 <- str_replace_all(jjep.60.2.211.rm06, pattern = rm.07, replacement = ""); jjep.60.2.211.rm08 <- str_replace_all(jjep.60.2.211.rm07, pattern = rm.08, replacement = ""); jjep.60.2.211.rm09 <- str_replace_all(jjep.60.2.211.rm08, pattern = rm.09, replacement = ""); jjep.60.2.211.rp10 <- str_replace_all(jjep.60.2.211.rm09, pattern = rp.01, replacement = "・"); jjep.60.2.211.rp11 <- str_replace_all(jjep.60.2.211.rp10, pattern = rp.02, replacement = "^"); jjep.60.2.211.rp12 <- str_replace_all(jjep.60.2.211.rp11, pattern = rp.03, replacement = "^"); jjep.60.2.211.rp13 <- str_replace_all(jjep.60.2.211.rp12, pattern = rp.04, replacement = "^"); jjep.60.2.211.rp14 <- str_replace_all(jjep.60.2.211.rp13, pattern = rp.05, replacement = "^"); jjep.60.2.211.rp15 <- str_replace_all(jjep.60.2.211.rp14, pattern = rp.06, replacement = "^"); jjep.60.2.211.mod <- rbind(varname,jjep.60.2.211.rp15); write(jjep.60.2.211.mod, file = "./jjep/Mod_60_2_211.txt")
jjep.60.1.1.tx <- readr::read_file(file="./jjep/60_1_1.txt"); jjep.60.1.1.rm00 <- jjep.60.1.1.tx; jjep.60.1.1.rm01 <- str_replace_all(jjep.60.1.1.rm00, pattern = rm.01, replacement = ""); jjep.60.1.1.rm02 <- str_replace_all(jjep.60.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.60.1.1.rm03 <- str_replace_all(jjep.60.1.1.rm02, pattern = rm.03, replacement = ""); jjep.60.1.1.rm04 <- str_replace_all(jjep.60.1.1.rm03, pattern = rm.04, replacement = ""); jjep.60.1.1.rm05 <- str_replace_all(jjep.60.1.1.rm04, pattern = rm.05, replacement = ""); jjep.60.1.1.rm06 <- str_replace_all(jjep.60.1.1.rm05, pattern = rm.06, replacement = ""); jjep.60.1.1.rm07 <- str_replace_all(jjep.60.1.1.rm06, pattern = rm.07, replacement = ""); jjep.60.1.1.rm08 <- str_replace_all(jjep.60.1.1.rm07, pattern = rm.08, replacement = ""); jjep.60.1.1.rm09 <- str_replace_all(jjep.60.1.1.rm08, pattern = rm.09, replacement = ""); jjep.60.1.1.rp10 <- str_replace_all(jjep.60.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.60.1.1.rp11 <- str_replace_all(jjep.60.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.60.1.1.rp12 <- str_replace_all(jjep.60.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.60.1.1.rp13 <- str_replace_all(jjep.60.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.60.1.1.rp14 <- str_replace_all(jjep.60.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.60.1.1.rp15 <- str_replace_all(jjep.60.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.60.1.1.mod <- rbind(varname,jjep.60.1.1.rp15); write(jjep.60.1.1.mod, file = "./jjep/Mod_60_1_1.txt")
jjep.60.1.15.tx <- readr::read_file(file="./jjep/60_1_15.txt"); jjep.60.1.15.rm00 <- jjep.60.1.15.tx; jjep.60.1.15.rm01 <- str_replace_all(jjep.60.1.15.rm00, pattern = rm.01, replacement = ""); jjep.60.1.15.rm02 <- str_replace_all(jjep.60.1.15.rm01, pattern = rm.02, replacement = "^"); jjep.60.1.15.rm03 <- str_replace_all(jjep.60.1.15.rm02, pattern = rm.03, replacement = ""); jjep.60.1.15.rm04 <- str_replace_all(jjep.60.1.15.rm03, pattern = rm.04, replacement = ""); jjep.60.1.15.rm05 <- str_replace_all(jjep.60.1.15.rm04, pattern = rm.05, replacement = ""); jjep.60.1.15.rm06 <- str_replace_all(jjep.60.1.15.rm05, pattern = rm.06, replacement = ""); jjep.60.1.15.rm07 <- str_replace_all(jjep.60.1.15.rm06, pattern = rm.07, replacement = ""); jjep.60.1.15.rm08 <- str_replace_all(jjep.60.1.15.rm07, pattern = rm.08, replacement = ""); jjep.60.1.15.rm09 <- str_replace_all(jjep.60.1.15.rm08, pattern = rm.09, replacement = ""); jjep.60.1.15.rp10 <- str_replace_all(jjep.60.1.15.rm09, pattern = rp.01, replacement = "・"); jjep.60.1.15.rp11 <- str_replace_all(jjep.60.1.15.rp10, pattern = rp.02, replacement = "^"); jjep.60.1.15.rp12 <- str_replace_all(jjep.60.1.15.rp11, pattern = rp.03, replacement = "^"); jjep.60.1.15.rp13 <- str_replace_all(jjep.60.1.15.rp12, pattern = rp.04, replacement = "^"); jjep.60.1.15.rp14 <- str_replace_all(jjep.60.1.15.rp13, pattern = rp.05, replacement = "^"); jjep.60.1.15.rp15 <- str_replace_all(jjep.60.1.15.rp14, pattern = rp.06, replacement = "^"); jjep.60.1.15.mod <- rbind(varname,jjep.60.1.15.rp15); write(jjep.60.1.15.mod, file = "./jjep/Mod_60_1_15.txt")
jjep.60.1.28.tx <- readr::read_file(file="./jjep/60_1_28.txt"); jjep.60.1.28.rm00 <- jjep.60.1.28.tx; jjep.60.1.28.rm01 <- str_replace_all(jjep.60.1.28.rm00, pattern = rm.01, replacement = ""); jjep.60.1.28.rm02 <- str_replace_all(jjep.60.1.28.rm01, pattern = rm.02, replacement = "^"); jjep.60.1.28.rm03 <- str_replace_all(jjep.60.1.28.rm02, pattern = rm.03, replacement = ""); jjep.60.1.28.rm04 <- str_replace_all(jjep.60.1.28.rm03, pattern = rm.04, replacement = ""); jjep.60.1.28.rm05 <- str_replace_all(jjep.60.1.28.rm04, pattern = rm.05, replacement = ""); jjep.60.1.28.rm06 <- str_replace_all(jjep.60.1.28.rm05, pattern = rm.06, replacement = ""); jjep.60.1.28.rm07 <- str_replace_all(jjep.60.1.28.rm06, pattern = rm.07, replacement = ""); jjep.60.1.28.rm08 <- str_replace_all(jjep.60.1.28.rm07, pattern = rm.08, replacement = ""); jjep.60.1.28.rm09 <- str_replace_all(jjep.60.1.28.rm08, pattern = rm.09, replacement = ""); jjep.60.1.28.rp10 <- str_replace_all(jjep.60.1.28.rm09, pattern = rp.01, replacement = "・"); jjep.60.1.28.rp11 <- str_replace_all(jjep.60.1.28.rp10, pattern = rp.02, replacement = "^"); jjep.60.1.28.rp12 <- str_replace_all(jjep.60.1.28.rp11, pattern = rp.03, replacement = "^"); jjep.60.1.28.rp13 <- str_replace_all(jjep.60.1.28.rp12, pattern = rp.04, replacement = "^"); jjep.60.1.28.rp14 <- str_replace_all(jjep.60.1.28.rp13, pattern = rp.05, replacement = "^"); jjep.60.1.28.rp15 <- str_replace_all(jjep.60.1.28.rp14, pattern = rp.06, replacement = "^"); jjep.60.1.28.mod <- rbind(varname,jjep.60.1.28.rp15); write(jjep.60.1.28.mod, file = "./jjep/Mod_60_1_28.txt")
jjep.60.1.48.tx <- readr::read_file(file="./jjep/60_1_48.txt"); jjep.60.1.48.rm00 <- jjep.60.1.48.tx; jjep.60.1.48.rm01 <- str_replace_all(jjep.60.1.48.rm00, pattern = rm.01, replacement = ""); jjep.60.1.48.rm02 <- str_replace_all(jjep.60.1.48.rm01, pattern = rm.02, replacement = "^"); jjep.60.1.48.rm03 <- str_replace_all(jjep.60.1.48.rm02, pattern = rm.03, replacement = ""); jjep.60.1.48.rm04 <- str_replace_all(jjep.60.1.48.rm03, pattern = rm.04, replacement = ""); jjep.60.1.48.rm05 <- str_replace_all(jjep.60.1.48.rm04, pattern = rm.05, replacement = ""); jjep.60.1.48.rm06 <- str_replace_all(jjep.60.1.48.rm05, pattern = rm.06, replacement = ""); jjep.60.1.48.rm07 <- str_replace_all(jjep.60.1.48.rm06, pattern = rm.07, replacement = ""); jjep.60.1.48.rm08 <- str_replace_all(jjep.60.1.48.rm07, pattern = rm.08, replacement = ""); jjep.60.1.48.rm09 <- str_replace_all(jjep.60.1.48.rm08, pattern = rm.09, replacement = ""); jjep.60.1.48.rp10 <- str_replace_all(jjep.60.1.48.rm09, pattern = rp.01, replacement = "・"); jjep.60.1.48.rp11 <- str_replace_all(jjep.60.1.48.rp10, pattern = rp.02, replacement = "^"); jjep.60.1.48.rp12 <- str_replace_all(jjep.60.1.48.rp11, pattern = rp.03, replacement = "^"); jjep.60.1.48.rp13 <- str_replace_all(jjep.60.1.48.rp12, pattern = rp.04, replacement = "^"); jjep.60.1.48.rp14 <- str_replace_all(jjep.60.1.48.rp13, pattern = rp.05, replacement = "^"); jjep.60.1.48.rp15 <- str_replace_all(jjep.60.1.48.rp14, pattern = rp.06, replacement = "^"); jjep.60.1.48.mod <- rbind(varname,jjep.60.1.48.rp15); write(jjep.60.1.48.mod, file = "./jjep/Mod_60_1_48.txt")
jjep.60.1.60.tx <- readr::read_file(file="./jjep/60_1_60.txt"); jjep.60.1.60.rm00 <- jjep.60.1.60.tx; jjep.60.1.60.rm01 <- str_replace_all(jjep.60.1.60.rm00, pattern = rm.01, replacement = ""); jjep.60.1.60.rm02 <- str_replace_all(jjep.60.1.60.rm01, pattern = rm.02, replacement = "^"); jjep.60.1.60.rm03 <- str_replace_all(jjep.60.1.60.rm02, pattern = rm.03, replacement = ""); jjep.60.1.60.rm04 <- str_replace_all(jjep.60.1.60.rm03, pattern = rm.04, replacement = ""); jjep.60.1.60.rm05 <- str_replace_all(jjep.60.1.60.rm04, pattern = rm.05, replacement = ""); jjep.60.1.60.rm06 <- str_replace_all(jjep.60.1.60.rm05, pattern = rm.06, replacement = ""); jjep.60.1.60.rm07 <- str_replace_all(jjep.60.1.60.rm06, pattern = rm.07, replacement = ""); jjep.60.1.60.rm08 <- str_replace_all(jjep.60.1.60.rm07, pattern = rm.08, replacement = ""); jjep.60.1.60.rm09 <- str_replace_all(jjep.60.1.60.rm08, pattern = rm.09, replacement = ""); jjep.60.1.60.rp10 <- str_replace_all(jjep.60.1.60.rm09, pattern = rp.01, replacement = "・"); jjep.60.1.60.rp11 <- str_replace_all(jjep.60.1.60.rp10, pattern = rp.02, replacement = "^"); jjep.60.1.60.rp12 <- str_replace_all(jjep.60.1.60.rp11, pattern = rp.03, replacement = "^"); jjep.60.1.60.rp13 <- str_replace_all(jjep.60.1.60.rp12, pattern = rp.04, replacement = "^"); jjep.60.1.60.rp14 <- str_replace_all(jjep.60.1.60.rp13, pattern = rp.05, replacement = "^"); jjep.60.1.60.rp15 <- str_replace_all(jjep.60.1.60.rp14, pattern = rp.06, replacement = "^"); jjep.60.1.60.mod <- rbind(varname,jjep.60.1.60.rp15); write(jjep.60.1.60.mod, file = "./jjep/Mod_60_1_60.txt")
jjep.60.1.70.tx <- readr::read_file(file="./jjep/60_1_70.txt"); jjep.60.1.70.rm00 <- jjep.60.1.70.tx; jjep.60.1.70.rm01 <- str_replace_all(jjep.60.1.70.rm00, pattern = rm.01, replacement = ""); jjep.60.1.70.rm02 <- str_replace_all(jjep.60.1.70.rm01, pattern = rm.02, replacement = "^"); jjep.60.1.70.rm03 <- str_replace_all(jjep.60.1.70.rm02, pattern = rm.03, replacement = ""); jjep.60.1.70.rm04 <- str_replace_all(jjep.60.1.70.rm03, pattern = rm.04, replacement = ""); jjep.60.1.70.rm05 <- str_replace_all(jjep.60.1.70.rm04, pattern = rm.05, replacement = ""); jjep.60.1.70.rm06 <- str_replace_all(jjep.60.1.70.rm05, pattern = rm.06, replacement = ""); jjep.60.1.70.rm07 <- str_replace_all(jjep.60.1.70.rm06, pattern = rm.07, replacement = ""); jjep.60.1.70.rm08 <- str_replace_all(jjep.60.1.70.rm07, pattern = rm.08, replacement = ""); jjep.60.1.70.rm09 <- str_replace_all(jjep.60.1.70.rm08, pattern = rm.09, replacement = ""); jjep.60.1.70.rp10 <- str_replace_all(jjep.60.1.70.rm09, pattern = rp.01, replacement = "・"); jjep.60.1.70.rp11 <- str_replace_all(jjep.60.1.70.rp10, pattern = rp.02, replacement = "^"); jjep.60.1.70.rp12 <- str_replace_all(jjep.60.1.70.rp11, pattern = rp.03, replacement = "^"); jjep.60.1.70.rp13 <- str_replace_all(jjep.60.1.70.rp12, pattern = rp.04, replacement = "^"); jjep.60.1.70.rp14 <- str_replace_all(jjep.60.1.70.rp13, pattern = rp.05, replacement = "^"); jjep.60.1.70.rp15 <- str_replace_all(jjep.60.1.70.rp14, pattern = rp.06, replacement = "^"); jjep.60.1.70.mod <- rbind(varname,jjep.60.1.70.rp15); write(jjep.60.1.70.mod, file = "./jjep/Mod_60_1_70.txt")
jjep.60.1.82.tx <- readr::read_file(file="./jjep/60_1_82.txt"); jjep.60.1.82.rm00 <- jjep.60.1.82.tx; jjep.60.1.82.rm01 <- str_replace_all(jjep.60.1.82.rm00, pattern = rm.01, replacement = ""); jjep.60.1.82.rm02 <- str_replace_all(jjep.60.1.82.rm01, pattern = rm.02, replacement = "^"); jjep.60.1.82.rm03 <- str_replace_all(jjep.60.1.82.rm02, pattern = rm.03, replacement = ""); jjep.60.1.82.rm04 <- str_replace_all(jjep.60.1.82.rm03, pattern = rm.04, replacement = ""); jjep.60.1.82.rm05 <- str_replace_all(jjep.60.1.82.rm04, pattern = rm.05, replacement = ""); jjep.60.1.82.rm06 <- str_replace_all(jjep.60.1.82.rm05, pattern = rm.06, replacement = ""); jjep.60.1.82.rm07 <- str_replace_all(jjep.60.1.82.rm06, pattern = rm.07, replacement = ""); jjep.60.1.82.rm08 <- str_replace_all(jjep.60.1.82.rm07, pattern = rm.08, replacement = ""); jjep.60.1.82.rm09 <- str_replace_all(jjep.60.1.82.rm08, pattern = rm.09, replacement = ""); jjep.60.1.82.rp10 <- str_replace_all(jjep.60.1.82.rm09, pattern = rp.01, replacement = "・"); jjep.60.1.82.rp11 <- str_replace_all(jjep.60.1.82.rp10, pattern = rp.02, replacement = "^"); jjep.60.1.82.rp12 <- str_replace_all(jjep.60.1.82.rp11, pattern = rp.03, replacement = "^"); jjep.60.1.82.rp13 <- str_replace_all(jjep.60.1.82.rp12, pattern = rp.04, replacement = "^"); jjep.60.1.82.rp14 <- str_replace_all(jjep.60.1.82.rp13, pattern = rp.05, replacement = "^"); jjep.60.1.82.rp15 <- str_replace_all(jjep.60.1.82.rp14, pattern = rp.06, replacement = "^"); jjep.60.1.82.mod <- rbind(varname,jjep.60.1.82.rp15); write(jjep.60.1.82.mod, file = "./jjep/Mod_60_1_82.txt")
jjep.60.1.92.tx <- readr::read_file(file="./jjep/60_1_92.txt"); jjep.60.1.92.rm00 <- jjep.60.1.92.tx; jjep.60.1.92.rm01 <- str_replace_all(jjep.60.1.92.rm00, pattern = rm.01, replacement = ""); jjep.60.1.92.rm02 <- str_replace_all(jjep.60.1.92.rm01, pattern = rm.02, replacement = "^"); jjep.60.1.92.rm03 <- str_replace_all(jjep.60.1.92.rm02, pattern = rm.03, replacement = ""); jjep.60.1.92.rm04 <- str_replace_all(jjep.60.1.92.rm03, pattern = rm.04, replacement = ""); jjep.60.1.92.rm05 <- str_replace_all(jjep.60.1.92.rm04, pattern = rm.05, replacement = ""); jjep.60.1.92.rm06 <- str_replace_all(jjep.60.1.92.rm05, pattern = rm.06, replacement = ""); jjep.60.1.92.rm07 <- str_replace_all(jjep.60.1.92.rm06, pattern = rm.07, replacement = ""); jjep.60.1.92.rm08 <- str_replace_all(jjep.60.1.92.rm07, pattern = rm.08, replacement = ""); jjep.60.1.92.rm09 <- str_replace_all(jjep.60.1.92.rm08, pattern = rm.09, replacement = ""); jjep.60.1.92.rp10 <- str_replace_all(jjep.60.1.92.rm09, pattern = rp.01, replacement = "・"); jjep.60.1.92.rp11 <- str_replace_all(jjep.60.1.92.rp10, pattern = rp.02, replacement = "^"); jjep.60.1.92.rp12 <- str_replace_all(jjep.60.1.92.rp11, pattern = rp.03, replacement = "^"); jjep.60.1.92.rp13 <- str_replace_all(jjep.60.1.92.rp12, pattern = rp.04, replacement = "^"); jjep.60.1.92.rp14 <- str_replace_all(jjep.60.1.92.rp13, pattern = rp.05, replacement = "^"); jjep.60.1.92.rp15 <- str_replace_all(jjep.60.1.92.rp14, pattern = rp.06, replacement = "^"); jjep.60.1.92.mod <- rbind(varname,jjep.60.1.92.rp15); write(jjep.60.1.92.mod, file = "./jjep/Mod_60_1_92.txt")
jjep.59.4.385.tx <- readr::read_file(file="./jjep/59_4_385.txt"); jjep.59.4.385.rm00 <- jjep.59.4.385.tx; jjep.59.4.385.rm01 <- str_replace_all(jjep.59.4.385.rm00, pattern = rm.01, replacement = ""); jjep.59.4.385.rm02 <- str_replace_all(jjep.59.4.385.rm01, pattern = rm.02, replacement = "^"); jjep.59.4.385.rm03 <- str_replace_all(jjep.59.4.385.rm02, pattern = rm.03, replacement = ""); jjep.59.4.385.rm04 <- str_replace_all(jjep.59.4.385.rm03, pattern = rm.04, replacement = ""); jjep.59.4.385.rm05 <- str_replace_all(jjep.59.4.385.rm04, pattern = rm.05, replacement = ""); jjep.59.4.385.rm06 <- str_replace_all(jjep.59.4.385.rm05, pattern = rm.06, replacement = ""); jjep.59.4.385.rm07 <- str_replace_all(jjep.59.4.385.rm06, pattern = rm.07, replacement = ""); jjep.59.4.385.rm08 <- str_replace_all(jjep.59.4.385.rm07, pattern = rm.08, replacement = ""); jjep.59.4.385.rm09 <- str_replace_all(jjep.59.4.385.rm08, pattern = rm.09, replacement = ""); jjep.59.4.385.rp10 <- str_replace_all(jjep.59.4.385.rm09, pattern = rp.01, replacement = "・"); jjep.59.4.385.rp11 <- str_replace_all(jjep.59.4.385.rp10, pattern = rp.02, replacement = "^"); jjep.59.4.385.rp12 <- str_replace_all(jjep.59.4.385.rp11, pattern = rp.03, replacement = "^"); jjep.59.4.385.rp13 <- str_replace_all(jjep.59.4.385.rp12, pattern = rp.04, replacement = "^"); jjep.59.4.385.rp14 <- str_replace_all(jjep.59.4.385.rp13, pattern = rp.05, replacement = "^"); jjep.59.4.385.rp15 <- str_replace_all(jjep.59.4.385.rp14, pattern = rp.06, replacement = "^"); jjep.59.4.385.mod <- rbind(varname,jjep.59.4.385.rp15); write(jjep.59.4.385.mod, file = "./jjep/Mod_59_4_385.txt")
jjep.59.4.402.tx <- readr::read_file(file="./jjep/59_4_402.txt"); jjep.59.4.402.rm00 <- jjep.59.4.402.tx; jjep.59.4.402.rm01 <- str_replace_all(jjep.59.4.402.rm00, pattern = rm.01, replacement = ""); jjep.59.4.402.rm02 <- str_replace_all(jjep.59.4.402.rm01, pattern = rm.02, replacement = "^"); jjep.59.4.402.rm03 <- str_replace_all(jjep.59.4.402.rm02, pattern = rm.03, replacement = ""); jjep.59.4.402.rm04 <- str_replace_all(jjep.59.4.402.rm03, pattern = rm.04, replacement = ""); jjep.59.4.402.rm05 <- str_replace_all(jjep.59.4.402.rm04, pattern = rm.05, replacement = ""); jjep.59.4.402.rm06 <- str_replace_all(jjep.59.4.402.rm05, pattern = rm.06, replacement = ""); jjep.59.4.402.rm07 <- str_replace_all(jjep.59.4.402.rm06, pattern = rm.07, replacement = ""); jjep.59.4.402.rm08 <- str_replace_all(jjep.59.4.402.rm07, pattern = rm.08, replacement = ""); jjep.59.4.402.rm09 <- str_replace_all(jjep.59.4.402.rm08, pattern = rm.09, replacement = ""); jjep.59.4.402.rp10 <- str_replace_all(jjep.59.4.402.rm09, pattern = rp.01, replacement = "・"); jjep.59.4.402.rp11 <- str_replace_all(jjep.59.4.402.rp10, pattern = rp.02, replacement = "^"); jjep.59.4.402.rp12 <- str_replace_all(jjep.59.4.402.rp11, pattern = rp.03, replacement = "^"); jjep.59.4.402.rp13 <- str_replace_all(jjep.59.4.402.rp12, pattern = rp.04, replacement = "^"); jjep.59.4.402.rp14 <- str_replace_all(jjep.59.4.402.rp13, pattern = rp.05, replacement = "^"); jjep.59.4.402.rp15 <- str_replace_all(jjep.59.4.402.rp14, pattern = rp.06, replacement = "^"); jjep.59.4.402.mod <- rbind(varname,jjep.59.4.402.rp15); write(jjep.59.4.402.mod, file = "./jjep/Mod_59_4_402.txt")
jjep.59.4.414.tx <- readr::read_file(file="./jjep/59_4_414.txt"); jjep.59.4.414.rm00 <- jjep.59.4.414.tx; jjep.59.4.414.rm01 <- str_replace_all(jjep.59.4.414.rm00, pattern = rm.01, replacement = ""); jjep.59.4.414.rm02 <- str_replace_all(jjep.59.4.414.rm01, pattern = rm.02, replacement = "^"); jjep.59.4.414.rm03 <- str_replace_all(jjep.59.4.414.rm02, pattern = rm.03, replacement = ""); jjep.59.4.414.rm04 <- str_replace_all(jjep.59.4.414.rm03, pattern = rm.04, replacement = ""); jjep.59.4.414.rm05 <- str_replace_all(jjep.59.4.414.rm04, pattern = rm.05, replacement = ""); jjep.59.4.414.rm06 <- str_replace_all(jjep.59.4.414.rm05, pattern = rm.06, replacement = ""); jjep.59.4.414.rm07 <- str_replace_all(jjep.59.4.414.rm06, pattern = rm.07, replacement = ""); jjep.59.4.414.rm08 <- str_replace_all(jjep.59.4.414.rm07, pattern = rm.08, replacement = ""); jjep.59.4.414.rm09 <- str_replace_all(jjep.59.4.414.rm08, pattern = rm.09, replacement = ""); jjep.59.4.414.rp10 <- str_replace_all(jjep.59.4.414.rm09, pattern = rp.01, replacement = "・"); jjep.59.4.414.rp11 <- str_replace_all(jjep.59.4.414.rp10, pattern = rp.02, replacement = "^"); jjep.59.4.414.rp12 <- str_replace_all(jjep.59.4.414.rp11, pattern = rp.03, replacement = "^"); jjep.59.4.414.rp13 <- str_replace_all(jjep.59.4.414.rp12, pattern = rp.04, replacement = "^"); jjep.59.4.414.rp14 <- str_replace_all(jjep.59.4.414.rp13, pattern = rp.05, replacement = "^"); jjep.59.4.414.rp15 <- str_replace_all(jjep.59.4.414.rp14, pattern = rp.06, replacement = "^"); jjep.59.4.414.mod <- rbind(varname,jjep.59.4.414.rp15); write(jjep.59.4.414.mod, file = "./jjep/Mod_59_4_414.txt")
jjep.59.4.427.tx <- readr::read_file(file="./jjep/59_4_427.txt"); jjep.59.4.427.rm00 <- jjep.59.4.427.tx; jjep.59.4.427.rm01 <- str_replace_all(jjep.59.4.427.rm00, pattern = rm.01, replacement = ""); jjep.59.4.427.rm02 <- str_replace_all(jjep.59.4.427.rm01, pattern = rm.02, replacement = "^"); jjep.59.4.427.rm03 <- str_replace_all(jjep.59.4.427.rm02, pattern = rm.03, replacement = ""); jjep.59.4.427.rm04 <- str_replace_all(jjep.59.4.427.rm03, pattern = rm.04, replacement = ""); jjep.59.4.427.rm05 <- str_replace_all(jjep.59.4.427.rm04, pattern = rm.05, replacement = ""); jjep.59.4.427.rm06 <- str_replace_all(jjep.59.4.427.rm05, pattern = rm.06, replacement = ""); jjep.59.4.427.rm07 <- str_replace_all(jjep.59.4.427.rm06, pattern = rm.07, replacement = ""); jjep.59.4.427.rm08 <- str_replace_all(jjep.59.4.427.rm07, pattern = rm.08, replacement = ""); jjep.59.4.427.rm09 <- str_replace_all(jjep.59.4.427.rm08, pattern = rm.09, replacement = ""); jjep.59.4.427.rp10 <- str_replace_all(jjep.59.4.427.rm09, pattern = rp.01, replacement = "・"); jjep.59.4.427.rp11 <- str_replace_all(jjep.59.4.427.rp10, pattern = rp.02, replacement = "^"); jjep.59.4.427.rp12 <- str_replace_all(jjep.59.4.427.rp11, pattern = rp.03, replacement = "^"); jjep.59.4.427.rp13 <- str_replace_all(jjep.59.4.427.rp12, pattern = rp.04, replacement = "^"); jjep.59.4.427.rp14 <- str_replace_all(jjep.59.4.427.rp13, pattern = rp.05, replacement = "^"); jjep.59.4.427.rp15 <- str_replace_all(jjep.59.4.427.rp14, pattern = rp.06, replacement = "^"); jjep.59.4.427.mod <- rbind(varname,jjep.59.4.427.rp15); write(jjep.59.4.427.mod, file = "./jjep/Mod_59_4_427.txt")
jjep.59.4.441.tx <- readr::read_file(file="./jjep/59_4_441.txt"); jjep.59.4.441.rm00 <- jjep.59.4.441.tx; jjep.59.4.441.rm01 <- str_replace_all(jjep.59.4.441.rm00, pattern = rm.01, replacement = ""); jjep.59.4.441.rm02 <- str_replace_all(jjep.59.4.441.rm01, pattern = rm.02, replacement = "^"); jjep.59.4.441.rm03 <- str_replace_all(jjep.59.4.441.rm02, pattern = rm.03, replacement = ""); jjep.59.4.441.rm04 <- str_replace_all(jjep.59.4.441.rm03, pattern = rm.04, replacement = ""); jjep.59.4.441.rm05 <- str_replace_all(jjep.59.4.441.rm04, pattern = rm.05, replacement = ""); jjep.59.4.441.rm06 <- str_replace_all(jjep.59.4.441.rm05, pattern = rm.06, replacement = ""); jjep.59.4.441.rm07 <- str_replace_all(jjep.59.4.441.rm06, pattern = rm.07, replacement = ""); jjep.59.4.441.rm08 <- str_replace_all(jjep.59.4.441.rm07, pattern = rm.08, replacement = ""); jjep.59.4.441.rm09 <- str_replace_all(jjep.59.4.441.rm08, pattern = rm.09, replacement = ""); jjep.59.4.441.rp10 <- str_replace_all(jjep.59.4.441.rm09, pattern = rp.01, replacement = "・"); jjep.59.4.441.rp11 <- str_replace_all(jjep.59.4.441.rp10, pattern = rp.02, replacement = "^"); jjep.59.4.441.rp12 <- str_replace_all(jjep.59.4.441.rp11, pattern = rp.03, replacement = "^"); jjep.59.4.441.rp13 <- str_replace_all(jjep.59.4.441.rp12, pattern = rp.04, replacement = "^"); jjep.59.4.441.rp14 <- str_replace_all(jjep.59.4.441.rp13, pattern = rp.05, replacement = "^"); jjep.59.4.441.rp15 <- str_replace_all(jjep.59.4.441.rp14, pattern = rp.06, replacement = "^"); jjep.59.4.441.mod <- rbind(varname,jjep.59.4.441.rp15); write(jjep.59.4.441.mod, file = "./jjep/Mod_59_4_441.txt")
jjep.59.4.450.tx <- readr::read_file(file="./jjep/59_4_450.txt"); jjep.59.4.450.rm00 <- jjep.59.4.450.tx; jjep.59.4.450.rm01 <- str_replace_all(jjep.59.4.450.rm00, pattern = rm.01, replacement = ""); jjep.59.4.450.rm02 <- str_replace_all(jjep.59.4.450.rm01, pattern = rm.02, replacement = "^"); jjep.59.4.450.rm03 <- str_replace_all(jjep.59.4.450.rm02, pattern = rm.03, replacement = ""); jjep.59.4.450.rm04 <- str_replace_all(jjep.59.4.450.rm03, pattern = rm.04, replacement = ""); jjep.59.4.450.rm05 <- str_replace_all(jjep.59.4.450.rm04, pattern = rm.05, replacement = ""); jjep.59.4.450.rm06 <- str_replace_all(jjep.59.4.450.rm05, pattern = rm.06, replacement = ""); jjep.59.4.450.rm07 <- str_replace_all(jjep.59.4.450.rm06, pattern = rm.07, replacement = ""); jjep.59.4.450.rm08 <- str_replace_all(jjep.59.4.450.rm07, pattern = rm.08, replacement = ""); jjep.59.4.450.rm09 <- str_replace_all(jjep.59.4.450.rm08, pattern = rm.09, replacement = ""); jjep.59.4.450.rp10 <- str_replace_all(jjep.59.4.450.rm09, pattern = rp.01, replacement = "・"); jjep.59.4.450.rp11 <- str_replace_all(jjep.59.4.450.rp10, pattern = rp.02, replacement = "^"); jjep.59.4.450.rp12 <- str_replace_all(jjep.59.4.450.rp11, pattern = rp.03, replacement = "^"); jjep.59.4.450.rp13 <- str_replace_all(jjep.59.4.450.rp12, pattern = rp.04, replacement = "^"); jjep.59.4.450.rp14 <- str_replace_all(jjep.59.4.450.rp13, pattern = rp.05, replacement = "^"); jjep.59.4.450.rp15 <- str_replace_all(jjep.59.4.450.rp14, pattern = rp.06, replacement = "^"); jjep.59.4.450.mod <- rbind(varname,jjep.59.4.450.rp15); write(jjep.59.4.450.mod, file = "./jjep/Mod_59_4_450.txt")
jjep.59.4.462.tx <- readr::read_file(file="./jjep/59_4_462.txt"); jjep.59.4.462.rm00 <- jjep.59.4.462.tx; jjep.59.4.462.rm01 <- str_replace_all(jjep.59.4.462.rm00, pattern = rm.01, replacement = ""); jjep.59.4.462.rm02 <- str_replace_all(jjep.59.4.462.rm01, pattern = rm.02, replacement = "^"); jjep.59.4.462.rm03 <- str_replace_all(jjep.59.4.462.rm02, pattern = rm.03, replacement = ""); jjep.59.4.462.rm04 <- str_replace_all(jjep.59.4.462.rm03, pattern = rm.04, replacement = ""); jjep.59.4.462.rm05 <- str_replace_all(jjep.59.4.462.rm04, pattern = rm.05, replacement = ""); jjep.59.4.462.rm06 <- str_replace_all(jjep.59.4.462.rm05, pattern = rm.06, replacement = ""); jjep.59.4.462.rm07 <- str_replace_all(jjep.59.4.462.rm06, pattern = rm.07, replacement = ""); jjep.59.4.462.rm08 <- str_replace_all(jjep.59.4.462.rm07, pattern = rm.08, replacement = ""); jjep.59.4.462.rm09 <- str_replace_all(jjep.59.4.462.rm08, pattern = rm.09, replacement = ""); jjep.59.4.462.rp10 <- str_replace_all(jjep.59.4.462.rm09, pattern = rp.01, replacement = "・"); jjep.59.4.462.rp11 <- str_replace_all(jjep.59.4.462.rp10, pattern = rp.02, replacement = "^"); jjep.59.4.462.rp12 <- str_replace_all(jjep.59.4.462.rp11, pattern = rp.03, replacement = "^"); jjep.59.4.462.rp13 <- str_replace_all(jjep.59.4.462.rp12, pattern = rp.04, replacement = "^"); jjep.59.4.462.rp14 <- str_replace_all(jjep.59.4.462.rp13, pattern = rp.05, replacement = "^"); jjep.59.4.462.rp15 <- str_replace_all(jjep.59.4.462.rp14, pattern = rp.06, replacement = "^"); jjep.59.4.462.mod <- rbind(varname,jjep.59.4.462.rp15); write(jjep.59.4.462.mod, file = "./jjep/Mod_59_4_462.txt")
jjep.59.4.474.tx <- readr::read_file(file="./jjep/59_4_474.txt"); jjep.59.4.474.rm00 <- jjep.59.4.474.tx; jjep.59.4.474.rm01 <- str_replace_all(jjep.59.4.474.rm00, pattern = rm.01, replacement = ""); jjep.59.4.474.rm02 <- str_replace_all(jjep.59.4.474.rm01, pattern = rm.02, replacement = "^"); jjep.59.4.474.rm03 <- str_replace_all(jjep.59.4.474.rm02, pattern = rm.03, replacement = ""); jjep.59.4.474.rm04 <- str_replace_all(jjep.59.4.474.rm03, pattern = rm.04, replacement = ""); jjep.59.4.474.rm05 <- str_replace_all(jjep.59.4.474.rm04, pattern = rm.05, replacement = ""); jjep.59.4.474.rm06 <- str_replace_all(jjep.59.4.474.rm05, pattern = rm.06, replacement = ""); jjep.59.4.474.rm07 <- str_replace_all(jjep.59.4.474.rm06, pattern = rm.07, replacement = ""); jjep.59.4.474.rm08 <- str_replace_all(jjep.59.4.474.rm07, pattern = rm.08, replacement = ""); jjep.59.4.474.rm09 <- str_replace_all(jjep.59.4.474.rm08, pattern = rm.09, replacement = ""); jjep.59.4.474.rp10 <- str_replace_all(jjep.59.4.474.rm09, pattern = rp.01, replacement = "・"); jjep.59.4.474.rp11 <- str_replace_all(jjep.59.4.474.rp10, pattern = rp.02, replacement = "^"); jjep.59.4.474.rp12 <- str_replace_all(jjep.59.4.474.rp11, pattern = rp.03, replacement = "^"); jjep.59.4.474.rp13 <- str_replace_all(jjep.59.4.474.rp12, pattern = rp.04, replacement = "^"); jjep.59.4.474.rp14 <- str_replace_all(jjep.59.4.474.rp13, pattern = rp.05, replacement = "^"); jjep.59.4.474.rp15 <- str_replace_all(jjep.59.4.474.rp14, pattern = rp.06, replacement = "^"); jjep.59.4.474.mod <- rbind(varname,jjep.59.4.474.rp15); write(jjep.59.4.474.mod, file = "./jjep/Mod_59_4_474.txt")
jjep.59.3.267.tx <- readr::read_file(file="./jjep/59_3_267.txt"); jjep.59.3.267.rm00 <- jjep.59.3.267.tx; jjep.59.3.267.rm01 <- str_replace_all(jjep.59.3.267.rm00, pattern = rm.01, replacement = ""); jjep.59.3.267.rm02 <- str_replace_all(jjep.59.3.267.rm01, pattern = rm.02, replacement = "^"); jjep.59.3.267.rm03 <- str_replace_all(jjep.59.3.267.rm02, pattern = rm.03, replacement = ""); jjep.59.3.267.rm04 <- str_replace_all(jjep.59.3.267.rm03, pattern = rm.04, replacement = ""); jjep.59.3.267.rm05 <- str_replace_all(jjep.59.3.267.rm04, pattern = rm.05, replacement = ""); jjep.59.3.267.rm06 <- str_replace_all(jjep.59.3.267.rm05, pattern = rm.06, replacement = ""); jjep.59.3.267.rm07 <- str_replace_all(jjep.59.3.267.rm06, pattern = rm.07, replacement = ""); jjep.59.3.267.rm08 <- str_replace_all(jjep.59.3.267.rm07, pattern = rm.08, replacement = ""); jjep.59.3.267.rm09 <- str_replace_all(jjep.59.3.267.rm08, pattern = rm.09, replacement = ""); jjep.59.3.267.rp10 <- str_replace_all(jjep.59.3.267.rm09, pattern = rp.01, replacement = "・"); jjep.59.3.267.rp11 <- str_replace_all(jjep.59.3.267.rp10, pattern = rp.02, replacement = "^"); jjep.59.3.267.rp12 <- str_replace_all(jjep.59.3.267.rp11, pattern = rp.03, replacement = "^"); jjep.59.3.267.rp13 <- str_replace_all(jjep.59.3.267.rp12, pattern = rp.04, replacement = "^"); jjep.59.3.267.rp14 <- str_replace_all(jjep.59.3.267.rp13, pattern = rp.05, replacement = "^"); jjep.59.3.267.rp15 <- str_replace_all(jjep.59.3.267.rp14, pattern = rp.06, replacement = "^"); jjep.59.3.267.mod <- rbind(varname,jjep.59.3.267.rp15); write(jjep.59.3.267.mod, file = "./jjep/Mod_59_3_267.txt")
jjep.59.3.278.tx <- readr::read_file(file="./jjep/59_3_278.txt"); jjep.59.3.278.rm00 <- jjep.59.3.278.tx; jjep.59.3.278.rm01 <- str_replace_all(jjep.59.3.278.rm00, pattern = rm.01, replacement = ""); jjep.59.3.278.rm02 <- str_replace_all(jjep.59.3.278.rm01, pattern = rm.02, replacement = "^"); jjep.59.3.278.rm03 <- str_replace_all(jjep.59.3.278.rm02, pattern = rm.03, replacement = ""); jjep.59.3.278.rm04 <- str_replace_all(jjep.59.3.278.rm03, pattern = rm.04, replacement = ""); jjep.59.3.278.rm05 <- str_replace_all(jjep.59.3.278.rm04, pattern = rm.05, replacement = ""); jjep.59.3.278.rm06 <- str_replace_all(jjep.59.3.278.rm05, pattern = rm.06, replacement = ""); jjep.59.3.278.rm07 <- str_replace_all(jjep.59.3.278.rm06, pattern = rm.07, replacement = ""); jjep.59.3.278.rm08 <- str_replace_all(jjep.59.3.278.rm07, pattern = rm.08, replacement = ""); jjep.59.3.278.rm09 <- str_replace_all(jjep.59.3.278.rm08, pattern = rm.09, replacement = ""); jjep.59.3.278.rp10 <- str_replace_all(jjep.59.3.278.rm09, pattern = rp.01, replacement = "・"); jjep.59.3.278.rp11 <- str_replace_all(jjep.59.3.278.rp10, pattern = rp.02, replacement = "^"); jjep.59.3.278.rp12 <- str_replace_all(jjep.59.3.278.rp11, pattern = rp.03, replacement = "^"); jjep.59.3.278.rp13 <- str_replace_all(jjep.59.3.278.rp12, pattern = rp.04, replacement = "^"); jjep.59.3.278.rp14 <- str_replace_all(jjep.59.3.278.rp13, pattern = rp.05, replacement = "^"); jjep.59.3.278.rp15 <- str_replace_all(jjep.59.3.278.rp14, pattern = rp.06, replacement = "^"); jjep.59.3.278.mod <- rbind(varname,jjep.59.3.278.rp15); write(jjep.59.3.278.mod, file = "./jjep/Mod_59_3_278.txt")
jjep.59.3.295.tx <- readr::read_file(file="./jjep/59_3_295.txt"); jjep.59.3.295.rm00 <- jjep.59.3.295.tx; jjep.59.3.295.rm01 <- str_replace_all(jjep.59.3.295.rm00, pattern = rm.01, replacement = ""); jjep.59.3.295.rm02 <- str_replace_all(jjep.59.3.295.rm01, pattern = rm.02, replacement = "^"); jjep.59.3.295.rm03 <- str_replace_all(jjep.59.3.295.rm02, pattern = rm.03, replacement = ""); jjep.59.3.295.rm04 <- str_replace_all(jjep.59.3.295.rm03, pattern = rm.04, replacement = ""); jjep.59.3.295.rm05 <- str_replace_all(jjep.59.3.295.rm04, pattern = rm.05, replacement = ""); jjep.59.3.295.rm06 <- str_replace_all(jjep.59.3.295.rm05, pattern = rm.06, replacement = ""); jjep.59.3.295.rm07 <- str_replace_all(jjep.59.3.295.rm06, pattern = rm.07, replacement = ""); jjep.59.3.295.rm08 <- str_replace_all(jjep.59.3.295.rm07, pattern = rm.08, replacement = ""); jjep.59.3.295.rm09 <- str_replace_all(jjep.59.3.295.rm08, pattern = rm.09, replacement = ""); jjep.59.3.295.rp10 <- str_replace_all(jjep.59.3.295.rm09, pattern = rp.01, replacement = "・"); jjep.59.3.295.rp11 <- str_replace_all(jjep.59.3.295.rp10, pattern = rp.02, replacement = "^"); jjep.59.3.295.rp12 <- str_replace_all(jjep.59.3.295.rp11, pattern = rp.03, replacement = "^"); jjep.59.3.295.rp13 <- str_replace_all(jjep.59.3.295.rp12, pattern = rp.04, replacement = "^"); jjep.59.3.295.rp14 <- str_replace_all(jjep.59.3.295.rp13, pattern = rp.05, replacement = "^"); jjep.59.3.295.rp15 <- str_replace_all(jjep.59.3.295.rp14, pattern = rp.06, replacement = "^"); jjep.59.3.295.mod <- rbind(varname,jjep.59.3.295.rp15); write(jjep.59.3.295.mod, file = "./jjep/Mod_59_3_295.txt")
jjep.59.3.306.tx <- readr::read_file(file="./jjep/59_3_306.txt"); jjep.59.3.306.rm00 <- jjep.59.3.306.tx; jjep.59.3.306.rm01 <- str_replace_all(jjep.59.3.306.rm00, pattern = rm.01, replacement = ""); jjep.59.3.306.rm02 <- str_replace_all(jjep.59.3.306.rm01, pattern = rm.02, replacement = "^"); jjep.59.3.306.rm03 <- str_replace_all(jjep.59.3.306.rm02, pattern = rm.03, replacement = ""); jjep.59.3.306.rm04 <- str_replace_all(jjep.59.3.306.rm03, pattern = rm.04, replacement = ""); jjep.59.3.306.rm05 <- str_replace_all(jjep.59.3.306.rm04, pattern = rm.05, replacement = ""); jjep.59.3.306.rm06 <- str_replace_all(jjep.59.3.306.rm05, pattern = rm.06, replacement = ""); jjep.59.3.306.rm07 <- str_replace_all(jjep.59.3.306.rm06, pattern = rm.07, replacement = ""); jjep.59.3.306.rm08 <- str_replace_all(jjep.59.3.306.rm07, pattern = rm.08, replacement = ""); jjep.59.3.306.rm09 <- str_replace_all(jjep.59.3.306.rm08, pattern = rm.09, replacement = ""); jjep.59.3.306.rp10 <- str_replace_all(jjep.59.3.306.rm09, pattern = rp.01, replacement = "・"); jjep.59.3.306.rp11 <- str_replace_all(jjep.59.3.306.rp10, pattern = rp.02, replacement = "^"); jjep.59.3.306.rp12 <- str_replace_all(jjep.59.3.306.rp11, pattern = rp.03, replacement = "^"); jjep.59.3.306.rp13 <- str_replace_all(jjep.59.3.306.rp12, pattern = rp.04, replacement = "^"); jjep.59.3.306.rp14 <- str_replace_all(jjep.59.3.306.rp13, pattern = rp.05, replacement = "^"); jjep.59.3.306.rp15 <- str_replace_all(jjep.59.3.306.rp14, pattern = rp.06, replacement = "^"); jjep.59.3.306.mod <- rbind(varname,jjep.59.3.306.rp15); write(jjep.59.3.306.mod, file = "./jjep/Mod_59_3_306.txt")
jjep.59.3.320.tx <- readr::read_file(file="./jjep/59_3_320.txt"); jjep.59.3.320.rm00 <- jjep.59.3.320.tx; jjep.59.3.320.rm01 <- str_replace_all(jjep.59.3.320.rm00, pattern = rm.01, replacement = ""); jjep.59.3.320.rm02 <- str_replace_all(jjep.59.3.320.rm01, pattern = rm.02, replacement = "^"); jjep.59.3.320.rm03 <- str_replace_all(jjep.59.3.320.rm02, pattern = rm.03, replacement = ""); jjep.59.3.320.rm04 <- str_replace_all(jjep.59.3.320.rm03, pattern = rm.04, replacement = ""); jjep.59.3.320.rm05 <- str_replace_all(jjep.59.3.320.rm04, pattern = rm.05, replacement = ""); jjep.59.3.320.rm06 <- str_replace_all(jjep.59.3.320.rm05, pattern = rm.06, replacement = ""); jjep.59.3.320.rm07 <- str_replace_all(jjep.59.3.320.rm06, pattern = rm.07, replacement = ""); jjep.59.3.320.rm08 <- str_replace_all(jjep.59.3.320.rm07, pattern = rm.08, replacement = ""); jjep.59.3.320.rm09 <- str_replace_all(jjep.59.3.320.rm08, pattern = rm.09, replacement = ""); jjep.59.3.320.rp10 <- str_replace_all(jjep.59.3.320.rm09, pattern = rp.01, replacement = "・"); jjep.59.3.320.rp11 <- str_replace_all(jjep.59.3.320.rp10, pattern = rp.02, replacement = "^"); jjep.59.3.320.rp12 <- str_replace_all(jjep.59.3.320.rp11, pattern = rp.03, replacement = "^"); jjep.59.3.320.rp13 <- str_replace_all(jjep.59.3.320.rp12, pattern = rp.04, replacement = "^"); jjep.59.3.320.rp14 <- str_replace_all(jjep.59.3.320.rp13, pattern = rp.05, replacement = "^"); jjep.59.3.320.rp15 <- str_replace_all(jjep.59.3.320.rp14, pattern = rp.06, replacement = "^"); jjep.59.3.320.mod <- rbind(varname,jjep.59.3.320.rp15); write(jjep.59.3.320.mod, file = "./jjep/Mod_59_3_320.txt")
jjep.59.3.330.tx <- readr::read_file(file="./jjep/59_3_330.txt"); jjep.59.3.330.rm00 <- jjep.59.3.330.tx; jjep.59.3.330.rm01 <- str_replace_all(jjep.59.3.330.rm00, pattern = rm.01, replacement = ""); jjep.59.3.330.rm02 <- str_replace_all(jjep.59.3.330.rm01, pattern = rm.02, replacement = "^"); jjep.59.3.330.rm03 <- str_replace_all(jjep.59.3.330.rm02, pattern = rm.03, replacement = ""); jjep.59.3.330.rm04 <- str_replace_all(jjep.59.3.330.rm03, pattern = rm.04, replacement = ""); jjep.59.3.330.rm05 <- str_replace_all(jjep.59.3.330.rm04, pattern = rm.05, replacement = ""); jjep.59.3.330.rm06 <- str_replace_all(jjep.59.3.330.rm05, pattern = rm.06, replacement = ""); jjep.59.3.330.rm07 <- str_replace_all(jjep.59.3.330.rm06, pattern = rm.07, replacement = ""); jjep.59.3.330.rm08 <- str_replace_all(jjep.59.3.330.rm07, pattern = rm.08, replacement = ""); jjep.59.3.330.rm09 <- str_replace_all(jjep.59.3.330.rm08, pattern = rm.09, replacement = ""); jjep.59.3.330.rp10 <- str_replace_all(jjep.59.3.330.rm09, pattern = rp.01, replacement = "・"); jjep.59.3.330.rp11 <- str_replace_all(jjep.59.3.330.rp10, pattern = rp.02, replacement = "^"); jjep.59.3.330.rp12 <- str_replace_all(jjep.59.3.330.rp11, pattern = rp.03, replacement = "^"); jjep.59.3.330.rp13 <- str_replace_all(jjep.59.3.330.rp12, pattern = rp.04, replacement = "^"); jjep.59.3.330.rp14 <- str_replace_all(jjep.59.3.330.rp13, pattern = rp.05, replacement = "^"); jjep.59.3.330.rp15 <- str_replace_all(jjep.59.3.330.rp14, pattern = rp.06, replacement = "^"); jjep.59.3.330.mod <- rbind(varname,jjep.59.3.330.rp15); write(jjep.59.3.330.mod, file = "./jjep/Mod_59_3_330.txt")
jjep.59.3.342.tx <- readr::read_file(file="./jjep/59_3_342.txt"); jjep.59.3.342.rm00 <- jjep.59.3.342.tx; jjep.59.3.342.rm01 <- str_replace_all(jjep.59.3.342.rm00, pattern = rm.01, replacement = ""); jjep.59.3.342.rm02 <- str_replace_all(jjep.59.3.342.rm01, pattern = rm.02, replacement = "^"); jjep.59.3.342.rm03 <- str_replace_all(jjep.59.3.342.rm02, pattern = rm.03, replacement = ""); jjep.59.3.342.rm04 <- str_replace_all(jjep.59.3.342.rm03, pattern = rm.04, replacement = ""); jjep.59.3.342.rm05 <- str_replace_all(jjep.59.3.342.rm04, pattern = rm.05, replacement = ""); jjep.59.3.342.rm06 <- str_replace_all(jjep.59.3.342.rm05, pattern = rm.06, replacement = ""); jjep.59.3.342.rm07 <- str_replace_all(jjep.59.3.342.rm06, pattern = rm.07, replacement = ""); jjep.59.3.342.rm08 <- str_replace_all(jjep.59.3.342.rm07, pattern = rm.08, replacement = ""); jjep.59.3.342.rm09 <- str_replace_all(jjep.59.3.342.rm08, pattern = rm.09, replacement = ""); jjep.59.3.342.rp10 <- str_replace_all(jjep.59.3.342.rm09, pattern = rp.01, replacement = "・"); jjep.59.3.342.rp11 <- str_replace_all(jjep.59.3.342.rp10, pattern = rp.02, replacement = "^"); jjep.59.3.342.rp12 <- str_replace_all(jjep.59.3.342.rp11, pattern = rp.03, replacement = "^"); jjep.59.3.342.rp13 <- str_replace_all(jjep.59.3.342.rp12, pattern = rp.04, replacement = "^"); jjep.59.3.342.rp14 <- str_replace_all(jjep.59.3.342.rp13, pattern = rp.05, replacement = "^"); jjep.59.3.342.rp15 <- str_replace_all(jjep.59.3.342.rp14, pattern = rp.06, replacement = "^"); jjep.59.3.342.mod <- rbind(varname,jjep.59.3.342.rp15); write(jjep.59.3.342.mod, file = "./jjep/Mod_59_3_342.txt")
jjep.59.3.355.tx <- readr::read_file(file="./jjep/59_3_355.txt"); jjep.59.3.355.rm00 <- jjep.59.3.355.tx; jjep.59.3.355.rm01 <- str_replace_all(jjep.59.3.355.rm00, pattern = rm.01, replacement = ""); jjep.59.3.355.rm02 <- str_replace_all(jjep.59.3.355.rm01, pattern = rm.02, replacement = "^"); jjep.59.3.355.rm03 <- str_replace_all(jjep.59.3.355.rm02, pattern = rm.03, replacement = ""); jjep.59.3.355.rm04 <- str_replace_all(jjep.59.3.355.rm03, pattern = rm.04, replacement = ""); jjep.59.3.355.rm05 <- str_replace_all(jjep.59.3.355.rm04, pattern = rm.05, replacement = ""); jjep.59.3.355.rm06 <- str_replace_all(jjep.59.3.355.rm05, pattern = rm.06, replacement = ""); jjep.59.3.355.rm07 <- str_replace_all(jjep.59.3.355.rm06, pattern = rm.07, replacement = ""); jjep.59.3.355.rm08 <- str_replace_all(jjep.59.3.355.rm07, pattern = rm.08, replacement = ""); jjep.59.3.355.rm09 <- str_replace_all(jjep.59.3.355.rm08, pattern = rm.09, replacement = ""); jjep.59.3.355.rp10 <- str_replace_all(jjep.59.3.355.rm09, pattern = rp.01, replacement = "・"); jjep.59.3.355.rp11 <- str_replace_all(jjep.59.3.355.rp10, pattern = rp.02, replacement = "^"); jjep.59.3.355.rp12 <- str_replace_all(jjep.59.3.355.rp11, pattern = rp.03, replacement = "^"); jjep.59.3.355.rp13 <- str_replace_all(jjep.59.3.355.rp12, pattern = rp.04, replacement = "^"); jjep.59.3.355.rp14 <- str_replace_all(jjep.59.3.355.rp13, pattern = rp.05, replacement = "^"); jjep.59.3.355.rp15 <- str_replace_all(jjep.59.3.355.rp14, pattern = rp.06, replacement = "^"); jjep.59.3.355.mod <- rbind(varname,jjep.59.3.355.rp15); write(jjep.59.3.355.mod, file = "./jjep/Mod_59_3_355.txt")
jjep.59.2.131.tx <- readr::read_file(file="./jjep/59_2_131.txt"); jjep.59.2.131.rm00 <- jjep.59.2.131.tx; jjep.59.2.131.rm01 <- str_replace_all(jjep.59.2.131.rm00, pattern = rm.01, replacement = ""); jjep.59.2.131.rm02 <- str_replace_all(jjep.59.2.131.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.131.rm03 <- str_replace_all(jjep.59.2.131.rm02, pattern = rm.03, replacement = ""); jjep.59.2.131.rm04 <- str_replace_all(jjep.59.2.131.rm03, pattern = rm.04, replacement = ""); jjep.59.2.131.rm05 <- str_replace_all(jjep.59.2.131.rm04, pattern = rm.05, replacement = ""); jjep.59.2.131.rm06 <- str_replace_all(jjep.59.2.131.rm05, pattern = rm.06, replacement = ""); jjep.59.2.131.rm07 <- str_replace_all(jjep.59.2.131.rm06, pattern = rm.07, replacement = ""); jjep.59.2.131.rm08 <- str_replace_all(jjep.59.2.131.rm07, pattern = rm.08, replacement = ""); jjep.59.2.131.rm09 <- str_replace_all(jjep.59.2.131.rm08, pattern = rm.09, replacement = ""); jjep.59.2.131.rp10 <- str_replace_all(jjep.59.2.131.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.131.rp11 <- str_replace_all(jjep.59.2.131.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.131.rp12 <- str_replace_all(jjep.59.2.131.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.131.rp13 <- str_replace_all(jjep.59.2.131.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.131.rp14 <- str_replace_all(jjep.59.2.131.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.131.rp15 <- str_replace_all(jjep.59.2.131.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.131.mod <- rbind(varname,jjep.59.2.131.rp15); write(jjep.59.2.131.mod, file = "./jjep/Mod_59_2_131.txt")
jjep.59.2.144.tx <- readr::read_file(file="./jjep/59_2_144.txt"); jjep.59.2.144.rm00 <- jjep.59.2.144.tx; jjep.59.2.144.rm01 <- str_replace_all(jjep.59.2.144.rm00, pattern = rm.01, replacement = ""); jjep.59.2.144.rm02 <- str_replace_all(jjep.59.2.144.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.144.rm03 <- str_replace_all(jjep.59.2.144.rm02, pattern = rm.03, replacement = ""); jjep.59.2.144.rm04 <- str_replace_all(jjep.59.2.144.rm03, pattern = rm.04, replacement = ""); jjep.59.2.144.rm05 <- str_replace_all(jjep.59.2.144.rm04, pattern = rm.05, replacement = ""); jjep.59.2.144.rm06 <- str_replace_all(jjep.59.2.144.rm05, pattern = rm.06, replacement = ""); jjep.59.2.144.rm07 <- str_replace_all(jjep.59.2.144.rm06, pattern = rm.07, replacement = ""); jjep.59.2.144.rm08 <- str_replace_all(jjep.59.2.144.rm07, pattern = rm.08, replacement = ""); jjep.59.2.144.rm09 <- str_replace_all(jjep.59.2.144.rm08, pattern = rm.09, replacement = ""); jjep.59.2.144.rp10 <- str_replace_all(jjep.59.2.144.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.144.rp11 <- str_replace_all(jjep.59.2.144.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.144.rp12 <- str_replace_all(jjep.59.2.144.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.144.rp13 <- str_replace_all(jjep.59.2.144.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.144.rp14 <- str_replace_all(jjep.59.2.144.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.144.rp15 <- str_replace_all(jjep.59.2.144.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.144.mod <- rbind(varname,jjep.59.2.144.rp15); write(jjep.59.2.144.mod, file = "./jjep/Mod_59_2_144.txt")
jjep.59.2.155.tx <- readr::read_file(file="./jjep/59_2_155.txt"); jjep.59.2.155.rm00 <- jjep.59.2.155.tx; jjep.59.2.155.rm01 <- str_replace_all(jjep.59.2.155.rm00, pattern = rm.01, replacement = ""); jjep.59.2.155.rm02 <- str_replace_all(jjep.59.2.155.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.155.rm03 <- str_replace_all(jjep.59.2.155.rm02, pattern = rm.03, replacement = ""); jjep.59.2.155.rm04 <- str_replace_all(jjep.59.2.155.rm03, pattern = rm.04, replacement = ""); jjep.59.2.155.rm05 <- str_replace_all(jjep.59.2.155.rm04, pattern = rm.05, replacement = ""); jjep.59.2.155.rm06 <- str_replace_all(jjep.59.2.155.rm05, pattern = rm.06, replacement = ""); jjep.59.2.155.rm07 <- str_replace_all(jjep.59.2.155.rm06, pattern = rm.07, replacement = ""); jjep.59.2.155.rm08 <- str_replace_all(jjep.59.2.155.rm07, pattern = rm.08, replacement = ""); jjep.59.2.155.rm09 <- str_replace_all(jjep.59.2.155.rm08, pattern = rm.09, replacement = ""); jjep.59.2.155.rp10 <- str_replace_all(jjep.59.2.155.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.155.rp11 <- str_replace_all(jjep.59.2.155.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.155.rp12 <- str_replace_all(jjep.59.2.155.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.155.rp13 <- str_replace_all(jjep.59.2.155.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.155.rp14 <- str_replace_all(jjep.59.2.155.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.155.rp15 <- str_replace_all(jjep.59.2.155.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.155.mod <- rbind(varname,jjep.59.2.155.rp15); write(jjep.59.2.155.mod, file = "./jjep/Mod_59_2_155.txt")
jjep.59.2.168.tx <- readr::read_file(file="./jjep/59_2_168.txt"); jjep.59.2.168.rm00 <- jjep.59.2.168.tx; jjep.59.2.168.rm01 <- str_replace_all(jjep.59.2.168.rm00, pattern = rm.01, replacement = ""); jjep.59.2.168.rm02 <- str_replace_all(jjep.59.2.168.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.168.rm03 <- str_replace_all(jjep.59.2.168.rm02, pattern = rm.03, replacement = ""); jjep.59.2.168.rm04 <- str_replace_all(jjep.59.2.168.rm03, pattern = rm.04, replacement = ""); jjep.59.2.168.rm05 <- str_replace_all(jjep.59.2.168.rm04, pattern = rm.05, replacement = ""); jjep.59.2.168.rm06 <- str_replace_all(jjep.59.2.168.rm05, pattern = rm.06, replacement = ""); jjep.59.2.168.rm07 <- str_replace_all(jjep.59.2.168.rm06, pattern = rm.07, replacement = ""); jjep.59.2.168.rm08 <- str_replace_all(jjep.59.2.168.rm07, pattern = rm.08, replacement = ""); jjep.59.2.168.rm09 <- str_replace_all(jjep.59.2.168.rm08, pattern = rm.09, replacement = ""); jjep.59.2.168.rp10 <- str_replace_all(jjep.59.2.168.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.168.rp11 <- str_replace_all(jjep.59.2.168.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.168.rp12 <- str_replace_all(jjep.59.2.168.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.168.rp13 <- str_replace_all(jjep.59.2.168.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.168.rp14 <- str_replace_all(jjep.59.2.168.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.168.rp15 <- str_replace_all(jjep.59.2.168.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.168.mod <- rbind(varname,jjep.59.2.168.rp15); write(jjep.59.2.168.mod, file = "./jjep/Mod_59_2_168.txt")
jjep.59.2.179.tx <- readr::read_file(file="./jjep/59_2_179.txt"); jjep.59.2.179.rm00 <- jjep.59.2.179.tx; jjep.59.2.179.rm01 <- str_replace_all(jjep.59.2.179.rm00, pattern = rm.01, replacement = ""); jjep.59.2.179.rm02 <- str_replace_all(jjep.59.2.179.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.179.rm03 <- str_replace_all(jjep.59.2.179.rm02, pattern = rm.03, replacement = ""); jjep.59.2.179.rm04 <- str_replace_all(jjep.59.2.179.rm03, pattern = rm.04, replacement = ""); jjep.59.2.179.rm05 <- str_replace_all(jjep.59.2.179.rm04, pattern = rm.05, replacement = ""); jjep.59.2.179.rm06 <- str_replace_all(jjep.59.2.179.rm05, pattern = rm.06, replacement = ""); jjep.59.2.179.rm07 <- str_replace_all(jjep.59.2.179.rm06, pattern = rm.07, replacement = ""); jjep.59.2.179.rm08 <- str_replace_all(jjep.59.2.179.rm07, pattern = rm.08, replacement = ""); jjep.59.2.179.rm09 <- str_replace_all(jjep.59.2.179.rm08, pattern = rm.09, replacement = ""); jjep.59.2.179.rp10 <- str_replace_all(jjep.59.2.179.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.179.rp11 <- str_replace_all(jjep.59.2.179.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.179.rp12 <- str_replace_all(jjep.59.2.179.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.179.rp13 <- str_replace_all(jjep.59.2.179.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.179.rp14 <- str_replace_all(jjep.59.2.179.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.179.rp15 <- str_replace_all(jjep.59.2.179.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.179.mod <- rbind(varname,jjep.59.2.179.rp15); write(jjep.59.2.179.mod, file = "./jjep/Mod_59_2_179.txt")
jjep.59.2.193.tx <- readr::read_file(file="./jjep/59_2_193.txt"); jjep.59.2.193.rm00 <- jjep.59.2.193.tx; jjep.59.2.193.rm01 <- str_replace_all(jjep.59.2.193.rm00, pattern = rm.01, replacement = ""); jjep.59.2.193.rm02 <- str_replace_all(jjep.59.2.193.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.193.rm03 <- str_replace_all(jjep.59.2.193.rm02, pattern = rm.03, replacement = ""); jjep.59.2.193.rm04 <- str_replace_all(jjep.59.2.193.rm03, pattern = rm.04, replacement = ""); jjep.59.2.193.rm05 <- str_replace_all(jjep.59.2.193.rm04, pattern = rm.05, replacement = ""); jjep.59.2.193.rm06 <- str_replace_all(jjep.59.2.193.rm05, pattern = rm.06, replacement = ""); jjep.59.2.193.rm07 <- str_replace_all(jjep.59.2.193.rm06, pattern = rm.07, replacement = ""); jjep.59.2.193.rm08 <- str_replace_all(jjep.59.2.193.rm07, pattern = rm.08, replacement = ""); jjep.59.2.193.rm09 <- str_replace_all(jjep.59.2.193.rm08, pattern = rm.09, replacement = ""); jjep.59.2.193.rp10 <- str_replace_all(jjep.59.2.193.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.193.rp11 <- str_replace_all(jjep.59.2.193.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.193.rp12 <- str_replace_all(jjep.59.2.193.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.193.rp13 <- str_replace_all(jjep.59.2.193.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.193.rp14 <- str_replace_all(jjep.59.2.193.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.193.rp15 <- str_replace_all(jjep.59.2.193.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.193.mod <- rbind(varname,jjep.59.2.193.rp15); write(jjep.59.2.193.mod, file = "./jjep/Mod_59_2_193.txt")
jjep.59.2.206.tx <- readr::read_file(file="./jjep/59_2_206.txt"); jjep.59.2.206.rm00 <- jjep.59.2.206.tx; jjep.59.2.206.rm01 <- str_replace_all(jjep.59.2.206.rm00, pattern = rm.01, replacement = ""); jjep.59.2.206.rm02 <- str_replace_all(jjep.59.2.206.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.206.rm03 <- str_replace_all(jjep.59.2.206.rm02, pattern = rm.03, replacement = ""); jjep.59.2.206.rm04 <- str_replace_all(jjep.59.2.206.rm03, pattern = rm.04, replacement = ""); jjep.59.2.206.rm05 <- str_replace_all(jjep.59.2.206.rm04, pattern = rm.05, replacement = ""); jjep.59.2.206.rm06 <- str_replace_all(jjep.59.2.206.rm05, pattern = rm.06, replacement = ""); jjep.59.2.206.rm07 <- str_replace_all(jjep.59.2.206.rm06, pattern = rm.07, replacement = ""); jjep.59.2.206.rm08 <- str_replace_all(jjep.59.2.206.rm07, pattern = rm.08, replacement = ""); jjep.59.2.206.rm09 <- str_replace_all(jjep.59.2.206.rm08, pattern = rm.09, replacement = ""); jjep.59.2.206.rp10 <- str_replace_all(jjep.59.2.206.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.206.rp11 <- str_replace_all(jjep.59.2.206.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.206.rp12 <- str_replace_all(jjep.59.2.206.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.206.rp13 <- str_replace_all(jjep.59.2.206.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.206.rp14 <- str_replace_all(jjep.59.2.206.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.206.rp15 <- str_replace_all(jjep.59.2.206.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.206.mod <- rbind(varname,jjep.59.2.206.rp15); write(jjep.59.2.206.mod, file = "./jjep/Mod_59_2_206.txt")
jjep.59.2.219.tx <- readr::read_file(file="./jjep/59_2_219.txt"); jjep.59.2.219.rm00 <- jjep.59.2.219.tx; jjep.59.2.219.rm01 <- str_replace_all(jjep.59.2.219.rm00, pattern = rm.01, replacement = ""); jjep.59.2.219.rm02 <- str_replace_all(jjep.59.2.219.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.219.rm03 <- str_replace_all(jjep.59.2.219.rm02, pattern = rm.03, replacement = ""); jjep.59.2.219.rm04 <- str_replace_all(jjep.59.2.219.rm03, pattern = rm.04, replacement = ""); jjep.59.2.219.rm05 <- str_replace_all(jjep.59.2.219.rm04, pattern = rm.05, replacement = ""); jjep.59.2.219.rm06 <- str_replace_all(jjep.59.2.219.rm05, pattern = rm.06, replacement = ""); jjep.59.2.219.rm07 <- str_replace_all(jjep.59.2.219.rm06, pattern = rm.07, replacement = ""); jjep.59.2.219.rm08 <- str_replace_all(jjep.59.2.219.rm07, pattern = rm.08, replacement = ""); jjep.59.2.219.rm09 <- str_replace_all(jjep.59.2.219.rm08, pattern = rm.09, replacement = ""); jjep.59.2.219.rp10 <- str_replace_all(jjep.59.2.219.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.219.rp11 <- str_replace_all(jjep.59.2.219.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.219.rp12 <- str_replace_all(jjep.59.2.219.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.219.rp13 <- str_replace_all(jjep.59.2.219.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.219.rp14 <- str_replace_all(jjep.59.2.219.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.219.rp15 <- str_replace_all(jjep.59.2.219.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.219.mod <- rbind(varname,jjep.59.2.219.rp15); write(jjep.59.2.219.mod, file = "./jjep/Mod_59_2_219.txt")
jjep.59.2.231.tx <- readr::read_file(file="./jjep/59_2_231.txt"); jjep.59.2.231.rm00 <- jjep.59.2.231.tx; jjep.59.2.231.rm01 <- str_replace_all(jjep.59.2.231.rm00, pattern = rm.01, replacement = ""); jjep.59.2.231.rm02 <- str_replace_all(jjep.59.2.231.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.231.rm03 <- str_replace_all(jjep.59.2.231.rm02, pattern = rm.03, replacement = ""); jjep.59.2.231.rm04 <- str_replace_all(jjep.59.2.231.rm03, pattern = rm.04, replacement = ""); jjep.59.2.231.rm05 <- str_replace_all(jjep.59.2.231.rm04, pattern = rm.05, replacement = ""); jjep.59.2.231.rm06 <- str_replace_all(jjep.59.2.231.rm05, pattern = rm.06, replacement = ""); jjep.59.2.231.rm07 <- str_replace_all(jjep.59.2.231.rm06, pattern = rm.07, replacement = ""); jjep.59.2.231.rm08 <- str_replace_all(jjep.59.2.231.rm07, pattern = rm.08, replacement = ""); jjep.59.2.231.rm09 <- str_replace_all(jjep.59.2.231.rm08, pattern = rm.09, replacement = ""); jjep.59.2.231.rp10 <- str_replace_all(jjep.59.2.231.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.231.rp11 <- str_replace_all(jjep.59.2.231.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.231.rp12 <- str_replace_all(jjep.59.2.231.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.231.rp13 <- str_replace_all(jjep.59.2.231.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.231.rp14 <- str_replace_all(jjep.59.2.231.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.231.rp15 <- str_replace_all(jjep.59.2.231.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.231.mod <- rbind(varname,jjep.59.2.231.rp15); write(jjep.59.2.231.mod, file = "./jjep/Mod_59_2_231.txt")
jjep.59.2.244.tx <- readr::read_file(file="./jjep/59_2_244.txt"); jjep.59.2.244.rm00 <- jjep.59.2.244.tx; jjep.59.2.244.rm01 <- str_replace_all(jjep.59.2.244.rm00, pattern = rm.01, replacement = ""); jjep.59.2.244.rm02 <- str_replace_all(jjep.59.2.244.rm01, pattern = rm.02, replacement = "^"); jjep.59.2.244.rm03 <- str_replace_all(jjep.59.2.244.rm02, pattern = rm.03, replacement = ""); jjep.59.2.244.rm04 <- str_replace_all(jjep.59.2.244.rm03, pattern = rm.04, replacement = ""); jjep.59.2.244.rm05 <- str_replace_all(jjep.59.2.244.rm04, pattern = rm.05, replacement = ""); jjep.59.2.244.rm06 <- str_replace_all(jjep.59.2.244.rm05, pattern = rm.06, replacement = ""); jjep.59.2.244.rm07 <- str_replace_all(jjep.59.2.244.rm06, pattern = rm.07, replacement = ""); jjep.59.2.244.rm08 <- str_replace_all(jjep.59.2.244.rm07, pattern = rm.08, replacement = ""); jjep.59.2.244.rm09 <- str_replace_all(jjep.59.2.244.rm08, pattern = rm.09, replacement = ""); jjep.59.2.244.rp10 <- str_replace_all(jjep.59.2.244.rm09, pattern = rp.01, replacement = "・"); jjep.59.2.244.rp11 <- str_replace_all(jjep.59.2.244.rp10, pattern = rp.02, replacement = "^"); jjep.59.2.244.rp12 <- str_replace_all(jjep.59.2.244.rp11, pattern = rp.03, replacement = "^"); jjep.59.2.244.rp13 <- str_replace_all(jjep.59.2.244.rp12, pattern = rp.04, replacement = "^"); jjep.59.2.244.rp14 <- str_replace_all(jjep.59.2.244.rp13, pattern = rp.05, replacement = "^"); jjep.59.2.244.rp15 <- str_replace_all(jjep.59.2.244.rp14, pattern = rp.06, replacement = "^"); jjep.59.2.244.mod <- rbind(varname,jjep.59.2.244.rp15); write(jjep.59.2.244.mod, file = "./jjep/Mod_59_2_244.txt")
jjep.59.1.1.tx <- readr::read_file(file="./jjep/59_1_1.txt"); jjep.59.1.1.rm00 <- jjep.59.1.1.tx; jjep.59.1.1.rm01 <- str_replace_all(jjep.59.1.1.rm00, pattern = rm.01, replacement = ""); jjep.59.1.1.rm02 <- str_replace_all(jjep.59.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.1.rm03 <- str_replace_all(jjep.59.1.1.rm02, pattern = rm.03, replacement = ""); jjep.59.1.1.rm04 <- str_replace_all(jjep.59.1.1.rm03, pattern = rm.04, replacement = ""); jjep.59.1.1.rm05 <- str_replace_all(jjep.59.1.1.rm04, pattern = rm.05, replacement = ""); jjep.59.1.1.rm06 <- str_replace_all(jjep.59.1.1.rm05, pattern = rm.06, replacement = ""); jjep.59.1.1.rm07 <- str_replace_all(jjep.59.1.1.rm06, pattern = rm.07, replacement = ""); jjep.59.1.1.rm08 <- str_replace_all(jjep.59.1.1.rm07, pattern = rm.08, replacement = ""); jjep.59.1.1.rm09 <- str_replace_all(jjep.59.1.1.rm08, pattern = rm.09, replacement = ""); jjep.59.1.1.rp10 <- str_replace_all(jjep.59.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.1.rp11 <- str_replace_all(jjep.59.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.1.rp12 <- str_replace_all(jjep.59.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.1.rp13 <- str_replace_all(jjep.59.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.1.rp14 <- str_replace_all(jjep.59.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.1.rp15 <- str_replace_all(jjep.59.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.1.mod <- rbind(varname,jjep.59.1.1.rp15); write(jjep.59.1.1.mod, file = "./jjep/Mod_59_1_1.txt")
jjep.59.1.13.tx <- readr::read_file(file="./jjep/59_1_13.txt"); jjep.59.1.13.rm00 <- jjep.59.1.13.tx; jjep.59.1.13.rm01 <- str_replace_all(jjep.59.1.13.rm00, pattern = rm.01, replacement = ""); jjep.59.1.13.rm02 <- str_replace_all(jjep.59.1.13.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.13.rm03 <- str_replace_all(jjep.59.1.13.rm02, pattern = rm.03, replacement = ""); jjep.59.1.13.rm04 <- str_replace_all(jjep.59.1.13.rm03, pattern = rm.04, replacement = ""); jjep.59.1.13.rm05 <- str_replace_all(jjep.59.1.13.rm04, pattern = rm.05, replacement = ""); jjep.59.1.13.rm06 <- str_replace_all(jjep.59.1.13.rm05, pattern = rm.06, replacement = ""); jjep.59.1.13.rm07 <- str_replace_all(jjep.59.1.13.rm06, pattern = rm.07, replacement = ""); jjep.59.1.13.rm08 <- str_replace_all(jjep.59.1.13.rm07, pattern = rm.08, replacement = ""); jjep.59.1.13.rm09 <- str_replace_all(jjep.59.1.13.rm08, pattern = rm.09, replacement = ""); jjep.59.1.13.rp10 <- str_replace_all(jjep.59.1.13.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.13.rp11 <- str_replace_all(jjep.59.1.13.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.13.rp12 <- str_replace_all(jjep.59.1.13.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.13.rp13 <- str_replace_all(jjep.59.1.13.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.13.rp14 <- str_replace_all(jjep.59.1.13.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.13.rp15 <- str_replace_all(jjep.59.1.13.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.13.mod <- rbind(varname,jjep.59.1.13.rp15); write(jjep.59.1.13.mod, file = "./jjep/Mod_59_1_13.txt")
jjep.59.1.27.tx <- readr::read_file(file="./jjep/59_1_27.txt"); jjep.59.1.27.rm00 <- jjep.59.1.27.tx; jjep.59.1.27.rm01 <- str_replace_all(jjep.59.1.27.rm00, pattern = rm.01, replacement = ""); jjep.59.1.27.rm02 <- str_replace_all(jjep.59.1.27.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.27.rm03 <- str_replace_all(jjep.59.1.27.rm02, pattern = rm.03, replacement = ""); jjep.59.1.27.rm04 <- str_replace_all(jjep.59.1.27.rm03, pattern = rm.04, replacement = ""); jjep.59.1.27.rm05 <- str_replace_all(jjep.59.1.27.rm04, pattern = rm.05, replacement = ""); jjep.59.1.27.rm06 <- str_replace_all(jjep.59.1.27.rm05, pattern = rm.06, replacement = ""); jjep.59.1.27.rm07 <- str_replace_all(jjep.59.1.27.rm06, pattern = rm.07, replacement = ""); jjep.59.1.27.rm08 <- str_replace_all(jjep.59.1.27.rm07, pattern = rm.08, replacement = ""); jjep.59.1.27.rm09 <- str_replace_all(jjep.59.1.27.rm08, pattern = rm.09, replacement = ""); jjep.59.1.27.rp10 <- str_replace_all(jjep.59.1.27.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.27.rp11 <- str_replace_all(jjep.59.1.27.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.27.rp12 <- str_replace_all(jjep.59.1.27.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.27.rp13 <- str_replace_all(jjep.59.1.27.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.27.rp14 <- str_replace_all(jjep.59.1.27.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.27.rp15 <- str_replace_all(jjep.59.1.27.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.27.mod <- rbind(varname,jjep.59.1.27.rp15); write(jjep.59.1.27.mod, file = "./jjep/Mod_59_1_27.txt")
jjep.59.1.39.tx <- readr::read_file(file="./jjep/59_1_39.txt"); jjep.59.1.39.rm00 <- jjep.59.1.39.tx; jjep.59.1.39.rm01 <- str_replace_all(jjep.59.1.39.rm00, pattern = rm.01, replacement = ""); jjep.59.1.39.rm02 <- str_replace_all(jjep.59.1.39.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.39.rm03 <- str_replace_all(jjep.59.1.39.rm02, pattern = rm.03, replacement = ""); jjep.59.1.39.rm04 <- str_replace_all(jjep.59.1.39.rm03, pattern = rm.04, replacement = ""); jjep.59.1.39.rm05 <- str_replace_all(jjep.59.1.39.rm04, pattern = rm.05, replacement = ""); jjep.59.1.39.rm06 <- str_replace_all(jjep.59.1.39.rm05, pattern = rm.06, replacement = ""); jjep.59.1.39.rm07 <- str_replace_all(jjep.59.1.39.rm06, pattern = rm.07, replacement = ""); jjep.59.1.39.rm08 <- str_replace_all(jjep.59.1.39.rm07, pattern = rm.08, replacement = ""); jjep.59.1.39.rm09 <- str_replace_all(jjep.59.1.39.rm08, pattern = rm.09, replacement = ""); jjep.59.1.39.rp10 <- str_replace_all(jjep.59.1.39.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.39.rp11 <- str_replace_all(jjep.59.1.39.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.39.rp12 <- str_replace_all(jjep.59.1.39.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.39.rp13 <- str_replace_all(jjep.59.1.39.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.39.rp14 <- str_replace_all(jjep.59.1.39.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.39.rp15 <- str_replace_all(jjep.59.1.39.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.39.mod <- rbind(varname,jjep.59.1.39.rp15); write(jjep.59.1.39.mod, file = "./jjep/Mod_59_1_39.txt")
jjep.59.1.51.tx <- readr::read_file(file="./jjep/59_1_51.txt"); jjep.59.1.51.rm00 <- jjep.59.1.51.tx; jjep.59.1.51.rm01 <- str_replace_all(jjep.59.1.51.rm00, pattern = rm.01, replacement = ""); jjep.59.1.51.rm02 <- str_replace_all(jjep.59.1.51.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.51.rm03 <- str_replace_all(jjep.59.1.51.rm02, pattern = rm.03, replacement = ""); jjep.59.1.51.rm04 <- str_replace_all(jjep.59.1.51.rm03, pattern = rm.04, replacement = ""); jjep.59.1.51.rm05 <- str_replace_all(jjep.59.1.51.rm04, pattern = rm.05, replacement = ""); jjep.59.1.51.rm06 <- str_replace_all(jjep.59.1.51.rm05, pattern = rm.06, replacement = ""); jjep.59.1.51.rm07 <- str_replace_all(jjep.59.1.51.rm06, pattern = rm.07, replacement = ""); jjep.59.1.51.rm08 <- str_replace_all(jjep.59.1.51.rm07, pattern = rm.08, replacement = ""); jjep.59.1.51.rm09 <- str_replace_all(jjep.59.1.51.rm08, pattern = rm.09, replacement = ""); jjep.59.1.51.rp10 <- str_replace_all(jjep.59.1.51.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.51.rp11 <- str_replace_all(jjep.59.1.51.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.51.rp12 <- str_replace_all(jjep.59.1.51.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.51.rp13 <- str_replace_all(jjep.59.1.51.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.51.rp14 <- str_replace_all(jjep.59.1.51.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.51.rp15 <- str_replace_all(jjep.59.1.51.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.51.mod <- rbind(varname,jjep.59.1.51.rp15); write(jjep.59.1.51.mod, file = "./jjep/Mod_59_1_51.txt")
jjep.59.1.64.tx <- readr::read_file(file="./jjep/59_1_64.txt"); jjep.59.1.64.rm00 <- jjep.59.1.64.tx; jjep.59.1.64.rm01 <- str_replace_all(jjep.59.1.64.rm00, pattern = rm.01, replacement = ""); jjep.59.1.64.rm02 <- str_replace_all(jjep.59.1.64.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.64.rm03 <- str_replace_all(jjep.59.1.64.rm02, pattern = rm.03, replacement = ""); jjep.59.1.64.rm04 <- str_replace_all(jjep.59.1.64.rm03, pattern = rm.04, replacement = ""); jjep.59.1.64.rm05 <- str_replace_all(jjep.59.1.64.rm04, pattern = rm.05, replacement = ""); jjep.59.1.64.rm06 <- str_replace_all(jjep.59.1.64.rm05, pattern = rm.06, replacement = ""); jjep.59.1.64.rm07 <- str_replace_all(jjep.59.1.64.rm06, pattern = rm.07, replacement = ""); jjep.59.1.64.rm08 <- str_replace_all(jjep.59.1.64.rm07, pattern = rm.08, replacement = ""); jjep.59.1.64.rm09 <- str_replace_all(jjep.59.1.64.rm08, pattern = rm.09, replacement = ""); jjep.59.1.64.rp10 <- str_replace_all(jjep.59.1.64.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.64.rp11 <- str_replace_all(jjep.59.1.64.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.64.rp12 <- str_replace_all(jjep.59.1.64.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.64.rp13 <- str_replace_all(jjep.59.1.64.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.64.rp14 <- str_replace_all(jjep.59.1.64.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.64.rp15 <- str_replace_all(jjep.59.1.64.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.64.mod <- rbind(varname,jjep.59.1.64.rp15); write(jjep.59.1.64.mod, file = "./jjep/Mod_59_1_64.txt")
jjep.59.1.77.tx <- readr::read_file(file="./jjep/59_1_77.txt"); jjep.59.1.77.rm00 <- jjep.59.1.77.tx; jjep.59.1.77.rm01 <- str_replace_all(jjep.59.1.77.rm00, pattern = rm.01, replacement = ""); jjep.59.1.77.rm02 <- str_replace_all(jjep.59.1.77.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.77.rm03 <- str_replace_all(jjep.59.1.77.rm02, pattern = rm.03, replacement = ""); jjep.59.1.77.rm04 <- str_replace_all(jjep.59.1.77.rm03, pattern = rm.04, replacement = ""); jjep.59.1.77.rm05 <- str_replace_all(jjep.59.1.77.rm04, pattern = rm.05, replacement = ""); jjep.59.1.77.rm06 <- str_replace_all(jjep.59.1.77.rm05, pattern = rm.06, replacement = ""); jjep.59.1.77.rm07 <- str_replace_all(jjep.59.1.77.rm06, pattern = rm.07, replacement = ""); jjep.59.1.77.rm08 <- str_replace_all(jjep.59.1.77.rm07, pattern = rm.08, replacement = ""); jjep.59.1.77.rm09 <- str_replace_all(jjep.59.1.77.rm08, pattern = rm.09, replacement = ""); jjep.59.1.77.rp10 <- str_replace_all(jjep.59.1.77.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.77.rp11 <- str_replace_all(jjep.59.1.77.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.77.rp12 <- str_replace_all(jjep.59.1.77.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.77.rp13 <- str_replace_all(jjep.59.1.77.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.77.rp14 <- str_replace_all(jjep.59.1.77.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.77.rp15 <- str_replace_all(jjep.59.1.77.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.77.mod <- rbind(varname,jjep.59.1.77.rp15); write(jjep.59.1.77.mod, file = "./jjep/Mod_59_1_77.txt")
jjep.59.1.88.tx <- readr::read_file(file="./jjep/59_1_88.txt"); jjep.59.1.88.rm00 <- jjep.59.1.88.tx; jjep.59.1.88.rm01 <- str_replace_all(jjep.59.1.88.rm00, pattern = rm.01, replacement = ""); jjep.59.1.88.rm02 <- str_replace_all(jjep.59.1.88.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.88.rm03 <- str_replace_all(jjep.59.1.88.rm02, pattern = rm.03, replacement = ""); jjep.59.1.88.rm04 <- str_replace_all(jjep.59.1.88.rm03, pattern = rm.04, replacement = ""); jjep.59.1.88.rm05 <- str_replace_all(jjep.59.1.88.rm04, pattern = rm.05, replacement = ""); jjep.59.1.88.rm06 <- str_replace_all(jjep.59.1.88.rm05, pattern = rm.06, replacement = ""); jjep.59.1.88.rm07 <- str_replace_all(jjep.59.1.88.rm06, pattern = rm.07, replacement = ""); jjep.59.1.88.rm08 <- str_replace_all(jjep.59.1.88.rm07, pattern = rm.08, replacement = ""); jjep.59.1.88.rm09 <- str_replace_all(jjep.59.1.88.rm08, pattern = rm.09, replacement = ""); jjep.59.1.88.rp10 <- str_replace_all(jjep.59.1.88.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.88.rp11 <- str_replace_all(jjep.59.1.88.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.88.rp12 <- str_replace_all(jjep.59.1.88.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.88.rp13 <- str_replace_all(jjep.59.1.88.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.88.rp14 <- str_replace_all(jjep.59.1.88.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.88.rp15 <- str_replace_all(jjep.59.1.88.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.88.mod <- rbind(varname,jjep.59.1.88.rp15); write(jjep.59.1.88.mod, file = "./jjep/Mod_59_1_88.txt")
jjep.59.1.100.tx <- readr::read_file(file="./jjep/59_1_100.txt"); jjep.59.1.100.rm00 <- jjep.59.1.100.tx; jjep.59.1.100.rm01 <- str_replace_all(jjep.59.1.100.rm00, pattern = rm.01, replacement = ""); jjep.59.1.100.rm02 <- str_replace_all(jjep.59.1.100.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.100.rm03 <- str_replace_all(jjep.59.1.100.rm02, pattern = rm.03, replacement = ""); jjep.59.1.100.rm04 <- str_replace_all(jjep.59.1.100.rm03, pattern = rm.04, replacement = ""); jjep.59.1.100.rm05 <- str_replace_all(jjep.59.1.100.rm04, pattern = rm.05, replacement = ""); jjep.59.1.100.rm06 <- str_replace_all(jjep.59.1.100.rm05, pattern = rm.06, replacement = ""); jjep.59.1.100.rm07 <- str_replace_all(jjep.59.1.100.rm06, pattern = rm.07, replacement = ""); jjep.59.1.100.rm08 <- str_replace_all(jjep.59.1.100.rm07, pattern = rm.08, replacement = ""); jjep.59.1.100.rm09 <- str_replace_all(jjep.59.1.100.rm08, pattern = rm.09, replacement = ""); jjep.59.1.100.rp10 <- str_replace_all(jjep.59.1.100.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.100.rp11 <- str_replace_all(jjep.59.1.100.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.100.rp12 <- str_replace_all(jjep.59.1.100.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.100.rp13 <- str_replace_all(jjep.59.1.100.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.100.rp14 <- str_replace_all(jjep.59.1.100.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.100.rp15 <- str_replace_all(jjep.59.1.100.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.100.mod <- rbind(varname,jjep.59.1.100.rp15); write(jjep.59.1.100.mod, file = "./jjep/Mod_59_1_100.txt")
jjep.59.1.111.tx <- readr::read_file(file="./jjep/59_1_111.txt"); jjep.59.1.111.rm00 <- jjep.59.1.111.tx; jjep.59.1.111.rm01 <- str_replace_all(jjep.59.1.111.rm00, pattern = rm.01, replacement = ""); jjep.59.1.111.rm02 <- str_replace_all(jjep.59.1.111.rm01, pattern = rm.02, replacement = "^"); jjep.59.1.111.rm03 <- str_replace_all(jjep.59.1.111.rm02, pattern = rm.03, replacement = ""); jjep.59.1.111.rm04 <- str_replace_all(jjep.59.1.111.rm03, pattern = rm.04, replacement = ""); jjep.59.1.111.rm05 <- str_replace_all(jjep.59.1.111.rm04, pattern = rm.05, replacement = ""); jjep.59.1.111.rm06 <- str_replace_all(jjep.59.1.111.rm05, pattern = rm.06, replacement = ""); jjep.59.1.111.rm07 <- str_replace_all(jjep.59.1.111.rm06, pattern = rm.07, replacement = ""); jjep.59.1.111.rm08 <- str_replace_all(jjep.59.1.111.rm07, pattern = rm.08, replacement = ""); jjep.59.1.111.rm09 <- str_replace_all(jjep.59.1.111.rm08, pattern = rm.09, replacement = ""); jjep.59.1.111.rp10 <- str_replace_all(jjep.59.1.111.rm09, pattern = rp.01, replacement = "・"); jjep.59.1.111.rp11 <- str_replace_all(jjep.59.1.111.rp10, pattern = rp.02, replacement = "^"); jjep.59.1.111.rp12 <- str_replace_all(jjep.59.1.111.rp11, pattern = rp.03, replacement = "^"); jjep.59.1.111.rp13 <- str_replace_all(jjep.59.1.111.rp12, pattern = rp.04, replacement = "^"); jjep.59.1.111.rp14 <- str_replace_all(jjep.59.1.111.rp13, pattern = rp.05, replacement = "^"); jjep.59.1.111.rp15 <- str_replace_all(jjep.59.1.111.rp14, pattern = rp.06, replacement = "^"); jjep.59.1.111.mod <- rbind(varname,jjep.59.1.111.rp15); write(jjep.59.1.111.mod, file = "./jjep/Mod_59_1_111.txt")
jjep.58.4.393.tx <- readr::read_file(file="./jjep/58_4_393.txt"); jjep.58.4.393.rm00 <- jjep.58.4.393.tx; jjep.58.4.393.rm01 <- str_replace_all(jjep.58.4.393.rm00, pattern = rm.01, replacement = ""); jjep.58.4.393.rm02 <- str_replace_all(jjep.58.4.393.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.393.rm03 <- str_replace_all(jjep.58.4.393.rm02, pattern = rm.03, replacement = ""); jjep.58.4.393.rm04 <- str_replace_all(jjep.58.4.393.rm03, pattern = rm.04, replacement = ""); jjep.58.4.393.rm05 <- str_replace_all(jjep.58.4.393.rm04, pattern = rm.05, replacement = ""); jjep.58.4.393.rm06 <- str_replace_all(jjep.58.4.393.rm05, pattern = rm.06, replacement = ""); jjep.58.4.393.rm07 <- str_replace_all(jjep.58.4.393.rm06, pattern = rm.07, replacement = ""); jjep.58.4.393.rm08 <- str_replace_all(jjep.58.4.393.rm07, pattern = rm.08, replacement = ""); jjep.58.4.393.rm09 <- str_replace_all(jjep.58.4.393.rm08, pattern = rm.09, replacement = ""); jjep.58.4.393.rp10 <- str_replace_all(jjep.58.4.393.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.393.rp11 <- str_replace_all(jjep.58.4.393.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.393.rp12 <- str_replace_all(jjep.58.4.393.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.393.rp13 <- str_replace_all(jjep.58.4.393.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.393.rp14 <- str_replace_all(jjep.58.4.393.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.393.rp15 <- str_replace_all(jjep.58.4.393.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.393.mod <- rbind(varname,jjep.58.4.393.rp15); write(jjep.58.4.393.mod, file = "./jjep/Mod_58_4_393.txt")
jjep.58.4.404.tx <- readr::read_file(file="./jjep/58_4_404.txt"); jjep.58.4.404.rm00 <- jjep.58.4.404.tx; jjep.58.4.404.rm01 <- str_replace_all(jjep.58.4.404.rm00, pattern = rm.01, replacement = ""); jjep.58.4.404.rm02 <- str_replace_all(jjep.58.4.404.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.404.rm03 <- str_replace_all(jjep.58.4.404.rm02, pattern = rm.03, replacement = ""); jjep.58.4.404.rm04 <- str_replace_all(jjep.58.4.404.rm03, pattern = rm.04, replacement = ""); jjep.58.4.404.rm05 <- str_replace_all(jjep.58.4.404.rm04, pattern = rm.05, replacement = ""); jjep.58.4.404.rm06 <- str_replace_all(jjep.58.4.404.rm05, pattern = rm.06, replacement = ""); jjep.58.4.404.rm07 <- str_replace_all(jjep.58.4.404.rm06, pattern = rm.07, replacement = ""); jjep.58.4.404.rm08 <- str_replace_all(jjep.58.4.404.rm07, pattern = rm.08, replacement = ""); jjep.58.4.404.rm09 <- str_replace_all(jjep.58.4.404.rm08, pattern = rm.09, replacement = ""); jjep.58.4.404.rp10 <- str_replace_all(jjep.58.4.404.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.404.rp11 <- str_replace_all(jjep.58.4.404.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.404.rp12 <- str_replace_all(jjep.58.4.404.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.404.rp13 <- str_replace_all(jjep.58.4.404.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.404.rp14 <- str_replace_all(jjep.58.4.404.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.404.rp15 <- str_replace_all(jjep.58.4.404.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.404.mod <- rbind(varname,jjep.58.4.404.rp15); write(jjep.58.4.404.mod, file = "./jjep/Mod_58_4_404.txt")
jjep.58.4.414.tx <- readr::read_file(file="./jjep/58_4_414.txt"); jjep.58.4.414.rm00 <- jjep.58.4.414.tx; jjep.58.4.414.rm01 <- str_replace_all(jjep.58.4.414.rm00, pattern = rm.01, replacement = ""); jjep.58.4.414.rm02 <- str_replace_all(jjep.58.4.414.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.414.rm03 <- str_replace_all(jjep.58.4.414.rm02, pattern = rm.03, replacement = ""); jjep.58.4.414.rm04 <- str_replace_all(jjep.58.4.414.rm03, pattern = rm.04, replacement = ""); jjep.58.4.414.rm05 <- str_replace_all(jjep.58.4.414.rm04, pattern = rm.05, replacement = ""); jjep.58.4.414.rm06 <- str_replace_all(jjep.58.4.414.rm05, pattern = rm.06, replacement = ""); jjep.58.4.414.rm07 <- str_replace_all(jjep.58.4.414.rm06, pattern = rm.07, replacement = ""); jjep.58.4.414.rm08 <- str_replace_all(jjep.58.4.414.rm07, pattern = rm.08, replacement = ""); jjep.58.4.414.rm09 <- str_replace_all(jjep.58.4.414.rm08, pattern = rm.09, replacement = ""); jjep.58.4.414.rp10 <- str_replace_all(jjep.58.4.414.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.414.rp11 <- str_replace_all(jjep.58.4.414.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.414.rp12 <- str_replace_all(jjep.58.4.414.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.414.rp13 <- str_replace_all(jjep.58.4.414.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.414.rp14 <- str_replace_all(jjep.58.4.414.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.414.rp15 <- str_replace_all(jjep.58.4.414.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.414.mod <- rbind(varname,jjep.58.4.414.rp15); write(jjep.58.4.414.mod, file = "./jjep/Mod_58_4_414.txt")
jjep.58.4.426.tx <- readr::read_file(file="./jjep/58_4_426.txt"); jjep.58.4.426.rm00 <- jjep.58.4.426.tx; jjep.58.4.426.rm01 <- str_replace_all(jjep.58.4.426.rm00, pattern = rm.01, replacement = ""); jjep.58.4.426.rm02 <- str_replace_all(jjep.58.4.426.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.426.rm03 <- str_replace_all(jjep.58.4.426.rm02, pattern = rm.03, replacement = ""); jjep.58.4.426.rm04 <- str_replace_all(jjep.58.4.426.rm03, pattern = rm.04, replacement = ""); jjep.58.4.426.rm05 <- str_replace_all(jjep.58.4.426.rm04, pattern = rm.05, replacement = ""); jjep.58.4.426.rm06 <- str_replace_all(jjep.58.4.426.rm05, pattern = rm.06, replacement = ""); jjep.58.4.426.rm07 <- str_replace_all(jjep.58.4.426.rm06, pattern = rm.07, replacement = ""); jjep.58.4.426.rm08 <- str_replace_all(jjep.58.4.426.rm07, pattern = rm.08, replacement = ""); jjep.58.4.426.rm09 <- str_replace_all(jjep.58.4.426.rm08, pattern = rm.09, replacement = ""); jjep.58.4.426.rp10 <- str_replace_all(jjep.58.4.426.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.426.rp11 <- str_replace_all(jjep.58.4.426.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.426.rp12 <- str_replace_all(jjep.58.4.426.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.426.rp13 <- str_replace_all(jjep.58.4.426.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.426.rp14 <- str_replace_all(jjep.58.4.426.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.426.rp15 <- str_replace_all(jjep.58.4.426.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.426.mod <- rbind(varname,jjep.58.4.426.rp15); write(jjep.58.4.426.mod, file = "./jjep/Mod_58_4_426.txt")
jjep.58.4.438.tx <- readr::read_file(file="./jjep/58_4_438.txt"); jjep.58.4.438.rm00 <- jjep.58.4.438.tx; jjep.58.4.438.rm01 <- str_replace_all(jjep.58.4.438.rm00, pattern = rm.01, replacement = ""); jjep.58.4.438.rm02 <- str_replace_all(jjep.58.4.438.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.438.rm03 <- str_replace_all(jjep.58.4.438.rm02, pattern = rm.03, replacement = ""); jjep.58.4.438.rm04 <- str_replace_all(jjep.58.4.438.rm03, pattern = rm.04, replacement = ""); jjep.58.4.438.rm05 <- str_replace_all(jjep.58.4.438.rm04, pattern = rm.05, replacement = ""); jjep.58.4.438.rm06 <- str_replace_all(jjep.58.4.438.rm05, pattern = rm.06, replacement = ""); jjep.58.4.438.rm07 <- str_replace_all(jjep.58.4.438.rm06, pattern = rm.07, replacement = ""); jjep.58.4.438.rm08 <- str_replace_all(jjep.58.4.438.rm07, pattern = rm.08, replacement = ""); jjep.58.4.438.rm09 <- str_replace_all(jjep.58.4.438.rm08, pattern = rm.09, replacement = ""); jjep.58.4.438.rp10 <- str_replace_all(jjep.58.4.438.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.438.rp11 <- str_replace_all(jjep.58.4.438.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.438.rp12 <- str_replace_all(jjep.58.4.438.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.438.rp13 <- str_replace_all(jjep.58.4.438.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.438.rp14 <- str_replace_all(jjep.58.4.438.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.438.rp15 <- str_replace_all(jjep.58.4.438.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.438.mod <- rbind(varname,jjep.58.4.438.rp15); write(jjep.58.4.438.mod, file = "./jjep/Mod_58_4_438.txt")
jjep.58.4.452.tx <- readr::read_file(file="./jjep/58_4_452.txt"); jjep.58.4.452.rm00 <- jjep.58.4.452.tx; jjep.58.4.452.rm01 <- str_replace_all(jjep.58.4.452.rm00, pattern = rm.01, replacement = ""); jjep.58.4.452.rm02 <- str_replace_all(jjep.58.4.452.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.452.rm03 <- str_replace_all(jjep.58.4.452.rm02, pattern = rm.03, replacement = ""); jjep.58.4.452.rm04 <- str_replace_all(jjep.58.4.452.rm03, pattern = rm.04, replacement = ""); jjep.58.4.452.rm05 <- str_replace_all(jjep.58.4.452.rm04, pattern = rm.05, replacement = ""); jjep.58.4.452.rm06 <- str_replace_all(jjep.58.4.452.rm05, pattern = rm.06, replacement = ""); jjep.58.4.452.rm07 <- str_replace_all(jjep.58.4.452.rm06, pattern = rm.07, replacement = ""); jjep.58.4.452.rm08 <- str_replace_all(jjep.58.4.452.rm07, pattern = rm.08, replacement = ""); jjep.58.4.452.rm09 <- str_replace_all(jjep.58.4.452.rm08, pattern = rm.09, replacement = ""); jjep.58.4.452.rp10 <- str_replace_all(jjep.58.4.452.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.452.rp11 <- str_replace_all(jjep.58.4.452.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.452.rp12 <- str_replace_all(jjep.58.4.452.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.452.rp13 <- str_replace_all(jjep.58.4.452.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.452.rp14 <- str_replace_all(jjep.58.4.452.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.452.rp15 <- str_replace_all(jjep.58.4.452.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.452.mod <- rbind(varname,jjep.58.4.452.rp15); write(jjep.58.4.452.mod, file = "./jjep/Mod_58_4_452.txt")
jjep.58.4.464.tx <- readr::read_file(file="./jjep/58_4_464.txt"); jjep.58.4.464.rm00 <- jjep.58.4.464.tx; jjep.58.4.464.rm01 <- str_replace_all(jjep.58.4.464.rm00, pattern = rm.01, replacement = ""); jjep.58.4.464.rm02 <- str_replace_all(jjep.58.4.464.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.464.rm03 <- str_replace_all(jjep.58.4.464.rm02, pattern = rm.03, replacement = ""); jjep.58.4.464.rm04 <- str_replace_all(jjep.58.4.464.rm03, pattern = rm.04, replacement = ""); jjep.58.4.464.rm05 <- str_replace_all(jjep.58.4.464.rm04, pattern = rm.05, replacement = ""); jjep.58.4.464.rm06 <- str_replace_all(jjep.58.4.464.rm05, pattern = rm.06, replacement = ""); jjep.58.4.464.rm07 <- str_replace_all(jjep.58.4.464.rm06, pattern = rm.07, replacement = ""); jjep.58.4.464.rm08 <- str_replace_all(jjep.58.4.464.rm07, pattern = rm.08, replacement = ""); jjep.58.4.464.rm09 <- str_replace_all(jjep.58.4.464.rm08, pattern = rm.09, replacement = ""); jjep.58.4.464.rp10 <- str_replace_all(jjep.58.4.464.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.464.rp11 <- str_replace_all(jjep.58.4.464.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.464.rp12 <- str_replace_all(jjep.58.4.464.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.464.rp13 <- str_replace_all(jjep.58.4.464.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.464.rp14 <- str_replace_all(jjep.58.4.464.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.464.rp15 <- str_replace_all(jjep.58.4.464.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.464.mod <- rbind(varname,jjep.58.4.464.rp15); write(jjep.58.4.464.mod, file = "./jjep/Mod_58_4_464.txt")
jjep.58.4.480.tx <- readr::read_file(file="./jjep/58_4_480.txt"); jjep.58.4.480.rm00 <- jjep.58.4.480.tx; jjep.58.4.480.rm01 <- str_replace_all(jjep.58.4.480.rm00, pattern = rm.01, replacement = ""); jjep.58.4.480.rm02 <- str_replace_all(jjep.58.4.480.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.480.rm03 <- str_replace_all(jjep.58.4.480.rm02, pattern = rm.03, replacement = ""); jjep.58.4.480.rm04 <- str_replace_all(jjep.58.4.480.rm03, pattern = rm.04, replacement = ""); jjep.58.4.480.rm05 <- str_replace_all(jjep.58.4.480.rm04, pattern = rm.05, replacement = ""); jjep.58.4.480.rm06 <- str_replace_all(jjep.58.4.480.rm05, pattern = rm.06, replacement = ""); jjep.58.4.480.rm07 <- str_replace_all(jjep.58.4.480.rm06, pattern = rm.07, replacement = ""); jjep.58.4.480.rm08 <- str_replace_all(jjep.58.4.480.rm07, pattern = rm.08, replacement = ""); jjep.58.4.480.rm09 <- str_replace_all(jjep.58.4.480.rm08, pattern = rm.09, replacement = ""); jjep.58.4.480.rp10 <- str_replace_all(jjep.58.4.480.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.480.rp11 <- str_replace_all(jjep.58.4.480.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.480.rp12 <- str_replace_all(jjep.58.4.480.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.480.rp13 <- str_replace_all(jjep.58.4.480.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.480.rp14 <- str_replace_all(jjep.58.4.480.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.480.rp15 <- str_replace_all(jjep.58.4.480.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.480.mod <- rbind(varname,jjep.58.4.480.rp15); write(jjep.58.4.480.mod, file = "./jjep/Mod_58_4_480.txt")
jjep.58.4.491.tx <- readr::read_file(file="./jjep/58_4_491.txt"); jjep.58.4.491.rm00 <- jjep.58.4.491.tx; jjep.58.4.491.rm01 <- str_replace_all(jjep.58.4.491.rm00, pattern = rm.01, replacement = ""); jjep.58.4.491.rm02 <- str_replace_all(jjep.58.4.491.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.491.rm03 <- str_replace_all(jjep.58.4.491.rm02, pattern = rm.03, replacement = ""); jjep.58.4.491.rm04 <- str_replace_all(jjep.58.4.491.rm03, pattern = rm.04, replacement = ""); jjep.58.4.491.rm05 <- str_replace_all(jjep.58.4.491.rm04, pattern = rm.05, replacement = ""); jjep.58.4.491.rm06 <- str_replace_all(jjep.58.4.491.rm05, pattern = rm.06, replacement = ""); jjep.58.4.491.rm07 <- str_replace_all(jjep.58.4.491.rm06, pattern = rm.07, replacement = ""); jjep.58.4.491.rm08 <- str_replace_all(jjep.58.4.491.rm07, pattern = rm.08, replacement = ""); jjep.58.4.491.rm09 <- str_replace_all(jjep.58.4.491.rm08, pattern = rm.09, replacement = ""); jjep.58.4.491.rp10 <- str_replace_all(jjep.58.4.491.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.491.rp11 <- str_replace_all(jjep.58.4.491.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.491.rp12 <- str_replace_all(jjep.58.4.491.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.491.rp13 <- str_replace_all(jjep.58.4.491.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.491.rp14 <- str_replace_all(jjep.58.4.491.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.491.rp15 <- str_replace_all(jjep.58.4.491.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.491.mod <- rbind(varname,jjep.58.4.491.rp15); write(jjep.58.4.491.mod, file = "./jjep/Mod_58_4_491.txt")
jjep.58.4.503.tx <- readr::read_file(file="./jjep/58_4_503.txt"); jjep.58.4.503.rm00 <- jjep.58.4.503.tx; jjep.58.4.503.rm01 <- str_replace_all(jjep.58.4.503.rm00, pattern = rm.01, replacement = ""); jjep.58.4.503.rm02 <- str_replace_all(jjep.58.4.503.rm01, pattern = rm.02, replacement = "^"); jjep.58.4.503.rm03 <- str_replace_all(jjep.58.4.503.rm02, pattern = rm.03, replacement = ""); jjep.58.4.503.rm04 <- str_replace_all(jjep.58.4.503.rm03, pattern = rm.04, replacement = ""); jjep.58.4.503.rm05 <- str_replace_all(jjep.58.4.503.rm04, pattern = rm.05, replacement = ""); jjep.58.4.503.rm06 <- str_replace_all(jjep.58.4.503.rm05, pattern = rm.06, replacement = ""); jjep.58.4.503.rm07 <- str_replace_all(jjep.58.4.503.rm06, pattern = rm.07, replacement = ""); jjep.58.4.503.rm08 <- str_replace_all(jjep.58.4.503.rm07, pattern = rm.08, replacement = ""); jjep.58.4.503.rm09 <- str_replace_all(jjep.58.4.503.rm08, pattern = rm.09, replacement = ""); jjep.58.4.503.rp10 <- str_replace_all(jjep.58.4.503.rm09, pattern = rp.01, replacement = "・"); jjep.58.4.503.rp11 <- str_replace_all(jjep.58.4.503.rp10, pattern = rp.02, replacement = "^"); jjep.58.4.503.rp12 <- str_replace_all(jjep.58.4.503.rp11, pattern = rp.03, replacement = "^"); jjep.58.4.503.rp13 <- str_replace_all(jjep.58.4.503.rp12, pattern = rp.04, replacement = "^"); jjep.58.4.503.rp14 <- str_replace_all(jjep.58.4.503.rp13, pattern = rp.05, replacement = "^"); jjep.58.4.503.rp15 <- str_replace_all(jjep.58.4.503.rp14, pattern = rp.06, replacement = "^"); jjep.58.4.503.mod <- rbind(varname,jjep.58.4.503.rp15); write(jjep.58.4.503.mod, file = "./jjep/Mod_58_4_503.txt")
jjep.58.3.263.tx <- readr::read_file(file="./jjep/58_3_263.txt"); jjep.58.3.263.rm00 <- jjep.58.3.263.tx; jjep.58.3.263.rm01 <- str_replace_all(jjep.58.3.263.rm00, pattern = rm.01, replacement = ""); jjep.58.3.263.rm02 <- str_replace_all(jjep.58.3.263.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.263.rm03 <- str_replace_all(jjep.58.3.263.rm02, pattern = rm.03, replacement = ""); jjep.58.3.263.rm04 <- str_replace_all(jjep.58.3.263.rm03, pattern = rm.04, replacement = ""); jjep.58.3.263.rm05 <- str_replace_all(jjep.58.3.263.rm04, pattern = rm.05, replacement = ""); jjep.58.3.263.rm06 <- str_replace_all(jjep.58.3.263.rm05, pattern = rm.06, replacement = ""); jjep.58.3.263.rm07 <- str_replace_all(jjep.58.3.263.rm06, pattern = rm.07, replacement = ""); jjep.58.3.263.rm08 <- str_replace_all(jjep.58.3.263.rm07, pattern = rm.08, replacement = ""); jjep.58.3.263.rm09 <- str_replace_all(jjep.58.3.263.rm08, pattern = rm.09, replacement = ""); jjep.58.3.263.rp10 <- str_replace_all(jjep.58.3.263.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.263.rp11 <- str_replace_all(jjep.58.3.263.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.263.rp12 <- str_replace_all(jjep.58.3.263.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.263.rp13 <- str_replace_all(jjep.58.3.263.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.263.rp14 <- str_replace_all(jjep.58.3.263.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.263.rp15 <- str_replace_all(jjep.58.3.263.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.263.mod <- rbind(varname,jjep.58.3.263.rp15); write(jjep.58.3.263.mod, file = "./jjep/Mod_58_3_263.txt")
jjep.58.3.275.tx <- readr::read_file(file="./jjep/58_3_275.txt"); jjep.58.3.275.rm00 <- jjep.58.3.275.tx; jjep.58.3.275.rm01 <- str_replace_all(jjep.58.3.275.rm00, pattern = rm.01, replacement = ""); jjep.58.3.275.rm02 <- str_replace_all(jjep.58.3.275.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.275.rm03 <- str_replace_all(jjep.58.3.275.rm02, pattern = rm.03, replacement = ""); jjep.58.3.275.rm04 <- str_replace_all(jjep.58.3.275.rm03, pattern = rm.04, replacement = ""); jjep.58.3.275.rm05 <- str_replace_all(jjep.58.3.275.rm04, pattern = rm.05, replacement = ""); jjep.58.3.275.rm06 <- str_replace_all(jjep.58.3.275.rm05, pattern = rm.06, replacement = ""); jjep.58.3.275.rm07 <- str_replace_all(jjep.58.3.275.rm06, pattern = rm.07, replacement = ""); jjep.58.3.275.rm08 <- str_replace_all(jjep.58.3.275.rm07, pattern = rm.08, replacement = ""); jjep.58.3.275.rm09 <- str_replace_all(jjep.58.3.275.rm08, pattern = rm.09, replacement = ""); jjep.58.3.275.rp10 <- str_replace_all(jjep.58.3.275.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.275.rp11 <- str_replace_all(jjep.58.3.275.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.275.rp12 <- str_replace_all(jjep.58.3.275.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.275.rp13 <- str_replace_all(jjep.58.3.275.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.275.rp14 <- str_replace_all(jjep.58.3.275.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.275.rp15 <- str_replace_all(jjep.58.3.275.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.275.mod <- rbind(varname,jjep.58.3.275.rp15); write(jjep.58.3.275.mod, file = "./jjep/Mod_58_3_275.txt")
jjep.58.3.285.tx <- readr::read_file(file="./jjep/58_3_285.txt"); jjep.58.3.285.rm00 <- jjep.58.3.285.tx; jjep.58.3.285.rm01 <- str_replace_all(jjep.58.3.285.rm00, pattern = rm.01, replacement = ""); jjep.58.3.285.rm02 <- str_replace_all(jjep.58.3.285.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.285.rm03 <- str_replace_all(jjep.58.3.285.rm02, pattern = rm.03, replacement = ""); jjep.58.3.285.rm04 <- str_replace_all(jjep.58.3.285.rm03, pattern = rm.04, replacement = ""); jjep.58.3.285.rm05 <- str_replace_all(jjep.58.3.285.rm04, pattern = rm.05, replacement = ""); jjep.58.3.285.rm06 <- str_replace_all(jjep.58.3.285.rm05, pattern = rm.06, replacement = ""); jjep.58.3.285.rm07 <- str_replace_all(jjep.58.3.285.rm06, pattern = rm.07, replacement = ""); jjep.58.3.285.rm08 <- str_replace_all(jjep.58.3.285.rm07, pattern = rm.08, replacement = ""); jjep.58.3.285.rm09 <- str_replace_all(jjep.58.3.285.rm08, pattern = rm.09, replacement = ""); jjep.58.3.285.rp10 <- str_replace_all(jjep.58.3.285.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.285.rp11 <- str_replace_all(jjep.58.3.285.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.285.rp12 <- str_replace_all(jjep.58.3.285.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.285.rp13 <- str_replace_all(jjep.58.3.285.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.285.rp14 <- str_replace_all(jjep.58.3.285.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.285.rp15 <- str_replace_all(jjep.58.3.285.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.285.mod <- rbind(varname,jjep.58.3.285.rp15); write(jjep.58.3.285.mod, file = "./jjep/Mod_58_3_285.txt")
jjep.58.3.298.tx <- readr::read_file(file="./jjep/58_3_298.txt"); jjep.58.3.298.rm00 <- jjep.58.3.298.tx; jjep.58.3.298.rm01 <- str_replace_all(jjep.58.3.298.rm00, pattern = rm.01, replacement = ""); jjep.58.3.298.rm02 <- str_replace_all(jjep.58.3.298.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.298.rm03 <- str_replace_all(jjep.58.3.298.rm02, pattern = rm.03, replacement = ""); jjep.58.3.298.rm04 <- str_replace_all(jjep.58.3.298.rm03, pattern = rm.04, replacement = ""); jjep.58.3.298.rm05 <- str_replace_all(jjep.58.3.298.rm04, pattern = rm.05, replacement = ""); jjep.58.3.298.rm06 <- str_replace_all(jjep.58.3.298.rm05, pattern = rm.06, replacement = ""); jjep.58.3.298.rm07 <- str_replace_all(jjep.58.3.298.rm06, pattern = rm.07, replacement = ""); jjep.58.3.298.rm08 <- str_replace_all(jjep.58.3.298.rm07, pattern = rm.08, replacement = ""); jjep.58.3.298.rm09 <- str_replace_all(jjep.58.3.298.rm08, pattern = rm.09, replacement = ""); jjep.58.3.298.rp10 <- str_replace_all(jjep.58.3.298.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.298.rp11 <- str_replace_all(jjep.58.3.298.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.298.rp12 <- str_replace_all(jjep.58.3.298.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.298.rp13 <- str_replace_all(jjep.58.3.298.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.298.rp14 <- str_replace_all(jjep.58.3.298.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.298.rp15 <- str_replace_all(jjep.58.3.298.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.298.mod <- rbind(varname,jjep.58.3.298.rp15); write(jjep.58.3.298.mod, file = "./jjep/Mod_58_3_298.txt")
jjep.58.3.313.tx <- readr::read_file(file="./jjep/58_3_313.txt"); jjep.58.3.313.rm00 <- jjep.58.3.313.tx; jjep.58.3.313.rm01 <- str_replace_all(jjep.58.3.313.rm00, pattern = rm.01, replacement = ""); jjep.58.3.313.rm02 <- str_replace_all(jjep.58.3.313.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.313.rm03 <- str_replace_all(jjep.58.3.313.rm02, pattern = rm.03, replacement = ""); jjep.58.3.313.rm04 <- str_replace_all(jjep.58.3.313.rm03, pattern = rm.04, replacement = ""); jjep.58.3.313.rm05 <- str_replace_all(jjep.58.3.313.rm04, pattern = rm.05, replacement = ""); jjep.58.3.313.rm06 <- str_replace_all(jjep.58.3.313.rm05, pattern = rm.06, replacement = ""); jjep.58.3.313.rm07 <- str_replace_all(jjep.58.3.313.rm06, pattern = rm.07, replacement = ""); jjep.58.3.313.rm08 <- str_replace_all(jjep.58.3.313.rm07, pattern = rm.08, replacement = ""); jjep.58.3.313.rm09 <- str_replace_all(jjep.58.3.313.rm08, pattern = rm.09, replacement = ""); jjep.58.3.313.rp10 <- str_replace_all(jjep.58.3.313.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.313.rp11 <- str_replace_all(jjep.58.3.313.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.313.rp12 <- str_replace_all(jjep.58.3.313.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.313.rp13 <- str_replace_all(jjep.58.3.313.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.313.rp14 <- str_replace_all(jjep.58.3.313.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.313.rp15 <- str_replace_all(jjep.58.3.313.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.313.mod <- rbind(varname,jjep.58.3.313.rp15); write(jjep.58.3.313.mod, file = "./jjep/Mod_58_3_313.txt")
jjep.58.3.325.tx <- readr::read_file(file="./jjep/58_3_325.txt"); jjep.58.3.325.rm00 <- jjep.58.3.325.tx; jjep.58.3.325.rm01 <- str_replace_all(jjep.58.3.325.rm00, pattern = rm.01, replacement = ""); jjep.58.3.325.rm02 <- str_replace_all(jjep.58.3.325.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.325.rm03 <- str_replace_all(jjep.58.3.325.rm02, pattern = rm.03, replacement = ""); jjep.58.3.325.rm04 <- str_replace_all(jjep.58.3.325.rm03, pattern = rm.04, replacement = ""); jjep.58.3.325.rm05 <- str_replace_all(jjep.58.3.325.rm04, pattern = rm.05, replacement = ""); jjep.58.3.325.rm06 <- str_replace_all(jjep.58.3.325.rm05, pattern = rm.06, replacement = ""); jjep.58.3.325.rm07 <- str_replace_all(jjep.58.3.325.rm06, pattern = rm.07, replacement = ""); jjep.58.3.325.rm08 <- str_replace_all(jjep.58.3.325.rm07, pattern = rm.08, replacement = ""); jjep.58.3.325.rm09 <- str_replace_all(jjep.58.3.325.rm08, pattern = rm.09, replacement = ""); jjep.58.3.325.rp10 <- str_replace_all(jjep.58.3.325.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.325.rp11 <- str_replace_all(jjep.58.3.325.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.325.rp12 <- str_replace_all(jjep.58.3.325.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.325.rp13 <- str_replace_all(jjep.58.3.325.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.325.rp14 <- str_replace_all(jjep.58.3.325.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.325.rp15 <- str_replace_all(jjep.58.3.325.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.325.mod <- rbind(varname,jjep.58.3.325.rp15); write(jjep.58.3.325.mod, file = "./jjep/Mod_58_3_325.txt")
jjep.58.3.338.tx <- readr::read_file(file="./jjep/58_3_338.txt"); jjep.58.3.338.rm00 <- jjep.58.3.338.tx; jjep.58.3.338.rm01 <- str_replace_all(jjep.58.3.338.rm00, pattern = rm.01, replacement = ""); jjep.58.3.338.rm02 <- str_replace_all(jjep.58.3.338.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.338.rm03 <- str_replace_all(jjep.58.3.338.rm02, pattern = rm.03, replacement = ""); jjep.58.3.338.rm04 <- str_replace_all(jjep.58.3.338.rm03, pattern = rm.04, replacement = ""); jjep.58.3.338.rm05 <- str_replace_all(jjep.58.3.338.rm04, pattern = rm.05, replacement = ""); jjep.58.3.338.rm06 <- str_replace_all(jjep.58.3.338.rm05, pattern = rm.06, replacement = ""); jjep.58.3.338.rm07 <- str_replace_all(jjep.58.3.338.rm06, pattern = rm.07, replacement = ""); jjep.58.3.338.rm08 <- str_replace_all(jjep.58.3.338.rm07, pattern = rm.08, replacement = ""); jjep.58.3.338.rm09 <- str_replace_all(jjep.58.3.338.rm08, pattern = rm.09, replacement = ""); jjep.58.3.338.rp10 <- str_replace_all(jjep.58.3.338.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.338.rp11 <- str_replace_all(jjep.58.3.338.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.338.rp12 <- str_replace_all(jjep.58.3.338.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.338.rp13 <- str_replace_all(jjep.58.3.338.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.338.rp14 <- str_replace_all(jjep.58.3.338.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.338.rp15 <- str_replace_all(jjep.58.3.338.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.338.mod <- rbind(varname,jjep.58.3.338.rp15); write(jjep.58.3.338.mod, file = "./jjep/Mod_58_3_338.txt")
jjep.58.3.348.tx <- readr::read_file(file="./jjep/58_3_348.txt"); jjep.58.3.348.rm00 <- jjep.58.3.348.tx; jjep.58.3.348.rm01 <- str_replace_all(jjep.58.3.348.rm00, pattern = rm.01, replacement = ""); jjep.58.3.348.rm02 <- str_replace_all(jjep.58.3.348.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.348.rm03 <- str_replace_all(jjep.58.3.348.rm02, pattern = rm.03, replacement = ""); jjep.58.3.348.rm04 <- str_replace_all(jjep.58.3.348.rm03, pattern = rm.04, replacement = ""); jjep.58.3.348.rm05 <- str_replace_all(jjep.58.3.348.rm04, pattern = rm.05, replacement = ""); jjep.58.3.348.rm06 <- str_replace_all(jjep.58.3.348.rm05, pattern = rm.06, replacement = ""); jjep.58.3.348.rm07 <- str_replace_all(jjep.58.3.348.rm06, pattern = rm.07, replacement = ""); jjep.58.3.348.rm08 <- str_replace_all(jjep.58.3.348.rm07, pattern = rm.08, replacement = ""); jjep.58.3.348.rm09 <- str_replace_all(jjep.58.3.348.rm08, pattern = rm.09, replacement = ""); jjep.58.3.348.rp10 <- str_replace_all(jjep.58.3.348.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.348.rp11 <- str_replace_all(jjep.58.3.348.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.348.rp12 <- str_replace_all(jjep.58.3.348.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.348.rp13 <- str_replace_all(jjep.58.3.348.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.348.rp14 <- str_replace_all(jjep.58.3.348.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.348.rp15 <- str_replace_all(jjep.58.3.348.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.348.mod <- rbind(varname,jjep.58.3.348.rp15); write(jjep.58.3.348.mod, file = "./jjep/Mod_58_3_348.txt")
jjep.58.3.361.tx <- readr::read_file(file="./jjep/58_3_361.txt"); jjep.58.3.361.rm00 <- jjep.58.3.361.tx; jjep.58.3.361.rm01 <- str_replace_all(jjep.58.3.361.rm00, pattern = rm.01, replacement = ""); jjep.58.3.361.rm02 <- str_replace_all(jjep.58.3.361.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.361.rm03 <- str_replace_all(jjep.58.3.361.rm02, pattern = rm.03, replacement = ""); jjep.58.3.361.rm04 <- str_replace_all(jjep.58.3.361.rm03, pattern = rm.04, replacement = ""); jjep.58.3.361.rm05 <- str_replace_all(jjep.58.3.361.rm04, pattern = rm.05, replacement = ""); jjep.58.3.361.rm06 <- str_replace_all(jjep.58.3.361.rm05, pattern = rm.06, replacement = ""); jjep.58.3.361.rm07 <- str_replace_all(jjep.58.3.361.rm06, pattern = rm.07, replacement = ""); jjep.58.3.361.rm08 <- str_replace_all(jjep.58.3.361.rm07, pattern = rm.08, replacement = ""); jjep.58.3.361.rm09 <- str_replace_all(jjep.58.3.361.rm08, pattern = rm.09, replacement = ""); jjep.58.3.361.rp10 <- str_replace_all(jjep.58.3.361.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.361.rp11 <- str_replace_all(jjep.58.3.361.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.361.rp12 <- str_replace_all(jjep.58.3.361.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.361.rp13 <- str_replace_all(jjep.58.3.361.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.361.rp14 <- str_replace_all(jjep.58.3.361.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.361.rp15 <- str_replace_all(jjep.58.3.361.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.361.mod <- rbind(varname,jjep.58.3.361.rp15); write(jjep.58.3.361.mod, file = "./jjep/Mod_58_3_361.txt")
jjep.58.3.372.tx <- readr::read_file(file="./jjep/58_3_372.txt"); jjep.58.3.372.rm00 <- jjep.58.3.372.tx; jjep.58.3.372.rm01 <- str_replace_all(jjep.58.3.372.rm00, pattern = rm.01, replacement = ""); jjep.58.3.372.rm02 <- str_replace_all(jjep.58.3.372.rm01, pattern = rm.02, replacement = "^"); jjep.58.3.372.rm03 <- str_replace_all(jjep.58.3.372.rm02, pattern = rm.03, replacement = ""); jjep.58.3.372.rm04 <- str_replace_all(jjep.58.3.372.rm03, pattern = rm.04, replacement = ""); jjep.58.3.372.rm05 <- str_replace_all(jjep.58.3.372.rm04, pattern = rm.05, replacement = ""); jjep.58.3.372.rm06 <- str_replace_all(jjep.58.3.372.rm05, pattern = rm.06, replacement = ""); jjep.58.3.372.rm07 <- str_replace_all(jjep.58.3.372.rm06, pattern = rm.07, replacement = ""); jjep.58.3.372.rm08 <- str_replace_all(jjep.58.3.372.rm07, pattern = rm.08, replacement = ""); jjep.58.3.372.rm09 <- str_replace_all(jjep.58.3.372.rm08, pattern = rm.09, replacement = ""); jjep.58.3.372.rp10 <- str_replace_all(jjep.58.3.372.rm09, pattern = rp.01, replacement = "・"); jjep.58.3.372.rp11 <- str_replace_all(jjep.58.3.372.rp10, pattern = rp.02, replacement = "^"); jjep.58.3.372.rp12 <- str_replace_all(jjep.58.3.372.rp11, pattern = rp.03, replacement = "^"); jjep.58.3.372.rp13 <- str_replace_all(jjep.58.3.372.rp12, pattern = rp.04, replacement = "^"); jjep.58.3.372.rp14 <- str_replace_all(jjep.58.3.372.rp13, pattern = rp.05, replacement = "^"); jjep.58.3.372.rp15 <- str_replace_all(jjep.58.3.372.rp14, pattern = rp.06, replacement = "^"); jjep.58.3.372.mod <- rbind(varname,jjep.58.3.372.rp15); write(jjep.58.3.372.mod, file = "./jjep/Mod_58_3_372.txt")
jjep.58.2.129.tx <- readr::read_file(file="./jjep/58_2_129.txt"); jjep.58.2.129.rm00 <- jjep.58.2.129.tx; jjep.58.2.129.rm01 <- str_replace_all(jjep.58.2.129.rm00, pattern = rm.01, replacement = ""); jjep.58.2.129.rm02 <- str_replace_all(jjep.58.2.129.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.129.rm03 <- str_replace_all(jjep.58.2.129.rm02, pattern = rm.03, replacement = ""); jjep.58.2.129.rm04 <- str_replace_all(jjep.58.2.129.rm03, pattern = rm.04, replacement = ""); jjep.58.2.129.rm05 <- str_replace_all(jjep.58.2.129.rm04, pattern = rm.05, replacement = ""); jjep.58.2.129.rm06 <- str_replace_all(jjep.58.2.129.rm05, pattern = rm.06, replacement = ""); jjep.58.2.129.rm07 <- str_replace_all(jjep.58.2.129.rm06, pattern = rm.07, replacement = ""); jjep.58.2.129.rm08 <- str_replace_all(jjep.58.2.129.rm07, pattern = rm.08, replacement = ""); jjep.58.2.129.rm09 <- str_replace_all(jjep.58.2.129.rm08, pattern = rm.09, replacement = ""); jjep.58.2.129.rp10 <- str_replace_all(jjep.58.2.129.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.129.rp11 <- str_replace_all(jjep.58.2.129.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.129.rp12 <- str_replace_all(jjep.58.2.129.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.129.rp13 <- str_replace_all(jjep.58.2.129.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.129.rp14 <- str_replace_all(jjep.58.2.129.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.129.rp15 <- str_replace_all(jjep.58.2.129.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.129.mod <- rbind(varname,jjep.58.2.129.rp15); write(jjep.58.2.129.mod, file = "./jjep/Mod_58_2_129.txt")
jjep.58.2.140.tx <- readr::read_file(file="./jjep/58_2_140.txt"); jjep.58.2.140.rm00 <- jjep.58.2.140.tx; jjep.58.2.140.rm01 <- str_replace_all(jjep.58.2.140.rm00, pattern = rm.01, replacement = ""); jjep.58.2.140.rm02 <- str_replace_all(jjep.58.2.140.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.140.rm03 <- str_replace_all(jjep.58.2.140.rm02, pattern = rm.03, replacement = ""); jjep.58.2.140.rm04 <- str_replace_all(jjep.58.2.140.rm03, pattern = rm.04, replacement = ""); jjep.58.2.140.rm05 <- str_replace_all(jjep.58.2.140.rm04, pattern = rm.05, replacement = ""); jjep.58.2.140.rm06 <- str_replace_all(jjep.58.2.140.rm05, pattern = rm.06, replacement = ""); jjep.58.2.140.rm07 <- str_replace_all(jjep.58.2.140.rm06, pattern = rm.07, replacement = ""); jjep.58.2.140.rm08 <- str_replace_all(jjep.58.2.140.rm07, pattern = rm.08, replacement = ""); jjep.58.2.140.rm09 <- str_replace_all(jjep.58.2.140.rm08, pattern = rm.09, replacement = ""); jjep.58.2.140.rp10 <- str_replace_all(jjep.58.2.140.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.140.rp11 <- str_replace_all(jjep.58.2.140.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.140.rp12 <- str_replace_all(jjep.58.2.140.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.140.rp13 <- str_replace_all(jjep.58.2.140.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.140.rp14 <- str_replace_all(jjep.58.2.140.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.140.rp15 <- str_replace_all(jjep.58.2.140.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.140.mod <- rbind(varname,jjep.58.2.140.rp15); write(jjep.58.2.140.mod, file = "./jjep/Mod_58_2_140.txt")
jjep.58.2.151.tx <- readr::read_file(file="./jjep/58_2_151.txt"); jjep.58.2.151.rm00 <- jjep.58.2.151.tx; jjep.58.2.151.rm01 <- str_replace_all(jjep.58.2.151.rm00, pattern = rm.01, replacement = ""); jjep.58.2.151.rm02 <- str_replace_all(jjep.58.2.151.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.151.rm03 <- str_replace_all(jjep.58.2.151.rm02, pattern = rm.03, replacement = ""); jjep.58.2.151.rm04 <- str_replace_all(jjep.58.2.151.rm03, pattern = rm.04, replacement = ""); jjep.58.2.151.rm05 <- str_replace_all(jjep.58.2.151.rm04, pattern = rm.05, replacement = ""); jjep.58.2.151.rm06 <- str_replace_all(jjep.58.2.151.rm05, pattern = rm.06, replacement = ""); jjep.58.2.151.rm07 <- str_replace_all(jjep.58.2.151.rm06, pattern = rm.07, replacement = ""); jjep.58.2.151.rm08 <- str_replace_all(jjep.58.2.151.rm07, pattern = rm.08, replacement = ""); jjep.58.2.151.rm09 <- str_replace_all(jjep.58.2.151.rm08, pattern = rm.09, replacement = ""); jjep.58.2.151.rp10 <- str_replace_all(jjep.58.2.151.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.151.rp11 <- str_replace_all(jjep.58.2.151.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.151.rp12 <- str_replace_all(jjep.58.2.151.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.151.rp13 <- str_replace_all(jjep.58.2.151.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.151.rp14 <- str_replace_all(jjep.58.2.151.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.151.rp15 <- str_replace_all(jjep.58.2.151.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.151.mod <- rbind(varname,jjep.58.2.151.rp15); write(jjep.58.2.151.mod, file = "./jjep/Mod_58_2_151.txt")
jjep.58.2.163.tx <- readr::read_file(file="./jjep/58_2_163.txt"); jjep.58.2.163.rm00 <- jjep.58.2.163.tx; jjep.58.2.163.rm01 <- str_replace_all(jjep.58.2.163.rm00, pattern = rm.01, replacement = ""); jjep.58.2.163.rm02 <- str_replace_all(jjep.58.2.163.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.163.rm03 <- str_replace_all(jjep.58.2.163.rm02, pattern = rm.03, replacement = ""); jjep.58.2.163.rm04 <- str_replace_all(jjep.58.2.163.rm03, pattern = rm.04, replacement = ""); jjep.58.2.163.rm05 <- str_replace_all(jjep.58.2.163.rm04, pattern = rm.05, replacement = ""); jjep.58.2.163.rm06 <- str_replace_all(jjep.58.2.163.rm05, pattern = rm.06, replacement = ""); jjep.58.2.163.rm07 <- str_replace_all(jjep.58.2.163.rm06, pattern = rm.07, replacement = ""); jjep.58.2.163.rm08 <- str_replace_all(jjep.58.2.163.rm07, pattern = rm.08, replacement = ""); jjep.58.2.163.rm09 <- str_replace_all(jjep.58.2.163.rm08, pattern = rm.09, replacement = ""); jjep.58.2.163.rp10 <- str_replace_all(jjep.58.2.163.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.163.rp11 <- str_replace_all(jjep.58.2.163.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.163.rp12 <- str_replace_all(jjep.58.2.163.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.163.rp13 <- str_replace_all(jjep.58.2.163.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.163.rp14 <- str_replace_all(jjep.58.2.163.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.163.rp15 <- str_replace_all(jjep.58.2.163.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.163.mod <- rbind(varname,jjep.58.2.163.rp15); write(jjep.58.2.163.mod, file = "./jjep/Mod_58_2_163.txt")
jjep.58.2.176.tx <- readr::read_file(file="./jjep/58_2_176.txt"); jjep.58.2.176.rm00 <- jjep.58.2.176.tx; jjep.58.2.176.rm01 <- str_replace_all(jjep.58.2.176.rm00, pattern = rm.01, replacement = ""); jjep.58.2.176.rm02 <- str_replace_all(jjep.58.2.176.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.176.rm03 <- str_replace_all(jjep.58.2.176.rm02, pattern = rm.03, replacement = ""); jjep.58.2.176.rm04 <- str_replace_all(jjep.58.2.176.rm03, pattern = rm.04, replacement = ""); jjep.58.2.176.rm05 <- str_replace_all(jjep.58.2.176.rm04, pattern = rm.05, replacement = ""); jjep.58.2.176.rm06 <- str_replace_all(jjep.58.2.176.rm05, pattern = rm.06, replacement = ""); jjep.58.2.176.rm07 <- str_replace_all(jjep.58.2.176.rm06, pattern = rm.07, replacement = ""); jjep.58.2.176.rm08 <- str_replace_all(jjep.58.2.176.rm07, pattern = rm.08, replacement = ""); jjep.58.2.176.rm09 <- str_replace_all(jjep.58.2.176.rm08, pattern = rm.09, replacement = ""); jjep.58.2.176.rp10 <- str_replace_all(jjep.58.2.176.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.176.rp11 <- str_replace_all(jjep.58.2.176.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.176.rp12 <- str_replace_all(jjep.58.2.176.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.176.rp13 <- str_replace_all(jjep.58.2.176.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.176.rp14 <- str_replace_all(jjep.58.2.176.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.176.rp15 <- str_replace_all(jjep.58.2.176.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.176.mod <- rbind(varname,jjep.58.2.176.rp15); write(jjep.58.2.176.mod, file = "./jjep/Mod_58_2_176.txt")
jjep.58.2.186.tx <- readr::read_file(file="./jjep/58_2_186.txt"); jjep.58.2.186.rm00 <- jjep.58.2.186.tx; jjep.58.2.186.rm01 <- str_replace_all(jjep.58.2.186.rm00, pattern = rm.01, replacement = ""); jjep.58.2.186.rm02 <- str_replace_all(jjep.58.2.186.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.186.rm03 <- str_replace_all(jjep.58.2.186.rm02, pattern = rm.03, replacement = ""); jjep.58.2.186.rm04 <- str_replace_all(jjep.58.2.186.rm03, pattern = rm.04, replacement = ""); jjep.58.2.186.rm05 <- str_replace_all(jjep.58.2.186.rm04, pattern = rm.05, replacement = ""); jjep.58.2.186.rm06 <- str_replace_all(jjep.58.2.186.rm05, pattern = rm.06, replacement = ""); jjep.58.2.186.rm07 <- str_replace_all(jjep.58.2.186.rm06, pattern = rm.07, replacement = ""); jjep.58.2.186.rm08 <- str_replace_all(jjep.58.2.186.rm07, pattern = rm.08, replacement = ""); jjep.58.2.186.rm09 <- str_replace_all(jjep.58.2.186.rm08, pattern = rm.09, replacement = ""); jjep.58.2.186.rp10 <- str_replace_all(jjep.58.2.186.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.186.rp11 <- str_replace_all(jjep.58.2.186.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.186.rp12 <- str_replace_all(jjep.58.2.186.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.186.rp13 <- str_replace_all(jjep.58.2.186.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.186.rp14 <- str_replace_all(jjep.58.2.186.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.186.rp15 <- str_replace_all(jjep.58.2.186.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.186.mod <- rbind(varname,jjep.58.2.186.rp15); write(jjep.58.2.186.mod, file = "./jjep/Mod_58_2_186.txt")
jjep.58.2.198.tx <- readr::read_file(file="./jjep/58_2_198.txt"); jjep.58.2.198.rm00 <- jjep.58.2.198.tx; jjep.58.2.198.rm01 <- str_replace_all(jjep.58.2.198.rm00, pattern = rm.01, replacement = ""); jjep.58.2.198.rm02 <- str_replace_all(jjep.58.2.198.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.198.rm03 <- str_replace_all(jjep.58.2.198.rm02, pattern = rm.03, replacement = ""); jjep.58.2.198.rm04 <- str_replace_all(jjep.58.2.198.rm03, pattern = rm.04, replacement = ""); jjep.58.2.198.rm05 <- str_replace_all(jjep.58.2.198.rm04, pattern = rm.05, replacement = ""); jjep.58.2.198.rm06 <- str_replace_all(jjep.58.2.198.rm05, pattern = rm.06, replacement = ""); jjep.58.2.198.rm07 <- str_replace_all(jjep.58.2.198.rm06, pattern = rm.07, replacement = ""); jjep.58.2.198.rm08 <- str_replace_all(jjep.58.2.198.rm07, pattern = rm.08, replacement = ""); jjep.58.2.198.rm09 <- str_replace_all(jjep.58.2.198.rm08, pattern = rm.09, replacement = ""); jjep.58.2.198.rp10 <- str_replace_all(jjep.58.2.198.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.198.rp11 <- str_replace_all(jjep.58.2.198.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.198.rp12 <- str_replace_all(jjep.58.2.198.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.198.rp13 <- str_replace_all(jjep.58.2.198.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.198.rp14 <- str_replace_all(jjep.58.2.198.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.198.rp15 <- str_replace_all(jjep.58.2.198.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.198.mod <- rbind(varname,jjep.58.2.198.rp15); write(jjep.58.2.198.mod, file = "./jjep/Mod_58_2_198.txt")
jjep.58.2.212.tx <- readr::read_file(file="./jjep/58_2_212.txt"); jjep.58.2.212.rm00 <- jjep.58.2.212.tx; jjep.58.2.212.rm01 <- str_replace_all(jjep.58.2.212.rm00, pattern = rm.01, replacement = ""); jjep.58.2.212.rm02 <- str_replace_all(jjep.58.2.212.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.212.rm03 <- str_replace_all(jjep.58.2.212.rm02, pattern = rm.03, replacement = ""); jjep.58.2.212.rm04 <- str_replace_all(jjep.58.2.212.rm03, pattern = rm.04, replacement = ""); jjep.58.2.212.rm05 <- str_replace_all(jjep.58.2.212.rm04, pattern = rm.05, replacement = ""); jjep.58.2.212.rm06 <- str_replace_all(jjep.58.2.212.rm05, pattern = rm.06, replacement = ""); jjep.58.2.212.rm07 <- str_replace_all(jjep.58.2.212.rm06, pattern = rm.07, replacement = ""); jjep.58.2.212.rm08 <- str_replace_all(jjep.58.2.212.rm07, pattern = rm.08, replacement = ""); jjep.58.2.212.rm09 <- str_replace_all(jjep.58.2.212.rm08, pattern = rm.09, replacement = ""); jjep.58.2.212.rp10 <- str_replace_all(jjep.58.2.212.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.212.rp11 <- str_replace_all(jjep.58.2.212.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.212.rp12 <- str_replace_all(jjep.58.2.212.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.212.rp13 <- str_replace_all(jjep.58.2.212.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.212.rp14 <- str_replace_all(jjep.58.2.212.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.212.rp15 <- str_replace_all(jjep.58.2.212.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.212.mod <- rbind(varname,jjep.58.2.212.rp15); write(jjep.58.2.212.mod, file = "./jjep/Mod_58_2_212.txt")
jjep.58.2.224.tx <- readr::read_file(file="./jjep/58_2_224.txt"); jjep.58.2.224.rm00 <- jjep.58.2.224.tx; jjep.58.2.224.rm01 <- str_replace_all(jjep.58.2.224.rm00, pattern = rm.01, replacement = ""); jjep.58.2.224.rm02 <- str_replace_all(jjep.58.2.224.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.224.rm03 <- str_replace_all(jjep.58.2.224.rm02, pattern = rm.03, replacement = ""); jjep.58.2.224.rm04 <- str_replace_all(jjep.58.2.224.rm03, pattern = rm.04, replacement = ""); jjep.58.2.224.rm05 <- str_replace_all(jjep.58.2.224.rm04, pattern = rm.05, replacement = ""); jjep.58.2.224.rm06 <- str_replace_all(jjep.58.2.224.rm05, pattern = rm.06, replacement = ""); jjep.58.2.224.rm07 <- str_replace_all(jjep.58.2.224.rm06, pattern = rm.07, replacement = ""); jjep.58.2.224.rm08 <- str_replace_all(jjep.58.2.224.rm07, pattern = rm.08, replacement = ""); jjep.58.2.224.rm09 <- str_replace_all(jjep.58.2.224.rm08, pattern = rm.09, replacement = ""); jjep.58.2.224.rp10 <- str_replace_all(jjep.58.2.224.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.224.rp11 <- str_replace_all(jjep.58.2.224.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.224.rp12 <- str_replace_all(jjep.58.2.224.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.224.rp13 <- str_replace_all(jjep.58.2.224.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.224.rp14 <- str_replace_all(jjep.58.2.224.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.224.rp15 <- str_replace_all(jjep.58.2.224.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.224.mod <- rbind(varname,jjep.58.2.224.rp15); write(jjep.58.2.224.mod, file = "./jjep/Mod_58_2_224.txt")
jjep.58.2.236.tx <- readr::read_file(file="./jjep/58_2_236.txt"); jjep.58.2.236.rm00 <- jjep.58.2.236.tx; jjep.58.2.236.rm01 <- str_replace_all(jjep.58.2.236.rm00, pattern = rm.01, replacement = ""); jjep.58.2.236.rm02 <- str_replace_all(jjep.58.2.236.rm01, pattern = rm.02, replacement = "^"); jjep.58.2.236.rm03 <- str_replace_all(jjep.58.2.236.rm02, pattern = rm.03, replacement = ""); jjep.58.2.236.rm04 <- str_replace_all(jjep.58.2.236.rm03, pattern = rm.04, replacement = ""); jjep.58.2.236.rm05 <- str_replace_all(jjep.58.2.236.rm04, pattern = rm.05, replacement = ""); jjep.58.2.236.rm06 <- str_replace_all(jjep.58.2.236.rm05, pattern = rm.06, replacement = ""); jjep.58.2.236.rm07 <- str_replace_all(jjep.58.2.236.rm06, pattern = rm.07, replacement = ""); jjep.58.2.236.rm08 <- str_replace_all(jjep.58.2.236.rm07, pattern = rm.08, replacement = ""); jjep.58.2.236.rm09 <- str_replace_all(jjep.58.2.236.rm08, pattern = rm.09, replacement = ""); jjep.58.2.236.rp10 <- str_replace_all(jjep.58.2.236.rm09, pattern = rp.01, replacement = "・"); jjep.58.2.236.rp11 <- str_replace_all(jjep.58.2.236.rp10, pattern = rp.02, replacement = "^"); jjep.58.2.236.rp12 <- str_replace_all(jjep.58.2.236.rp11, pattern = rp.03, replacement = "^"); jjep.58.2.236.rp13 <- str_replace_all(jjep.58.2.236.rp12, pattern = rp.04, replacement = "^"); jjep.58.2.236.rp14 <- str_replace_all(jjep.58.2.236.rp13, pattern = rp.05, replacement = "^"); jjep.58.2.236.rp15 <- str_replace_all(jjep.58.2.236.rp14, pattern = rp.06, replacement = "^"); jjep.58.2.236.mod <- rbind(varname,jjep.58.2.236.rp15); write(jjep.58.2.236.mod, file = "./jjep/Mod_58_2_236.txt")
jjep.58.1.1.tx <- readr::read_file(file="./jjep/58_1_1.txt"); jjep.58.1.1.rm00 <- jjep.58.1.1.tx; jjep.58.1.1.rm01 <- str_replace_all(jjep.58.1.1.rm00, pattern = rm.01, replacement = ""); jjep.58.1.1.rm02 <- str_replace_all(jjep.58.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.1.rm03 <- str_replace_all(jjep.58.1.1.rm02, pattern = rm.03, replacement = ""); jjep.58.1.1.rm04 <- str_replace_all(jjep.58.1.1.rm03, pattern = rm.04, replacement = ""); jjep.58.1.1.rm05 <- str_replace_all(jjep.58.1.1.rm04, pattern = rm.05, replacement = ""); jjep.58.1.1.rm06 <- str_replace_all(jjep.58.1.1.rm05, pattern = rm.06, replacement = ""); jjep.58.1.1.rm07 <- str_replace_all(jjep.58.1.1.rm06, pattern = rm.07, replacement = ""); jjep.58.1.1.rm08 <- str_replace_all(jjep.58.1.1.rm07, pattern = rm.08, replacement = ""); jjep.58.1.1.rm09 <- str_replace_all(jjep.58.1.1.rm08, pattern = rm.09, replacement = ""); jjep.58.1.1.rp10 <- str_replace_all(jjep.58.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.1.rp11 <- str_replace_all(jjep.58.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.1.rp12 <- str_replace_all(jjep.58.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.1.rp13 <- str_replace_all(jjep.58.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.1.rp14 <- str_replace_all(jjep.58.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.1.rp15 <- str_replace_all(jjep.58.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.1.mod <- rbind(varname,jjep.58.1.1.rp15); write(jjep.58.1.1.mod, file = "./jjep/Mod_58_1_1.txt")
jjep.58.1.12.tx <- readr::read_file(file="./jjep/58_1_12.txt"); jjep.58.1.12.rm00 <- jjep.58.1.12.tx; jjep.58.1.12.rm01 <- str_replace_all(jjep.58.1.12.rm00, pattern = rm.01, replacement = ""); jjep.58.1.12.rm02 <- str_replace_all(jjep.58.1.12.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.12.rm03 <- str_replace_all(jjep.58.1.12.rm02, pattern = rm.03, replacement = ""); jjep.58.1.12.rm04 <- str_replace_all(jjep.58.1.12.rm03, pattern = rm.04, replacement = ""); jjep.58.1.12.rm05 <- str_replace_all(jjep.58.1.12.rm04, pattern = rm.05, replacement = ""); jjep.58.1.12.rm06 <- str_replace_all(jjep.58.1.12.rm05, pattern = rm.06, replacement = ""); jjep.58.1.12.rm07 <- str_replace_all(jjep.58.1.12.rm06, pattern = rm.07, replacement = ""); jjep.58.1.12.rm08 <- str_replace_all(jjep.58.1.12.rm07, pattern = rm.08, replacement = ""); jjep.58.1.12.rm09 <- str_replace_all(jjep.58.1.12.rm08, pattern = rm.09, replacement = ""); jjep.58.1.12.rp10 <- str_replace_all(jjep.58.1.12.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.12.rp11 <- str_replace_all(jjep.58.1.12.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.12.rp12 <- str_replace_all(jjep.58.1.12.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.12.rp13 <- str_replace_all(jjep.58.1.12.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.12.rp14 <- str_replace_all(jjep.58.1.12.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.12.rp15 <- str_replace_all(jjep.58.1.12.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.12.mod <- rbind(varname,jjep.58.1.12.rp15); write(jjep.58.1.12.mod, file = "./jjep/Mod_58_1_12.txt")
jjep.58.1.23.tx <- readr::read_file(file="./jjep/58_1_23.txt"); jjep.58.1.23.rm00 <- jjep.58.1.23.tx; jjep.58.1.23.rm01 <- str_replace_all(jjep.58.1.23.rm00, pattern = rm.01, replacement = ""); jjep.58.1.23.rm02 <- str_replace_all(jjep.58.1.23.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.23.rm03 <- str_replace_all(jjep.58.1.23.rm02, pattern = rm.03, replacement = ""); jjep.58.1.23.rm04 <- str_replace_all(jjep.58.1.23.rm03, pattern = rm.04, replacement = ""); jjep.58.1.23.rm05 <- str_replace_all(jjep.58.1.23.rm04, pattern = rm.05, replacement = ""); jjep.58.1.23.rm06 <- str_replace_all(jjep.58.1.23.rm05, pattern = rm.06, replacement = ""); jjep.58.1.23.rm07 <- str_replace_all(jjep.58.1.23.rm06, pattern = rm.07, replacement = ""); jjep.58.1.23.rm08 <- str_replace_all(jjep.58.1.23.rm07, pattern = rm.08, replacement = ""); jjep.58.1.23.rm09 <- str_replace_all(jjep.58.1.23.rm08, pattern = rm.09, replacement = ""); jjep.58.1.23.rp10 <- str_replace_all(jjep.58.1.23.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.23.rp11 <- str_replace_all(jjep.58.1.23.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.23.rp12 <- str_replace_all(jjep.58.1.23.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.23.rp13 <- str_replace_all(jjep.58.1.23.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.23.rp14 <- str_replace_all(jjep.58.1.23.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.23.rp15 <- str_replace_all(jjep.58.1.23.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.23.mod <- rbind(varname,jjep.58.1.23.rp15); write(jjep.58.1.23.mod, file = "./jjep/Mod_58_1_23.txt")
jjep.58.1.34.tx <- readr::read_file(file="./jjep/58_1_34.txt"); jjep.58.1.34.rm00 <- jjep.58.1.34.tx; jjep.58.1.34.rm01 <- str_replace_all(jjep.58.1.34.rm00, pattern = rm.01, replacement = ""); jjep.58.1.34.rm02 <- str_replace_all(jjep.58.1.34.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.34.rm03 <- str_replace_all(jjep.58.1.34.rm02, pattern = rm.03, replacement = ""); jjep.58.1.34.rm04 <- str_replace_all(jjep.58.1.34.rm03, pattern = rm.04, replacement = ""); jjep.58.1.34.rm05 <- str_replace_all(jjep.58.1.34.rm04, pattern = rm.05, replacement = ""); jjep.58.1.34.rm06 <- str_replace_all(jjep.58.1.34.rm05, pattern = rm.06, replacement = ""); jjep.58.1.34.rm07 <- str_replace_all(jjep.58.1.34.rm06, pattern = rm.07, replacement = ""); jjep.58.1.34.rm08 <- str_replace_all(jjep.58.1.34.rm07, pattern = rm.08, replacement = ""); jjep.58.1.34.rm09 <- str_replace_all(jjep.58.1.34.rm08, pattern = rm.09, replacement = ""); jjep.58.1.34.rp10 <- str_replace_all(jjep.58.1.34.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.34.rp11 <- str_replace_all(jjep.58.1.34.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.34.rp12 <- str_replace_all(jjep.58.1.34.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.34.rp13 <- str_replace_all(jjep.58.1.34.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.34.rp14 <- str_replace_all(jjep.58.1.34.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.34.rp15 <- str_replace_all(jjep.58.1.34.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.34.mod <- rbind(varname,jjep.58.1.34.rp15); write(jjep.58.1.34.mod, file = "./jjep/Mod_58_1_34.txt")
jjep.58.1.46.tx <- readr::read_file(file="./jjep/58_1_46.txt"); jjep.58.1.46.rm00 <- jjep.58.1.46.tx; jjep.58.1.46.rm01 <- str_replace_all(jjep.58.1.46.rm00, pattern = rm.01, replacement = ""); jjep.58.1.46.rm02 <- str_replace_all(jjep.58.1.46.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.46.rm03 <- str_replace_all(jjep.58.1.46.rm02, pattern = rm.03, replacement = ""); jjep.58.1.46.rm04 <- str_replace_all(jjep.58.1.46.rm03, pattern = rm.04, replacement = ""); jjep.58.1.46.rm05 <- str_replace_all(jjep.58.1.46.rm04, pattern = rm.05, replacement = ""); jjep.58.1.46.rm06 <- str_replace_all(jjep.58.1.46.rm05, pattern = rm.06, replacement = ""); jjep.58.1.46.rm07 <- str_replace_all(jjep.58.1.46.rm06, pattern = rm.07, replacement = ""); jjep.58.1.46.rm08 <- str_replace_all(jjep.58.1.46.rm07, pattern = rm.08, replacement = ""); jjep.58.1.46.rm09 <- str_replace_all(jjep.58.1.46.rm08, pattern = rm.09, replacement = ""); jjep.58.1.46.rp10 <- str_replace_all(jjep.58.1.46.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.46.rp11 <- str_replace_all(jjep.58.1.46.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.46.rp12 <- str_replace_all(jjep.58.1.46.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.46.rp13 <- str_replace_all(jjep.58.1.46.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.46.rp14 <- str_replace_all(jjep.58.1.46.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.46.rp15 <- str_replace_all(jjep.58.1.46.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.46.mod <- rbind(varname,jjep.58.1.46.rp15); write(jjep.58.1.46.mod, file = "./jjep/Mod_58_1_46.txt")
jjep.58.1.57.tx <- readr::read_file(file="./jjep/58_1_57.txt"); jjep.58.1.57.rm00 <- jjep.58.1.57.tx; jjep.58.1.57.rm01 <- str_replace_all(jjep.58.1.57.rm00, pattern = rm.01, replacement = ""); jjep.58.1.57.rm02 <- str_replace_all(jjep.58.1.57.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.57.rm03 <- str_replace_all(jjep.58.1.57.rm02, pattern = rm.03, replacement = ""); jjep.58.1.57.rm04 <- str_replace_all(jjep.58.1.57.rm03, pattern = rm.04, replacement = ""); jjep.58.1.57.rm05 <- str_replace_all(jjep.58.1.57.rm04, pattern = rm.05, replacement = ""); jjep.58.1.57.rm06 <- str_replace_all(jjep.58.1.57.rm05, pattern = rm.06, replacement = ""); jjep.58.1.57.rm07 <- str_replace_all(jjep.58.1.57.rm06, pattern = rm.07, replacement = ""); jjep.58.1.57.rm08 <- str_replace_all(jjep.58.1.57.rm07, pattern = rm.08, replacement = ""); jjep.58.1.57.rm09 <- str_replace_all(jjep.58.1.57.rm08, pattern = rm.09, replacement = ""); jjep.58.1.57.rp10 <- str_replace_all(jjep.58.1.57.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.57.rp11 <- str_replace_all(jjep.58.1.57.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.57.rp12 <- str_replace_all(jjep.58.1.57.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.57.rp13 <- str_replace_all(jjep.58.1.57.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.57.rp14 <- str_replace_all(jjep.58.1.57.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.57.rp15 <- str_replace_all(jjep.58.1.57.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.57.mod <- rbind(varname,jjep.58.1.57.rp15); write(jjep.58.1.57.mod, file = "./jjep/Mod_58_1_57.txt")
jjep.58.1.69.tx <- readr::read_file(file="./jjep/58_1_69.txt"); jjep.58.1.69.rm00 <- jjep.58.1.69.tx; jjep.58.1.69.rm01 <- str_replace_all(jjep.58.1.69.rm00, pattern = rm.01, replacement = ""); jjep.58.1.69.rm02 <- str_replace_all(jjep.58.1.69.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.69.rm03 <- str_replace_all(jjep.58.1.69.rm02, pattern = rm.03, replacement = ""); jjep.58.1.69.rm04 <- str_replace_all(jjep.58.1.69.rm03, pattern = rm.04, replacement = ""); jjep.58.1.69.rm05 <- str_replace_all(jjep.58.1.69.rm04, pattern = rm.05, replacement = ""); jjep.58.1.69.rm06 <- str_replace_all(jjep.58.1.69.rm05, pattern = rm.06, replacement = ""); jjep.58.1.69.rm07 <- str_replace_all(jjep.58.1.69.rm06, pattern = rm.07, replacement = ""); jjep.58.1.69.rm08 <- str_replace_all(jjep.58.1.69.rm07, pattern = rm.08, replacement = ""); jjep.58.1.69.rm09 <- str_replace_all(jjep.58.1.69.rm08, pattern = rm.09, replacement = ""); jjep.58.1.69.rp10 <- str_replace_all(jjep.58.1.69.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.69.rp11 <- str_replace_all(jjep.58.1.69.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.69.rp12 <- str_replace_all(jjep.58.1.69.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.69.rp13 <- str_replace_all(jjep.58.1.69.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.69.rp14 <- str_replace_all(jjep.58.1.69.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.69.rp15 <- str_replace_all(jjep.58.1.69.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.69.mod <- rbind(varname,jjep.58.1.69.rp15); write(jjep.58.1.69.mod, file = "./jjep/Mod_58_1_69.txt")
jjep.58.1.80.tx <- readr::read_file(file="./jjep/58_1_80.txt"); jjep.58.1.80.rm00 <- jjep.58.1.80.tx; jjep.58.1.80.rm01 <- str_replace_all(jjep.58.1.80.rm00, pattern = rm.01, replacement = ""); jjep.58.1.80.rm02 <- str_replace_all(jjep.58.1.80.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.80.rm03 <- str_replace_all(jjep.58.1.80.rm02, pattern = rm.03, replacement = ""); jjep.58.1.80.rm04 <- str_replace_all(jjep.58.1.80.rm03, pattern = rm.04, replacement = ""); jjep.58.1.80.rm05 <- str_replace_all(jjep.58.1.80.rm04, pattern = rm.05, replacement = ""); jjep.58.1.80.rm06 <- str_replace_all(jjep.58.1.80.rm05, pattern = rm.06, replacement = ""); jjep.58.1.80.rm07 <- str_replace_all(jjep.58.1.80.rm06, pattern = rm.07, replacement = ""); jjep.58.1.80.rm08 <- str_replace_all(jjep.58.1.80.rm07, pattern = rm.08, replacement = ""); jjep.58.1.80.rm09 <- str_replace_all(jjep.58.1.80.rm08, pattern = rm.09, replacement = ""); jjep.58.1.80.rp10 <- str_replace_all(jjep.58.1.80.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.80.rp11 <- str_replace_all(jjep.58.1.80.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.80.rp12 <- str_replace_all(jjep.58.1.80.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.80.rp13 <- str_replace_all(jjep.58.1.80.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.80.rp14 <- str_replace_all(jjep.58.1.80.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.80.rp15 <- str_replace_all(jjep.58.1.80.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.80.mod <- rbind(varname,jjep.58.1.80.rp15); write(jjep.58.1.80.mod, file = "./jjep/Mod_58_1_80.txt")
jjep.58.1.95.tx <- readr::read_file(file="./jjep/58_1_95.txt"); jjep.58.1.95.rm00 <- jjep.58.1.95.tx; jjep.58.1.95.rm01 <- str_replace_all(jjep.58.1.95.rm00, pattern = rm.01, replacement = ""); jjep.58.1.95.rm02 <- str_replace_all(jjep.58.1.95.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.95.rm03 <- str_replace_all(jjep.58.1.95.rm02, pattern = rm.03, replacement = ""); jjep.58.1.95.rm04 <- str_replace_all(jjep.58.1.95.rm03, pattern = rm.04, replacement = ""); jjep.58.1.95.rm05 <- str_replace_all(jjep.58.1.95.rm04, pattern = rm.05, replacement = ""); jjep.58.1.95.rm06 <- str_replace_all(jjep.58.1.95.rm05, pattern = rm.06, replacement = ""); jjep.58.1.95.rm07 <- str_replace_all(jjep.58.1.95.rm06, pattern = rm.07, replacement = ""); jjep.58.1.95.rm08 <- str_replace_all(jjep.58.1.95.rm07, pattern = rm.08, replacement = ""); jjep.58.1.95.rm09 <- str_replace_all(jjep.58.1.95.rm08, pattern = rm.09, replacement = ""); jjep.58.1.95.rp10 <- str_replace_all(jjep.58.1.95.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.95.rp11 <- str_replace_all(jjep.58.1.95.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.95.rp12 <- str_replace_all(jjep.58.1.95.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.95.rp13 <- str_replace_all(jjep.58.1.95.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.95.rp14 <- str_replace_all(jjep.58.1.95.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.95.rp15 <- str_replace_all(jjep.58.1.95.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.95.mod <- rbind(varname,jjep.58.1.95.rp15); write(jjep.58.1.95.mod, file = "./jjep/Mod_58_1_95.txt")
jjep.58.1.108.tx <- readr::read_file(file="./jjep/58_1_108.txt"); jjep.58.1.108.rm00 <- jjep.58.1.108.tx; jjep.58.1.108.rm01 <- str_replace_all(jjep.58.1.108.rm00, pattern = rm.01, replacement = ""); jjep.58.1.108.rm02 <- str_replace_all(jjep.58.1.108.rm01, pattern = rm.02, replacement = "^"); jjep.58.1.108.rm03 <- str_replace_all(jjep.58.1.108.rm02, pattern = rm.03, replacement = ""); jjep.58.1.108.rm04 <- str_replace_all(jjep.58.1.108.rm03, pattern = rm.04, replacement = ""); jjep.58.1.108.rm05 <- str_replace_all(jjep.58.1.108.rm04, pattern = rm.05, replacement = ""); jjep.58.1.108.rm06 <- str_replace_all(jjep.58.1.108.rm05, pattern = rm.06, replacement = ""); jjep.58.1.108.rm07 <- str_replace_all(jjep.58.1.108.rm06, pattern = rm.07, replacement = ""); jjep.58.1.108.rm08 <- str_replace_all(jjep.58.1.108.rm07, pattern = rm.08, replacement = ""); jjep.58.1.108.rm09 <- str_replace_all(jjep.58.1.108.rm08, pattern = rm.09, replacement = ""); jjep.58.1.108.rp10 <- str_replace_all(jjep.58.1.108.rm09, pattern = rp.01, replacement = "・"); jjep.58.1.108.rp11 <- str_replace_all(jjep.58.1.108.rp10, pattern = rp.02, replacement = "^"); jjep.58.1.108.rp12 <- str_replace_all(jjep.58.1.108.rp11, pattern = rp.03, replacement = "^"); jjep.58.1.108.rp13 <- str_replace_all(jjep.58.1.108.rp12, pattern = rp.04, replacement = "^"); jjep.58.1.108.rp14 <- str_replace_all(jjep.58.1.108.rp13, pattern = rp.05, replacement = "^"); jjep.58.1.108.rp15 <- str_replace_all(jjep.58.1.108.rp14, pattern = rp.06, replacement = "^"); jjep.58.1.108.mod <- rbind(varname,jjep.58.1.108.rp15); write(jjep.58.1.108.mod, file = "./jjep/Mod_58_1_108.txt")
jjep.57.4.393.tx <- readr::read_file(file="./jjep/57_4_393.txt"); jjep.57.4.393.rm00 <- jjep.57.4.393.tx; jjep.57.4.393.rm01 <- str_replace_all(jjep.57.4.393.rm00, pattern = rm.01, replacement = ""); jjep.57.4.393.rm02 <- str_replace_all(jjep.57.4.393.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.393.rm03 <- str_replace_all(jjep.57.4.393.rm02, pattern = rm.03, replacement = ""); jjep.57.4.393.rm04 <- str_replace_all(jjep.57.4.393.rm03, pattern = rm.04, replacement = ""); jjep.57.4.393.rm05 <- str_replace_all(jjep.57.4.393.rm04, pattern = rm.05, replacement = ""); jjep.57.4.393.rm06 <- str_replace_all(jjep.57.4.393.rm05, pattern = rm.06, replacement = ""); jjep.57.4.393.rm07 <- str_replace_all(jjep.57.4.393.rm06, pattern = rm.07, replacement = ""); jjep.57.4.393.rm08 <- str_replace_all(jjep.57.4.393.rm07, pattern = rm.08, replacement = ""); jjep.57.4.393.rm09 <- str_replace_all(jjep.57.4.393.rm08, pattern = rm.09, replacement = ""); jjep.57.4.393.rp10 <- str_replace_all(jjep.57.4.393.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.393.rp11 <- str_replace_all(jjep.57.4.393.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.393.rp12 <- str_replace_all(jjep.57.4.393.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.393.rp13 <- str_replace_all(jjep.57.4.393.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.393.rp14 <- str_replace_all(jjep.57.4.393.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.393.rp15 <- str_replace_all(jjep.57.4.393.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.393.mod <- rbind(varname,jjep.57.4.393.rp15); write(jjep.57.4.393.mod, file = "./jjep/Mod_57_4_393.txt")
jjep.57.4.407.tx <- readr::read_file(file="./jjep/57_4_407.txt"); jjep.57.4.407.rm00 <- jjep.57.4.407.tx; jjep.57.4.407.rm01 <- str_replace_all(jjep.57.4.407.rm00, pattern = rm.01, replacement = ""); jjep.57.4.407.rm02 <- str_replace_all(jjep.57.4.407.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.407.rm03 <- str_replace_all(jjep.57.4.407.rm02, pattern = rm.03, replacement = ""); jjep.57.4.407.rm04 <- str_replace_all(jjep.57.4.407.rm03, pattern = rm.04, replacement = ""); jjep.57.4.407.rm05 <- str_replace_all(jjep.57.4.407.rm04, pattern = rm.05, replacement = ""); jjep.57.4.407.rm06 <- str_replace_all(jjep.57.4.407.rm05, pattern = rm.06, replacement = ""); jjep.57.4.407.rm07 <- str_replace_all(jjep.57.4.407.rm06, pattern = rm.07, replacement = ""); jjep.57.4.407.rm08 <- str_replace_all(jjep.57.4.407.rm07, pattern = rm.08, replacement = ""); jjep.57.4.407.rm09 <- str_replace_all(jjep.57.4.407.rm08, pattern = rm.09, replacement = ""); jjep.57.4.407.rp10 <- str_replace_all(jjep.57.4.407.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.407.rp11 <- str_replace_all(jjep.57.4.407.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.407.rp12 <- str_replace_all(jjep.57.4.407.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.407.rp13 <- str_replace_all(jjep.57.4.407.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.407.rp14 <- str_replace_all(jjep.57.4.407.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.407.rp15 <- str_replace_all(jjep.57.4.407.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.407.mod <- rbind(varname,jjep.57.4.407.rp15); write(jjep.57.4.407.mod, file = "./jjep/Mod_57_4_407.txt")
jjep.57.4.419.tx <- readr::read_file(file="./jjep/57_4_419.txt"); jjep.57.4.419.rm00 <- jjep.57.4.419.tx; jjep.57.4.419.rm01 <- str_replace_all(jjep.57.4.419.rm00, pattern = rm.01, replacement = ""); jjep.57.4.419.rm02 <- str_replace_all(jjep.57.4.419.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.419.rm03 <- str_replace_all(jjep.57.4.419.rm02, pattern = rm.03, replacement = ""); jjep.57.4.419.rm04 <- str_replace_all(jjep.57.4.419.rm03, pattern = rm.04, replacement = ""); jjep.57.4.419.rm05 <- str_replace_all(jjep.57.4.419.rm04, pattern = rm.05, replacement = ""); jjep.57.4.419.rm06 <- str_replace_all(jjep.57.4.419.rm05, pattern = rm.06, replacement = ""); jjep.57.4.419.rm07 <- str_replace_all(jjep.57.4.419.rm06, pattern = rm.07, replacement = ""); jjep.57.4.419.rm08 <- str_replace_all(jjep.57.4.419.rm07, pattern = rm.08, replacement = ""); jjep.57.4.419.rm09 <- str_replace_all(jjep.57.4.419.rm08, pattern = rm.09, replacement = ""); jjep.57.4.419.rp10 <- str_replace_all(jjep.57.4.419.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.419.rp11 <- str_replace_all(jjep.57.4.419.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.419.rp12 <- str_replace_all(jjep.57.4.419.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.419.rp13 <- str_replace_all(jjep.57.4.419.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.419.rp14 <- str_replace_all(jjep.57.4.419.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.419.rp15 <- str_replace_all(jjep.57.4.419.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.419.mod <- rbind(varname,jjep.57.4.419.rp15); write(jjep.57.4.419.mod, file = "./jjep/Mod_57_4_419.txt")
jjep.57.4.432.tx <- readr::read_file(file="./jjep/57_4_432.txt"); jjep.57.4.432.rm00 <- jjep.57.4.432.tx; jjep.57.4.432.rm01 <- str_replace_all(jjep.57.4.432.rm00, pattern = rm.01, replacement = ""); jjep.57.4.432.rm02 <- str_replace_all(jjep.57.4.432.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.432.rm03 <- str_replace_all(jjep.57.4.432.rm02, pattern = rm.03, replacement = ""); jjep.57.4.432.rm04 <- str_replace_all(jjep.57.4.432.rm03, pattern = rm.04, replacement = ""); jjep.57.4.432.rm05 <- str_replace_all(jjep.57.4.432.rm04, pattern = rm.05, replacement = ""); jjep.57.4.432.rm06 <- str_replace_all(jjep.57.4.432.rm05, pattern = rm.06, replacement = ""); jjep.57.4.432.rm07 <- str_replace_all(jjep.57.4.432.rm06, pattern = rm.07, replacement = ""); jjep.57.4.432.rm08 <- str_replace_all(jjep.57.4.432.rm07, pattern = rm.08, replacement = ""); jjep.57.4.432.rm09 <- str_replace_all(jjep.57.4.432.rm08, pattern = rm.09, replacement = ""); jjep.57.4.432.rp10 <- str_replace_all(jjep.57.4.432.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.432.rp11 <- str_replace_all(jjep.57.4.432.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.432.rp12 <- str_replace_all(jjep.57.4.432.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.432.rp13 <- str_replace_all(jjep.57.4.432.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.432.rp14 <- str_replace_all(jjep.57.4.432.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.432.rp15 <- str_replace_all(jjep.57.4.432.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.432.mod <- rbind(varname,jjep.57.4.432.rp15); write(jjep.57.4.432.mod, file = "./jjep/Mod_57_4_432.txt")
jjep.57.4.442.tx <- readr::read_file(file="./jjep/57_4_442.txt"); jjep.57.4.442.rm00 <- jjep.57.4.442.tx; jjep.57.4.442.rm01 <- str_replace_all(jjep.57.4.442.rm00, pattern = rm.01, replacement = ""); jjep.57.4.442.rm02 <- str_replace_all(jjep.57.4.442.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.442.rm03 <- str_replace_all(jjep.57.4.442.rm02, pattern = rm.03, replacement = ""); jjep.57.4.442.rm04 <- str_replace_all(jjep.57.4.442.rm03, pattern = rm.04, replacement = ""); jjep.57.4.442.rm05 <- str_replace_all(jjep.57.4.442.rm04, pattern = rm.05, replacement = ""); jjep.57.4.442.rm06 <- str_replace_all(jjep.57.4.442.rm05, pattern = rm.06, replacement = ""); jjep.57.4.442.rm07 <- str_replace_all(jjep.57.4.442.rm06, pattern = rm.07, replacement = ""); jjep.57.4.442.rm08 <- str_replace_all(jjep.57.4.442.rm07, pattern = rm.08, replacement = ""); jjep.57.4.442.rm09 <- str_replace_all(jjep.57.4.442.rm08, pattern = rm.09, replacement = ""); jjep.57.4.442.rp10 <- str_replace_all(jjep.57.4.442.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.442.rp11 <- str_replace_all(jjep.57.4.442.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.442.rp12 <- str_replace_all(jjep.57.4.442.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.442.rp13 <- str_replace_all(jjep.57.4.442.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.442.rp14 <- str_replace_all(jjep.57.4.442.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.442.rp15 <- str_replace_all(jjep.57.4.442.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.442.mod <- rbind(varname,jjep.57.4.442.rp15); write(jjep.57.4.442.mod, file = "./jjep/Mod_57_4_442.txt")
jjep.57.4.454.tx <- readr::read_file(file="./jjep/57_4_454.txt"); jjep.57.4.454.rm00 <- jjep.57.4.454.tx; jjep.57.4.454.rm01 <- str_replace_all(jjep.57.4.454.rm00, pattern = rm.01, replacement = ""); jjep.57.4.454.rm02 <- str_replace_all(jjep.57.4.454.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.454.rm03 <- str_replace_all(jjep.57.4.454.rm02, pattern = rm.03, replacement = ""); jjep.57.4.454.rm04 <- str_replace_all(jjep.57.4.454.rm03, pattern = rm.04, replacement = ""); jjep.57.4.454.rm05 <- str_replace_all(jjep.57.4.454.rm04, pattern = rm.05, replacement = ""); jjep.57.4.454.rm06 <- str_replace_all(jjep.57.4.454.rm05, pattern = rm.06, replacement = ""); jjep.57.4.454.rm07 <- str_replace_all(jjep.57.4.454.rm06, pattern = rm.07, replacement = ""); jjep.57.4.454.rm08 <- str_replace_all(jjep.57.4.454.rm07, pattern = rm.08, replacement = ""); jjep.57.4.454.rm09 <- str_replace_all(jjep.57.4.454.rm08, pattern = rm.09, replacement = ""); jjep.57.4.454.rp10 <- str_replace_all(jjep.57.4.454.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.454.rp11 <- str_replace_all(jjep.57.4.454.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.454.rp12 <- str_replace_all(jjep.57.4.454.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.454.rp13 <- str_replace_all(jjep.57.4.454.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.454.rp14 <- str_replace_all(jjep.57.4.454.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.454.rp15 <- str_replace_all(jjep.57.4.454.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.454.mod <- rbind(varname,jjep.57.4.454.rp15); write(jjep.57.4.454.mod, file = "./jjep/Mod_57_4_454.txt")
jjep.57.4.466.tx <- readr::read_file(file="./jjep/57_4_466.txt"); jjep.57.4.466.rm00 <- jjep.57.4.466.tx; jjep.57.4.466.rm01 <- str_replace_all(jjep.57.4.466.rm00, pattern = rm.01, replacement = ""); jjep.57.4.466.rm02 <- str_replace_all(jjep.57.4.466.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.466.rm03 <- str_replace_all(jjep.57.4.466.rm02, pattern = rm.03, replacement = ""); jjep.57.4.466.rm04 <- str_replace_all(jjep.57.4.466.rm03, pattern = rm.04, replacement = ""); jjep.57.4.466.rm05 <- str_replace_all(jjep.57.4.466.rm04, pattern = rm.05, replacement = ""); jjep.57.4.466.rm06 <- str_replace_all(jjep.57.4.466.rm05, pattern = rm.06, replacement = ""); jjep.57.4.466.rm07 <- str_replace_all(jjep.57.4.466.rm06, pattern = rm.07, replacement = ""); jjep.57.4.466.rm08 <- str_replace_all(jjep.57.4.466.rm07, pattern = rm.08, replacement = ""); jjep.57.4.466.rm09 <- str_replace_all(jjep.57.4.466.rm08, pattern = rm.09, replacement = ""); jjep.57.4.466.rp10 <- str_replace_all(jjep.57.4.466.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.466.rp11 <- str_replace_all(jjep.57.4.466.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.466.rp12 <- str_replace_all(jjep.57.4.466.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.466.rp13 <- str_replace_all(jjep.57.4.466.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.466.rp14 <- str_replace_all(jjep.57.4.466.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.466.rp15 <- str_replace_all(jjep.57.4.466.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.466.mod <- rbind(varname,jjep.57.4.466.rp15); write(jjep.57.4.466.mod, file = "./jjep/Mod_57_4_466.txt")
jjep.57.4.478.tx <- readr::read_file(file="./jjep/57_4_478.txt"); jjep.57.4.478.rm00 <- jjep.57.4.478.tx; jjep.57.4.478.rm01 <- str_replace_all(jjep.57.4.478.rm00, pattern = rm.01, replacement = ""); jjep.57.4.478.rm02 <- str_replace_all(jjep.57.4.478.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.478.rm03 <- str_replace_all(jjep.57.4.478.rm02, pattern = rm.03, replacement = ""); jjep.57.4.478.rm04 <- str_replace_all(jjep.57.4.478.rm03, pattern = rm.04, replacement = ""); jjep.57.4.478.rm05 <- str_replace_all(jjep.57.4.478.rm04, pattern = rm.05, replacement = ""); jjep.57.4.478.rm06 <- str_replace_all(jjep.57.4.478.rm05, pattern = rm.06, replacement = ""); jjep.57.4.478.rm07 <- str_replace_all(jjep.57.4.478.rm06, pattern = rm.07, replacement = ""); jjep.57.4.478.rm08 <- str_replace_all(jjep.57.4.478.rm07, pattern = rm.08, replacement = ""); jjep.57.4.478.rm09 <- str_replace_all(jjep.57.4.478.rm08, pattern = rm.09, replacement = ""); jjep.57.4.478.rp10 <- str_replace_all(jjep.57.4.478.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.478.rp11 <- str_replace_all(jjep.57.4.478.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.478.rp12 <- str_replace_all(jjep.57.4.478.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.478.rp13 <- str_replace_all(jjep.57.4.478.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.478.rp14 <- str_replace_all(jjep.57.4.478.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.478.rp15 <- str_replace_all(jjep.57.4.478.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.478.mod <- rbind(varname,jjep.57.4.478.rp15); write(jjep.57.4.478.mod, file = "./jjep/Mod_57_4_478.txt")
jjep.57.4.491.tx <- readr::read_file(file="./jjep/57_4_491.txt"); jjep.57.4.491.rm00 <- jjep.57.4.491.tx; jjep.57.4.491.rm01 <- str_replace_all(jjep.57.4.491.rm00, pattern = rm.01, replacement = ""); jjep.57.4.491.rm02 <- str_replace_all(jjep.57.4.491.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.491.rm03 <- str_replace_all(jjep.57.4.491.rm02, pattern = rm.03, replacement = ""); jjep.57.4.491.rm04 <- str_replace_all(jjep.57.4.491.rm03, pattern = rm.04, replacement = ""); jjep.57.4.491.rm05 <- str_replace_all(jjep.57.4.491.rm04, pattern = rm.05, replacement = ""); jjep.57.4.491.rm06 <- str_replace_all(jjep.57.4.491.rm05, pattern = rm.06, replacement = ""); jjep.57.4.491.rm07 <- str_replace_all(jjep.57.4.491.rm06, pattern = rm.07, replacement = ""); jjep.57.4.491.rm08 <- str_replace_all(jjep.57.4.491.rm07, pattern = rm.08, replacement = ""); jjep.57.4.491.rm09 <- str_replace_all(jjep.57.4.491.rm08, pattern = rm.09, replacement = ""); jjep.57.4.491.rp10 <- str_replace_all(jjep.57.4.491.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.491.rp11 <- str_replace_all(jjep.57.4.491.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.491.rp12 <- str_replace_all(jjep.57.4.491.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.491.rp13 <- str_replace_all(jjep.57.4.491.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.491.rp14 <- str_replace_all(jjep.57.4.491.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.491.rp15 <- str_replace_all(jjep.57.4.491.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.491.mod <- rbind(varname,jjep.57.4.491.rp15); write(jjep.57.4.491.mod, file = "./jjep/Mod_57_4_491.txt")
jjep.57.4.503.tx <- readr::read_file(file="./jjep/57_4_503.txt"); jjep.57.4.503.rm00 <- jjep.57.4.503.tx; jjep.57.4.503.rm01 <- str_replace_all(jjep.57.4.503.rm00, pattern = rm.01, replacement = ""); jjep.57.4.503.rm02 <- str_replace_all(jjep.57.4.503.rm01, pattern = rm.02, replacement = "^"); jjep.57.4.503.rm03 <- str_replace_all(jjep.57.4.503.rm02, pattern = rm.03, replacement = ""); jjep.57.4.503.rm04 <- str_replace_all(jjep.57.4.503.rm03, pattern = rm.04, replacement = ""); jjep.57.4.503.rm05 <- str_replace_all(jjep.57.4.503.rm04, pattern = rm.05, replacement = ""); jjep.57.4.503.rm06 <- str_replace_all(jjep.57.4.503.rm05, pattern = rm.06, replacement = ""); jjep.57.4.503.rm07 <- str_replace_all(jjep.57.4.503.rm06, pattern = rm.07, replacement = ""); jjep.57.4.503.rm08 <- str_replace_all(jjep.57.4.503.rm07, pattern = rm.08, replacement = ""); jjep.57.4.503.rm09 <- str_replace_all(jjep.57.4.503.rm08, pattern = rm.09, replacement = ""); jjep.57.4.503.rp10 <- str_replace_all(jjep.57.4.503.rm09, pattern = rp.01, replacement = "・"); jjep.57.4.503.rp11 <- str_replace_all(jjep.57.4.503.rp10, pattern = rp.02, replacement = "^"); jjep.57.4.503.rp12 <- str_replace_all(jjep.57.4.503.rp11, pattern = rp.03, replacement = "^"); jjep.57.4.503.rp13 <- str_replace_all(jjep.57.4.503.rp12, pattern = rp.04, replacement = "^"); jjep.57.4.503.rp14 <- str_replace_all(jjep.57.4.503.rp13, pattern = rp.05, replacement = "^"); jjep.57.4.503.rp15 <- str_replace_all(jjep.57.4.503.rp14, pattern = rp.06, replacement = "^"); jjep.57.4.503.mod <- rbind(varname,jjep.57.4.503.rp15); write(jjep.57.4.503.mod, file = "./jjep/Mod_57_4_503.txt")
jjep.57.3.263.tx <- readr::read_file(file="./jjep/57_3_263.txt"); jjep.57.3.263.rm00 <- jjep.57.3.263.tx; jjep.57.3.263.rm01 <- str_replace_all(jjep.57.3.263.rm00, pattern = rm.01, replacement = ""); jjep.57.3.263.rm02 <- str_replace_all(jjep.57.3.263.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.263.rm03 <- str_replace_all(jjep.57.3.263.rm02, pattern = rm.03, replacement = ""); jjep.57.3.263.rm04 <- str_replace_all(jjep.57.3.263.rm03, pattern = rm.04, replacement = ""); jjep.57.3.263.rm05 <- str_replace_all(jjep.57.3.263.rm04, pattern = rm.05, replacement = ""); jjep.57.3.263.rm06 <- str_replace_all(jjep.57.3.263.rm05, pattern = rm.06, replacement = ""); jjep.57.3.263.rm07 <- str_replace_all(jjep.57.3.263.rm06, pattern = rm.07, replacement = ""); jjep.57.3.263.rm08 <- str_replace_all(jjep.57.3.263.rm07, pattern = rm.08, replacement = ""); jjep.57.3.263.rm09 <- str_replace_all(jjep.57.3.263.rm08, pattern = rm.09, replacement = ""); jjep.57.3.263.rp10 <- str_replace_all(jjep.57.3.263.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.263.rp11 <- str_replace_all(jjep.57.3.263.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.263.rp12 <- str_replace_all(jjep.57.3.263.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.263.rp13 <- str_replace_all(jjep.57.3.263.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.263.rp14 <- str_replace_all(jjep.57.3.263.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.263.rp15 <- str_replace_all(jjep.57.3.263.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.263.mod <- rbind(varname,jjep.57.3.263.rp15); write(jjep.57.3.263.mod, file = "./jjep/Mod_57_3_263.txt")
jjep.57.3.274.tx <- readr::read_file(file="./jjep/57_3_274.txt"); jjep.57.3.274.rm00 <- jjep.57.3.274.tx; jjep.57.3.274.rm01 <- str_replace_all(jjep.57.3.274.rm00, pattern = rm.01, replacement = ""); jjep.57.3.274.rm02 <- str_replace_all(jjep.57.3.274.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.274.rm03 <- str_replace_all(jjep.57.3.274.rm02, pattern = rm.03, replacement = ""); jjep.57.3.274.rm04 <- str_replace_all(jjep.57.3.274.rm03, pattern = rm.04, replacement = ""); jjep.57.3.274.rm05 <- str_replace_all(jjep.57.3.274.rm04, pattern = rm.05, replacement = ""); jjep.57.3.274.rm06 <- str_replace_all(jjep.57.3.274.rm05, pattern = rm.06, replacement = ""); jjep.57.3.274.rm07 <- str_replace_all(jjep.57.3.274.rm06, pattern = rm.07, replacement = ""); jjep.57.3.274.rm08 <- str_replace_all(jjep.57.3.274.rm07, pattern = rm.08, replacement = ""); jjep.57.3.274.rm09 <- str_replace_all(jjep.57.3.274.rm08, pattern = rm.09, replacement = ""); jjep.57.3.274.rp10 <- str_replace_all(jjep.57.3.274.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.274.rp11 <- str_replace_all(jjep.57.3.274.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.274.rp12 <- str_replace_all(jjep.57.3.274.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.274.rp13 <- str_replace_all(jjep.57.3.274.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.274.rp14 <- str_replace_all(jjep.57.3.274.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.274.rp15 <- str_replace_all(jjep.57.3.274.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.274.mod <- rbind(varname,jjep.57.3.274.rp15); write(jjep.57.3.274.mod, file = "./jjep/Mod_57_3_274.txt")
jjep.57.3.284.tx <- readr::read_file(file="./jjep/57_3_284.txt"); jjep.57.3.284.rm00 <- jjep.57.3.284.tx; jjep.57.3.284.rm01 <- str_replace_all(jjep.57.3.284.rm00, pattern = rm.01, replacement = ""); jjep.57.3.284.rm02 <- str_replace_all(jjep.57.3.284.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.284.rm03 <- str_replace_all(jjep.57.3.284.rm02, pattern = rm.03, replacement = ""); jjep.57.3.284.rm04 <- str_replace_all(jjep.57.3.284.rm03, pattern = rm.04, replacement = ""); jjep.57.3.284.rm05 <- str_replace_all(jjep.57.3.284.rm04, pattern = rm.05, replacement = ""); jjep.57.3.284.rm06 <- str_replace_all(jjep.57.3.284.rm05, pattern = rm.06, replacement = ""); jjep.57.3.284.rm07 <- str_replace_all(jjep.57.3.284.rm06, pattern = rm.07, replacement = ""); jjep.57.3.284.rm08 <- str_replace_all(jjep.57.3.284.rm07, pattern = rm.08, replacement = ""); jjep.57.3.284.rm09 <- str_replace_all(jjep.57.3.284.rm08, pattern = rm.09, replacement = ""); jjep.57.3.284.rp10 <- str_replace_all(jjep.57.3.284.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.284.rp11 <- str_replace_all(jjep.57.3.284.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.284.rp12 <- str_replace_all(jjep.57.3.284.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.284.rp13 <- str_replace_all(jjep.57.3.284.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.284.rp14 <- str_replace_all(jjep.57.3.284.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.284.rp15 <- str_replace_all(jjep.57.3.284.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.284.mod <- rbind(varname,jjep.57.3.284.rp15); write(jjep.57.3.284.mod, file = "./jjep/Mod_57_3_284.txt")
jjep.57.3.295.tx <- readr::read_file(file="./jjep/57_3_295.txt"); jjep.57.3.295.rm00 <- jjep.57.3.295.tx; jjep.57.3.295.rm01 <- str_replace_all(jjep.57.3.295.rm00, pattern = rm.01, replacement = ""); jjep.57.3.295.rm02 <- str_replace_all(jjep.57.3.295.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.295.rm03 <- str_replace_all(jjep.57.3.295.rm02, pattern = rm.03, replacement = ""); jjep.57.3.295.rm04 <- str_replace_all(jjep.57.3.295.rm03, pattern = rm.04, replacement = ""); jjep.57.3.295.rm05 <- str_replace_all(jjep.57.3.295.rm04, pattern = rm.05, replacement = ""); jjep.57.3.295.rm06 <- str_replace_all(jjep.57.3.295.rm05, pattern = rm.06, replacement = ""); jjep.57.3.295.rm07 <- str_replace_all(jjep.57.3.295.rm06, pattern = rm.07, replacement = ""); jjep.57.3.295.rm08 <- str_replace_all(jjep.57.3.295.rm07, pattern = rm.08, replacement = ""); jjep.57.3.295.rm09 <- str_replace_all(jjep.57.3.295.rm08, pattern = rm.09, replacement = ""); jjep.57.3.295.rp10 <- str_replace_all(jjep.57.3.295.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.295.rp11 <- str_replace_all(jjep.57.3.295.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.295.rp12 <- str_replace_all(jjep.57.3.295.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.295.rp13 <- str_replace_all(jjep.57.3.295.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.295.rp14 <- str_replace_all(jjep.57.3.295.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.295.rp15 <- str_replace_all(jjep.57.3.295.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.295.mod <- rbind(varname,jjep.57.3.295.rp15); write(jjep.57.3.295.mod, file = "./jjep/Mod_57_3_295.txt")
jjep.57.3.309.tx <- readr::read_file(file="./jjep/57_3_309.txt"); jjep.57.3.309.rm00 <- jjep.57.3.309.tx; jjep.57.3.309.rm01 <- str_replace_all(jjep.57.3.309.rm00, pattern = rm.01, replacement = ""); jjep.57.3.309.rm02 <- str_replace_all(jjep.57.3.309.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.309.rm03 <- str_replace_all(jjep.57.3.309.rm02, pattern = rm.03, replacement = ""); jjep.57.3.309.rm04 <- str_replace_all(jjep.57.3.309.rm03, pattern = rm.04, replacement = ""); jjep.57.3.309.rm05 <- str_replace_all(jjep.57.3.309.rm04, pattern = rm.05, replacement = ""); jjep.57.3.309.rm06 <- str_replace_all(jjep.57.3.309.rm05, pattern = rm.06, replacement = ""); jjep.57.3.309.rm07 <- str_replace_all(jjep.57.3.309.rm06, pattern = rm.07, replacement = ""); jjep.57.3.309.rm08 <- str_replace_all(jjep.57.3.309.rm07, pattern = rm.08, replacement = ""); jjep.57.3.309.rm09 <- str_replace_all(jjep.57.3.309.rm08, pattern = rm.09, replacement = ""); jjep.57.3.309.rp10 <- str_replace_all(jjep.57.3.309.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.309.rp11 <- str_replace_all(jjep.57.3.309.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.309.rp12 <- str_replace_all(jjep.57.3.309.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.309.rp13 <- str_replace_all(jjep.57.3.309.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.309.rp14 <- str_replace_all(jjep.57.3.309.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.309.rp15 <- str_replace_all(jjep.57.3.309.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.309.mod <- rbind(varname,jjep.57.3.309.rp15); write(jjep.57.3.309.mod, file = "./jjep/Mod_57_3_309.txt")
jjep.57.3.324.tx <- readr::read_file(file="./jjep/57_3_324.txt"); jjep.57.3.324.rm00 <- jjep.57.3.324.tx; jjep.57.3.324.rm01 <- str_replace_all(jjep.57.3.324.rm00, pattern = rm.01, replacement = ""); jjep.57.3.324.rm02 <- str_replace_all(jjep.57.3.324.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.324.rm03 <- str_replace_all(jjep.57.3.324.rm02, pattern = rm.03, replacement = ""); jjep.57.3.324.rm04 <- str_replace_all(jjep.57.3.324.rm03, pattern = rm.04, replacement = ""); jjep.57.3.324.rm05 <- str_replace_all(jjep.57.3.324.rm04, pattern = rm.05, replacement = ""); jjep.57.3.324.rm06 <- str_replace_all(jjep.57.3.324.rm05, pattern = rm.06, replacement = ""); jjep.57.3.324.rm07 <- str_replace_all(jjep.57.3.324.rm06, pattern = rm.07, replacement = ""); jjep.57.3.324.rm08 <- str_replace_all(jjep.57.3.324.rm07, pattern = rm.08, replacement = ""); jjep.57.3.324.rm09 <- str_replace_all(jjep.57.3.324.rm08, pattern = rm.09, replacement = ""); jjep.57.3.324.rp10 <- str_replace_all(jjep.57.3.324.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.324.rp11 <- str_replace_all(jjep.57.3.324.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.324.rp12 <- str_replace_all(jjep.57.3.324.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.324.rp13 <- str_replace_all(jjep.57.3.324.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.324.rp14 <- str_replace_all(jjep.57.3.324.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.324.rp15 <- str_replace_all(jjep.57.3.324.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.324.mod <- rbind(varname,jjep.57.3.324.rp15); write(jjep.57.3.324.mod, file = "./jjep/Mod_57_3_324.txt")
jjep.57.3.336.tx <- readr::read_file(file="./jjep/57_3_336.txt"); jjep.57.3.336.rm00 <- jjep.57.3.336.tx; jjep.57.3.336.rm01 <- str_replace_all(jjep.57.3.336.rm00, pattern = rm.01, replacement = ""); jjep.57.3.336.rm02 <- str_replace_all(jjep.57.3.336.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.336.rm03 <- str_replace_all(jjep.57.3.336.rm02, pattern = rm.03, replacement = ""); jjep.57.3.336.rm04 <- str_replace_all(jjep.57.3.336.rm03, pattern = rm.04, replacement = ""); jjep.57.3.336.rm05 <- str_replace_all(jjep.57.3.336.rm04, pattern = rm.05, replacement = ""); jjep.57.3.336.rm06 <- str_replace_all(jjep.57.3.336.rm05, pattern = rm.06, replacement = ""); jjep.57.3.336.rm07 <- str_replace_all(jjep.57.3.336.rm06, pattern = rm.07, replacement = ""); jjep.57.3.336.rm08 <- str_replace_all(jjep.57.3.336.rm07, pattern = rm.08, replacement = ""); jjep.57.3.336.rm09 <- str_replace_all(jjep.57.3.336.rm08, pattern = rm.09, replacement = ""); jjep.57.3.336.rp10 <- str_replace_all(jjep.57.3.336.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.336.rp11 <- str_replace_all(jjep.57.3.336.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.336.rp12 <- str_replace_all(jjep.57.3.336.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.336.rp13 <- str_replace_all(jjep.57.3.336.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.336.rp14 <- str_replace_all(jjep.57.3.336.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.336.rp15 <- str_replace_all(jjep.57.3.336.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.336.mod <- rbind(varname,jjep.57.3.336.rp15); write(jjep.57.3.336.mod, file = "./jjep/Mod_57_3_336.txt")
jjep.57.3.349.tx <- readr::read_file(file="./jjep/57_3_349.txt"); jjep.57.3.349.rm00 <- jjep.57.3.349.tx; jjep.57.3.349.rm01 <- str_replace_all(jjep.57.3.349.rm00, pattern = rm.01, replacement = ""); jjep.57.3.349.rm02 <- str_replace_all(jjep.57.3.349.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.349.rm03 <- str_replace_all(jjep.57.3.349.rm02, pattern = rm.03, replacement = ""); jjep.57.3.349.rm04 <- str_replace_all(jjep.57.3.349.rm03, pattern = rm.04, replacement = ""); jjep.57.3.349.rm05 <- str_replace_all(jjep.57.3.349.rm04, pattern = rm.05, replacement = ""); jjep.57.3.349.rm06 <- str_replace_all(jjep.57.3.349.rm05, pattern = rm.06, replacement = ""); jjep.57.3.349.rm07 <- str_replace_all(jjep.57.3.349.rm06, pattern = rm.07, replacement = ""); jjep.57.3.349.rm08 <- str_replace_all(jjep.57.3.349.rm07, pattern = rm.08, replacement = ""); jjep.57.3.349.rm09 <- str_replace_all(jjep.57.3.349.rm08, pattern = rm.09, replacement = ""); jjep.57.3.349.rp10 <- str_replace_all(jjep.57.3.349.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.349.rp11 <- str_replace_all(jjep.57.3.349.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.349.rp12 <- str_replace_all(jjep.57.3.349.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.349.rp13 <- str_replace_all(jjep.57.3.349.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.349.rp14 <- str_replace_all(jjep.57.3.349.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.349.rp15 <- str_replace_all(jjep.57.3.349.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.349.mod <- rbind(varname,jjep.57.3.349.rp15); write(jjep.57.3.349.mod, file = "./jjep/Mod_57_3_349.txt")
jjep.57.3.361.tx <- readr::read_file(file="./jjep/57_3_361.txt"); jjep.57.3.361.rm00 <- jjep.57.3.361.tx; jjep.57.3.361.rm01 <- str_replace_all(jjep.57.3.361.rm00, pattern = rm.01, replacement = ""); jjep.57.3.361.rm02 <- str_replace_all(jjep.57.3.361.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.361.rm03 <- str_replace_all(jjep.57.3.361.rm02, pattern = rm.03, replacement = ""); jjep.57.3.361.rm04 <- str_replace_all(jjep.57.3.361.rm03, pattern = rm.04, replacement = ""); jjep.57.3.361.rm05 <- str_replace_all(jjep.57.3.361.rm04, pattern = rm.05, replacement = ""); jjep.57.3.361.rm06 <- str_replace_all(jjep.57.3.361.rm05, pattern = rm.06, replacement = ""); jjep.57.3.361.rm07 <- str_replace_all(jjep.57.3.361.rm06, pattern = rm.07, replacement = ""); jjep.57.3.361.rm08 <- str_replace_all(jjep.57.3.361.rm07, pattern = rm.08, replacement = ""); jjep.57.3.361.rm09 <- str_replace_all(jjep.57.3.361.rm08, pattern = rm.09, replacement = ""); jjep.57.3.361.rp10 <- str_replace_all(jjep.57.3.361.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.361.rp11 <- str_replace_all(jjep.57.3.361.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.361.rp12 <- str_replace_all(jjep.57.3.361.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.361.rp13 <- str_replace_all(jjep.57.3.361.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.361.rp14 <- str_replace_all(jjep.57.3.361.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.361.rp15 <- str_replace_all(jjep.57.3.361.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.361.mod <- rbind(varname,jjep.57.3.361.rp15); write(jjep.57.3.361.mod, file = "./jjep/Mod_57_3_361.txt")
jjep.57.3.373.tx <- readr::read_file(file="./jjep/57_3_373.txt"); jjep.57.3.373.rm00 <- jjep.57.3.373.tx; jjep.57.3.373.rm01 <- str_replace_all(jjep.57.3.373.rm00, pattern = rm.01, replacement = ""); jjep.57.3.373.rm02 <- str_replace_all(jjep.57.3.373.rm01, pattern = rm.02, replacement = "^"); jjep.57.3.373.rm03 <- str_replace_all(jjep.57.3.373.rm02, pattern = rm.03, replacement = ""); jjep.57.3.373.rm04 <- str_replace_all(jjep.57.3.373.rm03, pattern = rm.04, replacement = ""); jjep.57.3.373.rm05 <- str_replace_all(jjep.57.3.373.rm04, pattern = rm.05, replacement = ""); jjep.57.3.373.rm06 <- str_replace_all(jjep.57.3.373.rm05, pattern = rm.06, replacement = ""); jjep.57.3.373.rm07 <- str_replace_all(jjep.57.3.373.rm06, pattern = rm.07, replacement = ""); jjep.57.3.373.rm08 <- str_replace_all(jjep.57.3.373.rm07, pattern = rm.08, replacement = ""); jjep.57.3.373.rm09 <- str_replace_all(jjep.57.3.373.rm08, pattern = rm.09, replacement = ""); jjep.57.3.373.rp10 <- str_replace_all(jjep.57.3.373.rm09, pattern = rp.01, replacement = "・"); jjep.57.3.373.rp11 <- str_replace_all(jjep.57.3.373.rp10, pattern = rp.02, replacement = "^"); jjep.57.3.373.rp12 <- str_replace_all(jjep.57.3.373.rp11, pattern = rp.03, replacement = "^"); jjep.57.3.373.rp13 <- str_replace_all(jjep.57.3.373.rp12, pattern = rp.04, replacement = "^"); jjep.57.3.373.rp14 <- str_replace_all(jjep.57.3.373.rp13, pattern = rp.05, replacement = "^"); jjep.57.3.373.rp15 <- str_replace_all(jjep.57.3.373.rp14, pattern = rp.06, replacement = "^"); jjep.57.3.373.mod <- rbind(varname,jjep.57.3.373.rp15); write(jjep.57.3.373.mod, file = "./jjep/Mod_57_3_373.txt")
jjep.57.2.131.tx <- readr::read_file(file="./jjep/57_2_131.txt"); jjep.57.2.131.rm00 <- jjep.57.2.131.tx; jjep.57.2.131.rm01 <- str_replace_all(jjep.57.2.131.rm00, pattern = rm.01, replacement = ""); jjep.57.2.131.rm02 <- str_replace_all(jjep.57.2.131.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.131.rm03 <- str_replace_all(jjep.57.2.131.rm02, pattern = rm.03, replacement = ""); jjep.57.2.131.rm04 <- str_replace_all(jjep.57.2.131.rm03, pattern = rm.04, replacement = ""); jjep.57.2.131.rm05 <- str_replace_all(jjep.57.2.131.rm04, pattern = rm.05, replacement = ""); jjep.57.2.131.rm06 <- str_replace_all(jjep.57.2.131.rm05, pattern = rm.06, replacement = ""); jjep.57.2.131.rm07 <- str_replace_all(jjep.57.2.131.rm06, pattern = rm.07, replacement = ""); jjep.57.2.131.rm08 <- str_replace_all(jjep.57.2.131.rm07, pattern = rm.08, replacement = ""); jjep.57.2.131.rm09 <- str_replace_all(jjep.57.2.131.rm08, pattern = rm.09, replacement = ""); jjep.57.2.131.rp10 <- str_replace_all(jjep.57.2.131.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.131.rp11 <- str_replace_all(jjep.57.2.131.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.131.rp12 <- str_replace_all(jjep.57.2.131.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.131.rp13 <- str_replace_all(jjep.57.2.131.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.131.rp14 <- str_replace_all(jjep.57.2.131.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.131.rp15 <- str_replace_all(jjep.57.2.131.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.131.mod <- rbind(varname,jjep.57.2.131.rp15); write(jjep.57.2.131.mod, file = "./jjep/Mod_57_2_131.txt")
jjep.57.2.143.tx <- readr::read_file(file="./jjep/57_2_143.txt"); jjep.57.2.143.rm00 <- jjep.57.2.143.tx; jjep.57.2.143.rm01 <- str_replace_all(jjep.57.2.143.rm00, pattern = rm.01, replacement = ""); jjep.57.2.143.rm02 <- str_replace_all(jjep.57.2.143.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.143.rm03 <- str_replace_all(jjep.57.2.143.rm02, pattern = rm.03, replacement = ""); jjep.57.2.143.rm04 <- str_replace_all(jjep.57.2.143.rm03, pattern = rm.04, replacement = ""); jjep.57.2.143.rm05 <- str_replace_all(jjep.57.2.143.rm04, pattern = rm.05, replacement = ""); jjep.57.2.143.rm06 <- str_replace_all(jjep.57.2.143.rm05, pattern = rm.06, replacement = ""); jjep.57.2.143.rm07 <- str_replace_all(jjep.57.2.143.rm06, pattern = rm.07, replacement = ""); jjep.57.2.143.rm08 <- str_replace_all(jjep.57.2.143.rm07, pattern = rm.08, replacement = ""); jjep.57.2.143.rm09 <- str_replace_all(jjep.57.2.143.rm08, pattern = rm.09, replacement = ""); jjep.57.2.143.rp10 <- str_replace_all(jjep.57.2.143.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.143.rp11 <- str_replace_all(jjep.57.2.143.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.143.rp12 <- str_replace_all(jjep.57.2.143.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.143.rp13 <- str_replace_all(jjep.57.2.143.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.143.rp14 <- str_replace_all(jjep.57.2.143.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.143.rp15 <- str_replace_all(jjep.57.2.143.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.143.mod <- rbind(varname,jjep.57.2.143.rp15); write(jjep.57.2.143.mod, file = "./jjep/Mod_57_2_143.txt")
jjep.57.2.158.tx <- readr::read_file(file="./jjep/57_2_158.txt"); jjep.57.2.158.rm00 <- jjep.57.2.158.tx; jjep.57.2.158.rm01 <- str_replace_all(jjep.57.2.158.rm00, pattern = rm.01, replacement = ""); jjep.57.2.158.rm02 <- str_replace_all(jjep.57.2.158.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.158.rm03 <- str_replace_all(jjep.57.2.158.rm02, pattern = rm.03, replacement = ""); jjep.57.2.158.rm04 <- str_replace_all(jjep.57.2.158.rm03, pattern = rm.04, replacement = ""); jjep.57.2.158.rm05 <- str_replace_all(jjep.57.2.158.rm04, pattern = rm.05, replacement = ""); jjep.57.2.158.rm06 <- str_replace_all(jjep.57.2.158.rm05, pattern = rm.06, replacement = ""); jjep.57.2.158.rm07 <- str_replace_all(jjep.57.2.158.rm06, pattern = rm.07, replacement = ""); jjep.57.2.158.rm08 <- str_replace_all(jjep.57.2.158.rm07, pattern = rm.08, replacement = ""); jjep.57.2.158.rm09 <- str_replace_all(jjep.57.2.158.rm08, pattern = rm.09, replacement = ""); jjep.57.2.158.rp10 <- str_replace_all(jjep.57.2.158.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.158.rp11 <- str_replace_all(jjep.57.2.158.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.158.rp12 <- str_replace_all(jjep.57.2.158.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.158.rp13 <- str_replace_all(jjep.57.2.158.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.158.rp14 <- str_replace_all(jjep.57.2.158.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.158.rp15 <- str_replace_all(jjep.57.2.158.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.158.mod <- rbind(varname,jjep.57.2.158.rp15); write(jjep.57.2.158.mod, file = "./jjep/Mod_57_2_158.txt")
jjep.57.2.168.tx <- readr::read_file(file="./jjep/57_2_168.txt"); jjep.57.2.168.rm00 <- jjep.57.2.168.tx; jjep.57.2.168.rm01 <- str_replace_all(jjep.57.2.168.rm00, pattern = rm.01, replacement = ""); jjep.57.2.168.rm02 <- str_replace_all(jjep.57.2.168.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.168.rm03 <- str_replace_all(jjep.57.2.168.rm02, pattern = rm.03, replacement = ""); jjep.57.2.168.rm04 <- str_replace_all(jjep.57.2.168.rm03, pattern = rm.04, replacement = ""); jjep.57.2.168.rm05 <- str_replace_all(jjep.57.2.168.rm04, pattern = rm.05, replacement = ""); jjep.57.2.168.rm06 <- str_replace_all(jjep.57.2.168.rm05, pattern = rm.06, replacement = ""); jjep.57.2.168.rm07 <- str_replace_all(jjep.57.2.168.rm06, pattern = rm.07, replacement = ""); jjep.57.2.168.rm08 <- str_replace_all(jjep.57.2.168.rm07, pattern = rm.08, replacement = ""); jjep.57.2.168.rm09 <- str_replace_all(jjep.57.2.168.rm08, pattern = rm.09, replacement = ""); jjep.57.2.168.rp10 <- str_replace_all(jjep.57.2.168.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.168.rp11 <- str_replace_all(jjep.57.2.168.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.168.rp12 <- str_replace_all(jjep.57.2.168.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.168.rp13 <- str_replace_all(jjep.57.2.168.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.168.rp14 <- str_replace_all(jjep.57.2.168.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.168.rp15 <- str_replace_all(jjep.57.2.168.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.168.mod <- rbind(varname,jjep.57.2.168.rp15); write(jjep.57.2.168.mod, file = "./jjep/Mod_57_2_168.txt")
jjep.57.2.180.tx <- readr::read_file(file="./jjep/57_2_180.txt"); jjep.57.2.180.rm00 <- jjep.57.2.180.tx; jjep.57.2.180.rm01 <- str_replace_all(jjep.57.2.180.rm00, pattern = rm.01, replacement = ""); jjep.57.2.180.rm02 <- str_replace_all(jjep.57.2.180.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.180.rm03 <- str_replace_all(jjep.57.2.180.rm02, pattern = rm.03, replacement = ""); jjep.57.2.180.rm04 <- str_replace_all(jjep.57.2.180.rm03, pattern = rm.04, replacement = ""); jjep.57.2.180.rm05 <- str_replace_all(jjep.57.2.180.rm04, pattern = rm.05, replacement = ""); jjep.57.2.180.rm06 <- str_replace_all(jjep.57.2.180.rm05, pattern = rm.06, replacement = ""); jjep.57.2.180.rm07 <- str_replace_all(jjep.57.2.180.rm06, pattern = rm.07, replacement = ""); jjep.57.2.180.rm08 <- str_replace_all(jjep.57.2.180.rm07, pattern = rm.08, replacement = ""); jjep.57.2.180.rm09 <- str_replace_all(jjep.57.2.180.rm08, pattern = rm.09, replacement = ""); jjep.57.2.180.rp10 <- str_replace_all(jjep.57.2.180.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.180.rp11 <- str_replace_all(jjep.57.2.180.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.180.rp12 <- str_replace_all(jjep.57.2.180.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.180.rp13 <- str_replace_all(jjep.57.2.180.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.180.rp14 <- str_replace_all(jjep.57.2.180.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.180.rp15 <- str_replace_all(jjep.57.2.180.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.180.mod <- rbind(varname,jjep.57.2.180.rp15); write(jjep.57.2.180.mod, file = "./jjep/Mod_57_2_180.txt")
jjep.57.2.192.tx <- readr::read_file(file="./jjep/57_2_192.txt"); jjep.57.2.192.rm00 <- jjep.57.2.192.tx; jjep.57.2.192.rm01 <- str_replace_all(jjep.57.2.192.rm00, pattern = rm.01, replacement = ""); jjep.57.2.192.rm02 <- str_replace_all(jjep.57.2.192.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.192.rm03 <- str_replace_all(jjep.57.2.192.rm02, pattern = rm.03, replacement = ""); jjep.57.2.192.rm04 <- str_replace_all(jjep.57.2.192.rm03, pattern = rm.04, replacement = ""); jjep.57.2.192.rm05 <- str_replace_all(jjep.57.2.192.rm04, pattern = rm.05, replacement = ""); jjep.57.2.192.rm06 <- str_replace_all(jjep.57.2.192.rm05, pattern = rm.06, replacement = ""); jjep.57.2.192.rm07 <- str_replace_all(jjep.57.2.192.rm06, pattern = rm.07, replacement = ""); jjep.57.2.192.rm08 <- str_replace_all(jjep.57.2.192.rm07, pattern = rm.08, replacement = ""); jjep.57.2.192.rm09 <- str_replace_all(jjep.57.2.192.rm08, pattern = rm.09, replacement = ""); jjep.57.2.192.rp10 <- str_replace_all(jjep.57.2.192.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.192.rp11 <- str_replace_all(jjep.57.2.192.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.192.rp12 <- str_replace_all(jjep.57.2.192.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.192.rp13 <- str_replace_all(jjep.57.2.192.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.192.rp14 <- str_replace_all(jjep.57.2.192.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.192.rp15 <- str_replace_all(jjep.57.2.192.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.192.mod <- rbind(varname,jjep.57.2.192.rp15); write(jjep.57.2.192.mod, file = "./jjep/Mod_57_2_192.txt")
jjep.57.2.201.tx <- readr::read_file(file="./jjep/57_2_201.txt"); jjep.57.2.201.rm00 <- jjep.57.2.201.tx; jjep.57.2.201.rm01 <- str_replace_all(jjep.57.2.201.rm00, pattern = rm.01, replacement = ""); jjep.57.2.201.rm02 <- str_replace_all(jjep.57.2.201.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.201.rm03 <- str_replace_all(jjep.57.2.201.rm02, pattern = rm.03, replacement = ""); jjep.57.2.201.rm04 <- str_replace_all(jjep.57.2.201.rm03, pattern = rm.04, replacement = ""); jjep.57.2.201.rm05 <- str_replace_all(jjep.57.2.201.rm04, pattern = rm.05, replacement = ""); jjep.57.2.201.rm06 <- str_replace_all(jjep.57.2.201.rm05, pattern = rm.06, replacement = ""); jjep.57.2.201.rm07 <- str_replace_all(jjep.57.2.201.rm06, pattern = rm.07, replacement = ""); jjep.57.2.201.rm08 <- str_replace_all(jjep.57.2.201.rm07, pattern = rm.08, replacement = ""); jjep.57.2.201.rm09 <- str_replace_all(jjep.57.2.201.rm08, pattern = rm.09, replacement = ""); jjep.57.2.201.rp10 <- str_replace_all(jjep.57.2.201.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.201.rp11 <- str_replace_all(jjep.57.2.201.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.201.rp12 <- str_replace_all(jjep.57.2.201.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.201.rp13 <- str_replace_all(jjep.57.2.201.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.201.rp14 <- str_replace_all(jjep.57.2.201.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.201.rp15 <- str_replace_all(jjep.57.2.201.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.201.mod <- rbind(varname,jjep.57.2.201.rp15); write(jjep.57.2.201.mod, file = "./jjep/Mod_57_2_201.txt")
jjep.57.2.212.tx <- readr::read_file(file="./jjep/57_2_212.txt"); jjep.57.2.212.rm00 <- jjep.57.2.212.tx; jjep.57.2.212.rm01 <- str_replace_all(jjep.57.2.212.rm00, pattern = rm.01, replacement = ""); jjep.57.2.212.rm02 <- str_replace_all(jjep.57.2.212.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.212.rm03 <- str_replace_all(jjep.57.2.212.rm02, pattern = rm.03, replacement = ""); jjep.57.2.212.rm04 <- str_replace_all(jjep.57.2.212.rm03, pattern = rm.04, replacement = ""); jjep.57.2.212.rm05 <- str_replace_all(jjep.57.2.212.rm04, pattern = rm.05, replacement = ""); jjep.57.2.212.rm06 <- str_replace_all(jjep.57.2.212.rm05, pattern = rm.06, replacement = ""); jjep.57.2.212.rm07 <- str_replace_all(jjep.57.2.212.rm06, pattern = rm.07, replacement = ""); jjep.57.2.212.rm08 <- str_replace_all(jjep.57.2.212.rm07, pattern = rm.08, replacement = ""); jjep.57.2.212.rm09 <- str_replace_all(jjep.57.2.212.rm08, pattern = rm.09, replacement = ""); jjep.57.2.212.rp10 <- str_replace_all(jjep.57.2.212.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.212.rp11 <- str_replace_all(jjep.57.2.212.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.212.rp12 <- str_replace_all(jjep.57.2.212.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.212.rp13 <- str_replace_all(jjep.57.2.212.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.212.rp14 <- str_replace_all(jjep.57.2.212.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.212.rp15 <- str_replace_all(jjep.57.2.212.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.212.mod <- rbind(varname,jjep.57.2.212.rp15); write(jjep.57.2.212.mod, file = "./jjep/Mod_57_2_212.txt")
jjep.57.2.223.tx <- readr::read_file(file="./jjep/57_2_223.txt"); jjep.57.2.223.rm00 <- jjep.57.2.223.tx; jjep.57.2.223.rm01 <- str_replace_all(jjep.57.2.223.rm00, pattern = rm.01, replacement = ""); jjep.57.2.223.rm02 <- str_replace_all(jjep.57.2.223.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.223.rm03 <- str_replace_all(jjep.57.2.223.rm02, pattern = rm.03, replacement = ""); jjep.57.2.223.rm04 <- str_replace_all(jjep.57.2.223.rm03, pattern = rm.04, replacement = ""); jjep.57.2.223.rm05 <- str_replace_all(jjep.57.2.223.rm04, pattern = rm.05, replacement = ""); jjep.57.2.223.rm06 <- str_replace_all(jjep.57.2.223.rm05, pattern = rm.06, replacement = ""); jjep.57.2.223.rm07 <- str_replace_all(jjep.57.2.223.rm06, pattern = rm.07, replacement = ""); jjep.57.2.223.rm08 <- str_replace_all(jjep.57.2.223.rm07, pattern = rm.08, replacement = ""); jjep.57.2.223.rm09 <- str_replace_all(jjep.57.2.223.rm08, pattern = rm.09, replacement = ""); jjep.57.2.223.rp10 <- str_replace_all(jjep.57.2.223.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.223.rp11 <- str_replace_all(jjep.57.2.223.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.223.rp12 <- str_replace_all(jjep.57.2.223.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.223.rp13 <- str_replace_all(jjep.57.2.223.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.223.rp14 <- str_replace_all(jjep.57.2.223.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.223.rp15 <- str_replace_all(jjep.57.2.223.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.223.mod <- rbind(varname,jjep.57.2.223.rp15); write(jjep.57.2.223.mod, file = "./jjep/Mod_57_2_223.txt")
jjep.57.2.237.tx <- readr::read_file(file="./jjep/57_2_237.txt"); jjep.57.2.237.rm00 <- jjep.57.2.237.tx; jjep.57.2.237.rm01 <- str_replace_all(jjep.57.2.237.rm00, pattern = rm.01, replacement = ""); jjep.57.2.237.rm02 <- str_replace_all(jjep.57.2.237.rm01, pattern = rm.02, replacement = "^"); jjep.57.2.237.rm03 <- str_replace_all(jjep.57.2.237.rm02, pattern = rm.03, replacement = ""); jjep.57.2.237.rm04 <- str_replace_all(jjep.57.2.237.rm03, pattern = rm.04, replacement = ""); jjep.57.2.237.rm05 <- str_replace_all(jjep.57.2.237.rm04, pattern = rm.05, replacement = ""); jjep.57.2.237.rm06 <- str_replace_all(jjep.57.2.237.rm05, pattern = rm.06, replacement = ""); jjep.57.2.237.rm07 <- str_replace_all(jjep.57.2.237.rm06, pattern = rm.07, replacement = ""); jjep.57.2.237.rm08 <- str_replace_all(jjep.57.2.237.rm07, pattern = rm.08, replacement = ""); jjep.57.2.237.rm09 <- str_replace_all(jjep.57.2.237.rm08, pattern = rm.09, replacement = ""); jjep.57.2.237.rp10 <- str_replace_all(jjep.57.2.237.rm09, pattern = rp.01, replacement = "・"); jjep.57.2.237.rp11 <- str_replace_all(jjep.57.2.237.rp10, pattern = rp.02, replacement = "^"); jjep.57.2.237.rp12 <- str_replace_all(jjep.57.2.237.rp11, pattern = rp.03, replacement = "^"); jjep.57.2.237.rp13 <- str_replace_all(jjep.57.2.237.rp12, pattern = rp.04, replacement = "^"); jjep.57.2.237.rp14 <- str_replace_all(jjep.57.2.237.rp13, pattern = rp.05, replacement = "^"); jjep.57.2.237.rp15 <- str_replace_all(jjep.57.2.237.rp14, pattern = rp.06, replacement = "^"); jjep.57.2.237.mod <- rbind(varname,jjep.57.2.237.rp15); write(jjep.57.2.237.mod, file = "./jjep/Mod_57_2_237.txt")
jjep.57.1.1.tx <- readr::read_file(file="./jjep/57_1_1.txt"); jjep.57.1.1.rm00 <- jjep.57.1.1.tx; jjep.57.1.1.rm01 <- str_replace_all(jjep.57.1.1.rm00, pattern = rm.01, replacement = ""); jjep.57.1.1.rm02 <- str_replace_all(jjep.57.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.1.rm03 <- str_replace_all(jjep.57.1.1.rm02, pattern = rm.03, replacement = ""); jjep.57.1.1.rm04 <- str_replace_all(jjep.57.1.1.rm03, pattern = rm.04, replacement = ""); jjep.57.1.1.rm05 <- str_replace_all(jjep.57.1.1.rm04, pattern = rm.05, replacement = ""); jjep.57.1.1.rm06 <- str_replace_all(jjep.57.1.1.rm05, pattern = rm.06, replacement = ""); jjep.57.1.1.rm07 <- str_replace_all(jjep.57.1.1.rm06, pattern = rm.07, replacement = ""); jjep.57.1.1.rm08 <- str_replace_all(jjep.57.1.1.rm07, pattern = rm.08, replacement = ""); jjep.57.1.1.rm09 <- str_replace_all(jjep.57.1.1.rm08, pattern = rm.09, replacement = ""); jjep.57.1.1.rp10 <- str_replace_all(jjep.57.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.1.rp11 <- str_replace_all(jjep.57.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.1.rp12 <- str_replace_all(jjep.57.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.1.rp13 <- str_replace_all(jjep.57.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.1.rp14 <- str_replace_all(jjep.57.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.1.rp15 <- str_replace_all(jjep.57.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.1.mod <- rbind(varname,jjep.57.1.1.rp15); write(jjep.57.1.1.mod, file = "./jjep/Mod_57_1_1.txt")
jjep.57.1.13.tx <- readr::read_file(file="./jjep/57_1_13.txt"); jjep.57.1.13.rm00 <- jjep.57.1.13.tx; jjep.57.1.13.rm01 <- str_replace_all(jjep.57.1.13.rm00, pattern = rm.01, replacement = ""); jjep.57.1.13.rm02 <- str_replace_all(jjep.57.1.13.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.13.rm03 <- str_replace_all(jjep.57.1.13.rm02, pattern = rm.03, replacement = ""); jjep.57.1.13.rm04 <- str_replace_all(jjep.57.1.13.rm03, pattern = rm.04, replacement = ""); jjep.57.1.13.rm05 <- str_replace_all(jjep.57.1.13.rm04, pattern = rm.05, replacement = ""); jjep.57.1.13.rm06 <- str_replace_all(jjep.57.1.13.rm05, pattern = rm.06, replacement = ""); jjep.57.1.13.rm07 <- str_replace_all(jjep.57.1.13.rm06, pattern = rm.07, replacement = ""); jjep.57.1.13.rm08 <- str_replace_all(jjep.57.1.13.rm07, pattern = rm.08, replacement = ""); jjep.57.1.13.rm09 <- str_replace_all(jjep.57.1.13.rm08, pattern = rm.09, replacement = ""); jjep.57.1.13.rp10 <- str_replace_all(jjep.57.1.13.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.13.rp11 <- str_replace_all(jjep.57.1.13.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.13.rp12 <- str_replace_all(jjep.57.1.13.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.13.rp13 <- str_replace_all(jjep.57.1.13.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.13.rp14 <- str_replace_all(jjep.57.1.13.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.13.rp15 <- str_replace_all(jjep.57.1.13.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.13.mod <- rbind(varname,jjep.57.1.13.rp15); write(jjep.57.1.13.mod, file = "./jjep/Mod_57_1_13.txt")
jjep.57.1.24.tx <- readr::read_file(file="./jjep/57_1_24.txt"); jjep.57.1.24.rm00 <- jjep.57.1.24.tx; jjep.57.1.24.rm01 <- str_replace_all(jjep.57.1.24.rm00, pattern = rm.01, replacement = ""); jjep.57.1.24.rm02 <- str_replace_all(jjep.57.1.24.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.24.rm03 <- str_replace_all(jjep.57.1.24.rm02, pattern = rm.03, replacement = ""); jjep.57.1.24.rm04 <- str_replace_all(jjep.57.1.24.rm03, pattern = rm.04, replacement = ""); jjep.57.1.24.rm05 <- str_replace_all(jjep.57.1.24.rm04, pattern = rm.05, replacement = ""); jjep.57.1.24.rm06 <- str_replace_all(jjep.57.1.24.rm05, pattern = rm.06, replacement = ""); jjep.57.1.24.rm07 <- str_replace_all(jjep.57.1.24.rm06, pattern = rm.07, replacement = ""); jjep.57.1.24.rm08 <- str_replace_all(jjep.57.1.24.rm07, pattern = rm.08, replacement = ""); jjep.57.1.24.rm09 <- str_replace_all(jjep.57.1.24.rm08, pattern = rm.09, replacement = ""); jjep.57.1.24.rp10 <- str_replace_all(jjep.57.1.24.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.24.rp11 <- str_replace_all(jjep.57.1.24.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.24.rp12 <- str_replace_all(jjep.57.1.24.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.24.rp13 <- str_replace_all(jjep.57.1.24.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.24.rp14 <- str_replace_all(jjep.57.1.24.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.24.rp15 <- str_replace_all(jjep.57.1.24.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.24.mod <- rbind(varname,jjep.57.1.24.rp15); write(jjep.57.1.24.mod, file = "./jjep/Mod_57_1_24.txt")
jjep.57.1.38.tx <- readr::read_file(file="./jjep/57_1_38.txt"); jjep.57.1.38.rm00 <- jjep.57.1.38.tx; jjep.57.1.38.rm01 <- str_replace_all(jjep.57.1.38.rm00, pattern = rm.01, replacement = ""); jjep.57.1.38.rm02 <- str_replace_all(jjep.57.1.38.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.38.rm03 <- str_replace_all(jjep.57.1.38.rm02, pattern = rm.03, replacement = ""); jjep.57.1.38.rm04 <- str_replace_all(jjep.57.1.38.rm03, pattern = rm.04, replacement = ""); jjep.57.1.38.rm05 <- str_replace_all(jjep.57.1.38.rm04, pattern = rm.05, replacement = ""); jjep.57.1.38.rm06 <- str_replace_all(jjep.57.1.38.rm05, pattern = rm.06, replacement = ""); jjep.57.1.38.rm07 <- str_replace_all(jjep.57.1.38.rm06, pattern = rm.07, replacement = ""); jjep.57.1.38.rm08 <- str_replace_all(jjep.57.1.38.rm07, pattern = rm.08, replacement = ""); jjep.57.1.38.rm09 <- str_replace_all(jjep.57.1.38.rm08, pattern = rm.09, replacement = ""); jjep.57.1.38.rp10 <- str_replace_all(jjep.57.1.38.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.38.rp11 <- str_replace_all(jjep.57.1.38.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.38.rp12 <- str_replace_all(jjep.57.1.38.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.38.rp13 <- str_replace_all(jjep.57.1.38.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.38.rp14 <- str_replace_all(jjep.57.1.38.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.38.rp15 <- str_replace_all(jjep.57.1.38.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.38.mod <- rbind(varname,jjep.57.1.38.rp15); write(jjep.57.1.38.mod, file = "./jjep/Mod_57_1_38.txt")
jjep.57.1.49.tx <- readr::read_file(file="./jjep/57_1_49.txt"); jjep.57.1.49.rm00 <- jjep.57.1.49.tx; jjep.57.1.49.rm01 <- str_replace_all(jjep.57.1.49.rm00, pattern = rm.01, replacement = ""); jjep.57.1.49.rm02 <- str_replace_all(jjep.57.1.49.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.49.rm03 <- str_replace_all(jjep.57.1.49.rm02, pattern = rm.03, replacement = ""); jjep.57.1.49.rm04 <- str_replace_all(jjep.57.1.49.rm03, pattern = rm.04, replacement = ""); jjep.57.1.49.rm05 <- str_replace_all(jjep.57.1.49.rm04, pattern = rm.05, replacement = ""); jjep.57.1.49.rm06 <- str_replace_all(jjep.57.1.49.rm05, pattern = rm.06, replacement = ""); jjep.57.1.49.rm07 <- str_replace_all(jjep.57.1.49.rm06, pattern = rm.07, replacement = ""); jjep.57.1.49.rm08 <- str_replace_all(jjep.57.1.49.rm07, pattern = rm.08, replacement = ""); jjep.57.1.49.rm09 <- str_replace_all(jjep.57.1.49.rm08, pattern = rm.09, replacement = ""); jjep.57.1.49.rp10 <- str_replace_all(jjep.57.1.49.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.49.rp11 <- str_replace_all(jjep.57.1.49.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.49.rp12 <- str_replace_all(jjep.57.1.49.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.49.rp13 <- str_replace_all(jjep.57.1.49.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.49.rp14 <- str_replace_all(jjep.57.1.49.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.49.rp15 <- str_replace_all(jjep.57.1.49.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.49.mod <- rbind(varname,jjep.57.1.49.rp15); write(jjep.57.1.49.mod, file = "./jjep/Mod_57_1_49.txt")
jjep.57.1.62.tx <- readr::read_file(file="./jjep/57_1_62.txt"); jjep.57.1.62.rm00 <- jjep.57.1.62.tx; jjep.57.1.62.rm01 <- str_replace_all(jjep.57.1.62.rm00, pattern = rm.01, replacement = ""); jjep.57.1.62.rm02 <- str_replace_all(jjep.57.1.62.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.62.rm03 <- str_replace_all(jjep.57.1.62.rm02, pattern = rm.03, replacement = ""); jjep.57.1.62.rm04 <- str_replace_all(jjep.57.1.62.rm03, pattern = rm.04, replacement = ""); jjep.57.1.62.rm05 <- str_replace_all(jjep.57.1.62.rm04, pattern = rm.05, replacement = ""); jjep.57.1.62.rm06 <- str_replace_all(jjep.57.1.62.rm05, pattern = rm.06, replacement = ""); jjep.57.1.62.rm07 <- str_replace_all(jjep.57.1.62.rm06, pattern = rm.07, replacement = ""); jjep.57.1.62.rm08 <- str_replace_all(jjep.57.1.62.rm07, pattern = rm.08, replacement = ""); jjep.57.1.62.rm09 <- str_replace_all(jjep.57.1.62.rm08, pattern = rm.09, replacement = ""); jjep.57.1.62.rp10 <- str_replace_all(jjep.57.1.62.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.62.rp11 <- str_replace_all(jjep.57.1.62.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.62.rp12 <- str_replace_all(jjep.57.1.62.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.62.rp13 <- str_replace_all(jjep.57.1.62.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.62.rp14 <- str_replace_all(jjep.57.1.62.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.62.rp15 <- str_replace_all(jjep.57.1.62.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.62.mod <- rbind(varname,jjep.57.1.62.rp15); write(jjep.57.1.62.mod, file = "./jjep/Mod_57_1_62.txt")
jjep.57.1.73.tx <- readr::read_file(file="./jjep/57_1_73.txt"); jjep.57.1.73.rm00 <- jjep.57.1.73.tx; jjep.57.1.73.rm01 <- str_replace_all(jjep.57.1.73.rm00, pattern = rm.01, replacement = ""); jjep.57.1.73.rm02 <- str_replace_all(jjep.57.1.73.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.73.rm03 <- str_replace_all(jjep.57.1.73.rm02, pattern = rm.03, replacement = ""); jjep.57.1.73.rm04 <- str_replace_all(jjep.57.1.73.rm03, pattern = rm.04, replacement = ""); jjep.57.1.73.rm05 <- str_replace_all(jjep.57.1.73.rm04, pattern = rm.05, replacement = ""); jjep.57.1.73.rm06 <- str_replace_all(jjep.57.1.73.rm05, pattern = rm.06, replacement = ""); jjep.57.1.73.rm07 <- str_replace_all(jjep.57.1.73.rm06, pattern = rm.07, replacement = ""); jjep.57.1.73.rm08 <- str_replace_all(jjep.57.1.73.rm07, pattern = rm.08, replacement = ""); jjep.57.1.73.rm09 <- str_replace_all(jjep.57.1.73.rm08, pattern = rm.09, replacement = ""); jjep.57.1.73.rp10 <- str_replace_all(jjep.57.1.73.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.73.rp11 <- str_replace_all(jjep.57.1.73.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.73.rp12 <- str_replace_all(jjep.57.1.73.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.73.rp13 <- str_replace_all(jjep.57.1.73.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.73.rp14 <- str_replace_all(jjep.57.1.73.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.73.rp15 <- str_replace_all(jjep.57.1.73.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.73.mod <- rbind(varname,jjep.57.1.73.rp15); write(jjep.57.1.73.mod, file = "./jjep/Mod_57_1_73.txt")
jjep.57.1.86.tx <- readr::read_file(file="./jjep/57_1_86.txt"); jjep.57.1.86.rm00 <- jjep.57.1.86.tx; jjep.57.1.86.rm01 <- str_replace_all(jjep.57.1.86.rm00, pattern = rm.01, replacement = ""); jjep.57.1.86.rm02 <- str_replace_all(jjep.57.1.86.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.86.rm03 <- str_replace_all(jjep.57.1.86.rm02, pattern = rm.03, replacement = ""); jjep.57.1.86.rm04 <- str_replace_all(jjep.57.1.86.rm03, pattern = rm.04, replacement = ""); jjep.57.1.86.rm05 <- str_replace_all(jjep.57.1.86.rm04, pattern = rm.05, replacement = ""); jjep.57.1.86.rm06 <- str_replace_all(jjep.57.1.86.rm05, pattern = rm.06, replacement = ""); jjep.57.1.86.rm07 <- str_replace_all(jjep.57.1.86.rm06, pattern = rm.07, replacement = ""); jjep.57.1.86.rm08 <- str_replace_all(jjep.57.1.86.rm07, pattern = rm.08, replacement = ""); jjep.57.1.86.rm09 <- str_replace_all(jjep.57.1.86.rm08, pattern = rm.09, replacement = ""); jjep.57.1.86.rp10 <- str_replace_all(jjep.57.1.86.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.86.rp11 <- str_replace_all(jjep.57.1.86.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.86.rp12 <- str_replace_all(jjep.57.1.86.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.86.rp13 <- str_replace_all(jjep.57.1.86.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.86.rp14 <- str_replace_all(jjep.57.1.86.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.86.rp15 <- str_replace_all(jjep.57.1.86.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.86.mod <- rbind(varname,jjep.57.1.86.rp15); write(jjep.57.1.86.mod, file = "./jjep/Mod_57_1_86.txt")
jjep.57.1.99.tx <- readr::read_file(file="./jjep/57_1_99.txt"); jjep.57.1.99.rm00 <- jjep.57.1.99.tx; jjep.57.1.99.rm01 <- str_replace_all(jjep.57.1.99.rm00, pattern = rm.01, replacement = ""); jjep.57.1.99.rm02 <- str_replace_all(jjep.57.1.99.rm01, pattern = rm.02, replacement = "^"); jjep.57.1.99.rm03 <- str_replace_all(jjep.57.1.99.rm02, pattern = rm.03, replacement = ""); jjep.57.1.99.rm04 <- str_replace_all(jjep.57.1.99.rm03, pattern = rm.04, replacement = ""); jjep.57.1.99.rm05 <- str_replace_all(jjep.57.1.99.rm04, pattern = rm.05, replacement = ""); jjep.57.1.99.rm06 <- str_replace_all(jjep.57.1.99.rm05, pattern = rm.06, replacement = ""); jjep.57.1.99.rm07 <- str_replace_all(jjep.57.1.99.rm06, pattern = rm.07, replacement = ""); jjep.57.1.99.rm08 <- str_replace_all(jjep.57.1.99.rm07, pattern = rm.08, replacement = ""); jjep.57.1.99.rm09 <- str_replace_all(jjep.57.1.99.rm08, pattern = rm.09, replacement = ""); jjep.57.1.99.rp10 <- str_replace_all(jjep.57.1.99.rm09, pattern = rp.01, replacement = "・"); jjep.57.1.99.rp11 <- str_replace_all(jjep.57.1.99.rp10, pattern = rp.02, replacement = "^"); jjep.57.1.99.rp12 <- str_replace_all(jjep.57.1.99.rp11, pattern = rp.03, replacement = "^"); jjep.57.1.99.rp13 <- str_replace_all(jjep.57.1.99.rp12, pattern = rp.04, replacement = "^"); jjep.57.1.99.rp14 <- str_replace_all(jjep.57.1.99.rp13, pattern = rp.05, replacement = "^"); jjep.57.1.99.rp15 <- str_replace_all(jjep.57.1.99.rp14, pattern = rp.06, replacement = "^"); jjep.57.1.99.mod <- rbind(varname,jjep.57.1.99.rp15); write(jjep.57.1.99.mod, file = "./jjep/Mod_57_1_99.txt")
jjep.56.4.463.tx <- readr::read_file(file="./jjep/56_4_463.txt"); jjep.56.4.463.rm00 <- jjep.56.4.463.tx; jjep.56.4.463.rm01 <- str_replace_all(jjep.56.4.463.rm00, pattern = rm.01, replacement = ""); jjep.56.4.463.rm02 <- str_replace_all(jjep.56.4.463.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.463.rm03 <- str_replace_all(jjep.56.4.463.rm02, pattern = rm.03, replacement = ""); jjep.56.4.463.rm04 <- str_replace_all(jjep.56.4.463.rm03, pattern = rm.04, replacement = ""); jjep.56.4.463.rm05 <- str_replace_all(jjep.56.4.463.rm04, pattern = rm.05, replacement = ""); jjep.56.4.463.rm06 <- str_replace_all(jjep.56.4.463.rm05, pattern = rm.06, replacement = ""); jjep.56.4.463.rm07 <- str_replace_all(jjep.56.4.463.rm06, pattern = rm.07, replacement = ""); jjep.56.4.463.rm08 <- str_replace_all(jjep.56.4.463.rm07, pattern = rm.08, replacement = ""); jjep.56.4.463.rm09 <- str_replace_all(jjep.56.4.463.rm08, pattern = rm.09, replacement = ""); jjep.56.4.463.rp10 <- str_replace_all(jjep.56.4.463.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.463.rp11 <- str_replace_all(jjep.56.4.463.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.463.rp12 <- str_replace_all(jjep.56.4.463.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.463.rp13 <- str_replace_all(jjep.56.4.463.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.463.rp14 <- str_replace_all(jjep.56.4.463.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.463.rp15 <- str_replace_all(jjep.56.4.463.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.463.mod <- rbind(varname,jjep.56.4.463.rp15); write(jjep.56.4.463.mod, file = "./jjep/Mod_56_4_463.txt")
jjep.56.4.474.tx <- readr::read_file(file="./jjep/56_4_474.txt"); jjep.56.4.474.rm00 <- jjep.56.4.474.tx; jjep.56.4.474.rm01 <- str_replace_all(jjep.56.4.474.rm00, pattern = rm.01, replacement = ""); jjep.56.4.474.rm02 <- str_replace_all(jjep.56.4.474.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.474.rm03 <- str_replace_all(jjep.56.4.474.rm02, pattern = rm.03, replacement = ""); jjep.56.4.474.rm04 <- str_replace_all(jjep.56.4.474.rm03, pattern = rm.04, replacement = ""); jjep.56.4.474.rm05 <- str_replace_all(jjep.56.4.474.rm04, pattern = rm.05, replacement = ""); jjep.56.4.474.rm06 <- str_replace_all(jjep.56.4.474.rm05, pattern = rm.06, replacement = ""); jjep.56.4.474.rm07 <- str_replace_all(jjep.56.4.474.rm06, pattern = rm.07, replacement = ""); jjep.56.4.474.rm08 <- str_replace_all(jjep.56.4.474.rm07, pattern = rm.08, replacement = ""); jjep.56.4.474.rm09 <- str_replace_all(jjep.56.4.474.rm08, pattern = rm.09, replacement = ""); jjep.56.4.474.rp10 <- str_replace_all(jjep.56.4.474.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.474.rp11 <- str_replace_all(jjep.56.4.474.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.474.rp12 <- str_replace_all(jjep.56.4.474.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.474.rp13 <- str_replace_all(jjep.56.4.474.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.474.rp14 <- str_replace_all(jjep.56.4.474.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.474.rp15 <- str_replace_all(jjep.56.4.474.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.474.mod <- rbind(varname,jjep.56.4.474.rp15); write(jjep.56.4.474.mod, file = "./jjep/Mod_56_4_474.txt")
jjep.56.4.487.tx <- readr::read_file(file="./jjep/56_4_487.txt"); jjep.56.4.487.rm00 <- jjep.56.4.487.tx; jjep.56.4.487.rm01 <- str_replace_all(jjep.56.4.487.rm00, pattern = rm.01, replacement = ""); jjep.56.4.487.rm02 <- str_replace_all(jjep.56.4.487.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.487.rm03 <- str_replace_all(jjep.56.4.487.rm02, pattern = rm.03, replacement = ""); jjep.56.4.487.rm04 <- str_replace_all(jjep.56.4.487.rm03, pattern = rm.04, replacement = ""); jjep.56.4.487.rm05 <- str_replace_all(jjep.56.4.487.rm04, pattern = rm.05, replacement = ""); jjep.56.4.487.rm06 <- str_replace_all(jjep.56.4.487.rm05, pattern = rm.06, replacement = ""); jjep.56.4.487.rm07 <- str_replace_all(jjep.56.4.487.rm06, pattern = rm.07, replacement = ""); jjep.56.4.487.rm08 <- str_replace_all(jjep.56.4.487.rm07, pattern = rm.08, replacement = ""); jjep.56.4.487.rm09 <- str_replace_all(jjep.56.4.487.rm08, pattern = rm.09, replacement = ""); jjep.56.4.487.rp10 <- str_replace_all(jjep.56.4.487.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.487.rp11 <- str_replace_all(jjep.56.4.487.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.487.rp12 <- str_replace_all(jjep.56.4.487.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.487.rp13 <- str_replace_all(jjep.56.4.487.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.487.rp14 <- str_replace_all(jjep.56.4.487.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.487.rp15 <- str_replace_all(jjep.56.4.487.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.487.mod <- rbind(varname,jjep.56.4.487.rp15); write(jjep.56.4.487.mod, file = "./jjep/Mod_56_4_487.txt")
jjep.56.4.498.tx <- readr::read_file(file="./jjep/56_4_498.txt"); jjep.56.4.498.rm00 <- jjep.56.4.498.tx; jjep.56.4.498.rm01 <- str_replace_all(jjep.56.4.498.rm00, pattern = rm.01, replacement = ""); jjep.56.4.498.rm02 <- str_replace_all(jjep.56.4.498.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.498.rm03 <- str_replace_all(jjep.56.4.498.rm02, pattern = rm.03, replacement = ""); jjep.56.4.498.rm04 <- str_replace_all(jjep.56.4.498.rm03, pattern = rm.04, replacement = ""); jjep.56.4.498.rm05 <- str_replace_all(jjep.56.4.498.rm04, pattern = rm.05, replacement = ""); jjep.56.4.498.rm06 <- str_replace_all(jjep.56.4.498.rm05, pattern = rm.06, replacement = ""); jjep.56.4.498.rm07 <- str_replace_all(jjep.56.4.498.rm06, pattern = rm.07, replacement = ""); jjep.56.4.498.rm08 <- str_replace_all(jjep.56.4.498.rm07, pattern = rm.08, replacement = ""); jjep.56.4.498.rm09 <- str_replace_all(jjep.56.4.498.rm08, pattern = rm.09, replacement = ""); jjep.56.4.498.rp10 <- str_replace_all(jjep.56.4.498.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.498.rp11 <- str_replace_all(jjep.56.4.498.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.498.rp12 <- str_replace_all(jjep.56.4.498.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.498.rp13 <- str_replace_all(jjep.56.4.498.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.498.rp14 <- str_replace_all(jjep.56.4.498.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.498.rp15 <- str_replace_all(jjep.56.4.498.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.498.mod <- rbind(varname,jjep.56.4.498.rp15); write(jjep.56.4.498.mod, file = "./jjep/Mod_56_4_498.txt")
jjep.56.4.510.tx <- readr::read_file(file="./jjep/56_4_510.txt"); jjep.56.4.510.rm00 <- jjep.56.4.510.tx; jjep.56.4.510.rm01 <- str_replace_all(jjep.56.4.510.rm00, pattern = rm.01, replacement = ""); jjep.56.4.510.rm02 <- str_replace_all(jjep.56.4.510.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.510.rm03 <- str_replace_all(jjep.56.4.510.rm02, pattern = rm.03, replacement = ""); jjep.56.4.510.rm04 <- str_replace_all(jjep.56.4.510.rm03, pattern = rm.04, replacement = ""); jjep.56.4.510.rm05 <- str_replace_all(jjep.56.4.510.rm04, pattern = rm.05, replacement = ""); jjep.56.4.510.rm06 <- str_replace_all(jjep.56.4.510.rm05, pattern = rm.06, replacement = ""); jjep.56.4.510.rm07 <- str_replace_all(jjep.56.4.510.rm06, pattern = rm.07, replacement = ""); jjep.56.4.510.rm08 <- str_replace_all(jjep.56.4.510.rm07, pattern = rm.08, replacement = ""); jjep.56.4.510.rm09 <- str_replace_all(jjep.56.4.510.rm08, pattern = rm.09, replacement = ""); jjep.56.4.510.rp10 <- str_replace_all(jjep.56.4.510.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.510.rp11 <- str_replace_all(jjep.56.4.510.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.510.rp12 <- str_replace_all(jjep.56.4.510.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.510.rp13 <- str_replace_all(jjep.56.4.510.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.510.rp14 <- str_replace_all(jjep.56.4.510.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.510.rp15 <- str_replace_all(jjep.56.4.510.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.510.mod <- rbind(varname,jjep.56.4.510.rp15); write(jjep.56.4.510.mod, file = "./jjep/Mod_56_4_510.txt")
jjep.56.4.523.tx <- readr::read_file(file="./jjep/56_4_523.txt"); jjep.56.4.523.rm00 <- jjep.56.4.523.tx; jjep.56.4.523.rm01 <- str_replace_all(jjep.56.4.523.rm00, pattern = rm.01, replacement = ""); jjep.56.4.523.rm02 <- str_replace_all(jjep.56.4.523.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.523.rm03 <- str_replace_all(jjep.56.4.523.rm02, pattern = rm.03, replacement = ""); jjep.56.4.523.rm04 <- str_replace_all(jjep.56.4.523.rm03, pattern = rm.04, replacement = ""); jjep.56.4.523.rm05 <- str_replace_all(jjep.56.4.523.rm04, pattern = rm.05, replacement = ""); jjep.56.4.523.rm06 <- str_replace_all(jjep.56.4.523.rm05, pattern = rm.06, replacement = ""); jjep.56.4.523.rm07 <- str_replace_all(jjep.56.4.523.rm06, pattern = rm.07, replacement = ""); jjep.56.4.523.rm08 <- str_replace_all(jjep.56.4.523.rm07, pattern = rm.08, replacement = ""); jjep.56.4.523.rm09 <- str_replace_all(jjep.56.4.523.rm08, pattern = rm.09, replacement = ""); jjep.56.4.523.rp10 <- str_replace_all(jjep.56.4.523.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.523.rp11 <- str_replace_all(jjep.56.4.523.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.523.rp12 <- str_replace_all(jjep.56.4.523.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.523.rp13 <- str_replace_all(jjep.56.4.523.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.523.rp14 <- str_replace_all(jjep.56.4.523.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.523.rp15 <- str_replace_all(jjep.56.4.523.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.523.mod <- rbind(varname,jjep.56.4.523.rp15); write(jjep.56.4.523.mod, file = "./jjep/Mod_56_4_523.txt")
jjep.56.4.534.tx <- readr::read_file(file="./jjep/56_4_534.txt"); jjep.56.4.534.rm00 <- jjep.56.4.534.tx; jjep.56.4.534.rm01 <- str_replace_all(jjep.56.4.534.rm00, pattern = rm.01, replacement = ""); jjep.56.4.534.rm02 <- str_replace_all(jjep.56.4.534.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.534.rm03 <- str_replace_all(jjep.56.4.534.rm02, pattern = rm.03, replacement = ""); jjep.56.4.534.rm04 <- str_replace_all(jjep.56.4.534.rm03, pattern = rm.04, replacement = ""); jjep.56.4.534.rm05 <- str_replace_all(jjep.56.4.534.rm04, pattern = rm.05, replacement = ""); jjep.56.4.534.rm06 <- str_replace_all(jjep.56.4.534.rm05, pattern = rm.06, replacement = ""); jjep.56.4.534.rm07 <- str_replace_all(jjep.56.4.534.rm06, pattern = rm.07, replacement = ""); jjep.56.4.534.rm08 <- str_replace_all(jjep.56.4.534.rm07, pattern = rm.08, replacement = ""); jjep.56.4.534.rm09 <- str_replace_all(jjep.56.4.534.rm08, pattern = rm.09, replacement = ""); jjep.56.4.534.rp10 <- str_replace_all(jjep.56.4.534.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.534.rp11 <- str_replace_all(jjep.56.4.534.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.534.rp12 <- str_replace_all(jjep.56.4.534.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.534.rp13 <- str_replace_all(jjep.56.4.534.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.534.rp14 <- str_replace_all(jjep.56.4.534.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.534.rp15 <- str_replace_all(jjep.56.4.534.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.534.mod <- rbind(varname,jjep.56.4.534.rp15); write(jjep.56.4.534.mod, file = "./jjep/Mod_56_4_534.txt")
jjep.56.4.548.tx <- readr::read_file(file="./jjep/56_4_548.txt"); jjep.56.4.548.rm00 <- jjep.56.4.548.tx; jjep.56.4.548.rm01 <- str_replace_all(jjep.56.4.548.rm00, pattern = rm.01, replacement = ""); jjep.56.4.548.rm02 <- str_replace_all(jjep.56.4.548.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.548.rm03 <- str_replace_all(jjep.56.4.548.rm02, pattern = rm.03, replacement = ""); jjep.56.4.548.rm04 <- str_replace_all(jjep.56.4.548.rm03, pattern = rm.04, replacement = ""); jjep.56.4.548.rm05 <- str_replace_all(jjep.56.4.548.rm04, pattern = rm.05, replacement = ""); jjep.56.4.548.rm06 <- str_replace_all(jjep.56.4.548.rm05, pattern = rm.06, replacement = ""); jjep.56.4.548.rm07 <- str_replace_all(jjep.56.4.548.rm06, pattern = rm.07, replacement = ""); jjep.56.4.548.rm08 <- str_replace_all(jjep.56.4.548.rm07, pattern = rm.08, replacement = ""); jjep.56.4.548.rm09 <- str_replace_all(jjep.56.4.548.rm08, pattern = rm.09, replacement = ""); jjep.56.4.548.rp10 <- str_replace_all(jjep.56.4.548.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.548.rp11 <- str_replace_all(jjep.56.4.548.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.548.rp12 <- str_replace_all(jjep.56.4.548.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.548.rp13 <- str_replace_all(jjep.56.4.548.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.548.rp14 <- str_replace_all(jjep.56.4.548.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.548.rp15 <- str_replace_all(jjep.56.4.548.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.548.mod <- rbind(varname,jjep.56.4.548.rp15); write(jjep.56.4.548.mod, file = "./jjep/Mod_56_4_548.txt")
jjep.56.4.560.tx <- readr::read_file(file="./jjep/56_4_560.txt"); jjep.56.4.560.rm00 <- jjep.56.4.560.tx; jjep.56.4.560.rm01 <- str_replace_all(jjep.56.4.560.rm00, pattern = rm.01, replacement = ""); jjep.56.4.560.rm02 <- str_replace_all(jjep.56.4.560.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.560.rm03 <- str_replace_all(jjep.56.4.560.rm02, pattern = rm.03, replacement = ""); jjep.56.4.560.rm04 <- str_replace_all(jjep.56.4.560.rm03, pattern = rm.04, replacement = ""); jjep.56.4.560.rm05 <- str_replace_all(jjep.56.4.560.rm04, pattern = rm.05, replacement = ""); jjep.56.4.560.rm06 <- str_replace_all(jjep.56.4.560.rm05, pattern = rm.06, replacement = ""); jjep.56.4.560.rm07 <- str_replace_all(jjep.56.4.560.rm06, pattern = rm.07, replacement = ""); jjep.56.4.560.rm08 <- str_replace_all(jjep.56.4.560.rm07, pattern = rm.08, replacement = ""); jjep.56.4.560.rm09 <- str_replace_all(jjep.56.4.560.rm08, pattern = rm.09, replacement = ""); jjep.56.4.560.rp10 <- str_replace_all(jjep.56.4.560.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.560.rp11 <- str_replace_all(jjep.56.4.560.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.560.rp12 <- str_replace_all(jjep.56.4.560.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.560.rp13 <- str_replace_all(jjep.56.4.560.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.560.rp14 <- str_replace_all(jjep.56.4.560.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.560.rp15 <- str_replace_all(jjep.56.4.560.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.560.mod <- rbind(varname,jjep.56.4.560.rp15); write(jjep.56.4.560.mod, file = "./jjep/Mod_56_4_560.txt")
jjep.56.4.575.tx <- readr::read_file(file="./jjep/56_4_575.txt"); jjep.56.4.575.rm00 <- jjep.56.4.575.tx; jjep.56.4.575.rm01 <- str_replace_all(jjep.56.4.575.rm00, pattern = rm.01, replacement = ""); jjep.56.4.575.rm02 <- str_replace_all(jjep.56.4.575.rm01, pattern = rm.02, replacement = "^"); jjep.56.4.575.rm03 <- str_replace_all(jjep.56.4.575.rm02, pattern = rm.03, replacement = ""); jjep.56.4.575.rm04 <- str_replace_all(jjep.56.4.575.rm03, pattern = rm.04, replacement = ""); jjep.56.4.575.rm05 <- str_replace_all(jjep.56.4.575.rm04, pattern = rm.05, replacement = ""); jjep.56.4.575.rm06 <- str_replace_all(jjep.56.4.575.rm05, pattern = rm.06, replacement = ""); jjep.56.4.575.rm07 <- str_replace_all(jjep.56.4.575.rm06, pattern = rm.07, replacement = ""); jjep.56.4.575.rm08 <- str_replace_all(jjep.56.4.575.rm07, pattern = rm.08, replacement = ""); jjep.56.4.575.rm09 <- str_replace_all(jjep.56.4.575.rm08, pattern = rm.09, replacement = ""); jjep.56.4.575.rp10 <- str_replace_all(jjep.56.4.575.rm09, pattern = rp.01, replacement = "・"); jjep.56.4.575.rp11 <- str_replace_all(jjep.56.4.575.rp10, pattern = rp.02, replacement = "^"); jjep.56.4.575.rp12 <- str_replace_all(jjep.56.4.575.rp11, pattern = rp.03, replacement = "^"); jjep.56.4.575.rp13 <- str_replace_all(jjep.56.4.575.rp12, pattern = rp.04, replacement = "^"); jjep.56.4.575.rp14 <- str_replace_all(jjep.56.4.575.rp13, pattern = rp.05, replacement = "^"); jjep.56.4.575.rp15 <- str_replace_all(jjep.56.4.575.rp14, pattern = rp.06, replacement = "^"); jjep.56.4.575.mod <- rbind(varname,jjep.56.4.575.rp15); write(jjep.56.4.575.mod, file = "./jjep/Mod_56_4_575.txt")
jjep.56.3.303.tx <- readr::read_file(file="./jjep/56_3_303.txt"); jjep.56.3.303.rm00 <- jjep.56.3.303.tx; jjep.56.3.303.rm01 <- str_replace_all(jjep.56.3.303.rm00, pattern = rm.01, replacement = ""); jjep.56.3.303.rm02 <- str_replace_all(jjep.56.3.303.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.303.rm03 <- str_replace_all(jjep.56.3.303.rm02, pattern = rm.03, replacement = ""); jjep.56.3.303.rm04 <- str_replace_all(jjep.56.3.303.rm03, pattern = rm.04, replacement = ""); jjep.56.3.303.rm05 <- str_replace_all(jjep.56.3.303.rm04, pattern = rm.05, replacement = ""); jjep.56.3.303.rm06 <- str_replace_all(jjep.56.3.303.rm05, pattern = rm.06, replacement = ""); jjep.56.3.303.rm07 <- str_replace_all(jjep.56.3.303.rm06, pattern = rm.07, replacement = ""); jjep.56.3.303.rm08 <- str_replace_all(jjep.56.3.303.rm07, pattern = rm.08, replacement = ""); jjep.56.3.303.rm09 <- str_replace_all(jjep.56.3.303.rm08, pattern = rm.09, replacement = ""); jjep.56.3.303.rp10 <- str_replace_all(jjep.56.3.303.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.303.rp11 <- str_replace_all(jjep.56.3.303.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.303.rp12 <- str_replace_all(jjep.56.3.303.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.303.rp13 <- str_replace_all(jjep.56.3.303.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.303.rp14 <- str_replace_all(jjep.56.3.303.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.303.rp15 <- str_replace_all(jjep.56.3.303.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.303.mod <- rbind(varname,jjep.56.3.303.rp15); write(jjep.56.3.303.mod, file = "./jjep/Mod_56_3_303.txt")
jjep.56.3.318.tx <- readr::read_file(file="./jjep/56_3_318.txt"); jjep.56.3.318.rm00 <- jjep.56.3.318.tx; jjep.56.3.318.rm01 <- str_replace_all(jjep.56.3.318.rm00, pattern = rm.01, replacement = ""); jjep.56.3.318.rm02 <- str_replace_all(jjep.56.3.318.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.318.rm03 <- str_replace_all(jjep.56.3.318.rm02, pattern = rm.03, replacement = ""); jjep.56.3.318.rm04 <- str_replace_all(jjep.56.3.318.rm03, pattern = rm.04, replacement = ""); jjep.56.3.318.rm05 <- str_replace_all(jjep.56.3.318.rm04, pattern = rm.05, replacement = ""); jjep.56.3.318.rm06 <- str_replace_all(jjep.56.3.318.rm05, pattern = rm.06, replacement = ""); jjep.56.3.318.rm07 <- str_replace_all(jjep.56.3.318.rm06, pattern = rm.07, replacement = ""); jjep.56.3.318.rm08 <- str_replace_all(jjep.56.3.318.rm07, pattern = rm.08, replacement = ""); jjep.56.3.318.rm09 <- str_replace_all(jjep.56.3.318.rm08, pattern = rm.09, replacement = ""); jjep.56.3.318.rp10 <- str_replace_all(jjep.56.3.318.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.318.rp11 <- str_replace_all(jjep.56.3.318.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.318.rp12 <- str_replace_all(jjep.56.3.318.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.318.rp13 <- str_replace_all(jjep.56.3.318.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.318.rp14 <- str_replace_all(jjep.56.3.318.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.318.rp15 <- str_replace_all(jjep.56.3.318.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.318.mod <- rbind(varname,jjep.56.3.318.rp15); write(jjep.56.3.318.mod, file = "./jjep/Mod_56_3_318.txt")
jjep.56.3.330.tx <- readr::read_file(file="./jjep/56_3_330.txt"); jjep.56.3.330.rm00 <- jjep.56.3.330.tx; jjep.56.3.330.rm01 <- str_replace_all(jjep.56.3.330.rm00, pattern = rm.01, replacement = ""); jjep.56.3.330.rm02 <- str_replace_all(jjep.56.3.330.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.330.rm03 <- str_replace_all(jjep.56.3.330.rm02, pattern = rm.03, replacement = ""); jjep.56.3.330.rm04 <- str_replace_all(jjep.56.3.330.rm03, pattern = rm.04, replacement = ""); jjep.56.3.330.rm05 <- str_replace_all(jjep.56.3.330.rm04, pattern = rm.05, replacement = ""); jjep.56.3.330.rm06 <- str_replace_all(jjep.56.3.330.rm05, pattern = rm.06, replacement = ""); jjep.56.3.330.rm07 <- str_replace_all(jjep.56.3.330.rm06, pattern = rm.07, replacement = ""); jjep.56.3.330.rm08 <- str_replace_all(jjep.56.3.330.rm07, pattern = rm.08, replacement = ""); jjep.56.3.330.rm09 <- str_replace_all(jjep.56.3.330.rm08, pattern = rm.09, replacement = ""); jjep.56.3.330.rp10 <- str_replace_all(jjep.56.3.330.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.330.rp11 <- str_replace_all(jjep.56.3.330.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.330.rp12 <- str_replace_all(jjep.56.3.330.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.330.rp13 <- str_replace_all(jjep.56.3.330.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.330.rp14 <- str_replace_all(jjep.56.3.330.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.330.rp15 <- str_replace_all(jjep.56.3.330.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.330.mod <- rbind(varname,jjep.56.3.330.rp15); write(jjep.56.3.330.mod, file = "./jjep/Mod_56_3_330.txt")
jjep.56.3.341.tx <- readr::read_file(file="./jjep/56_3_341.txt"); jjep.56.3.341.rm00 <- jjep.56.3.341.tx; jjep.56.3.341.rm01 <- str_replace_all(jjep.56.3.341.rm00, pattern = rm.01, replacement = ""); jjep.56.3.341.rm02 <- str_replace_all(jjep.56.3.341.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.341.rm03 <- str_replace_all(jjep.56.3.341.rm02, pattern = rm.03, replacement = ""); jjep.56.3.341.rm04 <- str_replace_all(jjep.56.3.341.rm03, pattern = rm.04, replacement = ""); jjep.56.3.341.rm05 <- str_replace_all(jjep.56.3.341.rm04, pattern = rm.05, replacement = ""); jjep.56.3.341.rm06 <- str_replace_all(jjep.56.3.341.rm05, pattern = rm.06, replacement = ""); jjep.56.3.341.rm07 <- str_replace_all(jjep.56.3.341.rm06, pattern = rm.07, replacement = ""); jjep.56.3.341.rm08 <- str_replace_all(jjep.56.3.341.rm07, pattern = rm.08, replacement = ""); jjep.56.3.341.rm09 <- str_replace_all(jjep.56.3.341.rm08, pattern = rm.09, replacement = ""); jjep.56.3.341.rp10 <- str_replace_all(jjep.56.3.341.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.341.rp11 <- str_replace_all(jjep.56.3.341.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.341.rp12 <- str_replace_all(jjep.56.3.341.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.341.rp13 <- str_replace_all(jjep.56.3.341.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.341.rp14 <- str_replace_all(jjep.56.3.341.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.341.rp15 <- str_replace_all(jjep.56.3.341.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.341.mod <- rbind(varname,jjep.56.3.341.rp15); write(jjep.56.3.341.mod, file = "./jjep/Mod_56_3_341.txt")
jjep.56.3.353.tx <- readr::read_file(file="./jjep/56_3_353.txt"); jjep.56.3.353.rm00 <- jjep.56.3.353.tx; jjep.56.3.353.rm01 <- str_replace_all(jjep.56.3.353.rm00, pattern = rm.01, replacement = ""); jjep.56.3.353.rm02 <- str_replace_all(jjep.56.3.353.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.353.rm03 <- str_replace_all(jjep.56.3.353.rm02, pattern = rm.03, replacement = ""); jjep.56.3.353.rm04 <- str_replace_all(jjep.56.3.353.rm03, pattern = rm.04, replacement = ""); jjep.56.3.353.rm05 <- str_replace_all(jjep.56.3.353.rm04, pattern = rm.05, replacement = ""); jjep.56.3.353.rm06 <- str_replace_all(jjep.56.3.353.rm05, pattern = rm.06, replacement = ""); jjep.56.3.353.rm07 <- str_replace_all(jjep.56.3.353.rm06, pattern = rm.07, replacement = ""); jjep.56.3.353.rm08 <- str_replace_all(jjep.56.3.353.rm07, pattern = rm.08, replacement = ""); jjep.56.3.353.rm09 <- str_replace_all(jjep.56.3.353.rm08, pattern = rm.09, replacement = ""); jjep.56.3.353.rp10 <- str_replace_all(jjep.56.3.353.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.353.rp11 <- str_replace_all(jjep.56.3.353.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.353.rp12 <- str_replace_all(jjep.56.3.353.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.353.rp13 <- str_replace_all(jjep.56.3.353.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.353.rp14 <- str_replace_all(jjep.56.3.353.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.353.rp15 <- str_replace_all(jjep.56.3.353.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.353.mod <- rbind(varname,jjep.56.3.353.rp15); write(jjep.56.3.353.mod, file = "./jjep/Mod_56_3_353.txt")
jjep.56.3.364.tx <- readr::read_file(file="./jjep/56_3_364.txt"); jjep.56.3.364.rm00 <- jjep.56.3.364.tx; jjep.56.3.364.rm01 <- str_replace_all(jjep.56.3.364.rm00, pattern = rm.01, replacement = ""); jjep.56.3.364.rm02 <- str_replace_all(jjep.56.3.364.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.364.rm03 <- str_replace_all(jjep.56.3.364.rm02, pattern = rm.03, replacement = ""); jjep.56.3.364.rm04 <- str_replace_all(jjep.56.3.364.rm03, pattern = rm.04, replacement = ""); jjep.56.3.364.rm05 <- str_replace_all(jjep.56.3.364.rm04, pattern = rm.05, replacement = ""); jjep.56.3.364.rm06 <- str_replace_all(jjep.56.3.364.rm05, pattern = rm.06, replacement = ""); jjep.56.3.364.rm07 <- str_replace_all(jjep.56.3.364.rm06, pattern = rm.07, replacement = ""); jjep.56.3.364.rm08 <- str_replace_all(jjep.56.3.364.rm07, pattern = rm.08, replacement = ""); jjep.56.3.364.rm09 <- str_replace_all(jjep.56.3.364.rm08, pattern = rm.09, replacement = ""); jjep.56.3.364.rp10 <- str_replace_all(jjep.56.3.364.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.364.rp11 <- str_replace_all(jjep.56.3.364.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.364.rp12 <- str_replace_all(jjep.56.3.364.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.364.rp13 <- str_replace_all(jjep.56.3.364.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.364.rp14 <- str_replace_all(jjep.56.3.364.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.364.rp15 <- str_replace_all(jjep.56.3.364.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.364.mod <- rbind(varname,jjep.56.3.364.rp15); write(jjep.56.3.364.mod, file = "./jjep/Mod_56_3_364.txt")
jjep.56.3.376.tx <- readr::read_file(file="./jjep/56_3_376.txt"); jjep.56.3.376.rm00 <- jjep.56.3.376.tx; jjep.56.3.376.rm01 <- str_replace_all(jjep.56.3.376.rm00, pattern = rm.01, replacement = ""); jjep.56.3.376.rm02 <- str_replace_all(jjep.56.3.376.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.376.rm03 <- str_replace_all(jjep.56.3.376.rm02, pattern = rm.03, replacement = ""); jjep.56.3.376.rm04 <- str_replace_all(jjep.56.3.376.rm03, pattern = rm.04, replacement = ""); jjep.56.3.376.rm05 <- str_replace_all(jjep.56.3.376.rm04, pattern = rm.05, replacement = ""); jjep.56.3.376.rm06 <- str_replace_all(jjep.56.3.376.rm05, pattern = rm.06, replacement = ""); jjep.56.3.376.rm07 <- str_replace_all(jjep.56.3.376.rm06, pattern = rm.07, replacement = ""); jjep.56.3.376.rm08 <- str_replace_all(jjep.56.3.376.rm07, pattern = rm.08, replacement = ""); jjep.56.3.376.rm09 <- str_replace_all(jjep.56.3.376.rm08, pattern = rm.09, replacement = ""); jjep.56.3.376.rp10 <- str_replace_all(jjep.56.3.376.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.376.rp11 <- str_replace_all(jjep.56.3.376.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.376.rp12 <- str_replace_all(jjep.56.3.376.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.376.rp13 <- str_replace_all(jjep.56.3.376.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.376.rp14 <- str_replace_all(jjep.56.3.376.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.376.rp15 <- str_replace_all(jjep.56.3.376.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.376.mod <- rbind(varname,jjep.56.3.376.rp15); write(jjep.56.3.376.mod, file = "./jjep/Mod_56_3_376.txt")
jjep.56.3.389.tx <- readr::read_file(file="./jjep/56_3_389.txt"); jjep.56.3.389.rm00 <- jjep.56.3.389.tx; jjep.56.3.389.rm01 <- str_replace_all(jjep.56.3.389.rm00, pattern = rm.01, replacement = ""); jjep.56.3.389.rm02 <- str_replace_all(jjep.56.3.389.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.389.rm03 <- str_replace_all(jjep.56.3.389.rm02, pattern = rm.03, replacement = ""); jjep.56.3.389.rm04 <- str_replace_all(jjep.56.3.389.rm03, pattern = rm.04, replacement = ""); jjep.56.3.389.rm05 <- str_replace_all(jjep.56.3.389.rm04, pattern = rm.05, replacement = ""); jjep.56.3.389.rm06 <- str_replace_all(jjep.56.3.389.rm05, pattern = rm.06, replacement = ""); jjep.56.3.389.rm07 <- str_replace_all(jjep.56.3.389.rm06, pattern = rm.07, replacement = ""); jjep.56.3.389.rm08 <- str_replace_all(jjep.56.3.389.rm07, pattern = rm.08, replacement = ""); jjep.56.3.389.rm09 <- str_replace_all(jjep.56.3.389.rm08, pattern = rm.09, replacement = ""); jjep.56.3.389.rp10 <- str_replace_all(jjep.56.3.389.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.389.rp11 <- str_replace_all(jjep.56.3.389.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.389.rp12 <- str_replace_all(jjep.56.3.389.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.389.rp13 <- str_replace_all(jjep.56.3.389.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.389.rp14 <- str_replace_all(jjep.56.3.389.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.389.rp15 <- str_replace_all(jjep.56.3.389.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.389.mod <- rbind(varname,jjep.56.3.389.rp15); write(jjep.56.3.389.mod, file = "./jjep/Mod_56_3_389.txt")
jjep.56.3.403.tx <- readr::read_file(file="./jjep/56_3_403.txt"); jjep.56.3.403.rm00 <- jjep.56.3.403.tx; jjep.56.3.403.rm01 <- str_replace_all(jjep.56.3.403.rm00, pattern = rm.01, replacement = ""); jjep.56.3.403.rm02 <- str_replace_all(jjep.56.3.403.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.403.rm03 <- str_replace_all(jjep.56.3.403.rm02, pattern = rm.03, replacement = ""); jjep.56.3.403.rm04 <- str_replace_all(jjep.56.3.403.rm03, pattern = rm.04, replacement = ""); jjep.56.3.403.rm05 <- str_replace_all(jjep.56.3.403.rm04, pattern = rm.05, replacement = ""); jjep.56.3.403.rm06 <- str_replace_all(jjep.56.3.403.rm05, pattern = rm.06, replacement = ""); jjep.56.3.403.rm07 <- str_replace_all(jjep.56.3.403.rm06, pattern = rm.07, replacement = ""); jjep.56.3.403.rm08 <- str_replace_all(jjep.56.3.403.rm07, pattern = rm.08, replacement = ""); jjep.56.3.403.rm09 <- str_replace_all(jjep.56.3.403.rm08, pattern = rm.09, replacement = ""); jjep.56.3.403.rp10 <- str_replace_all(jjep.56.3.403.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.403.rp11 <- str_replace_all(jjep.56.3.403.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.403.rp12 <- str_replace_all(jjep.56.3.403.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.403.rp13 <- str_replace_all(jjep.56.3.403.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.403.rp14 <- str_replace_all(jjep.56.3.403.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.403.rp15 <- str_replace_all(jjep.56.3.403.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.403.mod <- rbind(varname,jjep.56.3.403.rp15); write(jjep.56.3.403.mod, file = "./jjep/Mod_56_3_403.txt")
jjep.56.3.414.tx <- readr::read_file(file="./jjep/56_3_414.txt"); jjep.56.3.414.rm00 <- jjep.56.3.414.tx; jjep.56.3.414.rm01 <- str_replace_all(jjep.56.3.414.rm00, pattern = rm.01, replacement = ""); jjep.56.3.414.rm02 <- str_replace_all(jjep.56.3.414.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.414.rm03 <- str_replace_all(jjep.56.3.414.rm02, pattern = rm.03, replacement = ""); jjep.56.3.414.rm04 <- str_replace_all(jjep.56.3.414.rm03, pattern = rm.04, replacement = ""); jjep.56.3.414.rm05 <- str_replace_all(jjep.56.3.414.rm04, pattern = rm.05, replacement = ""); jjep.56.3.414.rm06 <- str_replace_all(jjep.56.3.414.rm05, pattern = rm.06, replacement = ""); jjep.56.3.414.rm07 <- str_replace_all(jjep.56.3.414.rm06, pattern = rm.07, replacement = ""); jjep.56.3.414.rm08 <- str_replace_all(jjep.56.3.414.rm07, pattern = rm.08, replacement = ""); jjep.56.3.414.rm09 <- str_replace_all(jjep.56.3.414.rm08, pattern = rm.09, replacement = ""); jjep.56.3.414.rp10 <- str_replace_all(jjep.56.3.414.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.414.rp11 <- str_replace_all(jjep.56.3.414.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.414.rp12 <- str_replace_all(jjep.56.3.414.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.414.rp13 <- str_replace_all(jjep.56.3.414.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.414.rp14 <- str_replace_all(jjep.56.3.414.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.414.rp15 <- str_replace_all(jjep.56.3.414.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.414.mod <- rbind(varname,jjep.56.3.414.rp15); write(jjep.56.3.414.mod, file = "./jjep/Mod_56_3_414.txt")
jjep.56.3.426.tx <- readr::read_file(file="./jjep/56_3_426.txt"); jjep.56.3.426.rm00 <- jjep.56.3.426.tx; jjep.56.3.426.rm01 <- str_replace_all(jjep.56.3.426.rm00, pattern = rm.01, replacement = ""); jjep.56.3.426.rm02 <- str_replace_all(jjep.56.3.426.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.426.rm03 <- str_replace_all(jjep.56.3.426.rm02, pattern = rm.03, replacement = ""); jjep.56.3.426.rm04 <- str_replace_all(jjep.56.3.426.rm03, pattern = rm.04, replacement = ""); jjep.56.3.426.rm05 <- str_replace_all(jjep.56.3.426.rm04, pattern = rm.05, replacement = ""); jjep.56.3.426.rm06 <- str_replace_all(jjep.56.3.426.rm05, pattern = rm.06, replacement = ""); jjep.56.3.426.rm07 <- str_replace_all(jjep.56.3.426.rm06, pattern = rm.07, replacement = ""); jjep.56.3.426.rm08 <- str_replace_all(jjep.56.3.426.rm07, pattern = rm.08, replacement = ""); jjep.56.3.426.rm09 <- str_replace_all(jjep.56.3.426.rm08, pattern = rm.09, replacement = ""); jjep.56.3.426.rp10 <- str_replace_all(jjep.56.3.426.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.426.rp11 <- str_replace_all(jjep.56.3.426.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.426.rp12 <- str_replace_all(jjep.56.3.426.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.426.rp13 <- str_replace_all(jjep.56.3.426.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.426.rp14 <- str_replace_all(jjep.56.3.426.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.426.rp15 <- str_replace_all(jjep.56.3.426.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.426.mod <- rbind(varname,jjep.56.3.426.rp15); write(jjep.56.3.426.mod, file = "./jjep/Mod_56_3_426.txt")
jjep.56.3.440.tx <- readr::read_file(file="./jjep/56_3_440.txt"); jjep.56.3.440.rm00 <- jjep.56.3.440.tx; jjep.56.3.440.rm01 <- str_replace_all(jjep.56.3.440.rm00, pattern = rm.01, replacement = ""); jjep.56.3.440.rm02 <- str_replace_all(jjep.56.3.440.rm01, pattern = rm.02, replacement = "^"); jjep.56.3.440.rm03 <- str_replace_all(jjep.56.3.440.rm02, pattern = rm.03, replacement = ""); jjep.56.3.440.rm04 <- str_replace_all(jjep.56.3.440.rm03, pattern = rm.04, replacement = ""); jjep.56.3.440.rm05 <- str_replace_all(jjep.56.3.440.rm04, pattern = rm.05, replacement = ""); jjep.56.3.440.rm06 <- str_replace_all(jjep.56.3.440.rm05, pattern = rm.06, replacement = ""); jjep.56.3.440.rm07 <- str_replace_all(jjep.56.3.440.rm06, pattern = rm.07, replacement = ""); jjep.56.3.440.rm08 <- str_replace_all(jjep.56.3.440.rm07, pattern = rm.08, replacement = ""); jjep.56.3.440.rm09 <- str_replace_all(jjep.56.3.440.rm08, pattern = rm.09, replacement = ""); jjep.56.3.440.rp10 <- str_replace_all(jjep.56.3.440.rm09, pattern = rp.01, replacement = "・"); jjep.56.3.440.rp11 <- str_replace_all(jjep.56.3.440.rp10, pattern = rp.02, replacement = "^"); jjep.56.3.440.rp12 <- str_replace_all(jjep.56.3.440.rp11, pattern = rp.03, replacement = "^"); jjep.56.3.440.rp13 <- str_replace_all(jjep.56.3.440.rp12, pattern = rp.04, replacement = "^"); jjep.56.3.440.rp14 <- str_replace_all(jjep.56.3.440.rp13, pattern = rp.05, replacement = "^"); jjep.56.3.440.rp15 <- str_replace_all(jjep.56.3.440.rp14, pattern = rp.06, replacement = "^"); jjep.56.3.440.mod <- rbind(varname,jjep.56.3.440.rp15); write(jjep.56.3.440.mod, file = "./jjep/Mod_56_3_440.txt")
jjep.56.2.149.tx <- readr::read_file(file="./jjep/56_2_149.txt"); jjep.56.2.149.rm00 <- jjep.56.2.149.tx; jjep.56.2.149.rm01 <- str_replace_all(jjep.56.2.149.rm00, pattern = rm.01, replacement = ""); jjep.56.2.149.rm02 <- str_replace_all(jjep.56.2.149.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.149.rm03 <- str_replace_all(jjep.56.2.149.rm02, pattern = rm.03, replacement = ""); jjep.56.2.149.rm04 <- str_replace_all(jjep.56.2.149.rm03, pattern = rm.04, replacement = ""); jjep.56.2.149.rm05 <- str_replace_all(jjep.56.2.149.rm04, pattern = rm.05, replacement = ""); jjep.56.2.149.rm06 <- str_replace_all(jjep.56.2.149.rm05, pattern = rm.06, replacement = ""); jjep.56.2.149.rm07 <- str_replace_all(jjep.56.2.149.rm06, pattern = rm.07, replacement = ""); jjep.56.2.149.rm08 <- str_replace_all(jjep.56.2.149.rm07, pattern = rm.08, replacement = ""); jjep.56.2.149.rm09 <- str_replace_all(jjep.56.2.149.rm08, pattern = rm.09, replacement = ""); jjep.56.2.149.rp10 <- str_replace_all(jjep.56.2.149.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.149.rp11 <- str_replace_all(jjep.56.2.149.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.149.rp12 <- str_replace_all(jjep.56.2.149.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.149.rp13 <- str_replace_all(jjep.56.2.149.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.149.rp14 <- str_replace_all(jjep.56.2.149.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.149.rp15 <- str_replace_all(jjep.56.2.149.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.149.mod <- rbind(varname,jjep.56.2.149.rp15); write(jjep.56.2.149.mod, file = "./jjep/Mod_56_2_149.txt")
jjep.56.2.160.tx <- readr::read_file(file="./jjep/56_2_160.txt"); jjep.56.2.160.rm00 <- jjep.56.2.160.tx; jjep.56.2.160.rm01 <- str_replace_all(jjep.56.2.160.rm00, pattern = rm.01, replacement = ""); jjep.56.2.160.rm02 <- str_replace_all(jjep.56.2.160.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.160.rm03 <- str_replace_all(jjep.56.2.160.rm02, pattern = rm.03, replacement = ""); jjep.56.2.160.rm04 <- str_replace_all(jjep.56.2.160.rm03, pattern = rm.04, replacement = ""); jjep.56.2.160.rm05 <- str_replace_all(jjep.56.2.160.rm04, pattern = rm.05, replacement = ""); jjep.56.2.160.rm06 <- str_replace_all(jjep.56.2.160.rm05, pattern = rm.06, replacement = ""); jjep.56.2.160.rm07 <- str_replace_all(jjep.56.2.160.rm06, pattern = rm.07, replacement = ""); jjep.56.2.160.rm08 <- str_replace_all(jjep.56.2.160.rm07, pattern = rm.08, replacement = ""); jjep.56.2.160.rm09 <- str_replace_all(jjep.56.2.160.rm08, pattern = rm.09, replacement = ""); jjep.56.2.160.rp10 <- str_replace_all(jjep.56.2.160.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.160.rp11 <- str_replace_all(jjep.56.2.160.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.160.rp12 <- str_replace_all(jjep.56.2.160.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.160.rp13 <- str_replace_all(jjep.56.2.160.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.160.rp14 <- str_replace_all(jjep.56.2.160.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.160.rp15 <- str_replace_all(jjep.56.2.160.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.160.mod <- rbind(varname,jjep.56.2.160.rp15); write(jjep.56.2.160.mod, file = "./jjep/Mod_56_2_160.txt")
jjep.56.2.171.tx <- readr::read_file(file="./jjep/56_2_171.txt"); jjep.56.2.171.rm00 <- jjep.56.2.171.tx; jjep.56.2.171.rm01 <- str_replace_all(jjep.56.2.171.rm00, pattern = rm.01, replacement = ""); jjep.56.2.171.rm02 <- str_replace_all(jjep.56.2.171.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.171.rm03 <- str_replace_all(jjep.56.2.171.rm02, pattern = rm.03, replacement = ""); jjep.56.2.171.rm04 <- str_replace_all(jjep.56.2.171.rm03, pattern = rm.04, replacement = ""); jjep.56.2.171.rm05 <- str_replace_all(jjep.56.2.171.rm04, pattern = rm.05, replacement = ""); jjep.56.2.171.rm06 <- str_replace_all(jjep.56.2.171.rm05, pattern = rm.06, replacement = ""); jjep.56.2.171.rm07 <- str_replace_all(jjep.56.2.171.rm06, pattern = rm.07, replacement = ""); jjep.56.2.171.rm08 <- str_replace_all(jjep.56.2.171.rm07, pattern = rm.08, replacement = ""); jjep.56.2.171.rm09 <- str_replace_all(jjep.56.2.171.rm08, pattern = rm.09, replacement = ""); jjep.56.2.171.rp10 <- str_replace_all(jjep.56.2.171.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.171.rp11 <- str_replace_all(jjep.56.2.171.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.171.rp12 <- str_replace_all(jjep.56.2.171.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.171.rp13 <- str_replace_all(jjep.56.2.171.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.171.rp14 <- str_replace_all(jjep.56.2.171.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.171.rp15 <- str_replace_all(jjep.56.2.171.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.171.mod <- rbind(varname,jjep.56.2.171.rp15); write(jjep.56.2.171.mod, file = "./jjep/Mod_56_2_171.txt")
jjep.56.2.182.tx <- readr::read_file(file="./jjep/56_2_182.txt"); jjep.56.2.182.rm00 <- jjep.56.2.182.tx; jjep.56.2.182.rm01 <- str_replace_all(jjep.56.2.182.rm00, pattern = rm.01, replacement = ""); jjep.56.2.182.rm02 <- str_replace_all(jjep.56.2.182.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.182.rm03 <- str_replace_all(jjep.56.2.182.rm02, pattern = rm.03, replacement = ""); jjep.56.2.182.rm04 <- str_replace_all(jjep.56.2.182.rm03, pattern = rm.04, replacement = ""); jjep.56.2.182.rm05 <- str_replace_all(jjep.56.2.182.rm04, pattern = rm.05, replacement = ""); jjep.56.2.182.rm06 <- str_replace_all(jjep.56.2.182.rm05, pattern = rm.06, replacement = ""); jjep.56.2.182.rm07 <- str_replace_all(jjep.56.2.182.rm06, pattern = rm.07, replacement = ""); jjep.56.2.182.rm08 <- str_replace_all(jjep.56.2.182.rm07, pattern = rm.08, replacement = ""); jjep.56.2.182.rm09 <- str_replace_all(jjep.56.2.182.rm08, pattern = rm.09, replacement = ""); jjep.56.2.182.rp10 <- str_replace_all(jjep.56.2.182.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.182.rp11 <- str_replace_all(jjep.56.2.182.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.182.rp12 <- str_replace_all(jjep.56.2.182.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.182.rp13 <- str_replace_all(jjep.56.2.182.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.182.rp14 <- str_replace_all(jjep.56.2.182.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.182.rp15 <- str_replace_all(jjep.56.2.182.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.182.mod <- rbind(varname,jjep.56.2.182.rp15); write(jjep.56.2.182.mod, file = "./jjep/Mod_56_2_182.txt")
jjep.56.2.193.tx <- readr::read_file(file="./jjep/56_2_193.txt"); jjep.56.2.193.rm00 <- jjep.56.2.193.tx; jjep.56.2.193.rm01 <- str_replace_all(jjep.56.2.193.rm00, pattern = rm.01, replacement = ""); jjep.56.2.193.rm02 <- str_replace_all(jjep.56.2.193.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.193.rm03 <- str_replace_all(jjep.56.2.193.rm02, pattern = rm.03, replacement = ""); jjep.56.2.193.rm04 <- str_replace_all(jjep.56.2.193.rm03, pattern = rm.04, replacement = ""); jjep.56.2.193.rm05 <- str_replace_all(jjep.56.2.193.rm04, pattern = rm.05, replacement = ""); jjep.56.2.193.rm06 <- str_replace_all(jjep.56.2.193.rm05, pattern = rm.06, replacement = ""); jjep.56.2.193.rm07 <- str_replace_all(jjep.56.2.193.rm06, pattern = rm.07, replacement = ""); jjep.56.2.193.rm08 <- str_replace_all(jjep.56.2.193.rm07, pattern = rm.08, replacement = ""); jjep.56.2.193.rm09 <- str_replace_all(jjep.56.2.193.rm08, pattern = rm.09, replacement = ""); jjep.56.2.193.rp10 <- str_replace_all(jjep.56.2.193.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.193.rp11 <- str_replace_all(jjep.56.2.193.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.193.rp12 <- str_replace_all(jjep.56.2.193.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.193.rp13 <- str_replace_all(jjep.56.2.193.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.193.rp14 <- str_replace_all(jjep.56.2.193.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.193.rp15 <- str_replace_all(jjep.56.2.193.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.193.mod <- rbind(varname,jjep.56.2.193.rp15); write(jjep.56.2.193.mod, file = "./jjep/Mod_56_2_193.txt")
jjep.56.2.206.tx <- readr::read_file(file="./jjep/56_2_206.txt"); jjep.56.2.206.rm00 <- jjep.56.2.206.tx; jjep.56.2.206.rm01 <- str_replace_all(jjep.56.2.206.rm00, pattern = rm.01, replacement = ""); jjep.56.2.206.rm02 <- str_replace_all(jjep.56.2.206.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.206.rm03 <- str_replace_all(jjep.56.2.206.rm02, pattern = rm.03, replacement = ""); jjep.56.2.206.rm04 <- str_replace_all(jjep.56.2.206.rm03, pattern = rm.04, replacement = ""); jjep.56.2.206.rm05 <- str_replace_all(jjep.56.2.206.rm04, pattern = rm.05, replacement = ""); jjep.56.2.206.rm06 <- str_replace_all(jjep.56.2.206.rm05, pattern = rm.06, replacement = ""); jjep.56.2.206.rm07 <- str_replace_all(jjep.56.2.206.rm06, pattern = rm.07, replacement = ""); jjep.56.2.206.rm08 <- str_replace_all(jjep.56.2.206.rm07, pattern = rm.08, replacement = ""); jjep.56.2.206.rm09 <- str_replace_all(jjep.56.2.206.rm08, pattern = rm.09, replacement = ""); jjep.56.2.206.rp10 <- str_replace_all(jjep.56.2.206.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.206.rp11 <- str_replace_all(jjep.56.2.206.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.206.rp12 <- str_replace_all(jjep.56.2.206.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.206.rp13 <- str_replace_all(jjep.56.2.206.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.206.rp14 <- str_replace_all(jjep.56.2.206.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.206.rp15 <- str_replace_all(jjep.56.2.206.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.206.mod <- rbind(varname,jjep.56.2.206.rp15); write(jjep.56.2.206.mod, file = "./jjep/Mod_56_2_206.txt")
jjep.56.2.218.tx <- readr::read_file(file="./jjep/56_2_218.txt"); jjep.56.2.218.rm00 <- jjep.56.2.218.tx; jjep.56.2.218.rm01 <- str_replace_all(jjep.56.2.218.rm00, pattern = rm.01, replacement = ""); jjep.56.2.218.rm02 <- str_replace_all(jjep.56.2.218.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.218.rm03 <- str_replace_all(jjep.56.2.218.rm02, pattern = rm.03, replacement = ""); jjep.56.2.218.rm04 <- str_replace_all(jjep.56.2.218.rm03, pattern = rm.04, replacement = ""); jjep.56.2.218.rm05 <- str_replace_all(jjep.56.2.218.rm04, pattern = rm.05, replacement = ""); jjep.56.2.218.rm06 <- str_replace_all(jjep.56.2.218.rm05, pattern = rm.06, replacement = ""); jjep.56.2.218.rm07 <- str_replace_all(jjep.56.2.218.rm06, pattern = rm.07, replacement = ""); jjep.56.2.218.rm08 <- str_replace_all(jjep.56.2.218.rm07, pattern = rm.08, replacement = ""); jjep.56.2.218.rm09 <- str_replace_all(jjep.56.2.218.rm08, pattern = rm.09, replacement = ""); jjep.56.2.218.rp10 <- str_replace_all(jjep.56.2.218.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.218.rp11 <- str_replace_all(jjep.56.2.218.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.218.rp12 <- str_replace_all(jjep.56.2.218.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.218.rp13 <- str_replace_all(jjep.56.2.218.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.218.rp14 <- str_replace_all(jjep.56.2.218.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.218.rp15 <- str_replace_all(jjep.56.2.218.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.218.mod <- rbind(varname,jjep.56.2.218.rp15); write(jjep.56.2.218.mod, file = "./jjep/Mod_56_2_218.txt")
jjep.56.2.230.tx <- readr::read_file(file="./jjep/56_2_230.txt"); jjep.56.2.230.rm00 <- jjep.56.2.230.tx; jjep.56.2.230.rm01 <- str_replace_all(jjep.56.2.230.rm00, pattern = rm.01, replacement = ""); jjep.56.2.230.rm02 <- str_replace_all(jjep.56.2.230.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.230.rm03 <- str_replace_all(jjep.56.2.230.rm02, pattern = rm.03, replacement = ""); jjep.56.2.230.rm04 <- str_replace_all(jjep.56.2.230.rm03, pattern = rm.04, replacement = ""); jjep.56.2.230.rm05 <- str_replace_all(jjep.56.2.230.rm04, pattern = rm.05, replacement = ""); jjep.56.2.230.rm06 <- str_replace_all(jjep.56.2.230.rm05, pattern = rm.06, replacement = ""); jjep.56.2.230.rm07 <- str_replace_all(jjep.56.2.230.rm06, pattern = rm.07, replacement = ""); jjep.56.2.230.rm08 <- str_replace_all(jjep.56.2.230.rm07, pattern = rm.08, replacement = ""); jjep.56.2.230.rm09 <- str_replace_all(jjep.56.2.230.rm08, pattern = rm.09, replacement = ""); jjep.56.2.230.rp10 <- str_replace_all(jjep.56.2.230.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.230.rp11 <- str_replace_all(jjep.56.2.230.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.230.rp12 <- str_replace_all(jjep.56.2.230.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.230.rp13 <- str_replace_all(jjep.56.2.230.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.230.rp14 <- str_replace_all(jjep.56.2.230.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.230.rp15 <- str_replace_all(jjep.56.2.230.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.230.mod <- rbind(varname,jjep.56.2.230.rp15); write(jjep.56.2.230.mod, file = "./jjep/Mod_56_2_230.txt")
jjep.56.2.243.tx <- readr::read_file(file="./jjep/56_2_243.txt"); jjep.56.2.243.rm00 <- jjep.56.2.243.tx; jjep.56.2.243.rm01 <- str_replace_all(jjep.56.2.243.rm00, pattern = rm.01, replacement = ""); jjep.56.2.243.rm02 <- str_replace_all(jjep.56.2.243.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.243.rm03 <- str_replace_all(jjep.56.2.243.rm02, pattern = rm.03, replacement = ""); jjep.56.2.243.rm04 <- str_replace_all(jjep.56.2.243.rm03, pattern = rm.04, replacement = ""); jjep.56.2.243.rm05 <- str_replace_all(jjep.56.2.243.rm04, pattern = rm.05, replacement = ""); jjep.56.2.243.rm06 <- str_replace_all(jjep.56.2.243.rm05, pattern = rm.06, replacement = ""); jjep.56.2.243.rm07 <- str_replace_all(jjep.56.2.243.rm06, pattern = rm.07, replacement = ""); jjep.56.2.243.rm08 <- str_replace_all(jjep.56.2.243.rm07, pattern = rm.08, replacement = ""); jjep.56.2.243.rm09 <- str_replace_all(jjep.56.2.243.rm08, pattern = rm.09, replacement = ""); jjep.56.2.243.rp10 <- str_replace_all(jjep.56.2.243.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.243.rp11 <- str_replace_all(jjep.56.2.243.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.243.rp12 <- str_replace_all(jjep.56.2.243.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.243.rp13 <- str_replace_all(jjep.56.2.243.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.243.rp14 <- str_replace_all(jjep.56.2.243.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.243.rp15 <- str_replace_all(jjep.56.2.243.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.243.mod <- rbind(varname,jjep.56.2.243.rp15); write(jjep.56.2.243.mod, file = "./jjep/Mod_56_2_243.txt")
jjep.56.2.256.tx <- readr::read_file(file="./jjep/56_2_256.txt"); jjep.56.2.256.rm00 <- jjep.56.2.256.tx; jjep.56.2.256.rm01 <- str_replace_all(jjep.56.2.256.rm00, pattern = rm.01, replacement = ""); jjep.56.2.256.rm02 <- str_replace_all(jjep.56.2.256.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.256.rm03 <- str_replace_all(jjep.56.2.256.rm02, pattern = rm.03, replacement = ""); jjep.56.2.256.rm04 <- str_replace_all(jjep.56.2.256.rm03, pattern = rm.04, replacement = ""); jjep.56.2.256.rm05 <- str_replace_all(jjep.56.2.256.rm04, pattern = rm.05, replacement = ""); jjep.56.2.256.rm06 <- str_replace_all(jjep.56.2.256.rm05, pattern = rm.06, replacement = ""); jjep.56.2.256.rm07 <- str_replace_all(jjep.56.2.256.rm06, pattern = rm.07, replacement = ""); jjep.56.2.256.rm08 <- str_replace_all(jjep.56.2.256.rm07, pattern = rm.08, replacement = ""); jjep.56.2.256.rm09 <- str_replace_all(jjep.56.2.256.rm08, pattern = rm.09, replacement = ""); jjep.56.2.256.rp10 <- str_replace_all(jjep.56.2.256.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.256.rp11 <- str_replace_all(jjep.56.2.256.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.256.rp12 <- str_replace_all(jjep.56.2.256.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.256.rp13 <- str_replace_all(jjep.56.2.256.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.256.rp14 <- str_replace_all(jjep.56.2.256.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.256.rp15 <- str_replace_all(jjep.56.2.256.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.256.mod <- rbind(varname,jjep.56.2.256.rp15); write(jjep.56.2.256.mod, file = "./jjep/Mod_56_2_256.txt")
jjep.56.2.268.tx <- readr::read_file(file="./jjep/56_2_268.txt"); jjep.56.2.268.rm00 <- jjep.56.2.268.tx; jjep.56.2.268.rm01 <- str_replace_all(jjep.56.2.268.rm00, pattern = rm.01, replacement = ""); jjep.56.2.268.rm02 <- str_replace_all(jjep.56.2.268.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.268.rm03 <- str_replace_all(jjep.56.2.268.rm02, pattern = rm.03, replacement = ""); jjep.56.2.268.rm04 <- str_replace_all(jjep.56.2.268.rm03, pattern = rm.04, replacement = ""); jjep.56.2.268.rm05 <- str_replace_all(jjep.56.2.268.rm04, pattern = rm.05, replacement = ""); jjep.56.2.268.rm06 <- str_replace_all(jjep.56.2.268.rm05, pattern = rm.06, replacement = ""); jjep.56.2.268.rm07 <- str_replace_all(jjep.56.2.268.rm06, pattern = rm.07, replacement = ""); jjep.56.2.268.rm08 <- str_replace_all(jjep.56.2.268.rm07, pattern = rm.08, replacement = ""); jjep.56.2.268.rm09 <- str_replace_all(jjep.56.2.268.rm08, pattern = rm.09, replacement = ""); jjep.56.2.268.rp10 <- str_replace_all(jjep.56.2.268.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.268.rp11 <- str_replace_all(jjep.56.2.268.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.268.rp12 <- str_replace_all(jjep.56.2.268.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.268.rp13 <- str_replace_all(jjep.56.2.268.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.268.rp14 <- str_replace_all(jjep.56.2.268.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.268.rp15 <- str_replace_all(jjep.56.2.268.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.268.mod <- rbind(varname,jjep.56.2.268.rp15); write(jjep.56.2.268.mod, file = "./jjep/Mod_56_2_268.txt")
jjep.56.2.278.tx <- readr::read_file(file="./jjep/56_2_278.txt"); jjep.56.2.278.rm00 <- jjep.56.2.278.tx; jjep.56.2.278.rm01 <- str_replace_all(jjep.56.2.278.rm00, pattern = rm.01, replacement = ""); jjep.56.2.278.rm02 <- str_replace_all(jjep.56.2.278.rm01, pattern = rm.02, replacement = "^"); jjep.56.2.278.rm03 <- str_replace_all(jjep.56.2.278.rm02, pattern = rm.03, replacement = ""); jjep.56.2.278.rm04 <- str_replace_all(jjep.56.2.278.rm03, pattern = rm.04, replacement = ""); jjep.56.2.278.rm05 <- str_replace_all(jjep.56.2.278.rm04, pattern = rm.05, replacement = ""); jjep.56.2.278.rm06 <- str_replace_all(jjep.56.2.278.rm05, pattern = rm.06, replacement = ""); jjep.56.2.278.rm07 <- str_replace_all(jjep.56.2.278.rm06, pattern = rm.07, replacement = ""); jjep.56.2.278.rm08 <- str_replace_all(jjep.56.2.278.rm07, pattern = rm.08, replacement = ""); jjep.56.2.278.rm09 <- str_replace_all(jjep.56.2.278.rm08, pattern = rm.09, replacement = ""); jjep.56.2.278.rp10 <- str_replace_all(jjep.56.2.278.rm09, pattern = rp.01, replacement = "・"); jjep.56.2.278.rp11 <- str_replace_all(jjep.56.2.278.rp10, pattern = rp.02, replacement = "^"); jjep.56.2.278.rp12 <- str_replace_all(jjep.56.2.278.rp11, pattern = rp.03, replacement = "^"); jjep.56.2.278.rp13 <- str_replace_all(jjep.56.2.278.rp12, pattern = rp.04, replacement = "^"); jjep.56.2.278.rp14 <- str_replace_all(jjep.56.2.278.rp13, pattern = rp.05, replacement = "^"); jjep.56.2.278.rp15 <- str_replace_all(jjep.56.2.278.rp14, pattern = rp.06, replacement = "^"); jjep.56.2.278.mod <- rbind(varname,jjep.56.2.278.rp15); write(jjep.56.2.278.mod, file = "./jjep/Mod_56_2_278.txt")
jjep.56.1.1.tx <- readr::read_file(file="./jjep/56_1_1.txt"); jjep.56.1.1.rm00 <- jjep.56.1.1.tx; jjep.56.1.1.rm01 <- str_replace_all(jjep.56.1.1.rm00, pattern = rm.01, replacement = ""); jjep.56.1.1.rm02 <- str_replace_all(jjep.56.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.1.rm03 <- str_replace_all(jjep.56.1.1.rm02, pattern = rm.03, replacement = ""); jjep.56.1.1.rm04 <- str_replace_all(jjep.56.1.1.rm03, pattern = rm.04, replacement = ""); jjep.56.1.1.rm05 <- str_replace_all(jjep.56.1.1.rm04, pattern = rm.05, replacement = ""); jjep.56.1.1.rm06 <- str_replace_all(jjep.56.1.1.rm05, pattern = rm.06, replacement = ""); jjep.56.1.1.rm07 <- str_replace_all(jjep.56.1.1.rm06, pattern = rm.07, replacement = ""); jjep.56.1.1.rm08 <- str_replace_all(jjep.56.1.1.rm07, pattern = rm.08, replacement = ""); jjep.56.1.1.rm09 <- str_replace_all(jjep.56.1.1.rm08, pattern = rm.09, replacement = ""); jjep.56.1.1.rp10 <- str_replace_all(jjep.56.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.1.rp11 <- str_replace_all(jjep.56.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.1.rp12 <- str_replace_all(jjep.56.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.1.rp13 <- str_replace_all(jjep.56.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.1.rp14 <- str_replace_all(jjep.56.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.1.rp15 <- str_replace_all(jjep.56.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.1.mod <- rbind(varname,jjep.56.1.1.rp15); write(jjep.56.1.1.mod, file = "./jjep/Mod_56_1_1.txt")
jjep.56.1.14.tx <- readr::read_file(file="./jjep/56_1_14.txt"); jjep.56.1.14.rm00 <- jjep.56.1.14.tx; jjep.56.1.14.rm01 <- str_replace_all(jjep.56.1.14.rm00, pattern = rm.01, replacement = ""); jjep.56.1.14.rm02 <- str_replace_all(jjep.56.1.14.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.14.rm03 <- str_replace_all(jjep.56.1.14.rm02, pattern = rm.03, replacement = ""); jjep.56.1.14.rm04 <- str_replace_all(jjep.56.1.14.rm03, pattern = rm.04, replacement = ""); jjep.56.1.14.rm05 <- str_replace_all(jjep.56.1.14.rm04, pattern = rm.05, replacement = ""); jjep.56.1.14.rm06 <- str_replace_all(jjep.56.1.14.rm05, pattern = rm.06, replacement = ""); jjep.56.1.14.rm07 <- str_replace_all(jjep.56.1.14.rm06, pattern = rm.07, replacement = ""); jjep.56.1.14.rm08 <- str_replace_all(jjep.56.1.14.rm07, pattern = rm.08, replacement = ""); jjep.56.1.14.rm09 <- str_replace_all(jjep.56.1.14.rm08, pattern = rm.09, replacement = ""); jjep.56.1.14.rp10 <- str_replace_all(jjep.56.1.14.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.14.rp11 <- str_replace_all(jjep.56.1.14.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.14.rp12 <- str_replace_all(jjep.56.1.14.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.14.rp13 <- str_replace_all(jjep.56.1.14.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.14.rp14 <- str_replace_all(jjep.56.1.14.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.14.rp15 <- str_replace_all(jjep.56.1.14.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.14.mod <- rbind(varname,jjep.56.1.14.rp15); write(jjep.56.1.14.mod, file = "./jjep/Mod_56_1_14.txt")
jjep.56.1.23.tx <- readr::read_file(file="./jjep/56_1_23.txt"); jjep.56.1.23.rm00 <- jjep.56.1.23.tx; jjep.56.1.23.rm01 <- str_replace_all(jjep.56.1.23.rm00, pattern = rm.01, replacement = ""); jjep.56.1.23.rm02 <- str_replace_all(jjep.56.1.23.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.23.rm03 <- str_replace_all(jjep.56.1.23.rm02, pattern = rm.03, replacement = ""); jjep.56.1.23.rm04 <- str_replace_all(jjep.56.1.23.rm03, pattern = rm.04, replacement = ""); jjep.56.1.23.rm05 <- str_replace_all(jjep.56.1.23.rm04, pattern = rm.05, replacement = ""); jjep.56.1.23.rm06 <- str_replace_all(jjep.56.1.23.rm05, pattern = rm.06, replacement = ""); jjep.56.1.23.rm07 <- str_replace_all(jjep.56.1.23.rm06, pattern = rm.07, replacement = ""); jjep.56.1.23.rm08 <- str_replace_all(jjep.56.1.23.rm07, pattern = rm.08, replacement = ""); jjep.56.1.23.rm09 <- str_replace_all(jjep.56.1.23.rm08, pattern = rm.09, replacement = ""); jjep.56.1.23.rp10 <- str_replace_all(jjep.56.1.23.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.23.rp11 <- str_replace_all(jjep.56.1.23.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.23.rp12 <- str_replace_all(jjep.56.1.23.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.23.rp13 <- str_replace_all(jjep.56.1.23.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.23.rp14 <- str_replace_all(jjep.56.1.23.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.23.rp15 <- str_replace_all(jjep.56.1.23.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.23.mod <- rbind(varname,jjep.56.1.23.rp15); write(jjep.56.1.23.mod, file = "./jjep/Mod_56_1_23.txt")
jjep.56.1.32.tx <- readr::read_file(file="./jjep/56_1_32.txt"); jjep.56.1.32.rm00 <- jjep.56.1.32.tx; jjep.56.1.32.rm01 <- str_replace_all(jjep.56.1.32.rm00, pattern = rm.01, replacement = ""); jjep.56.1.32.rm02 <- str_replace_all(jjep.56.1.32.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.32.rm03 <- str_replace_all(jjep.56.1.32.rm02, pattern = rm.03, replacement = ""); jjep.56.1.32.rm04 <- str_replace_all(jjep.56.1.32.rm03, pattern = rm.04, replacement = ""); jjep.56.1.32.rm05 <- str_replace_all(jjep.56.1.32.rm04, pattern = rm.05, replacement = ""); jjep.56.1.32.rm06 <- str_replace_all(jjep.56.1.32.rm05, pattern = rm.06, replacement = ""); jjep.56.1.32.rm07 <- str_replace_all(jjep.56.1.32.rm06, pattern = rm.07, replacement = ""); jjep.56.1.32.rm08 <- str_replace_all(jjep.56.1.32.rm07, pattern = rm.08, replacement = ""); jjep.56.1.32.rm09 <- str_replace_all(jjep.56.1.32.rm08, pattern = rm.09, replacement = ""); jjep.56.1.32.rp10 <- str_replace_all(jjep.56.1.32.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.32.rp11 <- str_replace_all(jjep.56.1.32.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.32.rp12 <- str_replace_all(jjep.56.1.32.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.32.rp13 <- str_replace_all(jjep.56.1.32.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.32.rp14 <- str_replace_all(jjep.56.1.32.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.32.rp15 <- str_replace_all(jjep.56.1.32.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.32.mod <- rbind(varname,jjep.56.1.32.rp15); write(jjep.56.1.32.mod, file = "./jjep/Mod_56_1_32.txt")
jjep.56.1.44.tx <- readr::read_file(file="./jjep/56_1_44.txt"); jjep.56.1.44.rm00 <- jjep.56.1.44.tx; jjep.56.1.44.rm01 <- str_replace_all(jjep.56.1.44.rm00, pattern = rm.01, replacement = ""); jjep.56.1.44.rm02 <- str_replace_all(jjep.56.1.44.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.44.rm03 <- str_replace_all(jjep.56.1.44.rm02, pattern = rm.03, replacement = ""); jjep.56.1.44.rm04 <- str_replace_all(jjep.56.1.44.rm03, pattern = rm.04, replacement = ""); jjep.56.1.44.rm05 <- str_replace_all(jjep.56.1.44.rm04, pattern = rm.05, replacement = ""); jjep.56.1.44.rm06 <- str_replace_all(jjep.56.1.44.rm05, pattern = rm.06, replacement = ""); jjep.56.1.44.rm07 <- str_replace_all(jjep.56.1.44.rm06, pattern = rm.07, replacement = ""); jjep.56.1.44.rm08 <- str_replace_all(jjep.56.1.44.rm07, pattern = rm.08, replacement = ""); jjep.56.1.44.rm09 <- str_replace_all(jjep.56.1.44.rm08, pattern = rm.09, replacement = ""); jjep.56.1.44.rp10 <- str_replace_all(jjep.56.1.44.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.44.rp11 <- str_replace_all(jjep.56.1.44.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.44.rp12 <- str_replace_all(jjep.56.1.44.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.44.rp13 <- str_replace_all(jjep.56.1.44.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.44.rp14 <- str_replace_all(jjep.56.1.44.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.44.rp15 <- str_replace_all(jjep.56.1.44.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.44.mod <- rbind(varname,jjep.56.1.44.rp15); write(jjep.56.1.44.mod, file = "./jjep/Mod_56_1_44.txt")
jjep.56.1.57.tx <- readr::read_file(file="./jjep/56_1_57.txt"); jjep.56.1.57.rm00 <- jjep.56.1.57.tx; jjep.56.1.57.rm01 <- str_replace_all(jjep.56.1.57.rm00, pattern = rm.01, replacement = ""); jjep.56.1.57.rm02 <- str_replace_all(jjep.56.1.57.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.57.rm03 <- str_replace_all(jjep.56.1.57.rm02, pattern = rm.03, replacement = ""); jjep.56.1.57.rm04 <- str_replace_all(jjep.56.1.57.rm03, pattern = rm.04, replacement = ""); jjep.56.1.57.rm05 <- str_replace_all(jjep.56.1.57.rm04, pattern = rm.05, replacement = ""); jjep.56.1.57.rm06 <- str_replace_all(jjep.56.1.57.rm05, pattern = rm.06, replacement = ""); jjep.56.1.57.rm07 <- str_replace_all(jjep.56.1.57.rm06, pattern = rm.07, replacement = ""); jjep.56.1.57.rm08 <- str_replace_all(jjep.56.1.57.rm07, pattern = rm.08, replacement = ""); jjep.56.1.57.rm09 <- str_replace_all(jjep.56.1.57.rm08, pattern = rm.09, replacement = ""); jjep.56.1.57.rp10 <- str_replace_all(jjep.56.1.57.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.57.rp11 <- str_replace_all(jjep.56.1.57.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.57.rp12 <- str_replace_all(jjep.56.1.57.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.57.rp13 <- str_replace_all(jjep.56.1.57.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.57.rp14 <- str_replace_all(jjep.56.1.57.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.57.rp15 <- str_replace_all(jjep.56.1.57.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.57.mod <- rbind(varname,jjep.56.1.57.rp15); write(jjep.56.1.57.mod, file = "./jjep/Mod_56_1_57.txt")
jjep.56.1.72.tx <- readr::read_file(file="./jjep/56_1_72.txt"); jjep.56.1.72.rm00 <- jjep.56.1.72.tx; jjep.56.1.72.rm01 <- str_replace_all(jjep.56.1.72.rm00, pattern = rm.01, replacement = ""); jjep.56.1.72.rm02 <- str_replace_all(jjep.56.1.72.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.72.rm03 <- str_replace_all(jjep.56.1.72.rm02, pattern = rm.03, replacement = ""); jjep.56.1.72.rm04 <- str_replace_all(jjep.56.1.72.rm03, pattern = rm.04, replacement = ""); jjep.56.1.72.rm05 <- str_replace_all(jjep.56.1.72.rm04, pattern = rm.05, replacement = ""); jjep.56.1.72.rm06 <- str_replace_all(jjep.56.1.72.rm05, pattern = rm.06, replacement = ""); jjep.56.1.72.rm07 <- str_replace_all(jjep.56.1.72.rm06, pattern = rm.07, replacement = ""); jjep.56.1.72.rm08 <- str_replace_all(jjep.56.1.72.rm07, pattern = rm.08, replacement = ""); jjep.56.1.72.rm09 <- str_replace_all(jjep.56.1.72.rm08, pattern = rm.09, replacement = ""); jjep.56.1.72.rp10 <- str_replace_all(jjep.56.1.72.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.72.rp11 <- str_replace_all(jjep.56.1.72.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.72.rp12 <- str_replace_all(jjep.56.1.72.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.72.rp13 <- str_replace_all(jjep.56.1.72.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.72.rp14 <- str_replace_all(jjep.56.1.72.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.72.rp15 <- str_replace_all(jjep.56.1.72.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.72.mod <- rbind(varname,jjep.56.1.72.rp15); write(jjep.56.1.72.mod, file = "./jjep/Mod_56_1_72.txt")
jjep.56.1.81.tx <- readr::read_file(file="./jjep/56_1_81.txt"); jjep.56.1.81.rm00 <- jjep.56.1.81.tx; jjep.56.1.81.rm01 <- str_replace_all(jjep.56.1.81.rm00, pattern = rm.01, replacement = ""); jjep.56.1.81.rm02 <- str_replace_all(jjep.56.1.81.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.81.rm03 <- str_replace_all(jjep.56.1.81.rm02, pattern = rm.03, replacement = ""); jjep.56.1.81.rm04 <- str_replace_all(jjep.56.1.81.rm03, pattern = rm.04, replacement = ""); jjep.56.1.81.rm05 <- str_replace_all(jjep.56.1.81.rm04, pattern = rm.05, replacement = ""); jjep.56.1.81.rm06 <- str_replace_all(jjep.56.1.81.rm05, pattern = rm.06, replacement = ""); jjep.56.1.81.rm07 <- str_replace_all(jjep.56.1.81.rm06, pattern = rm.07, replacement = ""); jjep.56.1.81.rm08 <- str_replace_all(jjep.56.1.81.rm07, pattern = rm.08, replacement = ""); jjep.56.1.81.rm09 <- str_replace_all(jjep.56.1.81.rm08, pattern = rm.09, replacement = ""); jjep.56.1.81.rp10 <- str_replace_all(jjep.56.1.81.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.81.rp11 <- str_replace_all(jjep.56.1.81.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.81.rp12 <- str_replace_all(jjep.56.1.81.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.81.rp13 <- str_replace_all(jjep.56.1.81.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.81.rp14 <- str_replace_all(jjep.56.1.81.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.81.rp15 <- str_replace_all(jjep.56.1.81.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.81.mod <- rbind(varname,jjep.56.1.81.rp15); write(jjep.56.1.81.mod, file = "./jjep/Mod_56_1_81.txt")
jjep.56.1.93.tx <- readr::read_file(file="./jjep/56_1_93.txt"); jjep.56.1.93.rm00 <- jjep.56.1.93.tx; jjep.56.1.93.rm01 <- str_replace_all(jjep.56.1.93.rm00, pattern = rm.01, replacement = ""); jjep.56.1.93.rm02 <- str_replace_all(jjep.56.1.93.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.93.rm03 <- str_replace_all(jjep.56.1.93.rm02, pattern = rm.03, replacement = ""); jjep.56.1.93.rm04 <- str_replace_all(jjep.56.1.93.rm03, pattern = rm.04, replacement = ""); jjep.56.1.93.rm05 <- str_replace_all(jjep.56.1.93.rm04, pattern = rm.05, replacement = ""); jjep.56.1.93.rm06 <- str_replace_all(jjep.56.1.93.rm05, pattern = rm.06, replacement = ""); jjep.56.1.93.rm07 <- str_replace_all(jjep.56.1.93.rm06, pattern = rm.07, replacement = ""); jjep.56.1.93.rm08 <- str_replace_all(jjep.56.1.93.rm07, pattern = rm.08, replacement = ""); jjep.56.1.93.rm09 <- str_replace_all(jjep.56.1.93.rm08, pattern = rm.09, replacement = ""); jjep.56.1.93.rp10 <- str_replace_all(jjep.56.1.93.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.93.rp11 <- str_replace_all(jjep.56.1.93.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.93.rp12 <- str_replace_all(jjep.56.1.93.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.93.rp13 <- str_replace_all(jjep.56.1.93.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.93.rp14 <- str_replace_all(jjep.56.1.93.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.93.rp15 <- str_replace_all(jjep.56.1.93.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.93.mod <- rbind(varname,jjep.56.1.93.rp15); write(jjep.56.1.93.mod, file = "./jjep/Mod_56_1_93.txt")
jjep.56.1.104.tx <- readr::read_file(file="./jjep/56_1_104.txt"); jjep.56.1.104.rm00 <- jjep.56.1.104.tx; jjep.56.1.104.rm01 <- str_replace_all(jjep.56.1.104.rm00, pattern = rm.01, replacement = ""); jjep.56.1.104.rm02 <- str_replace_all(jjep.56.1.104.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.104.rm03 <- str_replace_all(jjep.56.1.104.rm02, pattern = rm.03, replacement = ""); jjep.56.1.104.rm04 <- str_replace_all(jjep.56.1.104.rm03, pattern = rm.04, replacement = ""); jjep.56.1.104.rm05 <- str_replace_all(jjep.56.1.104.rm04, pattern = rm.05, replacement = ""); jjep.56.1.104.rm06 <- str_replace_all(jjep.56.1.104.rm05, pattern = rm.06, replacement = ""); jjep.56.1.104.rm07 <- str_replace_all(jjep.56.1.104.rm06, pattern = rm.07, replacement = ""); jjep.56.1.104.rm08 <- str_replace_all(jjep.56.1.104.rm07, pattern = rm.08, replacement = ""); jjep.56.1.104.rm09 <- str_replace_all(jjep.56.1.104.rm08, pattern = rm.09, replacement = ""); jjep.56.1.104.rp10 <- str_replace_all(jjep.56.1.104.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.104.rp11 <- str_replace_all(jjep.56.1.104.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.104.rp12 <- str_replace_all(jjep.56.1.104.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.104.rp13 <- str_replace_all(jjep.56.1.104.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.104.rp14 <- str_replace_all(jjep.56.1.104.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.104.rp15 <- str_replace_all(jjep.56.1.104.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.104.mod <- rbind(varname,jjep.56.1.104.rp15); write(jjep.56.1.104.mod, file = "./jjep/Mod_56_1_104.txt")
jjep.56.1.116.tx <- readr::read_file(file="./jjep/56_1_116.txt"); jjep.56.1.116.rm00 <- jjep.56.1.116.tx; jjep.56.1.116.rm01 <- str_replace_all(jjep.56.1.116.rm00, pattern = rm.01, replacement = ""); jjep.56.1.116.rm02 <- str_replace_all(jjep.56.1.116.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.116.rm03 <- str_replace_all(jjep.56.1.116.rm02, pattern = rm.03, replacement = ""); jjep.56.1.116.rm04 <- str_replace_all(jjep.56.1.116.rm03, pattern = rm.04, replacement = ""); jjep.56.1.116.rm05 <- str_replace_all(jjep.56.1.116.rm04, pattern = rm.05, replacement = ""); jjep.56.1.116.rm06 <- str_replace_all(jjep.56.1.116.rm05, pattern = rm.06, replacement = ""); jjep.56.1.116.rm07 <- str_replace_all(jjep.56.1.116.rm06, pattern = rm.07, replacement = ""); jjep.56.1.116.rm08 <- str_replace_all(jjep.56.1.116.rm07, pattern = rm.08, replacement = ""); jjep.56.1.116.rm09 <- str_replace_all(jjep.56.1.116.rm08, pattern = rm.09, replacement = ""); jjep.56.1.116.rp10 <- str_replace_all(jjep.56.1.116.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.116.rp11 <- str_replace_all(jjep.56.1.116.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.116.rp12 <- str_replace_all(jjep.56.1.116.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.116.rp13 <- str_replace_all(jjep.56.1.116.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.116.rp14 <- str_replace_all(jjep.56.1.116.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.116.rp15 <- str_replace_all(jjep.56.1.116.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.116.mod <- rbind(varname,jjep.56.1.116.rp15); write(jjep.56.1.116.mod, file = "./jjep/Mod_56_1_116.txt")
jjep.56.1.127.tx <- readr::read_file(file="./jjep/56_1_127.txt"); jjep.56.1.127.rm00 <- jjep.56.1.127.tx; jjep.56.1.127.rm01 <- str_replace_all(jjep.56.1.127.rm00, pattern = rm.01, replacement = ""); jjep.56.1.127.rm02 <- str_replace_all(jjep.56.1.127.rm01, pattern = rm.02, replacement = "^"); jjep.56.1.127.rm03 <- str_replace_all(jjep.56.1.127.rm02, pattern = rm.03, replacement = ""); jjep.56.1.127.rm04 <- str_replace_all(jjep.56.1.127.rm03, pattern = rm.04, replacement = ""); jjep.56.1.127.rm05 <- str_replace_all(jjep.56.1.127.rm04, pattern = rm.05, replacement = ""); jjep.56.1.127.rm06 <- str_replace_all(jjep.56.1.127.rm05, pattern = rm.06, replacement = ""); jjep.56.1.127.rm07 <- str_replace_all(jjep.56.1.127.rm06, pattern = rm.07, replacement = ""); jjep.56.1.127.rm08 <- str_replace_all(jjep.56.1.127.rm07, pattern = rm.08, replacement = ""); jjep.56.1.127.rm09 <- str_replace_all(jjep.56.1.127.rm08, pattern = rm.09, replacement = ""); jjep.56.1.127.rp10 <- str_replace_all(jjep.56.1.127.rm09, pattern = rp.01, replacement = "・"); jjep.56.1.127.rp11 <- str_replace_all(jjep.56.1.127.rp10, pattern = rp.02, replacement = "^"); jjep.56.1.127.rp12 <- str_replace_all(jjep.56.1.127.rp11, pattern = rp.03, replacement = "^"); jjep.56.1.127.rp13 <- str_replace_all(jjep.56.1.127.rp12, pattern = rp.04, replacement = "^"); jjep.56.1.127.rp14 <- str_replace_all(jjep.56.1.127.rp13, pattern = rp.05, replacement = "^"); jjep.56.1.127.rp15 <- str_replace_all(jjep.56.1.127.rp14, pattern = rp.06, replacement = "^"); jjep.56.1.127.mod <- rbind(varname,jjep.56.1.127.rp15); write(jjep.56.1.127.mod, file = "./jjep/Mod_56_1_127.txt")
jjep.55.4.457.tx <- readr::read_file(file="./jjep/55_4_457.txt"); jjep.55.4.457.rm00 <- jjep.55.4.457.tx; jjep.55.4.457.rm01 <- str_replace_all(jjep.55.4.457.rm00, pattern = rm.01, replacement = ""); jjep.55.4.457.rm02 <- str_replace_all(jjep.55.4.457.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.457.rm03 <- str_replace_all(jjep.55.4.457.rm02, pattern = rm.03, replacement = ""); jjep.55.4.457.rm04 <- str_replace_all(jjep.55.4.457.rm03, pattern = rm.04, replacement = ""); jjep.55.4.457.rm05 <- str_replace_all(jjep.55.4.457.rm04, pattern = rm.05, replacement = ""); jjep.55.4.457.rm06 <- str_replace_all(jjep.55.4.457.rm05, pattern = rm.06, replacement = ""); jjep.55.4.457.rm07 <- str_replace_all(jjep.55.4.457.rm06, pattern = rm.07, replacement = ""); jjep.55.4.457.rm08 <- str_replace_all(jjep.55.4.457.rm07, pattern = rm.08, replacement = ""); jjep.55.4.457.rm09 <- str_replace_all(jjep.55.4.457.rm08, pattern = rm.09, replacement = ""); jjep.55.4.457.rp10 <- str_replace_all(jjep.55.4.457.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.457.rp11 <- str_replace_all(jjep.55.4.457.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.457.rp12 <- str_replace_all(jjep.55.4.457.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.457.rp13 <- str_replace_all(jjep.55.4.457.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.457.rp14 <- str_replace_all(jjep.55.4.457.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.457.rp15 <- str_replace_all(jjep.55.4.457.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.457.mod <- rbind(varname,jjep.55.4.457.rp15); write(jjep.55.4.457.mod, file = "./jjep/Mod_55_4_457.txt")
jjep.55.4.469.tx <- readr::read_file(file="./jjep/55_4_469.txt"); jjep.55.4.469.rm00 <- jjep.55.4.469.tx; jjep.55.4.469.rm01 <- str_replace_all(jjep.55.4.469.rm00, pattern = rm.01, replacement = ""); jjep.55.4.469.rm02 <- str_replace_all(jjep.55.4.469.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.469.rm03 <- str_replace_all(jjep.55.4.469.rm02, pattern = rm.03, replacement = ""); jjep.55.4.469.rm04 <- str_replace_all(jjep.55.4.469.rm03, pattern = rm.04, replacement = ""); jjep.55.4.469.rm05 <- str_replace_all(jjep.55.4.469.rm04, pattern = rm.05, replacement = ""); jjep.55.4.469.rm06 <- str_replace_all(jjep.55.4.469.rm05, pattern = rm.06, replacement = ""); jjep.55.4.469.rm07 <- str_replace_all(jjep.55.4.469.rm06, pattern = rm.07, replacement = ""); jjep.55.4.469.rm08 <- str_replace_all(jjep.55.4.469.rm07, pattern = rm.08, replacement = ""); jjep.55.4.469.rm09 <- str_replace_all(jjep.55.4.469.rm08, pattern = rm.09, replacement = ""); jjep.55.4.469.rp10 <- str_replace_all(jjep.55.4.469.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.469.rp11 <- str_replace_all(jjep.55.4.469.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.469.rp12 <- str_replace_all(jjep.55.4.469.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.469.rp13 <- str_replace_all(jjep.55.4.469.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.469.rp14 <- str_replace_all(jjep.55.4.469.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.469.rp15 <- str_replace_all(jjep.55.4.469.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.469.mod <- rbind(varname,jjep.55.4.469.rp15); write(jjep.55.4.469.mod, file = "./jjep/Mod_55_4_469.txt")
jjep.55.4.480.tx <- readr::read_file(file="./jjep/55_4_480.txt"); jjep.55.4.480.rm00 <- jjep.55.4.480.tx; jjep.55.4.480.rm01 <- str_replace_all(jjep.55.4.480.rm00, pattern = rm.01, replacement = ""); jjep.55.4.480.rm02 <- str_replace_all(jjep.55.4.480.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.480.rm03 <- str_replace_all(jjep.55.4.480.rm02, pattern = rm.03, replacement = ""); jjep.55.4.480.rm04 <- str_replace_all(jjep.55.4.480.rm03, pattern = rm.04, replacement = ""); jjep.55.4.480.rm05 <- str_replace_all(jjep.55.4.480.rm04, pattern = rm.05, replacement = ""); jjep.55.4.480.rm06 <- str_replace_all(jjep.55.4.480.rm05, pattern = rm.06, replacement = ""); jjep.55.4.480.rm07 <- str_replace_all(jjep.55.4.480.rm06, pattern = rm.07, replacement = ""); jjep.55.4.480.rm08 <- str_replace_all(jjep.55.4.480.rm07, pattern = rm.08, replacement = ""); jjep.55.4.480.rm09 <- str_replace_all(jjep.55.4.480.rm08, pattern = rm.09, replacement = ""); jjep.55.4.480.rp10 <- str_replace_all(jjep.55.4.480.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.480.rp11 <- str_replace_all(jjep.55.4.480.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.480.rp12 <- str_replace_all(jjep.55.4.480.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.480.rp13 <- str_replace_all(jjep.55.4.480.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.480.rp14 <- str_replace_all(jjep.55.4.480.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.480.rp15 <- str_replace_all(jjep.55.4.480.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.480.mod <- rbind(varname,jjep.55.4.480.rp15); write(jjep.55.4.480.mod, file = "./jjep/Mod_55_4_480.txt")
jjep.55.4.491.tx <- readr::read_file(file="./jjep/55_4_491.txt"); jjep.55.4.491.rm00 <- jjep.55.4.491.tx; jjep.55.4.491.rm01 <- str_replace_all(jjep.55.4.491.rm00, pattern = rm.01, replacement = ""); jjep.55.4.491.rm02 <- str_replace_all(jjep.55.4.491.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.491.rm03 <- str_replace_all(jjep.55.4.491.rm02, pattern = rm.03, replacement = ""); jjep.55.4.491.rm04 <- str_replace_all(jjep.55.4.491.rm03, pattern = rm.04, replacement = ""); jjep.55.4.491.rm05 <- str_replace_all(jjep.55.4.491.rm04, pattern = rm.05, replacement = ""); jjep.55.4.491.rm06 <- str_replace_all(jjep.55.4.491.rm05, pattern = rm.06, replacement = ""); jjep.55.4.491.rm07 <- str_replace_all(jjep.55.4.491.rm06, pattern = rm.07, replacement = ""); jjep.55.4.491.rm08 <- str_replace_all(jjep.55.4.491.rm07, pattern = rm.08, replacement = ""); jjep.55.4.491.rm09 <- str_replace_all(jjep.55.4.491.rm08, pattern = rm.09, replacement = ""); jjep.55.4.491.rp10 <- str_replace_all(jjep.55.4.491.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.491.rp11 <- str_replace_all(jjep.55.4.491.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.491.rp12 <- str_replace_all(jjep.55.4.491.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.491.rp13 <- str_replace_all(jjep.55.4.491.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.491.rp14 <- str_replace_all(jjep.55.4.491.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.491.rp15 <- str_replace_all(jjep.55.4.491.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.491.mod <- rbind(varname,jjep.55.4.491.rp15); write(jjep.55.4.491.mod, file = "./jjep/Mod_55_4_491.txt")
jjep.55.4.501.tx <- readr::read_file(file="./jjep/55_4_501.txt"); jjep.55.4.501.rm00 <- jjep.55.4.501.tx; jjep.55.4.501.rm01 <- str_replace_all(jjep.55.4.501.rm00, pattern = rm.01, replacement = ""); jjep.55.4.501.rm02 <- str_replace_all(jjep.55.4.501.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.501.rm03 <- str_replace_all(jjep.55.4.501.rm02, pattern = rm.03, replacement = ""); jjep.55.4.501.rm04 <- str_replace_all(jjep.55.4.501.rm03, pattern = rm.04, replacement = ""); jjep.55.4.501.rm05 <- str_replace_all(jjep.55.4.501.rm04, pattern = rm.05, replacement = ""); jjep.55.4.501.rm06 <- str_replace_all(jjep.55.4.501.rm05, pattern = rm.06, replacement = ""); jjep.55.4.501.rm07 <- str_replace_all(jjep.55.4.501.rm06, pattern = rm.07, replacement = ""); jjep.55.4.501.rm08 <- str_replace_all(jjep.55.4.501.rm07, pattern = rm.08, replacement = ""); jjep.55.4.501.rm09 <- str_replace_all(jjep.55.4.501.rm08, pattern = rm.09, replacement = ""); jjep.55.4.501.rp10 <- str_replace_all(jjep.55.4.501.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.501.rp11 <- str_replace_all(jjep.55.4.501.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.501.rp12 <- str_replace_all(jjep.55.4.501.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.501.rp13 <- str_replace_all(jjep.55.4.501.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.501.rp14 <- str_replace_all(jjep.55.4.501.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.501.rp15 <- str_replace_all(jjep.55.4.501.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.501.mod <- rbind(varname,jjep.55.4.501.rp15); write(jjep.55.4.501.mod, file = "./jjep/Mod_55_4_501.txt")
jjep.55.4.514.tx <- readr::read_file(file="./jjep/55_4_514.txt"); jjep.55.4.514.rm00 <- jjep.55.4.514.tx; jjep.55.4.514.rm01 <- str_replace_all(jjep.55.4.514.rm00, pattern = rm.01, replacement = ""); jjep.55.4.514.rm02 <- str_replace_all(jjep.55.4.514.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.514.rm03 <- str_replace_all(jjep.55.4.514.rm02, pattern = rm.03, replacement = ""); jjep.55.4.514.rm04 <- str_replace_all(jjep.55.4.514.rm03, pattern = rm.04, replacement = ""); jjep.55.4.514.rm05 <- str_replace_all(jjep.55.4.514.rm04, pattern = rm.05, replacement = ""); jjep.55.4.514.rm06 <- str_replace_all(jjep.55.4.514.rm05, pattern = rm.06, replacement = ""); jjep.55.4.514.rm07 <- str_replace_all(jjep.55.4.514.rm06, pattern = rm.07, replacement = ""); jjep.55.4.514.rm08 <- str_replace_all(jjep.55.4.514.rm07, pattern = rm.08, replacement = ""); jjep.55.4.514.rm09 <- str_replace_all(jjep.55.4.514.rm08, pattern = rm.09, replacement = ""); jjep.55.4.514.rp10 <- str_replace_all(jjep.55.4.514.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.514.rp11 <- str_replace_all(jjep.55.4.514.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.514.rp12 <- str_replace_all(jjep.55.4.514.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.514.rp13 <- str_replace_all(jjep.55.4.514.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.514.rp14 <- str_replace_all(jjep.55.4.514.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.514.rp15 <- str_replace_all(jjep.55.4.514.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.514.mod <- rbind(varname,jjep.55.4.514.rp15); write(jjep.55.4.514.mod, file = "./jjep/Mod_55_4_514.txt")
jjep.55.4.526.tx <- readr::read_file(file="./jjep/55_4_526.txt"); jjep.55.4.526.rm00 <- jjep.55.4.526.tx; jjep.55.4.526.rm01 <- str_replace_all(jjep.55.4.526.rm00, pattern = rm.01, replacement = ""); jjep.55.4.526.rm02 <- str_replace_all(jjep.55.4.526.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.526.rm03 <- str_replace_all(jjep.55.4.526.rm02, pattern = rm.03, replacement = ""); jjep.55.4.526.rm04 <- str_replace_all(jjep.55.4.526.rm03, pattern = rm.04, replacement = ""); jjep.55.4.526.rm05 <- str_replace_all(jjep.55.4.526.rm04, pattern = rm.05, replacement = ""); jjep.55.4.526.rm06 <- str_replace_all(jjep.55.4.526.rm05, pattern = rm.06, replacement = ""); jjep.55.4.526.rm07 <- str_replace_all(jjep.55.4.526.rm06, pattern = rm.07, replacement = ""); jjep.55.4.526.rm08 <- str_replace_all(jjep.55.4.526.rm07, pattern = rm.08, replacement = ""); jjep.55.4.526.rm09 <- str_replace_all(jjep.55.4.526.rm08, pattern = rm.09, replacement = ""); jjep.55.4.526.rp10 <- str_replace_all(jjep.55.4.526.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.526.rp11 <- str_replace_all(jjep.55.4.526.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.526.rp12 <- str_replace_all(jjep.55.4.526.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.526.rp13 <- str_replace_all(jjep.55.4.526.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.526.rp14 <- str_replace_all(jjep.55.4.526.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.526.rp15 <- str_replace_all(jjep.55.4.526.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.526.mod <- rbind(varname,jjep.55.4.526.rp15); write(jjep.55.4.526.mod, file = "./jjep/Mod_55_4_526.txt")
jjep.55.4.538.tx <- readr::read_file(file="./jjep/55_4_538.txt"); jjep.55.4.538.rm00 <- jjep.55.4.538.tx; jjep.55.4.538.rm01 <- str_replace_all(jjep.55.4.538.rm00, pattern = rm.01, replacement = ""); jjep.55.4.538.rm02 <- str_replace_all(jjep.55.4.538.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.538.rm03 <- str_replace_all(jjep.55.4.538.rm02, pattern = rm.03, replacement = ""); jjep.55.4.538.rm04 <- str_replace_all(jjep.55.4.538.rm03, pattern = rm.04, replacement = ""); jjep.55.4.538.rm05 <- str_replace_all(jjep.55.4.538.rm04, pattern = rm.05, replacement = ""); jjep.55.4.538.rm06 <- str_replace_all(jjep.55.4.538.rm05, pattern = rm.06, replacement = ""); jjep.55.4.538.rm07 <- str_replace_all(jjep.55.4.538.rm06, pattern = rm.07, replacement = ""); jjep.55.4.538.rm08 <- str_replace_all(jjep.55.4.538.rm07, pattern = rm.08, replacement = ""); jjep.55.4.538.rm09 <- str_replace_all(jjep.55.4.538.rm08, pattern = rm.09, replacement = ""); jjep.55.4.538.rp10 <- str_replace_all(jjep.55.4.538.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.538.rp11 <- str_replace_all(jjep.55.4.538.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.538.rp12 <- str_replace_all(jjep.55.4.538.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.538.rp13 <- str_replace_all(jjep.55.4.538.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.538.rp14 <- str_replace_all(jjep.55.4.538.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.538.rp15 <- str_replace_all(jjep.55.4.538.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.538.mod <- rbind(varname,jjep.55.4.538.rp15); write(jjep.55.4.538.mod, file = "./jjep/Mod_55_4_538.txt")
jjep.55.4.550.tx <- readr::read_file(file="./jjep/55_4_550.txt"); jjep.55.4.550.rm00 <- jjep.55.4.550.tx; jjep.55.4.550.rm01 <- str_replace_all(jjep.55.4.550.rm00, pattern = rm.01, replacement = ""); jjep.55.4.550.rm02 <- str_replace_all(jjep.55.4.550.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.550.rm03 <- str_replace_all(jjep.55.4.550.rm02, pattern = rm.03, replacement = ""); jjep.55.4.550.rm04 <- str_replace_all(jjep.55.4.550.rm03, pattern = rm.04, replacement = ""); jjep.55.4.550.rm05 <- str_replace_all(jjep.55.4.550.rm04, pattern = rm.05, replacement = ""); jjep.55.4.550.rm06 <- str_replace_all(jjep.55.4.550.rm05, pattern = rm.06, replacement = ""); jjep.55.4.550.rm07 <- str_replace_all(jjep.55.4.550.rm06, pattern = rm.07, replacement = ""); jjep.55.4.550.rm08 <- str_replace_all(jjep.55.4.550.rm07, pattern = rm.08, replacement = ""); jjep.55.4.550.rm09 <- str_replace_all(jjep.55.4.550.rm08, pattern = rm.09, replacement = ""); jjep.55.4.550.rp10 <- str_replace_all(jjep.55.4.550.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.550.rp11 <- str_replace_all(jjep.55.4.550.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.550.rp12 <- str_replace_all(jjep.55.4.550.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.550.rp13 <- str_replace_all(jjep.55.4.550.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.550.rp14 <- str_replace_all(jjep.55.4.550.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.550.rp15 <- str_replace_all(jjep.55.4.550.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.550.mod <- rbind(varname,jjep.55.4.550.rp15); write(jjep.55.4.550.mod, file = "./jjep/Mod_55_4_550.txt")
jjep.55.4.560.tx <- readr::read_file(file="./jjep/55_4_560.txt"); jjep.55.4.560.rm00 <- jjep.55.4.560.tx; jjep.55.4.560.rm01 <- str_replace_all(jjep.55.4.560.rm00, pattern = rm.01, replacement = ""); jjep.55.4.560.rm02 <- str_replace_all(jjep.55.4.560.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.560.rm03 <- str_replace_all(jjep.55.4.560.rm02, pattern = rm.03, replacement = ""); jjep.55.4.560.rm04 <- str_replace_all(jjep.55.4.560.rm03, pattern = rm.04, replacement = ""); jjep.55.4.560.rm05 <- str_replace_all(jjep.55.4.560.rm04, pattern = rm.05, replacement = ""); jjep.55.4.560.rm06 <- str_replace_all(jjep.55.4.560.rm05, pattern = rm.06, replacement = ""); jjep.55.4.560.rm07 <- str_replace_all(jjep.55.4.560.rm06, pattern = rm.07, replacement = ""); jjep.55.4.560.rm08 <- str_replace_all(jjep.55.4.560.rm07, pattern = rm.08, replacement = ""); jjep.55.4.560.rm09 <- str_replace_all(jjep.55.4.560.rm08, pattern = rm.09, replacement = ""); jjep.55.4.560.rp10 <- str_replace_all(jjep.55.4.560.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.560.rp11 <- str_replace_all(jjep.55.4.560.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.560.rp12 <- str_replace_all(jjep.55.4.560.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.560.rp13 <- str_replace_all(jjep.55.4.560.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.560.rp14 <- str_replace_all(jjep.55.4.560.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.560.rp15 <- str_replace_all(jjep.55.4.560.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.560.mod <- rbind(varname,jjep.55.4.560.rp15); write(jjep.55.4.560.mod, file = "./jjep/Mod_55_4_560.txt")
jjep.55.4.573.tx <- readr::read_file(file="./jjep/55_4_573.txt"); jjep.55.4.573.rm00 <- jjep.55.4.573.tx; jjep.55.4.573.rm01 <- str_replace_all(jjep.55.4.573.rm00, pattern = rm.01, replacement = ""); jjep.55.4.573.rm02 <- str_replace_all(jjep.55.4.573.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.573.rm03 <- str_replace_all(jjep.55.4.573.rm02, pattern = rm.03, replacement = ""); jjep.55.4.573.rm04 <- str_replace_all(jjep.55.4.573.rm03, pattern = rm.04, replacement = ""); jjep.55.4.573.rm05 <- str_replace_all(jjep.55.4.573.rm04, pattern = rm.05, replacement = ""); jjep.55.4.573.rm06 <- str_replace_all(jjep.55.4.573.rm05, pattern = rm.06, replacement = ""); jjep.55.4.573.rm07 <- str_replace_all(jjep.55.4.573.rm06, pattern = rm.07, replacement = ""); jjep.55.4.573.rm08 <- str_replace_all(jjep.55.4.573.rm07, pattern = rm.08, replacement = ""); jjep.55.4.573.rm09 <- str_replace_all(jjep.55.4.573.rm08, pattern = rm.09, replacement = ""); jjep.55.4.573.rp10 <- str_replace_all(jjep.55.4.573.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.573.rp11 <- str_replace_all(jjep.55.4.573.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.573.rp12 <- str_replace_all(jjep.55.4.573.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.573.rp13 <- str_replace_all(jjep.55.4.573.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.573.rp14 <- str_replace_all(jjep.55.4.573.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.573.rp15 <- str_replace_all(jjep.55.4.573.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.573.mod <- rbind(varname,jjep.55.4.573.rp15); write(jjep.55.4.573.mod, file = "./jjep/Mod_55_4_573.txt")
jjep.55.4.584.tx <- readr::read_file(file="./jjep/55_4_584.txt"); jjep.55.4.584.rm00 <- jjep.55.4.584.tx; jjep.55.4.584.rm01 <- str_replace_all(jjep.55.4.584.rm00, pattern = rm.01, replacement = ""); jjep.55.4.584.rm02 <- str_replace_all(jjep.55.4.584.rm01, pattern = rm.02, replacement = "^"); jjep.55.4.584.rm03 <- str_replace_all(jjep.55.4.584.rm02, pattern = rm.03, replacement = ""); jjep.55.4.584.rm04 <- str_replace_all(jjep.55.4.584.rm03, pattern = rm.04, replacement = ""); jjep.55.4.584.rm05 <- str_replace_all(jjep.55.4.584.rm04, pattern = rm.05, replacement = ""); jjep.55.4.584.rm06 <- str_replace_all(jjep.55.4.584.rm05, pattern = rm.06, replacement = ""); jjep.55.4.584.rm07 <- str_replace_all(jjep.55.4.584.rm06, pattern = rm.07, replacement = ""); jjep.55.4.584.rm08 <- str_replace_all(jjep.55.4.584.rm07, pattern = rm.08, replacement = ""); jjep.55.4.584.rm09 <- str_replace_all(jjep.55.4.584.rm08, pattern = rm.09, replacement = ""); jjep.55.4.584.rp10 <- str_replace_all(jjep.55.4.584.rm09, pattern = rp.01, replacement = "・"); jjep.55.4.584.rp11 <- str_replace_all(jjep.55.4.584.rp10, pattern = rp.02, replacement = "^"); jjep.55.4.584.rp12 <- str_replace_all(jjep.55.4.584.rp11, pattern = rp.03, replacement = "^"); jjep.55.4.584.rp13 <- str_replace_all(jjep.55.4.584.rp12, pattern = rp.04, replacement = "^"); jjep.55.4.584.rp14 <- str_replace_all(jjep.55.4.584.rp13, pattern = rp.05, replacement = "^"); jjep.55.4.584.rp15 <- str_replace_all(jjep.55.4.584.rp14, pattern = rp.06, replacement = "^"); jjep.55.4.584.mod <- rbind(varname,jjep.55.4.584.rp15); write(jjep.55.4.584.mod, file = "./jjep/Mod_55_4_584.txt")
jjep.55.3.313.tx <- readr::read_file(file="./jjep/55_3_313.txt"); jjep.55.3.313.rm00 <- jjep.55.3.313.tx; jjep.55.3.313.rm01 <- str_replace_all(jjep.55.3.313.rm00, pattern = rm.01, replacement = ""); jjep.55.3.313.rm02 <- str_replace_all(jjep.55.3.313.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.313.rm03 <- str_replace_all(jjep.55.3.313.rm02, pattern = rm.03, replacement = ""); jjep.55.3.313.rm04 <- str_replace_all(jjep.55.3.313.rm03, pattern = rm.04, replacement = ""); jjep.55.3.313.rm05 <- str_replace_all(jjep.55.3.313.rm04, pattern = rm.05, replacement = ""); jjep.55.3.313.rm06 <- str_replace_all(jjep.55.3.313.rm05, pattern = rm.06, replacement = ""); jjep.55.3.313.rm07 <- str_replace_all(jjep.55.3.313.rm06, pattern = rm.07, replacement = ""); jjep.55.3.313.rm08 <- str_replace_all(jjep.55.3.313.rm07, pattern = rm.08, replacement = ""); jjep.55.3.313.rm09 <- str_replace_all(jjep.55.3.313.rm08, pattern = rm.09, replacement = ""); jjep.55.3.313.rp10 <- str_replace_all(jjep.55.3.313.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.313.rp11 <- str_replace_all(jjep.55.3.313.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.313.rp12 <- str_replace_all(jjep.55.3.313.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.313.rp13 <- str_replace_all(jjep.55.3.313.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.313.rp14 <- str_replace_all(jjep.55.3.313.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.313.rp15 <- str_replace_all(jjep.55.3.313.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.313.mod <- rbind(varname,jjep.55.3.313.rp15); write(jjep.55.3.313.mod, file = "./jjep/Mod_55_3_313.txt")
jjep.55.3.325.tx <- readr::read_file(file="./jjep/55_3_325.txt"); jjep.55.3.325.rm00 <- jjep.55.3.325.tx; jjep.55.3.325.rm01 <- str_replace_all(jjep.55.3.325.rm00, pattern = rm.01, replacement = ""); jjep.55.3.325.rm02 <- str_replace_all(jjep.55.3.325.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.325.rm03 <- str_replace_all(jjep.55.3.325.rm02, pattern = rm.03, replacement = ""); jjep.55.3.325.rm04 <- str_replace_all(jjep.55.3.325.rm03, pattern = rm.04, replacement = ""); jjep.55.3.325.rm05 <- str_replace_all(jjep.55.3.325.rm04, pattern = rm.05, replacement = ""); jjep.55.3.325.rm06 <- str_replace_all(jjep.55.3.325.rm05, pattern = rm.06, replacement = ""); jjep.55.3.325.rm07 <- str_replace_all(jjep.55.3.325.rm06, pattern = rm.07, replacement = ""); jjep.55.3.325.rm08 <- str_replace_all(jjep.55.3.325.rm07, pattern = rm.08, replacement = ""); jjep.55.3.325.rm09 <- str_replace_all(jjep.55.3.325.rm08, pattern = rm.09, replacement = ""); jjep.55.3.325.rp10 <- str_replace_all(jjep.55.3.325.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.325.rp11 <- str_replace_all(jjep.55.3.325.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.325.rp12 <- str_replace_all(jjep.55.3.325.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.325.rp13 <- str_replace_all(jjep.55.3.325.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.325.rp14 <- str_replace_all(jjep.55.3.325.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.325.rp15 <- str_replace_all(jjep.55.3.325.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.325.mod <- rbind(varname,jjep.55.3.325.rp15); write(jjep.55.3.325.mod, file = "./jjep/Mod_55_3_325.txt")
jjep.55.3.335.tx <- readr::read_file(file="./jjep/55_3_335.txt"); jjep.55.3.335.rm00 <- jjep.55.3.335.tx; jjep.55.3.335.rm01 <- str_replace_all(jjep.55.3.335.rm00, pattern = rm.01, replacement = ""); jjep.55.3.335.rm02 <- str_replace_all(jjep.55.3.335.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.335.rm03 <- str_replace_all(jjep.55.3.335.rm02, pattern = rm.03, replacement = ""); jjep.55.3.335.rm04 <- str_replace_all(jjep.55.3.335.rm03, pattern = rm.04, replacement = ""); jjep.55.3.335.rm05 <- str_replace_all(jjep.55.3.335.rm04, pattern = rm.05, replacement = ""); jjep.55.3.335.rm06 <- str_replace_all(jjep.55.3.335.rm05, pattern = rm.06, replacement = ""); jjep.55.3.335.rm07 <- str_replace_all(jjep.55.3.335.rm06, pattern = rm.07, replacement = ""); jjep.55.3.335.rm08 <- str_replace_all(jjep.55.3.335.rm07, pattern = rm.08, replacement = ""); jjep.55.3.335.rm09 <- str_replace_all(jjep.55.3.335.rm08, pattern = rm.09, replacement = ""); jjep.55.3.335.rp10 <- str_replace_all(jjep.55.3.335.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.335.rp11 <- str_replace_all(jjep.55.3.335.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.335.rp12 <- str_replace_all(jjep.55.3.335.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.335.rp13 <- str_replace_all(jjep.55.3.335.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.335.rp14 <- str_replace_all(jjep.55.3.335.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.335.rp15 <- str_replace_all(jjep.55.3.335.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.335.mod <- rbind(varname,jjep.55.3.335.rp15); write(jjep.55.3.335.mod, file = "./jjep/Mod_55_3_335.txt")
jjep.55.3.347.tx <- readr::read_file(file="./jjep/55_3_347.txt"); jjep.55.3.347.rm00 <- jjep.55.3.347.tx; jjep.55.3.347.rm01 <- str_replace_all(jjep.55.3.347.rm00, pattern = rm.01, replacement = ""); jjep.55.3.347.rm02 <- str_replace_all(jjep.55.3.347.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.347.rm03 <- str_replace_all(jjep.55.3.347.rm02, pattern = rm.03, replacement = ""); jjep.55.3.347.rm04 <- str_replace_all(jjep.55.3.347.rm03, pattern = rm.04, replacement = ""); jjep.55.3.347.rm05 <- str_replace_all(jjep.55.3.347.rm04, pattern = rm.05, replacement = ""); jjep.55.3.347.rm06 <- str_replace_all(jjep.55.3.347.rm05, pattern = rm.06, replacement = ""); jjep.55.3.347.rm07 <- str_replace_all(jjep.55.3.347.rm06, pattern = rm.07, replacement = ""); jjep.55.3.347.rm08 <- str_replace_all(jjep.55.3.347.rm07, pattern = rm.08, replacement = ""); jjep.55.3.347.rm09 <- str_replace_all(jjep.55.3.347.rm08, pattern = rm.09, replacement = ""); jjep.55.3.347.rp10 <- str_replace_all(jjep.55.3.347.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.347.rp11 <- str_replace_all(jjep.55.3.347.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.347.rp12 <- str_replace_all(jjep.55.3.347.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.347.rp13 <- str_replace_all(jjep.55.3.347.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.347.rp14 <- str_replace_all(jjep.55.3.347.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.347.rp15 <- str_replace_all(jjep.55.3.347.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.347.mod <- rbind(varname,jjep.55.3.347.rp15); write(jjep.55.3.347.mod, file = "./jjep/Mod_55_3_347.txt")
jjep.55.3.359.tx <- readr::read_file(file="./jjep/55_3_359.txt"); jjep.55.3.359.rm00 <- jjep.55.3.359.tx; jjep.55.3.359.rm01 <- str_replace_all(jjep.55.3.359.rm00, pattern = rm.01, replacement = ""); jjep.55.3.359.rm02 <- str_replace_all(jjep.55.3.359.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.359.rm03 <- str_replace_all(jjep.55.3.359.rm02, pattern = rm.03, replacement = ""); jjep.55.3.359.rm04 <- str_replace_all(jjep.55.3.359.rm03, pattern = rm.04, replacement = ""); jjep.55.3.359.rm05 <- str_replace_all(jjep.55.3.359.rm04, pattern = rm.05, replacement = ""); jjep.55.3.359.rm06 <- str_replace_all(jjep.55.3.359.rm05, pattern = rm.06, replacement = ""); jjep.55.3.359.rm07 <- str_replace_all(jjep.55.3.359.rm06, pattern = rm.07, replacement = ""); jjep.55.3.359.rm08 <- str_replace_all(jjep.55.3.359.rm07, pattern = rm.08, replacement = ""); jjep.55.3.359.rm09 <- str_replace_all(jjep.55.3.359.rm08, pattern = rm.09, replacement = ""); jjep.55.3.359.rp10 <- str_replace_all(jjep.55.3.359.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.359.rp11 <- str_replace_all(jjep.55.3.359.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.359.rp12 <- str_replace_all(jjep.55.3.359.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.359.rp13 <- str_replace_all(jjep.55.3.359.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.359.rp14 <- str_replace_all(jjep.55.3.359.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.359.rp15 <- str_replace_all(jjep.55.3.359.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.359.mod <- rbind(varname,jjep.55.3.359.rp15); write(jjep.55.3.359.mod, file = "./jjep/Mod_55_3_359.txt")
jjep.55.3.370.tx <- readr::read_file(file="./jjep/55_3_370.txt"); jjep.55.3.370.rm00 <- jjep.55.3.370.tx; jjep.55.3.370.rm01 <- str_replace_all(jjep.55.3.370.rm00, pattern = rm.01, replacement = ""); jjep.55.3.370.rm02 <- str_replace_all(jjep.55.3.370.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.370.rm03 <- str_replace_all(jjep.55.3.370.rm02, pattern = rm.03, replacement = ""); jjep.55.3.370.rm04 <- str_replace_all(jjep.55.3.370.rm03, pattern = rm.04, replacement = ""); jjep.55.3.370.rm05 <- str_replace_all(jjep.55.3.370.rm04, pattern = rm.05, replacement = ""); jjep.55.3.370.rm06 <- str_replace_all(jjep.55.3.370.rm05, pattern = rm.06, replacement = ""); jjep.55.3.370.rm07 <- str_replace_all(jjep.55.3.370.rm06, pattern = rm.07, replacement = ""); jjep.55.3.370.rm08 <- str_replace_all(jjep.55.3.370.rm07, pattern = rm.08, replacement = ""); jjep.55.3.370.rm09 <- str_replace_all(jjep.55.3.370.rm08, pattern = rm.09, replacement = ""); jjep.55.3.370.rp10 <- str_replace_all(jjep.55.3.370.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.370.rp11 <- str_replace_all(jjep.55.3.370.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.370.rp12 <- str_replace_all(jjep.55.3.370.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.370.rp13 <- str_replace_all(jjep.55.3.370.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.370.rp14 <- str_replace_all(jjep.55.3.370.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.370.rp15 <- str_replace_all(jjep.55.3.370.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.370.mod <- rbind(varname,jjep.55.3.370.rp15); write(jjep.55.3.370.mod, file = "./jjep/Mod_55_3_370.txt")
jjep.55.3.382.tx <- readr::read_file(file="./jjep/55_3_382.txt"); jjep.55.3.382.rm00 <- jjep.55.3.382.tx; jjep.55.3.382.rm01 <- str_replace_all(jjep.55.3.382.rm00, pattern = rm.01, replacement = ""); jjep.55.3.382.rm02 <- str_replace_all(jjep.55.3.382.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.382.rm03 <- str_replace_all(jjep.55.3.382.rm02, pattern = rm.03, replacement = ""); jjep.55.3.382.rm04 <- str_replace_all(jjep.55.3.382.rm03, pattern = rm.04, replacement = ""); jjep.55.3.382.rm05 <- str_replace_all(jjep.55.3.382.rm04, pattern = rm.05, replacement = ""); jjep.55.3.382.rm06 <- str_replace_all(jjep.55.3.382.rm05, pattern = rm.06, replacement = ""); jjep.55.3.382.rm07 <- str_replace_all(jjep.55.3.382.rm06, pattern = rm.07, replacement = ""); jjep.55.3.382.rm08 <- str_replace_all(jjep.55.3.382.rm07, pattern = rm.08, replacement = ""); jjep.55.3.382.rm09 <- str_replace_all(jjep.55.3.382.rm08, pattern = rm.09, replacement = ""); jjep.55.3.382.rp10 <- str_replace_all(jjep.55.3.382.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.382.rp11 <- str_replace_all(jjep.55.3.382.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.382.rp12 <- str_replace_all(jjep.55.3.382.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.382.rp13 <- str_replace_all(jjep.55.3.382.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.382.rp14 <- str_replace_all(jjep.55.3.382.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.382.rp15 <- str_replace_all(jjep.55.3.382.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.382.mod <- rbind(varname,jjep.55.3.382.rp15); write(jjep.55.3.382.mod, file = "./jjep/Mod_55_3_382.txt")
jjep.55.3.393.tx <- readr::read_file(file="./jjep/55_3_393.txt"); jjep.55.3.393.rm00 <- jjep.55.3.393.tx; jjep.55.3.393.rm01 <- str_replace_all(jjep.55.3.393.rm00, pattern = rm.01, replacement = ""); jjep.55.3.393.rm02 <- str_replace_all(jjep.55.3.393.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.393.rm03 <- str_replace_all(jjep.55.3.393.rm02, pattern = rm.03, replacement = ""); jjep.55.3.393.rm04 <- str_replace_all(jjep.55.3.393.rm03, pattern = rm.04, replacement = ""); jjep.55.3.393.rm05 <- str_replace_all(jjep.55.3.393.rm04, pattern = rm.05, replacement = ""); jjep.55.3.393.rm06 <- str_replace_all(jjep.55.3.393.rm05, pattern = rm.06, replacement = ""); jjep.55.3.393.rm07 <- str_replace_all(jjep.55.3.393.rm06, pattern = rm.07, replacement = ""); jjep.55.3.393.rm08 <- str_replace_all(jjep.55.3.393.rm07, pattern = rm.08, replacement = ""); jjep.55.3.393.rm09 <- str_replace_all(jjep.55.3.393.rm08, pattern = rm.09, replacement = ""); jjep.55.3.393.rp10 <- str_replace_all(jjep.55.3.393.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.393.rp11 <- str_replace_all(jjep.55.3.393.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.393.rp12 <- str_replace_all(jjep.55.3.393.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.393.rp13 <- str_replace_all(jjep.55.3.393.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.393.rp14 <- str_replace_all(jjep.55.3.393.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.393.rp15 <- str_replace_all(jjep.55.3.393.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.393.mod <- rbind(varname,jjep.55.3.393.rp15); write(jjep.55.3.393.mod, file = "./jjep/Mod_55_3_393.txt")
jjep.55.3.403.tx <- readr::read_file(file="./jjep/55_3_403.txt"); jjep.55.3.403.rm00 <- jjep.55.3.403.tx; jjep.55.3.403.rm01 <- str_replace_all(jjep.55.3.403.rm00, pattern = rm.01, replacement = ""); jjep.55.3.403.rm02 <- str_replace_all(jjep.55.3.403.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.403.rm03 <- str_replace_all(jjep.55.3.403.rm02, pattern = rm.03, replacement = ""); jjep.55.3.403.rm04 <- str_replace_all(jjep.55.3.403.rm03, pattern = rm.04, replacement = ""); jjep.55.3.403.rm05 <- str_replace_all(jjep.55.3.403.rm04, pattern = rm.05, replacement = ""); jjep.55.3.403.rm06 <- str_replace_all(jjep.55.3.403.rm05, pattern = rm.06, replacement = ""); jjep.55.3.403.rm07 <- str_replace_all(jjep.55.3.403.rm06, pattern = rm.07, replacement = ""); jjep.55.3.403.rm08 <- str_replace_all(jjep.55.3.403.rm07, pattern = rm.08, replacement = ""); jjep.55.3.403.rm09 <- str_replace_all(jjep.55.3.403.rm08, pattern = rm.09, replacement = ""); jjep.55.3.403.rp10 <- str_replace_all(jjep.55.3.403.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.403.rp11 <- str_replace_all(jjep.55.3.403.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.403.rp12 <- str_replace_all(jjep.55.3.403.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.403.rp13 <- str_replace_all(jjep.55.3.403.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.403.rp14 <- str_replace_all(jjep.55.3.403.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.403.rp15 <- str_replace_all(jjep.55.3.403.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.403.mod <- rbind(varname,jjep.55.3.403.rp15); write(jjep.55.3.403.mod, file = "./jjep/Mod_55_3_403.txt")
jjep.55.3.414.tx <- readr::read_file(file="./jjep/55_3_414.txt"); jjep.55.3.414.rm00 <- jjep.55.3.414.tx; jjep.55.3.414.rm01 <- str_replace_all(jjep.55.3.414.rm00, pattern = rm.01, replacement = ""); jjep.55.3.414.rm02 <- str_replace_all(jjep.55.3.414.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.414.rm03 <- str_replace_all(jjep.55.3.414.rm02, pattern = rm.03, replacement = ""); jjep.55.3.414.rm04 <- str_replace_all(jjep.55.3.414.rm03, pattern = rm.04, replacement = ""); jjep.55.3.414.rm05 <- str_replace_all(jjep.55.3.414.rm04, pattern = rm.05, replacement = ""); jjep.55.3.414.rm06 <- str_replace_all(jjep.55.3.414.rm05, pattern = rm.06, replacement = ""); jjep.55.3.414.rm07 <- str_replace_all(jjep.55.3.414.rm06, pattern = rm.07, replacement = ""); jjep.55.3.414.rm08 <- str_replace_all(jjep.55.3.414.rm07, pattern = rm.08, replacement = ""); jjep.55.3.414.rm09 <- str_replace_all(jjep.55.3.414.rm08, pattern = rm.09, replacement = ""); jjep.55.3.414.rp10 <- str_replace_all(jjep.55.3.414.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.414.rp11 <- str_replace_all(jjep.55.3.414.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.414.rp12 <- str_replace_all(jjep.55.3.414.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.414.rp13 <- str_replace_all(jjep.55.3.414.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.414.rp14 <- str_replace_all(jjep.55.3.414.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.414.rp15 <- str_replace_all(jjep.55.3.414.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.414.mod <- rbind(varname,jjep.55.3.414.rp15); write(jjep.55.3.414.mod, file = "./jjep/Mod_55_3_414.txt")
jjep.55.3.426.tx <- readr::read_file(file="./jjep/55_3_426.txt"); jjep.55.3.426.rm00 <- jjep.55.3.426.tx; jjep.55.3.426.rm01 <- str_replace_all(jjep.55.3.426.rm00, pattern = rm.01, replacement = ""); jjep.55.3.426.rm02 <- str_replace_all(jjep.55.3.426.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.426.rm03 <- str_replace_all(jjep.55.3.426.rm02, pattern = rm.03, replacement = ""); jjep.55.3.426.rm04 <- str_replace_all(jjep.55.3.426.rm03, pattern = rm.04, replacement = ""); jjep.55.3.426.rm05 <- str_replace_all(jjep.55.3.426.rm04, pattern = rm.05, replacement = ""); jjep.55.3.426.rm06 <- str_replace_all(jjep.55.3.426.rm05, pattern = rm.06, replacement = ""); jjep.55.3.426.rm07 <- str_replace_all(jjep.55.3.426.rm06, pattern = rm.07, replacement = ""); jjep.55.3.426.rm08 <- str_replace_all(jjep.55.3.426.rm07, pattern = rm.08, replacement = ""); jjep.55.3.426.rm09 <- str_replace_all(jjep.55.3.426.rm08, pattern = rm.09, replacement = ""); jjep.55.3.426.rp10 <- str_replace_all(jjep.55.3.426.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.426.rp11 <- str_replace_all(jjep.55.3.426.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.426.rp12 <- str_replace_all(jjep.55.3.426.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.426.rp13 <- str_replace_all(jjep.55.3.426.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.426.rp14 <- str_replace_all(jjep.55.3.426.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.426.rp15 <- str_replace_all(jjep.55.3.426.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.426.mod <- rbind(varname,jjep.55.3.426.rp15); write(jjep.55.3.426.mod, file = "./jjep/Mod_55_3_426.txt")
jjep.55.3.438.tx <- readr::read_file(file="./jjep/55_3_438.txt"); jjep.55.3.438.rm00 <- jjep.55.3.438.tx; jjep.55.3.438.rm01 <- str_replace_all(jjep.55.3.438.rm00, pattern = rm.01, replacement = ""); jjep.55.3.438.rm02 <- str_replace_all(jjep.55.3.438.rm01, pattern = rm.02, replacement = "^"); jjep.55.3.438.rm03 <- str_replace_all(jjep.55.3.438.rm02, pattern = rm.03, replacement = ""); jjep.55.3.438.rm04 <- str_replace_all(jjep.55.3.438.rm03, pattern = rm.04, replacement = ""); jjep.55.3.438.rm05 <- str_replace_all(jjep.55.3.438.rm04, pattern = rm.05, replacement = ""); jjep.55.3.438.rm06 <- str_replace_all(jjep.55.3.438.rm05, pattern = rm.06, replacement = ""); jjep.55.3.438.rm07 <- str_replace_all(jjep.55.3.438.rm06, pattern = rm.07, replacement = ""); jjep.55.3.438.rm08 <- str_replace_all(jjep.55.3.438.rm07, pattern = rm.08, replacement = ""); jjep.55.3.438.rm09 <- str_replace_all(jjep.55.3.438.rm08, pattern = rm.09, replacement = ""); jjep.55.3.438.rp10 <- str_replace_all(jjep.55.3.438.rm09, pattern = rp.01, replacement = "・"); jjep.55.3.438.rp11 <- str_replace_all(jjep.55.3.438.rp10, pattern = rp.02, replacement = "^"); jjep.55.3.438.rp12 <- str_replace_all(jjep.55.3.438.rp11, pattern = rp.03, replacement = "^"); jjep.55.3.438.rp13 <- str_replace_all(jjep.55.3.438.rp12, pattern = rp.04, replacement = "^"); jjep.55.3.438.rp14 <- str_replace_all(jjep.55.3.438.rp13, pattern = rp.05, replacement = "^"); jjep.55.3.438.rp15 <- str_replace_all(jjep.55.3.438.rp14, pattern = rp.06, replacement = "^"); jjep.55.3.438.mod <- rbind(varname,jjep.55.3.438.rp15); write(jjep.55.3.438.mod, file = "./jjep/Mod_55_3_438.txt")
jjep.55.2.161.tx <- readr::read_file(file="./jjep/55_2_161.txt"); jjep.55.2.161.rm00 <- jjep.55.2.161.tx; jjep.55.2.161.rm01 <- str_replace_all(jjep.55.2.161.rm00, pattern = rm.01, replacement = ""); jjep.55.2.161.rm02 <- str_replace_all(jjep.55.2.161.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.161.rm03 <- str_replace_all(jjep.55.2.161.rm02, pattern = rm.03, replacement = ""); jjep.55.2.161.rm04 <- str_replace_all(jjep.55.2.161.rm03, pattern = rm.04, replacement = ""); jjep.55.2.161.rm05 <- str_replace_all(jjep.55.2.161.rm04, pattern = rm.05, replacement = ""); jjep.55.2.161.rm06 <- str_replace_all(jjep.55.2.161.rm05, pattern = rm.06, replacement = ""); jjep.55.2.161.rm07 <- str_replace_all(jjep.55.2.161.rm06, pattern = rm.07, replacement = ""); jjep.55.2.161.rm08 <- str_replace_all(jjep.55.2.161.rm07, pattern = rm.08, replacement = ""); jjep.55.2.161.rm09 <- str_replace_all(jjep.55.2.161.rm08, pattern = rm.09, replacement = ""); jjep.55.2.161.rp10 <- str_replace_all(jjep.55.2.161.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.161.rp11 <- str_replace_all(jjep.55.2.161.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.161.rp12 <- str_replace_all(jjep.55.2.161.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.161.rp13 <- str_replace_all(jjep.55.2.161.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.161.rp14 <- str_replace_all(jjep.55.2.161.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.161.rp15 <- str_replace_all(jjep.55.2.161.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.161.mod <- rbind(varname,jjep.55.2.161.rp15); write(jjep.55.2.161.mod, file = "./jjep/Mod_55_2_161.txt")
jjep.55.2.170.tx <- readr::read_file(file="./jjep/55_2_170.txt"); jjep.55.2.170.rm00 <- jjep.55.2.170.tx; jjep.55.2.170.rm01 <- str_replace_all(jjep.55.2.170.rm00, pattern = rm.01, replacement = ""); jjep.55.2.170.rm02 <- str_replace_all(jjep.55.2.170.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.170.rm03 <- str_replace_all(jjep.55.2.170.rm02, pattern = rm.03, replacement = ""); jjep.55.2.170.rm04 <- str_replace_all(jjep.55.2.170.rm03, pattern = rm.04, replacement = ""); jjep.55.2.170.rm05 <- str_replace_all(jjep.55.2.170.rm04, pattern = rm.05, replacement = ""); jjep.55.2.170.rm06 <- str_replace_all(jjep.55.2.170.rm05, pattern = rm.06, replacement = ""); jjep.55.2.170.rm07 <- str_replace_all(jjep.55.2.170.rm06, pattern = rm.07, replacement = ""); jjep.55.2.170.rm08 <- str_replace_all(jjep.55.2.170.rm07, pattern = rm.08, replacement = ""); jjep.55.2.170.rm09 <- str_replace_all(jjep.55.2.170.rm08, pattern = rm.09, replacement = ""); jjep.55.2.170.rp10 <- str_replace_all(jjep.55.2.170.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.170.rp11 <- str_replace_all(jjep.55.2.170.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.170.rp12 <- str_replace_all(jjep.55.2.170.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.170.rp13 <- str_replace_all(jjep.55.2.170.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.170.rp14 <- str_replace_all(jjep.55.2.170.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.170.rp15 <- str_replace_all(jjep.55.2.170.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.170.mod <- rbind(varname,jjep.55.2.170.rp15); write(jjep.55.2.170.mod, file = "./jjep/Mod_55_2_170.txt")
jjep.55.2.184.tx <- readr::read_file(file="./jjep/55_2_184.txt"); jjep.55.2.184.rm00 <- jjep.55.2.184.tx; jjep.55.2.184.rm01 <- str_replace_all(jjep.55.2.184.rm00, pattern = rm.01, replacement = ""); jjep.55.2.184.rm02 <- str_replace_all(jjep.55.2.184.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.184.rm03 <- str_replace_all(jjep.55.2.184.rm02, pattern = rm.03, replacement = ""); jjep.55.2.184.rm04 <- str_replace_all(jjep.55.2.184.rm03, pattern = rm.04, replacement = ""); jjep.55.2.184.rm05 <- str_replace_all(jjep.55.2.184.rm04, pattern = rm.05, replacement = ""); jjep.55.2.184.rm06 <- str_replace_all(jjep.55.2.184.rm05, pattern = rm.06, replacement = ""); jjep.55.2.184.rm07 <- str_replace_all(jjep.55.2.184.rm06, pattern = rm.07, replacement = ""); jjep.55.2.184.rm08 <- str_replace_all(jjep.55.2.184.rm07, pattern = rm.08, replacement = ""); jjep.55.2.184.rm09 <- str_replace_all(jjep.55.2.184.rm08, pattern = rm.09, replacement = ""); jjep.55.2.184.rp10 <- str_replace_all(jjep.55.2.184.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.184.rp11 <- str_replace_all(jjep.55.2.184.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.184.rp12 <- str_replace_all(jjep.55.2.184.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.184.rp13 <- str_replace_all(jjep.55.2.184.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.184.rp14 <- str_replace_all(jjep.55.2.184.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.184.rp15 <- str_replace_all(jjep.55.2.184.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.184.mod <- rbind(varname,jjep.55.2.184.rp15); write(jjep.55.2.184.mod, file = "./jjep/Mod_55_2_184.txt")
jjep.55.2.197.tx <- readr::read_file(file="./jjep/55_2_197.txt"); jjep.55.2.197.rm00 <- jjep.55.2.197.tx; jjep.55.2.197.rm01 <- str_replace_all(jjep.55.2.197.rm00, pattern = rm.01, replacement = ""); jjep.55.2.197.rm02 <- str_replace_all(jjep.55.2.197.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.197.rm03 <- str_replace_all(jjep.55.2.197.rm02, pattern = rm.03, replacement = ""); jjep.55.2.197.rm04 <- str_replace_all(jjep.55.2.197.rm03, pattern = rm.04, replacement = ""); jjep.55.2.197.rm05 <- str_replace_all(jjep.55.2.197.rm04, pattern = rm.05, replacement = ""); jjep.55.2.197.rm06 <- str_replace_all(jjep.55.2.197.rm05, pattern = rm.06, replacement = ""); jjep.55.2.197.rm07 <- str_replace_all(jjep.55.2.197.rm06, pattern = rm.07, replacement = ""); jjep.55.2.197.rm08 <- str_replace_all(jjep.55.2.197.rm07, pattern = rm.08, replacement = ""); jjep.55.2.197.rm09 <- str_replace_all(jjep.55.2.197.rm08, pattern = rm.09, replacement = ""); jjep.55.2.197.rp10 <- str_replace_all(jjep.55.2.197.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.197.rp11 <- str_replace_all(jjep.55.2.197.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.197.rp12 <- str_replace_all(jjep.55.2.197.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.197.rp13 <- str_replace_all(jjep.55.2.197.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.197.rp14 <- str_replace_all(jjep.55.2.197.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.197.rp15 <- str_replace_all(jjep.55.2.197.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.197.mod <- rbind(varname,jjep.55.2.197.rp15); write(jjep.55.2.197.mod, file = "./jjep/Mod_55_2_197.txt")
jjep.55.2.208.tx <- readr::read_file(file="./jjep/55_2_208.txt"); jjep.55.2.208.rm00 <- jjep.55.2.208.tx; jjep.55.2.208.rm01 <- str_replace_all(jjep.55.2.208.rm00, pattern = rm.01, replacement = ""); jjep.55.2.208.rm02 <- str_replace_all(jjep.55.2.208.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.208.rm03 <- str_replace_all(jjep.55.2.208.rm02, pattern = rm.03, replacement = ""); jjep.55.2.208.rm04 <- str_replace_all(jjep.55.2.208.rm03, pattern = rm.04, replacement = ""); jjep.55.2.208.rm05 <- str_replace_all(jjep.55.2.208.rm04, pattern = rm.05, replacement = ""); jjep.55.2.208.rm06 <- str_replace_all(jjep.55.2.208.rm05, pattern = rm.06, replacement = ""); jjep.55.2.208.rm07 <- str_replace_all(jjep.55.2.208.rm06, pattern = rm.07, replacement = ""); jjep.55.2.208.rm08 <- str_replace_all(jjep.55.2.208.rm07, pattern = rm.08, replacement = ""); jjep.55.2.208.rm09 <- str_replace_all(jjep.55.2.208.rm08, pattern = rm.09, replacement = ""); jjep.55.2.208.rp10 <- str_replace_all(jjep.55.2.208.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.208.rp11 <- str_replace_all(jjep.55.2.208.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.208.rp12 <- str_replace_all(jjep.55.2.208.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.208.rp13 <- str_replace_all(jjep.55.2.208.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.208.rp14 <- str_replace_all(jjep.55.2.208.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.208.rp15 <- str_replace_all(jjep.55.2.208.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.208.mod <- rbind(varname,jjep.55.2.208.rp15); write(jjep.55.2.208.mod, file = "./jjep/Mod_55_2_208.txt")
jjep.55.2.219.tx <- readr::read_file(file="./jjep/55_2_219.txt"); jjep.55.2.219.rm00 <- jjep.55.2.219.tx; jjep.55.2.219.rm01 <- str_replace_all(jjep.55.2.219.rm00, pattern = rm.01, replacement = ""); jjep.55.2.219.rm02 <- str_replace_all(jjep.55.2.219.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.219.rm03 <- str_replace_all(jjep.55.2.219.rm02, pattern = rm.03, replacement = ""); jjep.55.2.219.rm04 <- str_replace_all(jjep.55.2.219.rm03, pattern = rm.04, replacement = ""); jjep.55.2.219.rm05 <- str_replace_all(jjep.55.2.219.rm04, pattern = rm.05, replacement = ""); jjep.55.2.219.rm06 <- str_replace_all(jjep.55.2.219.rm05, pattern = rm.06, replacement = ""); jjep.55.2.219.rm07 <- str_replace_all(jjep.55.2.219.rm06, pattern = rm.07, replacement = ""); jjep.55.2.219.rm08 <- str_replace_all(jjep.55.2.219.rm07, pattern = rm.08, replacement = ""); jjep.55.2.219.rm09 <- str_replace_all(jjep.55.2.219.rm08, pattern = rm.09, replacement = ""); jjep.55.2.219.rp10 <- str_replace_all(jjep.55.2.219.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.219.rp11 <- str_replace_all(jjep.55.2.219.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.219.rp12 <- str_replace_all(jjep.55.2.219.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.219.rp13 <- str_replace_all(jjep.55.2.219.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.219.rp14 <- str_replace_all(jjep.55.2.219.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.219.rp15 <- str_replace_all(jjep.55.2.219.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.219.mod <- rbind(varname,jjep.55.2.219.rp15); write(jjep.55.2.219.mod, file = "./jjep/Mod_55_2_219.txt")
jjep.55.2.231.tx <- readr::read_file(file="./jjep/55_2_231.txt"); jjep.55.2.231.rm00 <- jjep.55.2.231.tx; jjep.55.2.231.rm01 <- str_replace_all(jjep.55.2.231.rm00, pattern = rm.01, replacement = ""); jjep.55.2.231.rm02 <- str_replace_all(jjep.55.2.231.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.231.rm03 <- str_replace_all(jjep.55.2.231.rm02, pattern = rm.03, replacement = ""); jjep.55.2.231.rm04 <- str_replace_all(jjep.55.2.231.rm03, pattern = rm.04, replacement = ""); jjep.55.2.231.rm05 <- str_replace_all(jjep.55.2.231.rm04, pattern = rm.05, replacement = ""); jjep.55.2.231.rm06 <- str_replace_all(jjep.55.2.231.rm05, pattern = rm.06, replacement = ""); jjep.55.2.231.rm07 <- str_replace_all(jjep.55.2.231.rm06, pattern = rm.07, replacement = ""); jjep.55.2.231.rm08 <- str_replace_all(jjep.55.2.231.rm07, pattern = rm.08, replacement = ""); jjep.55.2.231.rm09 <- str_replace_all(jjep.55.2.231.rm08, pattern = rm.09, replacement = ""); jjep.55.2.231.rp10 <- str_replace_all(jjep.55.2.231.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.231.rp11 <- str_replace_all(jjep.55.2.231.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.231.rp12 <- str_replace_all(jjep.55.2.231.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.231.rp13 <- str_replace_all(jjep.55.2.231.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.231.rp14 <- str_replace_all(jjep.55.2.231.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.231.rp15 <- str_replace_all(jjep.55.2.231.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.231.mod <- rbind(varname,jjep.55.2.231.rp15); write(jjep.55.2.231.mod, file = "./jjep/Mod_55_2_231.txt")
jjep.55.2.244.tx <- readr::read_file(file="./jjep/55_2_244.txt"); jjep.55.2.244.rm00 <- jjep.55.2.244.tx; jjep.55.2.244.rm01 <- str_replace_all(jjep.55.2.244.rm00, pattern = rm.01, replacement = ""); jjep.55.2.244.rm02 <- str_replace_all(jjep.55.2.244.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.244.rm03 <- str_replace_all(jjep.55.2.244.rm02, pattern = rm.03, replacement = ""); jjep.55.2.244.rm04 <- str_replace_all(jjep.55.2.244.rm03, pattern = rm.04, replacement = ""); jjep.55.2.244.rm05 <- str_replace_all(jjep.55.2.244.rm04, pattern = rm.05, replacement = ""); jjep.55.2.244.rm06 <- str_replace_all(jjep.55.2.244.rm05, pattern = rm.06, replacement = ""); jjep.55.2.244.rm07 <- str_replace_all(jjep.55.2.244.rm06, pattern = rm.07, replacement = ""); jjep.55.2.244.rm08 <- str_replace_all(jjep.55.2.244.rm07, pattern = rm.08, replacement = ""); jjep.55.2.244.rm09 <- str_replace_all(jjep.55.2.244.rm08, pattern = rm.09, replacement = ""); jjep.55.2.244.rp10 <- str_replace_all(jjep.55.2.244.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.244.rp11 <- str_replace_all(jjep.55.2.244.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.244.rp12 <- str_replace_all(jjep.55.2.244.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.244.rp13 <- str_replace_all(jjep.55.2.244.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.244.rp14 <- str_replace_all(jjep.55.2.244.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.244.rp15 <- str_replace_all(jjep.55.2.244.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.244.mod <- rbind(varname,jjep.55.2.244.rp15); write(jjep.55.2.244.mod, file = "./jjep/Mod_55_2_244.txt")
jjep.55.2.255.tx <- readr::read_file(file="./jjep/55_2_255.txt"); jjep.55.2.255.rm00 <- jjep.55.2.255.tx; jjep.55.2.255.rm01 <- str_replace_all(jjep.55.2.255.rm00, pattern = rm.01, replacement = ""); jjep.55.2.255.rm02 <- str_replace_all(jjep.55.2.255.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.255.rm03 <- str_replace_all(jjep.55.2.255.rm02, pattern = rm.03, replacement = ""); jjep.55.2.255.rm04 <- str_replace_all(jjep.55.2.255.rm03, pattern = rm.04, replacement = ""); jjep.55.2.255.rm05 <- str_replace_all(jjep.55.2.255.rm04, pattern = rm.05, replacement = ""); jjep.55.2.255.rm06 <- str_replace_all(jjep.55.2.255.rm05, pattern = rm.06, replacement = ""); jjep.55.2.255.rm07 <- str_replace_all(jjep.55.2.255.rm06, pattern = rm.07, replacement = ""); jjep.55.2.255.rm08 <- str_replace_all(jjep.55.2.255.rm07, pattern = rm.08, replacement = ""); jjep.55.2.255.rm09 <- str_replace_all(jjep.55.2.255.rm08, pattern = rm.09, replacement = ""); jjep.55.2.255.rp10 <- str_replace_all(jjep.55.2.255.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.255.rp11 <- str_replace_all(jjep.55.2.255.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.255.rp12 <- str_replace_all(jjep.55.2.255.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.255.rp13 <- str_replace_all(jjep.55.2.255.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.255.rp14 <- str_replace_all(jjep.55.2.255.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.255.rp15 <- str_replace_all(jjep.55.2.255.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.255.mod <- rbind(varname,jjep.55.2.255.rp15); write(jjep.55.2.255.mod, file = "./jjep/Mod_55_2_255.txt")
jjep.55.2.266.tx <- readr::read_file(file="./jjep/55_2_266.txt"); jjep.55.2.266.rm00 <- jjep.55.2.266.tx; jjep.55.2.266.rm01 <- str_replace_all(jjep.55.2.266.rm00, pattern = rm.01, replacement = ""); jjep.55.2.266.rm02 <- str_replace_all(jjep.55.2.266.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.266.rm03 <- str_replace_all(jjep.55.2.266.rm02, pattern = rm.03, replacement = ""); jjep.55.2.266.rm04 <- str_replace_all(jjep.55.2.266.rm03, pattern = rm.04, replacement = ""); jjep.55.2.266.rm05 <- str_replace_all(jjep.55.2.266.rm04, pattern = rm.05, replacement = ""); jjep.55.2.266.rm06 <- str_replace_all(jjep.55.2.266.rm05, pattern = rm.06, replacement = ""); jjep.55.2.266.rm07 <- str_replace_all(jjep.55.2.266.rm06, pattern = rm.07, replacement = ""); jjep.55.2.266.rm08 <- str_replace_all(jjep.55.2.266.rm07, pattern = rm.08, replacement = ""); jjep.55.2.266.rm09 <- str_replace_all(jjep.55.2.266.rm08, pattern = rm.09, replacement = ""); jjep.55.2.266.rp10 <- str_replace_all(jjep.55.2.266.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.266.rp11 <- str_replace_all(jjep.55.2.266.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.266.rp12 <- str_replace_all(jjep.55.2.266.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.266.rp13 <- str_replace_all(jjep.55.2.266.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.266.rp14 <- str_replace_all(jjep.55.2.266.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.266.rp15 <- str_replace_all(jjep.55.2.266.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.266.mod <- rbind(varname,jjep.55.2.266.rp15); write(jjep.55.2.266.mod, file = "./jjep/Mod_55_2_266.txt")
jjep.55.2.276.tx <- readr::read_file(file="./jjep/55_2_276.txt"); jjep.55.2.276.rm00 <- jjep.55.2.276.tx; jjep.55.2.276.rm01 <- str_replace_all(jjep.55.2.276.rm00, pattern = rm.01, replacement = ""); jjep.55.2.276.rm02 <- str_replace_all(jjep.55.2.276.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.276.rm03 <- str_replace_all(jjep.55.2.276.rm02, pattern = rm.03, replacement = ""); jjep.55.2.276.rm04 <- str_replace_all(jjep.55.2.276.rm03, pattern = rm.04, replacement = ""); jjep.55.2.276.rm05 <- str_replace_all(jjep.55.2.276.rm04, pattern = rm.05, replacement = ""); jjep.55.2.276.rm06 <- str_replace_all(jjep.55.2.276.rm05, pattern = rm.06, replacement = ""); jjep.55.2.276.rm07 <- str_replace_all(jjep.55.2.276.rm06, pattern = rm.07, replacement = ""); jjep.55.2.276.rm08 <- str_replace_all(jjep.55.2.276.rm07, pattern = rm.08, replacement = ""); jjep.55.2.276.rm09 <- str_replace_all(jjep.55.2.276.rm08, pattern = rm.09, replacement = ""); jjep.55.2.276.rp10 <- str_replace_all(jjep.55.2.276.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.276.rp11 <- str_replace_all(jjep.55.2.276.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.276.rp12 <- str_replace_all(jjep.55.2.276.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.276.rp13 <- str_replace_all(jjep.55.2.276.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.276.rp14 <- str_replace_all(jjep.55.2.276.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.276.rp15 <- str_replace_all(jjep.55.2.276.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.276.mod <- rbind(varname,jjep.55.2.276.rp15); write(jjep.55.2.276.mod, file = "./jjep/Mod_55_2_276.txt")
jjep.55.2.287.tx <- readr::read_file(file="./jjep/55_2_287.txt"); jjep.55.2.287.rm00 <- jjep.55.2.287.tx; jjep.55.2.287.rm01 <- str_replace_all(jjep.55.2.287.rm00, pattern = rm.01, replacement = ""); jjep.55.2.287.rm02 <- str_replace_all(jjep.55.2.287.rm01, pattern = rm.02, replacement = "^"); jjep.55.2.287.rm03 <- str_replace_all(jjep.55.2.287.rm02, pattern = rm.03, replacement = ""); jjep.55.2.287.rm04 <- str_replace_all(jjep.55.2.287.rm03, pattern = rm.04, replacement = ""); jjep.55.2.287.rm05 <- str_replace_all(jjep.55.2.287.rm04, pattern = rm.05, replacement = ""); jjep.55.2.287.rm06 <- str_replace_all(jjep.55.2.287.rm05, pattern = rm.06, replacement = ""); jjep.55.2.287.rm07 <- str_replace_all(jjep.55.2.287.rm06, pattern = rm.07, replacement = ""); jjep.55.2.287.rm08 <- str_replace_all(jjep.55.2.287.rm07, pattern = rm.08, replacement = ""); jjep.55.2.287.rm09 <- str_replace_all(jjep.55.2.287.rm08, pattern = rm.09, replacement = ""); jjep.55.2.287.rp10 <- str_replace_all(jjep.55.2.287.rm09, pattern = rp.01, replacement = "・"); jjep.55.2.287.rp11 <- str_replace_all(jjep.55.2.287.rp10, pattern = rp.02, replacement = "^"); jjep.55.2.287.rp12 <- str_replace_all(jjep.55.2.287.rp11, pattern = rp.03, replacement = "^"); jjep.55.2.287.rp13 <- str_replace_all(jjep.55.2.287.rp12, pattern = rp.04, replacement = "^"); jjep.55.2.287.rp14 <- str_replace_all(jjep.55.2.287.rp13, pattern = rp.05, replacement = "^"); jjep.55.2.287.rp15 <- str_replace_all(jjep.55.2.287.rp14, pattern = rp.06, replacement = "^"); jjep.55.2.287.mod <- rbind(varname,jjep.55.2.287.rp15); write(jjep.55.2.287.mod, file = "./jjep/Mod_55_2_287.txt")
jjep.55.1.1.tx <- readr::read_file(file="./jjep/55_1_1.txt"); jjep.55.1.1.rm00 <- jjep.55.1.1.tx; jjep.55.1.1.rm01 <- str_replace_all(jjep.55.1.1.rm00, pattern = rm.01, replacement = ""); jjep.55.1.1.rm02 <- str_replace_all(jjep.55.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.1.rm03 <- str_replace_all(jjep.55.1.1.rm02, pattern = rm.03, replacement = ""); jjep.55.1.1.rm04 <- str_replace_all(jjep.55.1.1.rm03, pattern = rm.04, replacement = ""); jjep.55.1.1.rm05 <- str_replace_all(jjep.55.1.1.rm04, pattern = rm.05, replacement = ""); jjep.55.1.1.rm06 <- str_replace_all(jjep.55.1.1.rm05, pattern = rm.06, replacement = ""); jjep.55.1.1.rm07 <- str_replace_all(jjep.55.1.1.rm06, pattern = rm.07, replacement = ""); jjep.55.1.1.rm08 <- str_replace_all(jjep.55.1.1.rm07, pattern = rm.08, replacement = ""); jjep.55.1.1.rm09 <- str_replace_all(jjep.55.1.1.rm08, pattern = rm.09, replacement = ""); jjep.55.1.1.rp10 <- str_replace_all(jjep.55.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.1.rp11 <- str_replace_all(jjep.55.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.1.rp12 <- str_replace_all(jjep.55.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.1.rp13 <- str_replace_all(jjep.55.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.1.rp14 <- str_replace_all(jjep.55.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.1.rp15 <- str_replace_all(jjep.55.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.1.mod <- rbind(varname,jjep.55.1.1.rp15); write(jjep.55.1.1.mod, file = "./jjep/Mod_55_1_1.txt")
jjep.55.1.11.tx <- readr::read_file(file="./jjep/55_1_11.txt"); jjep.55.1.11.rm00 <- jjep.55.1.11.tx; jjep.55.1.11.rm01 <- str_replace_all(jjep.55.1.11.rm00, pattern = rm.01, replacement = ""); jjep.55.1.11.rm02 <- str_replace_all(jjep.55.1.11.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.11.rm03 <- str_replace_all(jjep.55.1.11.rm02, pattern = rm.03, replacement = ""); jjep.55.1.11.rm04 <- str_replace_all(jjep.55.1.11.rm03, pattern = rm.04, replacement = ""); jjep.55.1.11.rm05 <- str_replace_all(jjep.55.1.11.rm04, pattern = rm.05, replacement = ""); jjep.55.1.11.rm06 <- str_replace_all(jjep.55.1.11.rm05, pattern = rm.06, replacement = ""); jjep.55.1.11.rm07 <- str_replace_all(jjep.55.1.11.rm06, pattern = rm.07, replacement = ""); jjep.55.1.11.rm08 <- str_replace_all(jjep.55.1.11.rm07, pattern = rm.08, replacement = ""); jjep.55.1.11.rm09 <- str_replace_all(jjep.55.1.11.rm08, pattern = rm.09, replacement = ""); jjep.55.1.11.rp10 <- str_replace_all(jjep.55.1.11.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.11.rp11 <- str_replace_all(jjep.55.1.11.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.11.rp12 <- str_replace_all(jjep.55.1.11.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.11.rp13 <- str_replace_all(jjep.55.1.11.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.11.rp14 <- str_replace_all(jjep.55.1.11.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.11.rp15 <- str_replace_all(jjep.55.1.11.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.11.mod <- rbind(varname,jjep.55.1.11.rp15); write(jjep.55.1.11.mod, file = "./jjep/Mod_55_1_11.txt")
jjep.55.1.21.tx <- readr::read_file(file="./jjep/55_1_21.txt"); jjep.55.1.21.rm00 <- jjep.55.1.21.tx; jjep.55.1.21.rm01 <- str_replace_all(jjep.55.1.21.rm00, pattern = rm.01, replacement = ""); jjep.55.1.21.rm02 <- str_replace_all(jjep.55.1.21.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.21.rm03 <- str_replace_all(jjep.55.1.21.rm02, pattern = rm.03, replacement = ""); jjep.55.1.21.rm04 <- str_replace_all(jjep.55.1.21.rm03, pattern = rm.04, replacement = ""); jjep.55.1.21.rm05 <- str_replace_all(jjep.55.1.21.rm04, pattern = rm.05, replacement = ""); jjep.55.1.21.rm06 <- str_replace_all(jjep.55.1.21.rm05, pattern = rm.06, replacement = ""); jjep.55.1.21.rm07 <- str_replace_all(jjep.55.1.21.rm06, pattern = rm.07, replacement = ""); jjep.55.1.21.rm08 <- str_replace_all(jjep.55.1.21.rm07, pattern = rm.08, replacement = ""); jjep.55.1.21.rm09 <- str_replace_all(jjep.55.1.21.rm08, pattern = rm.09, replacement = ""); jjep.55.1.21.rp10 <- str_replace_all(jjep.55.1.21.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.21.rp11 <- str_replace_all(jjep.55.1.21.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.21.rp12 <- str_replace_all(jjep.55.1.21.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.21.rp13 <- str_replace_all(jjep.55.1.21.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.21.rp14 <- str_replace_all(jjep.55.1.21.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.21.rp15 <- str_replace_all(jjep.55.1.21.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.21.mod <- rbind(varname,jjep.55.1.21.rp15); write(jjep.55.1.21.mod, file = "./jjep/Mod_55_1_21.txt")
jjep.55.1.34.tx <- readr::read_file(file="./jjep/55_1_34.txt"); jjep.55.1.34.rm00 <- jjep.55.1.34.tx; jjep.55.1.34.rm01 <- str_replace_all(jjep.55.1.34.rm00, pattern = rm.01, replacement = ""); jjep.55.1.34.rm02 <- str_replace_all(jjep.55.1.34.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.34.rm03 <- str_replace_all(jjep.55.1.34.rm02, pattern = rm.03, replacement = ""); jjep.55.1.34.rm04 <- str_replace_all(jjep.55.1.34.rm03, pattern = rm.04, replacement = ""); jjep.55.1.34.rm05 <- str_replace_all(jjep.55.1.34.rm04, pattern = rm.05, replacement = ""); jjep.55.1.34.rm06 <- str_replace_all(jjep.55.1.34.rm05, pattern = rm.06, replacement = ""); jjep.55.1.34.rm07 <- str_replace_all(jjep.55.1.34.rm06, pattern = rm.07, replacement = ""); jjep.55.1.34.rm08 <- str_replace_all(jjep.55.1.34.rm07, pattern = rm.08, replacement = ""); jjep.55.1.34.rm09 <- str_replace_all(jjep.55.1.34.rm08, pattern = rm.09, replacement = ""); jjep.55.1.34.rp10 <- str_replace_all(jjep.55.1.34.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.34.rp11 <- str_replace_all(jjep.55.1.34.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.34.rp12 <- str_replace_all(jjep.55.1.34.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.34.rp13 <- str_replace_all(jjep.55.1.34.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.34.rp14 <- str_replace_all(jjep.55.1.34.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.34.rp15 <- str_replace_all(jjep.55.1.34.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.34.mod <- rbind(varname,jjep.55.1.34.rp15); write(jjep.55.1.34.mod, file = "./jjep/Mod_55_1_34.txt")
jjep.55.1.48.tx <- readr::read_file(file="./jjep/55_1_48.txt"); jjep.55.1.48.rm00 <- jjep.55.1.48.tx; jjep.55.1.48.rm01 <- str_replace_all(jjep.55.1.48.rm00, pattern = rm.01, replacement = ""); jjep.55.1.48.rm02 <- str_replace_all(jjep.55.1.48.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.48.rm03 <- str_replace_all(jjep.55.1.48.rm02, pattern = rm.03, replacement = ""); jjep.55.1.48.rm04 <- str_replace_all(jjep.55.1.48.rm03, pattern = rm.04, replacement = ""); jjep.55.1.48.rm05 <- str_replace_all(jjep.55.1.48.rm04, pattern = rm.05, replacement = ""); jjep.55.1.48.rm06 <- str_replace_all(jjep.55.1.48.rm05, pattern = rm.06, replacement = ""); jjep.55.1.48.rm07 <- str_replace_all(jjep.55.1.48.rm06, pattern = rm.07, replacement = ""); jjep.55.1.48.rm08 <- str_replace_all(jjep.55.1.48.rm07, pattern = rm.08, replacement = ""); jjep.55.1.48.rm09 <- str_replace_all(jjep.55.1.48.rm08, pattern = rm.09, replacement = ""); jjep.55.1.48.rp10 <- str_replace_all(jjep.55.1.48.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.48.rp11 <- str_replace_all(jjep.55.1.48.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.48.rp12 <- str_replace_all(jjep.55.1.48.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.48.rp13 <- str_replace_all(jjep.55.1.48.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.48.rp14 <- str_replace_all(jjep.55.1.48.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.48.rp15 <- str_replace_all(jjep.55.1.48.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.48.mod <- rbind(varname,jjep.55.1.48.rp15); write(jjep.55.1.48.mod, file = "./jjep/Mod_55_1_48.txt")
jjep.55.1.60.tx <- readr::read_file(file="./jjep/55_1_60.txt"); jjep.55.1.60.rm00 <- jjep.55.1.60.tx; jjep.55.1.60.rm01 <- str_replace_all(jjep.55.1.60.rm00, pattern = rm.01, replacement = ""); jjep.55.1.60.rm02 <- str_replace_all(jjep.55.1.60.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.60.rm03 <- str_replace_all(jjep.55.1.60.rm02, pattern = rm.03, replacement = ""); jjep.55.1.60.rm04 <- str_replace_all(jjep.55.1.60.rm03, pattern = rm.04, replacement = ""); jjep.55.1.60.rm05 <- str_replace_all(jjep.55.1.60.rm04, pattern = rm.05, replacement = ""); jjep.55.1.60.rm06 <- str_replace_all(jjep.55.1.60.rm05, pattern = rm.06, replacement = ""); jjep.55.1.60.rm07 <- str_replace_all(jjep.55.1.60.rm06, pattern = rm.07, replacement = ""); jjep.55.1.60.rm08 <- str_replace_all(jjep.55.1.60.rm07, pattern = rm.08, replacement = ""); jjep.55.1.60.rm09 <- str_replace_all(jjep.55.1.60.rm08, pattern = rm.09, replacement = ""); jjep.55.1.60.rp10 <- str_replace_all(jjep.55.1.60.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.60.rp11 <- str_replace_all(jjep.55.1.60.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.60.rp12 <- str_replace_all(jjep.55.1.60.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.60.rp13 <- str_replace_all(jjep.55.1.60.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.60.rp14 <- str_replace_all(jjep.55.1.60.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.60.rp15 <- str_replace_all(jjep.55.1.60.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.60.mod <- rbind(varname,jjep.55.1.60.rp15); write(jjep.55.1.60.mod, file = "./jjep/Mod_55_1_60.txt")
jjep.55.1.72.tx <- readr::read_file(file="./jjep/55_1_72.txt"); jjep.55.1.72.rm00 <- jjep.55.1.72.tx; jjep.55.1.72.rm01 <- str_replace_all(jjep.55.1.72.rm00, pattern = rm.01, replacement = ""); jjep.55.1.72.rm02 <- str_replace_all(jjep.55.1.72.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.72.rm03 <- str_replace_all(jjep.55.1.72.rm02, pattern = rm.03, replacement = ""); jjep.55.1.72.rm04 <- str_replace_all(jjep.55.1.72.rm03, pattern = rm.04, replacement = ""); jjep.55.1.72.rm05 <- str_replace_all(jjep.55.1.72.rm04, pattern = rm.05, replacement = ""); jjep.55.1.72.rm06 <- str_replace_all(jjep.55.1.72.rm05, pattern = rm.06, replacement = ""); jjep.55.1.72.rm07 <- str_replace_all(jjep.55.1.72.rm06, pattern = rm.07, replacement = ""); jjep.55.1.72.rm08 <- str_replace_all(jjep.55.1.72.rm07, pattern = rm.08, replacement = ""); jjep.55.1.72.rm09 <- str_replace_all(jjep.55.1.72.rm08, pattern = rm.09, replacement = ""); jjep.55.1.72.rp10 <- str_replace_all(jjep.55.1.72.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.72.rp11 <- str_replace_all(jjep.55.1.72.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.72.rp12 <- str_replace_all(jjep.55.1.72.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.72.rp13 <- str_replace_all(jjep.55.1.72.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.72.rp14 <- str_replace_all(jjep.55.1.72.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.72.rp15 <- str_replace_all(jjep.55.1.72.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.72.mod <- rbind(varname,jjep.55.1.72.rp15); write(jjep.55.1.72.mod, file = "./jjep/Mod_55_1_72.txt")
jjep.55.1.82.tx <- readr::read_file(file="./jjep/55_1_82.txt"); jjep.55.1.82.rm00 <- jjep.55.1.82.tx; jjep.55.1.82.rm01 <- str_replace_all(jjep.55.1.82.rm00, pattern = rm.01, replacement = ""); jjep.55.1.82.rm02 <- str_replace_all(jjep.55.1.82.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.82.rm03 <- str_replace_all(jjep.55.1.82.rm02, pattern = rm.03, replacement = ""); jjep.55.1.82.rm04 <- str_replace_all(jjep.55.1.82.rm03, pattern = rm.04, replacement = ""); jjep.55.1.82.rm05 <- str_replace_all(jjep.55.1.82.rm04, pattern = rm.05, replacement = ""); jjep.55.1.82.rm06 <- str_replace_all(jjep.55.1.82.rm05, pattern = rm.06, replacement = ""); jjep.55.1.82.rm07 <- str_replace_all(jjep.55.1.82.rm06, pattern = rm.07, replacement = ""); jjep.55.1.82.rm08 <- str_replace_all(jjep.55.1.82.rm07, pattern = rm.08, replacement = ""); jjep.55.1.82.rm09 <- str_replace_all(jjep.55.1.82.rm08, pattern = rm.09, replacement = ""); jjep.55.1.82.rp10 <- str_replace_all(jjep.55.1.82.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.82.rp11 <- str_replace_all(jjep.55.1.82.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.82.rp12 <- str_replace_all(jjep.55.1.82.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.82.rp13 <- str_replace_all(jjep.55.1.82.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.82.rp14 <- str_replace_all(jjep.55.1.82.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.82.rp15 <- str_replace_all(jjep.55.1.82.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.82.mod <- rbind(varname,jjep.55.1.82.rp15); write(jjep.55.1.82.mod, file = "./jjep/Mod_55_1_82.txt")
jjep.55.1.93.tx <- readr::read_file(file="./jjep/55_1_93.txt"); jjep.55.1.93.rm00 <- jjep.55.1.93.tx; jjep.55.1.93.rm01 <- str_replace_all(jjep.55.1.93.rm00, pattern = rm.01, replacement = ""); jjep.55.1.93.rm02 <- str_replace_all(jjep.55.1.93.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.93.rm03 <- str_replace_all(jjep.55.1.93.rm02, pattern = rm.03, replacement = ""); jjep.55.1.93.rm04 <- str_replace_all(jjep.55.1.93.rm03, pattern = rm.04, replacement = ""); jjep.55.1.93.rm05 <- str_replace_all(jjep.55.1.93.rm04, pattern = rm.05, replacement = ""); jjep.55.1.93.rm06 <- str_replace_all(jjep.55.1.93.rm05, pattern = rm.06, replacement = ""); jjep.55.1.93.rm07 <- str_replace_all(jjep.55.1.93.rm06, pattern = rm.07, replacement = ""); jjep.55.1.93.rm08 <- str_replace_all(jjep.55.1.93.rm07, pattern = rm.08, replacement = ""); jjep.55.1.93.rm09 <- str_replace_all(jjep.55.1.93.rm08, pattern = rm.09, replacement = ""); jjep.55.1.93.rp10 <- str_replace_all(jjep.55.1.93.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.93.rp11 <- str_replace_all(jjep.55.1.93.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.93.rp12 <- str_replace_all(jjep.55.1.93.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.93.rp13 <- str_replace_all(jjep.55.1.93.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.93.rp14 <- str_replace_all(jjep.55.1.93.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.93.rp15 <- str_replace_all(jjep.55.1.93.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.93.mod <- rbind(varname,jjep.55.1.93.rp15); write(jjep.55.1.93.mod, file = "./jjep/Mod_55_1_93.txt")
jjep.55.1.106.tx <- readr::read_file(file="./jjep/55_1_106.txt"); jjep.55.1.106.rm00 <- jjep.55.1.106.tx; jjep.55.1.106.rm01 <- str_replace_all(jjep.55.1.106.rm00, pattern = rm.01, replacement = ""); jjep.55.1.106.rm02 <- str_replace_all(jjep.55.1.106.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.106.rm03 <- str_replace_all(jjep.55.1.106.rm02, pattern = rm.03, replacement = ""); jjep.55.1.106.rm04 <- str_replace_all(jjep.55.1.106.rm03, pattern = rm.04, replacement = ""); jjep.55.1.106.rm05 <- str_replace_all(jjep.55.1.106.rm04, pattern = rm.05, replacement = ""); jjep.55.1.106.rm06 <- str_replace_all(jjep.55.1.106.rm05, pattern = rm.06, replacement = ""); jjep.55.1.106.rm07 <- str_replace_all(jjep.55.1.106.rm06, pattern = rm.07, replacement = ""); jjep.55.1.106.rm08 <- str_replace_all(jjep.55.1.106.rm07, pattern = rm.08, replacement = ""); jjep.55.1.106.rm09 <- str_replace_all(jjep.55.1.106.rm08, pattern = rm.09, replacement = ""); jjep.55.1.106.rp10 <- str_replace_all(jjep.55.1.106.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.106.rp11 <- str_replace_all(jjep.55.1.106.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.106.rp12 <- str_replace_all(jjep.55.1.106.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.106.rp13 <- str_replace_all(jjep.55.1.106.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.106.rp14 <- str_replace_all(jjep.55.1.106.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.106.rp15 <- str_replace_all(jjep.55.1.106.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.106.mod <- rbind(varname,jjep.55.1.106.rp15); write(jjep.55.1.106.mod, file = "./jjep/Mod_55_1_106.txt")
jjep.55.1.120.tx <- readr::read_file(file="./jjep/55_1_120.txt"); jjep.55.1.120.rm00 <- jjep.55.1.120.tx; jjep.55.1.120.rm01 <- str_replace_all(jjep.55.1.120.rm00, pattern = rm.01, replacement = ""); jjep.55.1.120.rm02 <- str_replace_all(jjep.55.1.120.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.120.rm03 <- str_replace_all(jjep.55.1.120.rm02, pattern = rm.03, replacement = ""); jjep.55.1.120.rm04 <- str_replace_all(jjep.55.1.120.rm03, pattern = rm.04, replacement = ""); jjep.55.1.120.rm05 <- str_replace_all(jjep.55.1.120.rm04, pattern = rm.05, replacement = ""); jjep.55.1.120.rm06 <- str_replace_all(jjep.55.1.120.rm05, pattern = rm.06, replacement = ""); jjep.55.1.120.rm07 <- str_replace_all(jjep.55.1.120.rm06, pattern = rm.07, replacement = ""); jjep.55.1.120.rm08 <- str_replace_all(jjep.55.1.120.rm07, pattern = rm.08, replacement = ""); jjep.55.1.120.rm09 <- str_replace_all(jjep.55.1.120.rm08, pattern = rm.09, replacement = ""); jjep.55.1.120.rp10 <- str_replace_all(jjep.55.1.120.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.120.rp11 <- str_replace_all(jjep.55.1.120.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.120.rp12 <- str_replace_all(jjep.55.1.120.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.120.rp13 <- str_replace_all(jjep.55.1.120.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.120.rp14 <- str_replace_all(jjep.55.1.120.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.120.rp15 <- str_replace_all(jjep.55.1.120.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.120.mod <- rbind(varname,jjep.55.1.120.rp15); write(jjep.55.1.120.mod, file = "./jjep/Mod_55_1_120.txt")
jjep.55.1.135.tx <- readr::read_file(file="./jjep/55_1_135.txt"); jjep.55.1.135.rm00 <- jjep.55.1.135.tx; jjep.55.1.135.rm01 <- str_replace_all(jjep.55.1.135.rm00, pattern = rm.01, replacement = ""); jjep.55.1.135.rm02 <- str_replace_all(jjep.55.1.135.rm01, pattern = rm.02, replacement = "^"); jjep.55.1.135.rm03 <- str_replace_all(jjep.55.1.135.rm02, pattern = rm.03, replacement = ""); jjep.55.1.135.rm04 <- str_replace_all(jjep.55.1.135.rm03, pattern = rm.04, replacement = ""); jjep.55.1.135.rm05 <- str_replace_all(jjep.55.1.135.rm04, pattern = rm.05, replacement = ""); jjep.55.1.135.rm06 <- str_replace_all(jjep.55.1.135.rm05, pattern = rm.06, replacement = ""); jjep.55.1.135.rm07 <- str_replace_all(jjep.55.1.135.rm06, pattern = rm.07, replacement = ""); jjep.55.1.135.rm08 <- str_replace_all(jjep.55.1.135.rm07, pattern = rm.08, replacement = ""); jjep.55.1.135.rm09 <- str_replace_all(jjep.55.1.135.rm08, pattern = rm.09, replacement = ""); jjep.55.1.135.rp10 <- str_replace_all(jjep.55.1.135.rm09, pattern = rp.01, replacement = "・"); jjep.55.1.135.rp11 <- str_replace_all(jjep.55.1.135.rp10, pattern = rp.02, replacement = "^"); jjep.55.1.135.rp12 <- str_replace_all(jjep.55.1.135.rp11, pattern = rp.03, replacement = "^"); jjep.55.1.135.rp13 <- str_replace_all(jjep.55.1.135.rp12, pattern = rp.04, replacement = "^"); jjep.55.1.135.rp14 <- str_replace_all(jjep.55.1.135.rp13, pattern = rp.05, replacement = "^"); jjep.55.1.135.rp15 <- str_replace_all(jjep.55.1.135.rp14, pattern = rp.06, replacement = "^"); jjep.55.1.135.mod <- rbind(varname,jjep.55.1.135.rp15); write(jjep.55.1.135.mod, file = "./jjep/Mod_55_1_135.txt")
jjep.54.4.441.tx <- readr::read_file(file="./jjep/54_4_441.txt"); jjep.54.4.441.rm00 <- jjep.54.4.441.tx; jjep.54.4.441.rm01 <- str_replace_all(jjep.54.4.441.rm00, pattern = rm.01, replacement = ""); jjep.54.4.441.rm02 <- str_replace_all(jjep.54.4.441.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.441.rm03 <- str_replace_all(jjep.54.4.441.rm02, pattern = rm.03, replacement = ""); jjep.54.4.441.rm04 <- str_replace_all(jjep.54.4.441.rm03, pattern = rm.04, replacement = ""); jjep.54.4.441.rm05 <- str_replace_all(jjep.54.4.441.rm04, pattern = rm.05, replacement = ""); jjep.54.4.441.rm06 <- str_replace_all(jjep.54.4.441.rm05, pattern = rm.06, replacement = ""); jjep.54.4.441.rm07 <- str_replace_all(jjep.54.4.441.rm06, pattern = rm.07, replacement = ""); jjep.54.4.441.rm08 <- str_replace_all(jjep.54.4.441.rm07, pattern = rm.08, replacement = ""); jjep.54.4.441.rm09 <- str_replace_all(jjep.54.4.441.rm08, pattern = rm.09, replacement = ""); jjep.54.4.441.rp10 <- str_replace_all(jjep.54.4.441.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.441.rp11 <- str_replace_all(jjep.54.4.441.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.441.rp12 <- str_replace_all(jjep.54.4.441.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.441.rp13 <- str_replace_all(jjep.54.4.441.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.441.rp14 <- str_replace_all(jjep.54.4.441.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.441.rp15 <- str_replace_all(jjep.54.4.441.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.441.mod <- rbind(varname,jjep.54.4.441.rp15); write(jjep.54.4.441.mod, file = "./jjep/Mod_54_4_441.txt")
jjep.54.4.453.tx <- readr::read_file(file="./jjep/54_4_453.txt"); jjep.54.4.453.rm00 <- jjep.54.4.453.tx; jjep.54.4.453.rm01 <- str_replace_all(jjep.54.4.453.rm00, pattern = rm.01, replacement = ""); jjep.54.4.453.rm02 <- str_replace_all(jjep.54.4.453.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.453.rm03 <- str_replace_all(jjep.54.4.453.rm02, pattern = rm.03, replacement = ""); jjep.54.4.453.rm04 <- str_replace_all(jjep.54.4.453.rm03, pattern = rm.04, replacement = ""); jjep.54.4.453.rm05 <- str_replace_all(jjep.54.4.453.rm04, pattern = rm.05, replacement = ""); jjep.54.4.453.rm06 <- str_replace_all(jjep.54.4.453.rm05, pattern = rm.06, replacement = ""); jjep.54.4.453.rm07 <- str_replace_all(jjep.54.4.453.rm06, pattern = rm.07, replacement = ""); jjep.54.4.453.rm08 <- str_replace_all(jjep.54.4.453.rm07, pattern = rm.08, replacement = ""); jjep.54.4.453.rm09 <- str_replace_all(jjep.54.4.453.rm08, pattern = rm.09, replacement = ""); jjep.54.4.453.rp10 <- str_replace_all(jjep.54.4.453.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.453.rp11 <- str_replace_all(jjep.54.4.453.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.453.rp12 <- str_replace_all(jjep.54.4.453.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.453.rp13 <- str_replace_all(jjep.54.4.453.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.453.rp14 <- str_replace_all(jjep.54.4.453.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.453.rp15 <- str_replace_all(jjep.54.4.453.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.453.mod <- rbind(varname,jjep.54.4.453.rp15); write(jjep.54.4.453.mod, file = "./jjep/Mod_54_4_453.txt")
jjep.54.4.464.tx <- readr::read_file(file="./jjep/54_4_464.txt"); jjep.54.4.464.rm00 <- jjep.54.4.464.tx; jjep.54.4.464.rm01 <- str_replace_all(jjep.54.4.464.rm00, pattern = rm.01, replacement = ""); jjep.54.4.464.rm02 <- str_replace_all(jjep.54.4.464.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.464.rm03 <- str_replace_all(jjep.54.4.464.rm02, pattern = rm.03, replacement = ""); jjep.54.4.464.rm04 <- str_replace_all(jjep.54.4.464.rm03, pattern = rm.04, replacement = ""); jjep.54.4.464.rm05 <- str_replace_all(jjep.54.4.464.rm04, pattern = rm.05, replacement = ""); jjep.54.4.464.rm06 <- str_replace_all(jjep.54.4.464.rm05, pattern = rm.06, replacement = ""); jjep.54.4.464.rm07 <- str_replace_all(jjep.54.4.464.rm06, pattern = rm.07, replacement = ""); jjep.54.4.464.rm08 <- str_replace_all(jjep.54.4.464.rm07, pattern = rm.08, replacement = ""); jjep.54.4.464.rm09 <- str_replace_all(jjep.54.4.464.rm08, pattern = rm.09, replacement = ""); jjep.54.4.464.rp10 <- str_replace_all(jjep.54.4.464.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.464.rp11 <- str_replace_all(jjep.54.4.464.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.464.rp12 <- str_replace_all(jjep.54.4.464.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.464.rp13 <- str_replace_all(jjep.54.4.464.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.464.rp14 <- str_replace_all(jjep.54.4.464.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.464.rp15 <- str_replace_all(jjep.54.4.464.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.464.mod <- rbind(varname,jjep.54.4.464.rp15); write(jjep.54.4.464.mod, file = "./jjep/Mod_54_4_464.txt")
jjep.54.4.476.tx <- readr::read_file(file="./jjep/54_4_476.txt"); jjep.54.4.476.rm00 <- jjep.54.4.476.tx; jjep.54.4.476.rm01 <- str_replace_all(jjep.54.4.476.rm00, pattern = rm.01, replacement = ""); jjep.54.4.476.rm02 <- str_replace_all(jjep.54.4.476.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.476.rm03 <- str_replace_all(jjep.54.4.476.rm02, pattern = rm.03, replacement = ""); jjep.54.4.476.rm04 <- str_replace_all(jjep.54.4.476.rm03, pattern = rm.04, replacement = ""); jjep.54.4.476.rm05 <- str_replace_all(jjep.54.4.476.rm04, pattern = rm.05, replacement = ""); jjep.54.4.476.rm06 <- str_replace_all(jjep.54.4.476.rm05, pattern = rm.06, replacement = ""); jjep.54.4.476.rm07 <- str_replace_all(jjep.54.4.476.rm06, pattern = rm.07, replacement = ""); jjep.54.4.476.rm08 <- str_replace_all(jjep.54.4.476.rm07, pattern = rm.08, replacement = ""); jjep.54.4.476.rm09 <- str_replace_all(jjep.54.4.476.rm08, pattern = rm.09, replacement = ""); jjep.54.4.476.rp10 <- str_replace_all(jjep.54.4.476.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.476.rp11 <- str_replace_all(jjep.54.4.476.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.476.rp12 <- str_replace_all(jjep.54.4.476.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.476.rp13 <- str_replace_all(jjep.54.4.476.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.476.rp14 <- str_replace_all(jjep.54.4.476.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.476.rp15 <- str_replace_all(jjep.54.4.476.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.476.mod <- rbind(varname,jjep.54.4.476.rp15); write(jjep.54.4.476.mod, file = "./jjep/Mod_54_4_476.txt")
jjep.54.4.487.tx <- readr::read_file(file="./jjep/54_4_487.txt"); jjep.54.4.487.rm00 <- jjep.54.4.487.tx; jjep.54.4.487.rm01 <- str_replace_all(jjep.54.4.487.rm00, pattern = rm.01, replacement = ""); jjep.54.4.487.rm02 <- str_replace_all(jjep.54.4.487.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.487.rm03 <- str_replace_all(jjep.54.4.487.rm02, pattern = rm.03, replacement = ""); jjep.54.4.487.rm04 <- str_replace_all(jjep.54.4.487.rm03, pattern = rm.04, replacement = ""); jjep.54.4.487.rm05 <- str_replace_all(jjep.54.4.487.rm04, pattern = rm.05, replacement = ""); jjep.54.4.487.rm06 <- str_replace_all(jjep.54.4.487.rm05, pattern = rm.06, replacement = ""); jjep.54.4.487.rm07 <- str_replace_all(jjep.54.4.487.rm06, pattern = rm.07, replacement = ""); jjep.54.4.487.rm08 <- str_replace_all(jjep.54.4.487.rm07, pattern = rm.08, replacement = ""); jjep.54.4.487.rm09 <- str_replace_all(jjep.54.4.487.rm08, pattern = rm.09, replacement = ""); jjep.54.4.487.rp10 <- str_replace_all(jjep.54.4.487.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.487.rp11 <- str_replace_all(jjep.54.4.487.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.487.rp12 <- str_replace_all(jjep.54.4.487.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.487.rp13 <- str_replace_all(jjep.54.4.487.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.487.rp14 <- str_replace_all(jjep.54.4.487.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.487.rp15 <- str_replace_all(jjep.54.4.487.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.487.mod <- rbind(varname,jjep.54.4.487.rp15); write(jjep.54.4.487.mod, file = "./jjep/Mod_54_4_487.txt")
jjep.54.4.498.tx <- readr::read_file(file="./jjep/54_4_498.txt"); jjep.54.4.498.rm00 <- jjep.54.4.498.tx; jjep.54.4.498.rm01 <- str_replace_all(jjep.54.4.498.rm00, pattern = rm.01, replacement = ""); jjep.54.4.498.rm02 <- str_replace_all(jjep.54.4.498.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.498.rm03 <- str_replace_all(jjep.54.4.498.rm02, pattern = rm.03, replacement = ""); jjep.54.4.498.rm04 <- str_replace_all(jjep.54.4.498.rm03, pattern = rm.04, replacement = ""); jjep.54.4.498.rm05 <- str_replace_all(jjep.54.4.498.rm04, pattern = rm.05, replacement = ""); jjep.54.4.498.rm06 <- str_replace_all(jjep.54.4.498.rm05, pattern = rm.06, replacement = ""); jjep.54.4.498.rm07 <- str_replace_all(jjep.54.4.498.rm06, pattern = rm.07, replacement = ""); jjep.54.4.498.rm08 <- str_replace_all(jjep.54.4.498.rm07, pattern = rm.08, replacement = ""); jjep.54.4.498.rm09 <- str_replace_all(jjep.54.4.498.rm08, pattern = rm.09, replacement = ""); jjep.54.4.498.rp10 <- str_replace_all(jjep.54.4.498.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.498.rp11 <- str_replace_all(jjep.54.4.498.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.498.rp12 <- str_replace_all(jjep.54.4.498.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.498.rp13 <- str_replace_all(jjep.54.4.498.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.498.rp14 <- str_replace_all(jjep.54.4.498.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.498.rp15 <- str_replace_all(jjep.54.4.498.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.498.mod <- rbind(varname,jjep.54.4.498.rp15); write(jjep.54.4.498.mod, file = "./jjep/Mod_54_4_498.txt")
jjep.54.4.509.tx <- readr::read_file(file="./jjep/54_4_509.txt"); jjep.54.4.509.rm00 <- jjep.54.4.509.tx; jjep.54.4.509.rm01 <- str_replace_all(jjep.54.4.509.rm00, pattern = rm.01, replacement = ""); jjep.54.4.509.rm02 <- str_replace_all(jjep.54.4.509.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.509.rm03 <- str_replace_all(jjep.54.4.509.rm02, pattern = rm.03, replacement = ""); jjep.54.4.509.rm04 <- str_replace_all(jjep.54.4.509.rm03, pattern = rm.04, replacement = ""); jjep.54.4.509.rm05 <- str_replace_all(jjep.54.4.509.rm04, pattern = rm.05, replacement = ""); jjep.54.4.509.rm06 <- str_replace_all(jjep.54.4.509.rm05, pattern = rm.06, replacement = ""); jjep.54.4.509.rm07 <- str_replace_all(jjep.54.4.509.rm06, pattern = rm.07, replacement = ""); jjep.54.4.509.rm08 <- str_replace_all(jjep.54.4.509.rm07, pattern = rm.08, replacement = ""); jjep.54.4.509.rm09 <- str_replace_all(jjep.54.4.509.rm08, pattern = rm.09, replacement = ""); jjep.54.4.509.rp10 <- str_replace_all(jjep.54.4.509.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.509.rp11 <- str_replace_all(jjep.54.4.509.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.509.rp12 <- str_replace_all(jjep.54.4.509.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.509.rp13 <- str_replace_all(jjep.54.4.509.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.509.rp14 <- str_replace_all(jjep.54.4.509.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.509.rp15 <- str_replace_all(jjep.54.4.509.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.509.mod <- rbind(varname,jjep.54.4.509.rp15); write(jjep.54.4.509.mod, file = "./jjep/Mod_54_4_509.txt")
jjep.54.4.522.tx <- readr::read_file(file="./jjep/54_4_522.txt"); jjep.54.4.522.rm00 <- jjep.54.4.522.tx; jjep.54.4.522.rm01 <- str_replace_all(jjep.54.4.522.rm00, pattern = rm.01, replacement = ""); jjep.54.4.522.rm02 <- str_replace_all(jjep.54.4.522.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.522.rm03 <- str_replace_all(jjep.54.4.522.rm02, pattern = rm.03, replacement = ""); jjep.54.4.522.rm04 <- str_replace_all(jjep.54.4.522.rm03, pattern = rm.04, replacement = ""); jjep.54.4.522.rm05 <- str_replace_all(jjep.54.4.522.rm04, pattern = rm.05, replacement = ""); jjep.54.4.522.rm06 <- str_replace_all(jjep.54.4.522.rm05, pattern = rm.06, replacement = ""); jjep.54.4.522.rm07 <- str_replace_all(jjep.54.4.522.rm06, pattern = rm.07, replacement = ""); jjep.54.4.522.rm08 <- str_replace_all(jjep.54.4.522.rm07, pattern = rm.08, replacement = ""); jjep.54.4.522.rm09 <- str_replace_all(jjep.54.4.522.rm08, pattern = rm.09, replacement = ""); jjep.54.4.522.rp10 <- str_replace_all(jjep.54.4.522.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.522.rp11 <- str_replace_all(jjep.54.4.522.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.522.rp12 <- str_replace_all(jjep.54.4.522.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.522.rp13 <- str_replace_all(jjep.54.4.522.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.522.rp14 <- str_replace_all(jjep.54.4.522.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.522.rp15 <- str_replace_all(jjep.54.4.522.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.522.mod <- rbind(varname,jjep.54.4.522.rp15); write(jjep.54.4.522.mod, file = "./jjep/Mod_54_4_522.txt")
jjep.54.4.534.tx <- readr::read_file(file="./jjep/54_4_534.txt"); jjep.54.4.534.rm00 <- jjep.54.4.534.tx; jjep.54.4.534.rm01 <- str_replace_all(jjep.54.4.534.rm00, pattern = rm.01, replacement = ""); jjep.54.4.534.rm02 <- str_replace_all(jjep.54.4.534.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.534.rm03 <- str_replace_all(jjep.54.4.534.rm02, pattern = rm.03, replacement = ""); jjep.54.4.534.rm04 <- str_replace_all(jjep.54.4.534.rm03, pattern = rm.04, replacement = ""); jjep.54.4.534.rm05 <- str_replace_all(jjep.54.4.534.rm04, pattern = rm.05, replacement = ""); jjep.54.4.534.rm06 <- str_replace_all(jjep.54.4.534.rm05, pattern = rm.06, replacement = ""); jjep.54.4.534.rm07 <- str_replace_all(jjep.54.4.534.rm06, pattern = rm.07, replacement = ""); jjep.54.4.534.rm08 <- str_replace_all(jjep.54.4.534.rm07, pattern = rm.08, replacement = ""); jjep.54.4.534.rm09 <- str_replace_all(jjep.54.4.534.rm08, pattern = rm.09, replacement = ""); jjep.54.4.534.rp10 <- str_replace_all(jjep.54.4.534.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.534.rp11 <- str_replace_all(jjep.54.4.534.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.534.rp12 <- str_replace_all(jjep.54.4.534.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.534.rp13 <- str_replace_all(jjep.54.4.534.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.534.rp14 <- str_replace_all(jjep.54.4.534.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.534.rp15 <- str_replace_all(jjep.54.4.534.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.534.mod <- rbind(varname,jjep.54.4.534.rp15); write(jjep.54.4.534.mod, file = "./jjep/Mod_54_4_534.txt")
jjep.54.4.546.tx <- readr::read_file(file="./jjep/54_4_546.txt"); jjep.54.4.546.rm00 <- jjep.54.4.546.tx; jjep.54.4.546.rm01 <- str_replace_all(jjep.54.4.546.rm00, pattern = rm.01, replacement = ""); jjep.54.4.546.rm02 <- str_replace_all(jjep.54.4.546.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.546.rm03 <- str_replace_all(jjep.54.4.546.rm02, pattern = rm.03, replacement = ""); jjep.54.4.546.rm04 <- str_replace_all(jjep.54.4.546.rm03, pattern = rm.04, replacement = ""); jjep.54.4.546.rm05 <- str_replace_all(jjep.54.4.546.rm04, pattern = rm.05, replacement = ""); jjep.54.4.546.rm06 <- str_replace_all(jjep.54.4.546.rm05, pattern = rm.06, replacement = ""); jjep.54.4.546.rm07 <- str_replace_all(jjep.54.4.546.rm06, pattern = rm.07, replacement = ""); jjep.54.4.546.rm08 <- str_replace_all(jjep.54.4.546.rm07, pattern = rm.08, replacement = ""); jjep.54.4.546.rm09 <- str_replace_all(jjep.54.4.546.rm08, pattern = rm.09, replacement = ""); jjep.54.4.546.rp10 <- str_replace_all(jjep.54.4.546.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.546.rp11 <- str_replace_all(jjep.54.4.546.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.546.rp12 <- str_replace_all(jjep.54.4.546.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.546.rp13 <- str_replace_all(jjep.54.4.546.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.546.rp14 <- str_replace_all(jjep.54.4.546.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.546.rp15 <- str_replace_all(jjep.54.4.546.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.546.mod <- rbind(varname,jjep.54.4.546.rp15); write(jjep.54.4.546.mod, file = "./jjep/Mod_54_4_546.txt")
jjep.54.4.558.tx <- readr::read_file(file="./jjep/54_4_558.txt"); jjep.54.4.558.rm00 <- jjep.54.4.558.tx; jjep.54.4.558.rm01 <- str_replace_all(jjep.54.4.558.rm00, pattern = rm.01, replacement = ""); jjep.54.4.558.rm02 <- str_replace_all(jjep.54.4.558.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.558.rm03 <- str_replace_all(jjep.54.4.558.rm02, pattern = rm.03, replacement = ""); jjep.54.4.558.rm04 <- str_replace_all(jjep.54.4.558.rm03, pattern = rm.04, replacement = ""); jjep.54.4.558.rm05 <- str_replace_all(jjep.54.4.558.rm04, pattern = rm.05, replacement = ""); jjep.54.4.558.rm06 <- str_replace_all(jjep.54.4.558.rm05, pattern = rm.06, replacement = ""); jjep.54.4.558.rm07 <- str_replace_all(jjep.54.4.558.rm06, pattern = rm.07, replacement = ""); jjep.54.4.558.rm08 <- str_replace_all(jjep.54.4.558.rm07, pattern = rm.08, replacement = ""); jjep.54.4.558.rm09 <- str_replace_all(jjep.54.4.558.rm08, pattern = rm.09, replacement = ""); jjep.54.4.558.rp10 <- str_replace_all(jjep.54.4.558.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.558.rp11 <- str_replace_all(jjep.54.4.558.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.558.rp12 <- str_replace_all(jjep.54.4.558.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.558.rp13 <- str_replace_all(jjep.54.4.558.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.558.rp14 <- str_replace_all(jjep.54.4.558.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.558.rp15 <- str_replace_all(jjep.54.4.558.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.558.mod <- rbind(varname,jjep.54.4.558.rp15); write(jjep.54.4.558.mod, file = "./jjep/Mod_54_4_558.txt")
jjep.54.4.572.tx <- readr::read_file(file="./jjep/54_4_572.txt"); jjep.54.4.572.rm00 <- jjep.54.4.572.tx; jjep.54.4.572.rm01 <- str_replace_all(jjep.54.4.572.rm00, pattern = rm.01, replacement = ""); jjep.54.4.572.rm02 <- str_replace_all(jjep.54.4.572.rm01, pattern = rm.02, replacement = "^"); jjep.54.4.572.rm03 <- str_replace_all(jjep.54.4.572.rm02, pattern = rm.03, replacement = ""); jjep.54.4.572.rm04 <- str_replace_all(jjep.54.4.572.rm03, pattern = rm.04, replacement = ""); jjep.54.4.572.rm05 <- str_replace_all(jjep.54.4.572.rm04, pattern = rm.05, replacement = ""); jjep.54.4.572.rm06 <- str_replace_all(jjep.54.4.572.rm05, pattern = rm.06, replacement = ""); jjep.54.4.572.rm07 <- str_replace_all(jjep.54.4.572.rm06, pattern = rm.07, replacement = ""); jjep.54.4.572.rm08 <- str_replace_all(jjep.54.4.572.rm07, pattern = rm.08, replacement = ""); jjep.54.4.572.rm09 <- str_replace_all(jjep.54.4.572.rm08, pattern = rm.09, replacement = ""); jjep.54.4.572.rp10 <- str_replace_all(jjep.54.4.572.rm09, pattern = rp.01, replacement = "・"); jjep.54.4.572.rp11 <- str_replace_all(jjep.54.4.572.rp10, pattern = rp.02, replacement = "^"); jjep.54.4.572.rp12 <- str_replace_all(jjep.54.4.572.rp11, pattern = rp.03, replacement = "^"); jjep.54.4.572.rp13 <- str_replace_all(jjep.54.4.572.rp12, pattern = rp.04, replacement = "^"); jjep.54.4.572.rp14 <- str_replace_all(jjep.54.4.572.rp13, pattern = rp.05, replacement = "^"); jjep.54.4.572.rp15 <- str_replace_all(jjep.54.4.572.rp14, pattern = rp.06, replacement = "^"); jjep.54.4.572.mod <- rbind(varname,jjep.54.4.572.rp15); write(jjep.54.4.572.mod, file = "./jjep/Mod_54_4_572.txt")
jjep.54.3.289.tx <- readr::read_file(file="./jjep/54_3_289.txt"); jjep.54.3.289.rm00 <- jjep.54.3.289.tx; jjep.54.3.289.rm01 <- str_replace_all(jjep.54.3.289.rm00, pattern = rm.01, replacement = ""); jjep.54.3.289.rm02 <- str_replace_all(jjep.54.3.289.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.289.rm03 <- str_replace_all(jjep.54.3.289.rm02, pattern = rm.03, replacement = ""); jjep.54.3.289.rm04 <- str_replace_all(jjep.54.3.289.rm03, pattern = rm.04, replacement = ""); jjep.54.3.289.rm05 <- str_replace_all(jjep.54.3.289.rm04, pattern = rm.05, replacement = ""); jjep.54.3.289.rm06 <- str_replace_all(jjep.54.3.289.rm05, pattern = rm.06, replacement = ""); jjep.54.3.289.rm07 <- str_replace_all(jjep.54.3.289.rm06, pattern = rm.07, replacement = ""); jjep.54.3.289.rm08 <- str_replace_all(jjep.54.3.289.rm07, pattern = rm.08, replacement = ""); jjep.54.3.289.rm09 <- str_replace_all(jjep.54.3.289.rm08, pattern = rm.09, replacement = ""); jjep.54.3.289.rp10 <- str_replace_all(jjep.54.3.289.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.289.rp11 <- str_replace_all(jjep.54.3.289.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.289.rp12 <- str_replace_all(jjep.54.3.289.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.289.rp13 <- str_replace_all(jjep.54.3.289.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.289.rp14 <- str_replace_all(jjep.54.3.289.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.289.rp15 <- str_replace_all(jjep.54.3.289.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.289.mod <- rbind(varname,jjep.54.3.289.rp15); write(jjep.54.3.289.mod, file = "./jjep/Mod_54_3_289.txt")
jjep.54.3.300.tx <- readr::read_file(file="./jjep/54_3_300.txt"); jjep.54.3.300.rm00 <- jjep.54.3.300.tx; jjep.54.3.300.rm01 <- str_replace_all(jjep.54.3.300.rm00, pattern = rm.01, replacement = ""); jjep.54.3.300.rm02 <- str_replace_all(jjep.54.3.300.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.300.rm03 <- str_replace_all(jjep.54.3.300.rm02, pattern = rm.03, replacement = ""); jjep.54.3.300.rm04 <- str_replace_all(jjep.54.3.300.rm03, pattern = rm.04, replacement = ""); jjep.54.3.300.rm05 <- str_replace_all(jjep.54.3.300.rm04, pattern = rm.05, replacement = ""); jjep.54.3.300.rm06 <- str_replace_all(jjep.54.3.300.rm05, pattern = rm.06, replacement = ""); jjep.54.3.300.rm07 <- str_replace_all(jjep.54.3.300.rm06, pattern = rm.07, replacement = ""); jjep.54.3.300.rm08 <- str_replace_all(jjep.54.3.300.rm07, pattern = rm.08, replacement = ""); jjep.54.3.300.rm09 <- str_replace_all(jjep.54.3.300.rm08, pattern = rm.09, replacement = ""); jjep.54.3.300.rp10 <- str_replace_all(jjep.54.3.300.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.300.rp11 <- str_replace_all(jjep.54.3.300.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.300.rp12 <- str_replace_all(jjep.54.3.300.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.300.rp13 <- str_replace_all(jjep.54.3.300.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.300.rp14 <- str_replace_all(jjep.54.3.300.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.300.rp15 <- str_replace_all(jjep.54.3.300.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.300.mod <- rbind(varname,jjep.54.3.300.rp15); write(jjep.54.3.300.mod, file = "./jjep/Mod_54_3_300.txt")
jjep.54.3.312.tx <- readr::read_file(file="./jjep/54_3_312.txt"); jjep.54.3.312.rm00 <- jjep.54.3.312.tx; jjep.54.3.312.rm01 <- str_replace_all(jjep.54.3.312.rm00, pattern = rm.01, replacement = ""); jjep.54.3.312.rm02 <- str_replace_all(jjep.54.3.312.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.312.rm03 <- str_replace_all(jjep.54.3.312.rm02, pattern = rm.03, replacement = ""); jjep.54.3.312.rm04 <- str_replace_all(jjep.54.3.312.rm03, pattern = rm.04, replacement = ""); jjep.54.3.312.rm05 <- str_replace_all(jjep.54.3.312.rm04, pattern = rm.05, replacement = ""); jjep.54.3.312.rm06 <- str_replace_all(jjep.54.3.312.rm05, pattern = rm.06, replacement = ""); jjep.54.3.312.rm07 <- str_replace_all(jjep.54.3.312.rm06, pattern = rm.07, replacement = ""); jjep.54.3.312.rm08 <- str_replace_all(jjep.54.3.312.rm07, pattern = rm.08, replacement = ""); jjep.54.3.312.rm09 <- str_replace_all(jjep.54.3.312.rm08, pattern = rm.09, replacement = ""); jjep.54.3.312.rp10 <- str_replace_all(jjep.54.3.312.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.312.rp11 <- str_replace_all(jjep.54.3.312.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.312.rp12 <- str_replace_all(jjep.54.3.312.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.312.rp13 <- str_replace_all(jjep.54.3.312.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.312.rp14 <- str_replace_all(jjep.54.3.312.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.312.rp15 <- str_replace_all(jjep.54.3.312.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.312.mod <- rbind(varname,jjep.54.3.312.rp15); write(jjep.54.3.312.mod, file = "./jjep/Mod_54_3_312.txt")
jjep.54.3.322.tx <- readr::read_file(file="./jjep/54_3_322.txt"); jjep.54.3.322.rm00 <- jjep.54.3.322.tx; jjep.54.3.322.rm01 <- str_replace_all(jjep.54.3.322.rm00, pattern = rm.01, replacement = ""); jjep.54.3.322.rm02 <- str_replace_all(jjep.54.3.322.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.322.rm03 <- str_replace_all(jjep.54.3.322.rm02, pattern = rm.03, replacement = ""); jjep.54.3.322.rm04 <- str_replace_all(jjep.54.3.322.rm03, pattern = rm.04, replacement = ""); jjep.54.3.322.rm05 <- str_replace_all(jjep.54.3.322.rm04, pattern = rm.05, replacement = ""); jjep.54.3.322.rm06 <- str_replace_all(jjep.54.3.322.rm05, pattern = rm.06, replacement = ""); jjep.54.3.322.rm07 <- str_replace_all(jjep.54.3.322.rm06, pattern = rm.07, replacement = ""); jjep.54.3.322.rm08 <- str_replace_all(jjep.54.3.322.rm07, pattern = rm.08, replacement = ""); jjep.54.3.322.rm09 <- str_replace_all(jjep.54.3.322.rm08, pattern = rm.09, replacement = ""); jjep.54.3.322.rp10 <- str_replace_all(jjep.54.3.322.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.322.rp11 <- str_replace_all(jjep.54.3.322.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.322.rp12 <- str_replace_all(jjep.54.3.322.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.322.rp13 <- str_replace_all(jjep.54.3.322.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.322.rp14 <- str_replace_all(jjep.54.3.322.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.322.rp15 <- str_replace_all(jjep.54.3.322.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.322.mod <- rbind(varname,jjep.54.3.322.rp15); write(jjep.54.3.322.mod, file = "./jjep/Mod_54_3_322.txt")
jjep.54.3.334.tx <- readr::read_file(file="./jjep/54_3_334.txt"); jjep.54.3.334.rm00 <- jjep.54.3.334.tx; jjep.54.3.334.rm01 <- str_replace_all(jjep.54.3.334.rm00, pattern = rm.01, replacement = ""); jjep.54.3.334.rm02 <- str_replace_all(jjep.54.3.334.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.334.rm03 <- str_replace_all(jjep.54.3.334.rm02, pattern = rm.03, replacement = ""); jjep.54.3.334.rm04 <- str_replace_all(jjep.54.3.334.rm03, pattern = rm.04, replacement = ""); jjep.54.3.334.rm05 <- str_replace_all(jjep.54.3.334.rm04, pattern = rm.05, replacement = ""); jjep.54.3.334.rm06 <- str_replace_all(jjep.54.3.334.rm05, pattern = rm.06, replacement = ""); jjep.54.3.334.rm07 <- str_replace_all(jjep.54.3.334.rm06, pattern = rm.07, replacement = ""); jjep.54.3.334.rm08 <- str_replace_all(jjep.54.3.334.rm07, pattern = rm.08, replacement = ""); jjep.54.3.334.rm09 <- str_replace_all(jjep.54.3.334.rm08, pattern = rm.09, replacement = ""); jjep.54.3.334.rp10 <- str_replace_all(jjep.54.3.334.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.334.rp11 <- str_replace_all(jjep.54.3.334.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.334.rp12 <- str_replace_all(jjep.54.3.334.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.334.rp13 <- str_replace_all(jjep.54.3.334.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.334.rp14 <- str_replace_all(jjep.54.3.334.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.334.rp15 <- str_replace_all(jjep.54.3.334.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.334.mod <- rbind(varname,jjep.54.3.334.rp15); write(jjep.54.3.334.mod, file = "./jjep/Mod_54_3_334.txt")
jjep.54.3.346.tx <- readr::read_file(file="./jjep/54_3_346.txt"); jjep.54.3.346.rm00 <- jjep.54.3.346.tx; jjep.54.3.346.rm01 <- str_replace_all(jjep.54.3.346.rm00, pattern = rm.01, replacement = ""); jjep.54.3.346.rm02 <- str_replace_all(jjep.54.3.346.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.346.rm03 <- str_replace_all(jjep.54.3.346.rm02, pattern = rm.03, replacement = ""); jjep.54.3.346.rm04 <- str_replace_all(jjep.54.3.346.rm03, pattern = rm.04, replacement = ""); jjep.54.3.346.rm05 <- str_replace_all(jjep.54.3.346.rm04, pattern = rm.05, replacement = ""); jjep.54.3.346.rm06 <- str_replace_all(jjep.54.3.346.rm05, pattern = rm.06, replacement = ""); jjep.54.3.346.rm07 <- str_replace_all(jjep.54.3.346.rm06, pattern = rm.07, replacement = ""); jjep.54.3.346.rm08 <- str_replace_all(jjep.54.3.346.rm07, pattern = rm.08, replacement = ""); jjep.54.3.346.rm09 <- str_replace_all(jjep.54.3.346.rm08, pattern = rm.09, replacement = ""); jjep.54.3.346.rp10 <- str_replace_all(jjep.54.3.346.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.346.rp11 <- str_replace_all(jjep.54.3.346.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.346.rp12 <- str_replace_all(jjep.54.3.346.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.346.rp13 <- str_replace_all(jjep.54.3.346.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.346.rp14 <- str_replace_all(jjep.54.3.346.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.346.rp15 <- str_replace_all(jjep.54.3.346.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.346.mod <- rbind(varname,jjep.54.3.346.rp15); write(jjep.54.3.346.mod, file = "./jjep/Mod_54_3_346.txt")
jjep.54.3.361.tx <- readr::read_file(file="./jjep/54_3_361.txt"); jjep.54.3.361.rm00 <- jjep.54.3.361.tx; jjep.54.3.361.rm01 <- str_replace_all(jjep.54.3.361.rm00, pattern = rm.01, replacement = ""); jjep.54.3.361.rm02 <- str_replace_all(jjep.54.3.361.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.361.rm03 <- str_replace_all(jjep.54.3.361.rm02, pattern = rm.03, replacement = ""); jjep.54.3.361.rm04 <- str_replace_all(jjep.54.3.361.rm03, pattern = rm.04, replacement = ""); jjep.54.3.361.rm05 <- str_replace_all(jjep.54.3.361.rm04, pattern = rm.05, replacement = ""); jjep.54.3.361.rm06 <- str_replace_all(jjep.54.3.361.rm05, pattern = rm.06, replacement = ""); jjep.54.3.361.rm07 <- str_replace_all(jjep.54.3.361.rm06, pattern = rm.07, replacement = ""); jjep.54.3.361.rm08 <- str_replace_all(jjep.54.3.361.rm07, pattern = rm.08, replacement = ""); jjep.54.3.361.rm09 <- str_replace_all(jjep.54.3.361.rm08, pattern = rm.09, replacement = ""); jjep.54.3.361.rp10 <- str_replace_all(jjep.54.3.361.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.361.rp11 <- str_replace_all(jjep.54.3.361.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.361.rp12 <- str_replace_all(jjep.54.3.361.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.361.rp13 <- str_replace_all(jjep.54.3.361.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.361.rp14 <- str_replace_all(jjep.54.3.361.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.361.rp15 <- str_replace_all(jjep.54.3.361.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.361.mod <- rbind(varname,jjep.54.3.361.rp15); write(jjep.54.3.361.mod, file = "./jjep/Mod_54_3_361.txt")
jjep.54.3.371.tx <- readr::read_file(file="./jjep/54_3_371.txt"); jjep.54.3.371.rm00 <- jjep.54.3.371.tx; jjep.54.3.371.rm01 <- str_replace_all(jjep.54.3.371.rm00, pattern = rm.01, replacement = ""); jjep.54.3.371.rm02 <- str_replace_all(jjep.54.3.371.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.371.rm03 <- str_replace_all(jjep.54.3.371.rm02, pattern = rm.03, replacement = ""); jjep.54.3.371.rm04 <- str_replace_all(jjep.54.3.371.rm03, pattern = rm.04, replacement = ""); jjep.54.3.371.rm05 <- str_replace_all(jjep.54.3.371.rm04, pattern = rm.05, replacement = ""); jjep.54.3.371.rm06 <- str_replace_all(jjep.54.3.371.rm05, pattern = rm.06, replacement = ""); jjep.54.3.371.rm07 <- str_replace_all(jjep.54.3.371.rm06, pattern = rm.07, replacement = ""); jjep.54.3.371.rm08 <- str_replace_all(jjep.54.3.371.rm07, pattern = rm.08, replacement = ""); jjep.54.3.371.rm09 <- str_replace_all(jjep.54.3.371.rm08, pattern = rm.09, replacement = ""); jjep.54.3.371.rp10 <- str_replace_all(jjep.54.3.371.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.371.rp11 <- str_replace_all(jjep.54.3.371.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.371.rp12 <- str_replace_all(jjep.54.3.371.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.371.rp13 <- str_replace_all(jjep.54.3.371.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.371.rp14 <- str_replace_all(jjep.54.3.371.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.371.rp15 <- str_replace_all(jjep.54.3.371.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.371.mod <- rbind(varname,jjep.54.3.371.rp15); write(jjep.54.3.371.mod, file = "./jjep/Mod_54_3_371.txt")
jjep.54.3.384.tx <- readr::read_file(file="./jjep/54_3_384.txt"); jjep.54.3.384.rm00 <- jjep.54.3.384.tx; jjep.54.3.384.rm01 <- str_replace_all(jjep.54.3.384.rm00, pattern = rm.01, replacement = ""); jjep.54.3.384.rm02 <- str_replace_all(jjep.54.3.384.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.384.rm03 <- str_replace_all(jjep.54.3.384.rm02, pattern = rm.03, replacement = ""); jjep.54.3.384.rm04 <- str_replace_all(jjep.54.3.384.rm03, pattern = rm.04, replacement = ""); jjep.54.3.384.rm05 <- str_replace_all(jjep.54.3.384.rm04, pattern = rm.05, replacement = ""); jjep.54.3.384.rm06 <- str_replace_all(jjep.54.3.384.rm05, pattern = rm.06, replacement = ""); jjep.54.3.384.rm07 <- str_replace_all(jjep.54.3.384.rm06, pattern = rm.07, replacement = ""); jjep.54.3.384.rm08 <- str_replace_all(jjep.54.3.384.rm07, pattern = rm.08, replacement = ""); jjep.54.3.384.rm09 <- str_replace_all(jjep.54.3.384.rm08, pattern = rm.09, replacement = ""); jjep.54.3.384.rp10 <- str_replace_all(jjep.54.3.384.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.384.rp11 <- str_replace_all(jjep.54.3.384.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.384.rp12 <- str_replace_all(jjep.54.3.384.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.384.rp13 <- str_replace_all(jjep.54.3.384.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.384.rp14 <- str_replace_all(jjep.54.3.384.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.384.rp15 <- str_replace_all(jjep.54.3.384.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.384.mod <- rbind(varname,jjep.54.3.384.rp15); write(jjep.54.3.384.mod, file = "./jjep/Mod_54_3_384.txt")
jjep.54.3.395.tx <- readr::read_file(file="./jjep/54_3_395.txt"); jjep.54.3.395.rm00 <- jjep.54.3.395.tx; jjep.54.3.395.rm01 <- str_replace_all(jjep.54.3.395.rm00, pattern = rm.01, replacement = ""); jjep.54.3.395.rm02 <- str_replace_all(jjep.54.3.395.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.395.rm03 <- str_replace_all(jjep.54.3.395.rm02, pattern = rm.03, replacement = ""); jjep.54.3.395.rm04 <- str_replace_all(jjep.54.3.395.rm03, pattern = rm.04, replacement = ""); jjep.54.3.395.rm05 <- str_replace_all(jjep.54.3.395.rm04, pattern = rm.05, replacement = ""); jjep.54.3.395.rm06 <- str_replace_all(jjep.54.3.395.rm05, pattern = rm.06, replacement = ""); jjep.54.3.395.rm07 <- str_replace_all(jjep.54.3.395.rm06, pattern = rm.07, replacement = ""); jjep.54.3.395.rm08 <- str_replace_all(jjep.54.3.395.rm07, pattern = rm.08, replacement = ""); jjep.54.3.395.rm09 <- str_replace_all(jjep.54.3.395.rm08, pattern = rm.09, replacement = ""); jjep.54.3.395.rp10 <- str_replace_all(jjep.54.3.395.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.395.rp11 <- str_replace_all(jjep.54.3.395.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.395.rp12 <- str_replace_all(jjep.54.3.395.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.395.rp13 <- str_replace_all(jjep.54.3.395.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.395.rp14 <- str_replace_all(jjep.54.3.395.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.395.rp15 <- str_replace_all(jjep.54.3.395.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.395.mod <- rbind(varname,jjep.54.3.395.rp15); write(jjep.54.3.395.mod, file = "./jjep/Mod_54_3_395.txt")
jjep.54.3.408.tx <- readr::read_file(file="./jjep/54_3_408.txt"); jjep.54.3.408.rm00 <- jjep.54.3.408.tx; jjep.54.3.408.rm01 <- str_replace_all(jjep.54.3.408.rm00, pattern = rm.01, replacement = ""); jjep.54.3.408.rm02 <- str_replace_all(jjep.54.3.408.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.408.rm03 <- str_replace_all(jjep.54.3.408.rm02, pattern = rm.03, replacement = ""); jjep.54.3.408.rm04 <- str_replace_all(jjep.54.3.408.rm03, pattern = rm.04, replacement = ""); jjep.54.3.408.rm05 <- str_replace_all(jjep.54.3.408.rm04, pattern = rm.05, replacement = ""); jjep.54.3.408.rm06 <- str_replace_all(jjep.54.3.408.rm05, pattern = rm.06, replacement = ""); jjep.54.3.408.rm07 <- str_replace_all(jjep.54.3.408.rm06, pattern = rm.07, replacement = ""); jjep.54.3.408.rm08 <- str_replace_all(jjep.54.3.408.rm07, pattern = rm.08, replacement = ""); jjep.54.3.408.rm09 <- str_replace_all(jjep.54.3.408.rm08, pattern = rm.09, replacement = ""); jjep.54.3.408.rp10 <- str_replace_all(jjep.54.3.408.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.408.rp11 <- str_replace_all(jjep.54.3.408.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.408.rp12 <- str_replace_all(jjep.54.3.408.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.408.rp13 <- str_replace_all(jjep.54.3.408.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.408.rp14 <- str_replace_all(jjep.54.3.408.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.408.rp15 <- str_replace_all(jjep.54.3.408.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.408.mod <- rbind(varname,jjep.54.3.408.rp15); write(jjep.54.3.408.mod, file = "./jjep/Mod_54_3_408.txt")
jjep.54.3.420.tx <- readr::read_file(file="./jjep/54_3_420.txt"); jjep.54.3.420.rm00 <- jjep.54.3.420.tx; jjep.54.3.420.rm01 <- str_replace_all(jjep.54.3.420.rm00, pattern = rm.01, replacement = ""); jjep.54.3.420.rm02 <- str_replace_all(jjep.54.3.420.rm01, pattern = rm.02, replacement = "^"); jjep.54.3.420.rm03 <- str_replace_all(jjep.54.3.420.rm02, pattern = rm.03, replacement = ""); jjep.54.3.420.rm04 <- str_replace_all(jjep.54.3.420.rm03, pattern = rm.04, replacement = ""); jjep.54.3.420.rm05 <- str_replace_all(jjep.54.3.420.rm04, pattern = rm.05, replacement = ""); jjep.54.3.420.rm06 <- str_replace_all(jjep.54.3.420.rm05, pattern = rm.06, replacement = ""); jjep.54.3.420.rm07 <- str_replace_all(jjep.54.3.420.rm06, pattern = rm.07, replacement = ""); jjep.54.3.420.rm08 <- str_replace_all(jjep.54.3.420.rm07, pattern = rm.08, replacement = ""); jjep.54.3.420.rm09 <- str_replace_all(jjep.54.3.420.rm08, pattern = rm.09, replacement = ""); jjep.54.3.420.rp10 <- str_replace_all(jjep.54.3.420.rm09, pattern = rp.01, replacement = "・"); jjep.54.3.420.rp11 <- str_replace_all(jjep.54.3.420.rp10, pattern = rp.02, replacement = "^"); jjep.54.3.420.rp12 <- str_replace_all(jjep.54.3.420.rp11, pattern = rp.03, replacement = "^"); jjep.54.3.420.rp13 <- str_replace_all(jjep.54.3.420.rp12, pattern = rp.04, replacement = "^"); jjep.54.3.420.rp14 <- str_replace_all(jjep.54.3.420.rp13, pattern = rp.05, replacement = "^"); jjep.54.3.420.rp15 <- str_replace_all(jjep.54.3.420.rp14, pattern = rp.06, replacement = "^"); jjep.54.3.420.mod <- rbind(varname,jjep.54.3.420.rp15); write(jjep.54.3.420.mod, file = "./jjep/Mod_54_3_420.txt")
jjep.54.2.141.tx <- readr::read_file(file="./jjep/54_2_141.txt"); jjep.54.2.141.rm00 <- jjep.54.2.141.tx; jjep.54.2.141.rm01 <- str_replace_all(jjep.54.2.141.rm00, pattern = rm.01, replacement = ""); jjep.54.2.141.rm02 <- str_replace_all(jjep.54.2.141.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.141.rm03 <- str_replace_all(jjep.54.2.141.rm02, pattern = rm.03, replacement = ""); jjep.54.2.141.rm04 <- str_replace_all(jjep.54.2.141.rm03, pattern = rm.04, replacement = ""); jjep.54.2.141.rm05 <- str_replace_all(jjep.54.2.141.rm04, pattern = rm.05, replacement = ""); jjep.54.2.141.rm06 <- str_replace_all(jjep.54.2.141.rm05, pattern = rm.06, replacement = ""); jjep.54.2.141.rm07 <- str_replace_all(jjep.54.2.141.rm06, pattern = rm.07, replacement = ""); jjep.54.2.141.rm08 <- str_replace_all(jjep.54.2.141.rm07, pattern = rm.08, replacement = ""); jjep.54.2.141.rm09 <- str_replace_all(jjep.54.2.141.rm08, pattern = rm.09, replacement = ""); jjep.54.2.141.rp10 <- str_replace_all(jjep.54.2.141.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.141.rp11 <- str_replace_all(jjep.54.2.141.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.141.rp12 <- str_replace_all(jjep.54.2.141.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.141.rp13 <- str_replace_all(jjep.54.2.141.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.141.rp14 <- str_replace_all(jjep.54.2.141.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.141.rp15 <- str_replace_all(jjep.54.2.141.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.141.mod <- rbind(varname,jjep.54.2.141.rp15); write(jjep.54.2.141.mod, file = "./jjep/Mod_54_2_141.txt")
jjep.54.2.151.tx <- readr::read_file(file="./jjep/54_2_151.txt"); jjep.54.2.151.rm00 <- jjep.54.2.151.tx; jjep.54.2.151.rm01 <- str_replace_all(jjep.54.2.151.rm00, pattern = rm.01, replacement = ""); jjep.54.2.151.rm02 <- str_replace_all(jjep.54.2.151.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.151.rm03 <- str_replace_all(jjep.54.2.151.rm02, pattern = rm.03, replacement = ""); jjep.54.2.151.rm04 <- str_replace_all(jjep.54.2.151.rm03, pattern = rm.04, replacement = ""); jjep.54.2.151.rm05 <- str_replace_all(jjep.54.2.151.rm04, pattern = rm.05, replacement = ""); jjep.54.2.151.rm06 <- str_replace_all(jjep.54.2.151.rm05, pattern = rm.06, replacement = ""); jjep.54.2.151.rm07 <- str_replace_all(jjep.54.2.151.rm06, pattern = rm.07, replacement = ""); jjep.54.2.151.rm08 <- str_replace_all(jjep.54.2.151.rm07, pattern = rm.08, replacement = ""); jjep.54.2.151.rm09 <- str_replace_all(jjep.54.2.151.rm08, pattern = rm.09, replacement = ""); jjep.54.2.151.rp10 <- str_replace_all(jjep.54.2.151.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.151.rp11 <- str_replace_all(jjep.54.2.151.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.151.rp12 <- str_replace_all(jjep.54.2.151.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.151.rp13 <- str_replace_all(jjep.54.2.151.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.151.rp14 <- str_replace_all(jjep.54.2.151.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.151.rp15 <- str_replace_all(jjep.54.2.151.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.151.mod <- rbind(varname,jjep.54.2.151.rp15); write(jjep.54.2.151.mod, file = "./jjep/Mod_54_2_151.txt")
jjep.54.2.162.tx <- readr::read_file(file="./jjep/54_2_162.txt"); jjep.54.2.162.rm00 <- jjep.54.2.162.tx; jjep.54.2.162.rm01 <- str_replace_all(jjep.54.2.162.rm00, pattern = rm.01, replacement = ""); jjep.54.2.162.rm02 <- str_replace_all(jjep.54.2.162.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.162.rm03 <- str_replace_all(jjep.54.2.162.rm02, pattern = rm.03, replacement = ""); jjep.54.2.162.rm04 <- str_replace_all(jjep.54.2.162.rm03, pattern = rm.04, replacement = ""); jjep.54.2.162.rm05 <- str_replace_all(jjep.54.2.162.rm04, pattern = rm.05, replacement = ""); jjep.54.2.162.rm06 <- str_replace_all(jjep.54.2.162.rm05, pattern = rm.06, replacement = ""); jjep.54.2.162.rm07 <- str_replace_all(jjep.54.2.162.rm06, pattern = rm.07, replacement = ""); jjep.54.2.162.rm08 <- str_replace_all(jjep.54.2.162.rm07, pattern = rm.08, replacement = ""); jjep.54.2.162.rm09 <- str_replace_all(jjep.54.2.162.rm08, pattern = rm.09, replacement = ""); jjep.54.2.162.rp10 <- str_replace_all(jjep.54.2.162.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.162.rp11 <- str_replace_all(jjep.54.2.162.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.162.rp12 <- str_replace_all(jjep.54.2.162.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.162.rp13 <- str_replace_all(jjep.54.2.162.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.162.rp14 <- str_replace_all(jjep.54.2.162.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.162.rp15 <- str_replace_all(jjep.54.2.162.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.162.mod <- rbind(varname,jjep.54.2.162.rp15); write(jjep.54.2.162.mod, file = "./jjep/Mod_54_2_162.txt")
jjep.54.2.174.tx <- readr::read_file(file="./jjep/54_2_174.txt"); jjep.54.2.174.rm00 <- jjep.54.2.174.tx; jjep.54.2.174.rm01 <- str_replace_all(jjep.54.2.174.rm00, pattern = rm.01, replacement = ""); jjep.54.2.174.rm02 <- str_replace_all(jjep.54.2.174.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.174.rm03 <- str_replace_all(jjep.54.2.174.rm02, pattern = rm.03, replacement = ""); jjep.54.2.174.rm04 <- str_replace_all(jjep.54.2.174.rm03, pattern = rm.04, replacement = ""); jjep.54.2.174.rm05 <- str_replace_all(jjep.54.2.174.rm04, pattern = rm.05, replacement = ""); jjep.54.2.174.rm06 <- str_replace_all(jjep.54.2.174.rm05, pattern = rm.06, replacement = ""); jjep.54.2.174.rm07 <- str_replace_all(jjep.54.2.174.rm06, pattern = rm.07, replacement = ""); jjep.54.2.174.rm08 <- str_replace_all(jjep.54.2.174.rm07, pattern = rm.08, replacement = ""); jjep.54.2.174.rm09 <- str_replace_all(jjep.54.2.174.rm08, pattern = rm.09, replacement = ""); jjep.54.2.174.rp10 <- str_replace_all(jjep.54.2.174.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.174.rp11 <- str_replace_all(jjep.54.2.174.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.174.rp12 <- str_replace_all(jjep.54.2.174.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.174.rp13 <- str_replace_all(jjep.54.2.174.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.174.rp14 <- str_replace_all(jjep.54.2.174.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.174.rp15 <- str_replace_all(jjep.54.2.174.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.174.mod <- rbind(varname,jjep.54.2.174.rp15); write(jjep.54.2.174.mod, file = "./jjep/Mod_54_2_174.txt")
jjep.54.2.188.tx <- readr::read_file(file="./jjep/54_2_188.txt"); jjep.54.2.188.rm00 <- jjep.54.2.188.tx; jjep.54.2.188.rm01 <- str_replace_all(jjep.54.2.188.rm00, pattern = rm.01, replacement = ""); jjep.54.2.188.rm02 <- str_replace_all(jjep.54.2.188.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.188.rm03 <- str_replace_all(jjep.54.2.188.rm02, pattern = rm.03, replacement = ""); jjep.54.2.188.rm04 <- str_replace_all(jjep.54.2.188.rm03, pattern = rm.04, replacement = ""); jjep.54.2.188.rm05 <- str_replace_all(jjep.54.2.188.rm04, pattern = rm.05, replacement = ""); jjep.54.2.188.rm06 <- str_replace_all(jjep.54.2.188.rm05, pattern = rm.06, replacement = ""); jjep.54.2.188.rm07 <- str_replace_all(jjep.54.2.188.rm06, pattern = rm.07, replacement = ""); jjep.54.2.188.rm08 <- str_replace_all(jjep.54.2.188.rm07, pattern = rm.08, replacement = ""); jjep.54.2.188.rm09 <- str_replace_all(jjep.54.2.188.rm08, pattern = rm.09, replacement = ""); jjep.54.2.188.rp10 <- str_replace_all(jjep.54.2.188.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.188.rp11 <- str_replace_all(jjep.54.2.188.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.188.rp12 <- str_replace_all(jjep.54.2.188.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.188.rp13 <- str_replace_all(jjep.54.2.188.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.188.rp14 <- str_replace_all(jjep.54.2.188.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.188.rp15 <- str_replace_all(jjep.54.2.188.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.188.mod <- rbind(varname,jjep.54.2.188.rp15); write(jjep.54.2.188.mod, file = "./jjep/Mod_54_2_188.txt")
jjep.54.2.199.tx <- readr::read_file(file="./jjep/54_2_199.txt"); jjep.54.2.199.rm00 <- jjep.54.2.199.tx; jjep.54.2.199.rm01 <- str_replace_all(jjep.54.2.199.rm00, pattern = rm.01, replacement = ""); jjep.54.2.199.rm02 <- str_replace_all(jjep.54.2.199.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.199.rm03 <- str_replace_all(jjep.54.2.199.rm02, pattern = rm.03, replacement = ""); jjep.54.2.199.rm04 <- str_replace_all(jjep.54.2.199.rm03, pattern = rm.04, replacement = ""); jjep.54.2.199.rm05 <- str_replace_all(jjep.54.2.199.rm04, pattern = rm.05, replacement = ""); jjep.54.2.199.rm06 <- str_replace_all(jjep.54.2.199.rm05, pattern = rm.06, replacement = ""); jjep.54.2.199.rm07 <- str_replace_all(jjep.54.2.199.rm06, pattern = rm.07, replacement = ""); jjep.54.2.199.rm08 <- str_replace_all(jjep.54.2.199.rm07, pattern = rm.08, replacement = ""); jjep.54.2.199.rm09 <- str_replace_all(jjep.54.2.199.rm08, pattern = rm.09, replacement = ""); jjep.54.2.199.rp10 <- str_replace_all(jjep.54.2.199.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.199.rp11 <- str_replace_all(jjep.54.2.199.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.199.rp12 <- str_replace_all(jjep.54.2.199.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.199.rp13 <- str_replace_all(jjep.54.2.199.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.199.rp14 <- str_replace_all(jjep.54.2.199.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.199.rp15 <- str_replace_all(jjep.54.2.199.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.199.mod <- rbind(varname,jjep.54.2.199.rp15); write(jjep.54.2.199.mod, file = "./jjep/Mod_54_2_199.txt")
jjep.54.2.211.tx <- readr::read_file(file="./jjep/54_2_211.txt"); jjep.54.2.211.rm00 <- jjep.54.2.211.tx; jjep.54.2.211.rm01 <- str_replace_all(jjep.54.2.211.rm00, pattern = rm.01, replacement = ""); jjep.54.2.211.rm02 <- str_replace_all(jjep.54.2.211.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.211.rm03 <- str_replace_all(jjep.54.2.211.rm02, pattern = rm.03, replacement = ""); jjep.54.2.211.rm04 <- str_replace_all(jjep.54.2.211.rm03, pattern = rm.04, replacement = ""); jjep.54.2.211.rm05 <- str_replace_all(jjep.54.2.211.rm04, pattern = rm.05, replacement = ""); jjep.54.2.211.rm06 <- str_replace_all(jjep.54.2.211.rm05, pattern = rm.06, replacement = ""); jjep.54.2.211.rm07 <- str_replace_all(jjep.54.2.211.rm06, pattern = rm.07, replacement = ""); jjep.54.2.211.rm08 <- str_replace_all(jjep.54.2.211.rm07, pattern = rm.08, replacement = ""); jjep.54.2.211.rm09 <- str_replace_all(jjep.54.2.211.rm08, pattern = rm.09, replacement = ""); jjep.54.2.211.rp10 <- str_replace_all(jjep.54.2.211.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.211.rp11 <- str_replace_all(jjep.54.2.211.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.211.rp12 <- str_replace_all(jjep.54.2.211.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.211.rp13 <- str_replace_all(jjep.54.2.211.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.211.rp14 <- str_replace_all(jjep.54.2.211.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.211.rp15 <- str_replace_all(jjep.54.2.211.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.211.mod <- rbind(varname,jjep.54.2.211.rp15); write(jjep.54.2.211.mod, file = "./jjep/Mod_54_2_211.txt")
jjep.54.2.222.tx <- readr::read_file(file="./jjep/54_2_222.txt"); jjep.54.2.222.rm00 <- jjep.54.2.222.tx; jjep.54.2.222.rm01 <- str_replace_all(jjep.54.2.222.rm00, pattern = rm.01, replacement = ""); jjep.54.2.222.rm02 <- str_replace_all(jjep.54.2.222.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.222.rm03 <- str_replace_all(jjep.54.2.222.rm02, pattern = rm.03, replacement = ""); jjep.54.2.222.rm04 <- str_replace_all(jjep.54.2.222.rm03, pattern = rm.04, replacement = ""); jjep.54.2.222.rm05 <- str_replace_all(jjep.54.2.222.rm04, pattern = rm.05, replacement = ""); jjep.54.2.222.rm06 <- str_replace_all(jjep.54.2.222.rm05, pattern = rm.06, replacement = ""); jjep.54.2.222.rm07 <- str_replace_all(jjep.54.2.222.rm06, pattern = rm.07, replacement = ""); jjep.54.2.222.rm08 <- str_replace_all(jjep.54.2.222.rm07, pattern = rm.08, replacement = ""); jjep.54.2.222.rm09 <- str_replace_all(jjep.54.2.222.rm08, pattern = rm.09, replacement = ""); jjep.54.2.222.rp10 <- str_replace_all(jjep.54.2.222.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.222.rp11 <- str_replace_all(jjep.54.2.222.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.222.rp12 <- str_replace_all(jjep.54.2.222.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.222.rp13 <- str_replace_all(jjep.54.2.222.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.222.rp14 <- str_replace_all(jjep.54.2.222.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.222.rp15 <- str_replace_all(jjep.54.2.222.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.222.mod <- rbind(varname,jjep.54.2.222.rp15); write(jjep.54.2.222.mod, file = "./jjep/Mod_54_2_222.txt")
jjep.54.2.233.tx <- readr::read_file(file="./jjep/54_2_233.txt"); jjep.54.2.233.rm00 <- jjep.54.2.233.tx; jjep.54.2.233.rm01 <- str_replace_all(jjep.54.2.233.rm00, pattern = rm.01, replacement = ""); jjep.54.2.233.rm02 <- str_replace_all(jjep.54.2.233.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.233.rm03 <- str_replace_all(jjep.54.2.233.rm02, pattern = rm.03, replacement = ""); jjep.54.2.233.rm04 <- str_replace_all(jjep.54.2.233.rm03, pattern = rm.04, replacement = ""); jjep.54.2.233.rm05 <- str_replace_all(jjep.54.2.233.rm04, pattern = rm.05, replacement = ""); jjep.54.2.233.rm06 <- str_replace_all(jjep.54.2.233.rm05, pattern = rm.06, replacement = ""); jjep.54.2.233.rm07 <- str_replace_all(jjep.54.2.233.rm06, pattern = rm.07, replacement = ""); jjep.54.2.233.rm08 <- str_replace_all(jjep.54.2.233.rm07, pattern = rm.08, replacement = ""); jjep.54.2.233.rm09 <- str_replace_all(jjep.54.2.233.rm08, pattern = rm.09, replacement = ""); jjep.54.2.233.rp10 <- str_replace_all(jjep.54.2.233.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.233.rp11 <- str_replace_all(jjep.54.2.233.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.233.rp12 <- str_replace_all(jjep.54.2.233.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.233.rp13 <- str_replace_all(jjep.54.2.233.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.233.rp14 <- str_replace_all(jjep.54.2.233.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.233.rp15 <- str_replace_all(jjep.54.2.233.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.233.mod <- rbind(varname,jjep.54.2.233.rp15); write(jjep.54.2.233.mod, file = "./jjep/Mod_54_2_233.txt")
jjep.54.2.243.tx <- readr::read_file(file="./jjep/54_2_243.txt"); jjep.54.2.243.rm00 <- jjep.54.2.243.tx; jjep.54.2.243.rm01 <- str_replace_all(jjep.54.2.243.rm00, pattern = rm.01, replacement = ""); jjep.54.2.243.rm02 <- str_replace_all(jjep.54.2.243.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.243.rm03 <- str_replace_all(jjep.54.2.243.rm02, pattern = rm.03, replacement = ""); jjep.54.2.243.rm04 <- str_replace_all(jjep.54.2.243.rm03, pattern = rm.04, replacement = ""); jjep.54.2.243.rm05 <- str_replace_all(jjep.54.2.243.rm04, pattern = rm.05, replacement = ""); jjep.54.2.243.rm06 <- str_replace_all(jjep.54.2.243.rm05, pattern = rm.06, replacement = ""); jjep.54.2.243.rm07 <- str_replace_all(jjep.54.2.243.rm06, pattern = rm.07, replacement = ""); jjep.54.2.243.rm08 <- str_replace_all(jjep.54.2.243.rm07, pattern = rm.08, replacement = ""); jjep.54.2.243.rm09 <- str_replace_all(jjep.54.2.243.rm08, pattern = rm.09, replacement = ""); jjep.54.2.243.rp10 <- str_replace_all(jjep.54.2.243.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.243.rp11 <- str_replace_all(jjep.54.2.243.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.243.rp12 <- str_replace_all(jjep.54.2.243.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.243.rp13 <- str_replace_all(jjep.54.2.243.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.243.rp14 <- str_replace_all(jjep.54.2.243.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.243.rp15 <- str_replace_all(jjep.54.2.243.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.243.mod <- rbind(varname,jjep.54.2.243.rp15); write(jjep.54.2.243.mod, file = "./jjep/Mod_54_2_243.txt")
jjep.54.2.254.tx <- readr::read_file(file="./jjep/54_2_254.txt"); jjep.54.2.254.rm00 <- jjep.54.2.254.tx; jjep.54.2.254.rm01 <- str_replace_all(jjep.54.2.254.rm00, pattern = rm.01, replacement = ""); jjep.54.2.254.rm02 <- str_replace_all(jjep.54.2.254.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.254.rm03 <- str_replace_all(jjep.54.2.254.rm02, pattern = rm.03, replacement = ""); jjep.54.2.254.rm04 <- str_replace_all(jjep.54.2.254.rm03, pattern = rm.04, replacement = ""); jjep.54.2.254.rm05 <- str_replace_all(jjep.54.2.254.rm04, pattern = rm.05, replacement = ""); jjep.54.2.254.rm06 <- str_replace_all(jjep.54.2.254.rm05, pattern = rm.06, replacement = ""); jjep.54.2.254.rm07 <- str_replace_all(jjep.54.2.254.rm06, pattern = rm.07, replacement = ""); jjep.54.2.254.rm08 <- str_replace_all(jjep.54.2.254.rm07, pattern = rm.08, replacement = ""); jjep.54.2.254.rm09 <- str_replace_all(jjep.54.2.254.rm08, pattern = rm.09, replacement = ""); jjep.54.2.254.rp10 <- str_replace_all(jjep.54.2.254.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.254.rp11 <- str_replace_all(jjep.54.2.254.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.254.rp12 <- str_replace_all(jjep.54.2.254.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.254.rp13 <- str_replace_all(jjep.54.2.254.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.254.rp14 <- str_replace_all(jjep.54.2.254.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.254.rp15 <- str_replace_all(jjep.54.2.254.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.254.mod <- rbind(varname,jjep.54.2.254.rp15); write(jjep.54.2.254.mod, file = "./jjep/Mod_54_2_254.txt")
jjep.54.2.265.tx <- readr::read_file(file="./jjep/54_2_265.txt"); jjep.54.2.265.rm00 <- jjep.54.2.265.tx; jjep.54.2.265.rm01 <- str_replace_all(jjep.54.2.265.rm00, pattern = rm.01, replacement = ""); jjep.54.2.265.rm02 <- str_replace_all(jjep.54.2.265.rm01, pattern = rm.02, replacement = "^"); jjep.54.2.265.rm03 <- str_replace_all(jjep.54.2.265.rm02, pattern = rm.03, replacement = ""); jjep.54.2.265.rm04 <- str_replace_all(jjep.54.2.265.rm03, pattern = rm.04, replacement = ""); jjep.54.2.265.rm05 <- str_replace_all(jjep.54.2.265.rm04, pattern = rm.05, replacement = ""); jjep.54.2.265.rm06 <- str_replace_all(jjep.54.2.265.rm05, pattern = rm.06, replacement = ""); jjep.54.2.265.rm07 <- str_replace_all(jjep.54.2.265.rm06, pattern = rm.07, replacement = ""); jjep.54.2.265.rm08 <- str_replace_all(jjep.54.2.265.rm07, pattern = rm.08, replacement = ""); jjep.54.2.265.rm09 <- str_replace_all(jjep.54.2.265.rm08, pattern = rm.09, replacement = ""); jjep.54.2.265.rp10 <- str_replace_all(jjep.54.2.265.rm09, pattern = rp.01, replacement = "・"); jjep.54.2.265.rp11 <- str_replace_all(jjep.54.2.265.rp10, pattern = rp.02, replacement = "^"); jjep.54.2.265.rp12 <- str_replace_all(jjep.54.2.265.rp11, pattern = rp.03, replacement = "^"); jjep.54.2.265.rp13 <- str_replace_all(jjep.54.2.265.rp12, pattern = rp.04, replacement = "^"); jjep.54.2.265.rp14 <- str_replace_all(jjep.54.2.265.rp13, pattern = rp.05, replacement = "^"); jjep.54.2.265.rp15 <- str_replace_all(jjep.54.2.265.rp14, pattern = rp.06, replacement = "^"); jjep.54.2.265.mod <- rbind(varname,jjep.54.2.265.rp15); write(jjep.54.2.265.mod, file = "./jjep/Mod_54_2_265.txt")
jjep.54.1.1.tx <- readr::read_file(file="./jjep/54_1_1.txt"); jjep.54.1.1.rm00 <- jjep.54.1.1.tx; jjep.54.1.1.rm01 <- str_replace_all(jjep.54.1.1.rm00, pattern = rm.01, replacement = ""); jjep.54.1.1.rm02 <- str_replace_all(jjep.54.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.1.rm03 <- str_replace_all(jjep.54.1.1.rm02, pattern = rm.03, replacement = ""); jjep.54.1.1.rm04 <- str_replace_all(jjep.54.1.1.rm03, pattern = rm.04, replacement = ""); jjep.54.1.1.rm05 <- str_replace_all(jjep.54.1.1.rm04, pattern = rm.05, replacement = ""); jjep.54.1.1.rm06 <- str_replace_all(jjep.54.1.1.rm05, pattern = rm.06, replacement = ""); jjep.54.1.1.rm07 <- str_replace_all(jjep.54.1.1.rm06, pattern = rm.07, replacement = ""); jjep.54.1.1.rm08 <- str_replace_all(jjep.54.1.1.rm07, pattern = rm.08, replacement = ""); jjep.54.1.1.rm09 <- str_replace_all(jjep.54.1.1.rm08, pattern = rm.09, replacement = ""); jjep.54.1.1.rp10 <- str_replace_all(jjep.54.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.1.rp11 <- str_replace_all(jjep.54.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.1.rp12 <- str_replace_all(jjep.54.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.1.rp13 <- str_replace_all(jjep.54.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.1.rp14 <- str_replace_all(jjep.54.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.1.rp15 <- str_replace_all(jjep.54.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.1.mod <- rbind(varname,jjep.54.1.1.rp15); write(jjep.54.1.1.mod, file = "./jjep/Mod_54_1_1.txt")
jjep.54.1.12.tx <- readr::read_file(file="./jjep/54_1_12.txt"); jjep.54.1.12.rm00 <- jjep.54.1.12.tx; jjep.54.1.12.rm01 <- str_replace_all(jjep.54.1.12.rm00, pattern = rm.01, replacement = ""); jjep.54.1.12.rm02 <- str_replace_all(jjep.54.1.12.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.12.rm03 <- str_replace_all(jjep.54.1.12.rm02, pattern = rm.03, replacement = ""); jjep.54.1.12.rm04 <- str_replace_all(jjep.54.1.12.rm03, pattern = rm.04, replacement = ""); jjep.54.1.12.rm05 <- str_replace_all(jjep.54.1.12.rm04, pattern = rm.05, replacement = ""); jjep.54.1.12.rm06 <- str_replace_all(jjep.54.1.12.rm05, pattern = rm.06, replacement = ""); jjep.54.1.12.rm07 <- str_replace_all(jjep.54.1.12.rm06, pattern = rm.07, replacement = ""); jjep.54.1.12.rm08 <- str_replace_all(jjep.54.1.12.rm07, pattern = rm.08, replacement = ""); jjep.54.1.12.rm09 <- str_replace_all(jjep.54.1.12.rm08, pattern = rm.09, replacement = ""); jjep.54.1.12.rp10 <- str_replace_all(jjep.54.1.12.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.12.rp11 <- str_replace_all(jjep.54.1.12.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.12.rp12 <- str_replace_all(jjep.54.1.12.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.12.rp13 <- str_replace_all(jjep.54.1.12.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.12.rp14 <- str_replace_all(jjep.54.1.12.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.12.rp15 <- str_replace_all(jjep.54.1.12.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.12.mod <- rbind(varname,jjep.54.1.12.rp15); write(jjep.54.1.12.mod, file = "./jjep/Mod_54_1_12.txt")
jjep.54.1.25.tx <- readr::read_file(file="./jjep/54_1_25.txt"); jjep.54.1.25.rm00 <- jjep.54.1.25.tx; jjep.54.1.25.rm01 <- str_replace_all(jjep.54.1.25.rm00, pattern = rm.01, replacement = ""); jjep.54.1.25.rm02 <- str_replace_all(jjep.54.1.25.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.25.rm03 <- str_replace_all(jjep.54.1.25.rm02, pattern = rm.03, replacement = ""); jjep.54.1.25.rm04 <- str_replace_all(jjep.54.1.25.rm03, pattern = rm.04, replacement = ""); jjep.54.1.25.rm05 <- str_replace_all(jjep.54.1.25.rm04, pattern = rm.05, replacement = ""); jjep.54.1.25.rm06 <- str_replace_all(jjep.54.1.25.rm05, pattern = rm.06, replacement = ""); jjep.54.1.25.rm07 <- str_replace_all(jjep.54.1.25.rm06, pattern = rm.07, replacement = ""); jjep.54.1.25.rm08 <- str_replace_all(jjep.54.1.25.rm07, pattern = rm.08, replacement = ""); jjep.54.1.25.rm09 <- str_replace_all(jjep.54.1.25.rm08, pattern = rm.09, replacement = ""); jjep.54.1.25.rp10 <- str_replace_all(jjep.54.1.25.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.25.rp11 <- str_replace_all(jjep.54.1.25.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.25.rp12 <- str_replace_all(jjep.54.1.25.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.25.rp13 <- str_replace_all(jjep.54.1.25.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.25.rp14 <- str_replace_all(jjep.54.1.25.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.25.rp15 <- str_replace_all(jjep.54.1.25.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.25.mod <- rbind(varname,jjep.54.1.25.rp15); write(jjep.54.1.25.mod, file = "./jjep/Mod_54_1_25.txt")
jjep.54.1.34.tx <- readr::read_file(file="./jjep/54_1_34.txt"); jjep.54.1.34.rm00 <- jjep.54.1.34.tx; jjep.54.1.34.rm01 <- str_replace_all(jjep.54.1.34.rm00, pattern = rm.01, replacement = ""); jjep.54.1.34.rm02 <- str_replace_all(jjep.54.1.34.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.34.rm03 <- str_replace_all(jjep.54.1.34.rm02, pattern = rm.03, replacement = ""); jjep.54.1.34.rm04 <- str_replace_all(jjep.54.1.34.rm03, pattern = rm.04, replacement = ""); jjep.54.1.34.rm05 <- str_replace_all(jjep.54.1.34.rm04, pattern = rm.05, replacement = ""); jjep.54.1.34.rm06 <- str_replace_all(jjep.54.1.34.rm05, pattern = rm.06, replacement = ""); jjep.54.1.34.rm07 <- str_replace_all(jjep.54.1.34.rm06, pattern = rm.07, replacement = ""); jjep.54.1.34.rm08 <- str_replace_all(jjep.54.1.34.rm07, pattern = rm.08, replacement = ""); jjep.54.1.34.rm09 <- str_replace_all(jjep.54.1.34.rm08, pattern = rm.09, replacement = ""); jjep.54.1.34.rp10 <- str_replace_all(jjep.54.1.34.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.34.rp11 <- str_replace_all(jjep.54.1.34.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.34.rp12 <- str_replace_all(jjep.54.1.34.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.34.rp13 <- str_replace_all(jjep.54.1.34.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.34.rp14 <- str_replace_all(jjep.54.1.34.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.34.rp15 <- str_replace_all(jjep.54.1.34.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.34.mod <- rbind(varname,jjep.54.1.34.rp15); write(jjep.54.1.34.mod, file = "./jjep/Mod_54_1_34.txt")
jjep.54.1.45.tx <- readr::read_file(file="./jjep/54_1_45.txt"); jjep.54.1.45.rm00 <- jjep.54.1.45.tx; jjep.54.1.45.rm01 <- str_replace_all(jjep.54.1.45.rm00, pattern = rm.01, replacement = ""); jjep.54.1.45.rm02 <- str_replace_all(jjep.54.1.45.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.45.rm03 <- str_replace_all(jjep.54.1.45.rm02, pattern = rm.03, replacement = ""); jjep.54.1.45.rm04 <- str_replace_all(jjep.54.1.45.rm03, pattern = rm.04, replacement = ""); jjep.54.1.45.rm05 <- str_replace_all(jjep.54.1.45.rm04, pattern = rm.05, replacement = ""); jjep.54.1.45.rm06 <- str_replace_all(jjep.54.1.45.rm05, pattern = rm.06, replacement = ""); jjep.54.1.45.rm07 <- str_replace_all(jjep.54.1.45.rm06, pattern = rm.07, replacement = ""); jjep.54.1.45.rm08 <- str_replace_all(jjep.54.1.45.rm07, pattern = rm.08, replacement = ""); jjep.54.1.45.rm09 <- str_replace_all(jjep.54.1.45.rm08, pattern = rm.09, replacement = ""); jjep.54.1.45.rp10 <- str_replace_all(jjep.54.1.45.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.45.rp11 <- str_replace_all(jjep.54.1.45.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.45.rp12 <- str_replace_all(jjep.54.1.45.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.45.rp13 <- str_replace_all(jjep.54.1.45.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.45.rp14 <- str_replace_all(jjep.54.1.45.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.45.rp15 <- str_replace_all(jjep.54.1.45.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.45.mod <- rbind(varname,jjep.54.1.45.rp15); write(jjep.54.1.45.mod, file = "./jjep/Mod_54_1_45.txt")
jjep.54.1.55.tx <- readr::read_file(file="./jjep/54_1_55.txt"); jjep.54.1.55.rm00 <- jjep.54.1.55.tx; jjep.54.1.55.rm01 <- str_replace_all(jjep.54.1.55.rm00, pattern = rm.01, replacement = ""); jjep.54.1.55.rm02 <- str_replace_all(jjep.54.1.55.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.55.rm03 <- str_replace_all(jjep.54.1.55.rm02, pattern = rm.03, replacement = ""); jjep.54.1.55.rm04 <- str_replace_all(jjep.54.1.55.rm03, pattern = rm.04, replacement = ""); jjep.54.1.55.rm05 <- str_replace_all(jjep.54.1.55.rm04, pattern = rm.05, replacement = ""); jjep.54.1.55.rm06 <- str_replace_all(jjep.54.1.55.rm05, pattern = rm.06, replacement = ""); jjep.54.1.55.rm07 <- str_replace_all(jjep.54.1.55.rm06, pattern = rm.07, replacement = ""); jjep.54.1.55.rm08 <- str_replace_all(jjep.54.1.55.rm07, pattern = rm.08, replacement = ""); jjep.54.1.55.rm09 <- str_replace_all(jjep.54.1.55.rm08, pattern = rm.09, replacement = ""); jjep.54.1.55.rp10 <- str_replace_all(jjep.54.1.55.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.55.rp11 <- str_replace_all(jjep.54.1.55.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.55.rp12 <- str_replace_all(jjep.54.1.55.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.55.rp13 <- str_replace_all(jjep.54.1.55.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.55.rp14 <- str_replace_all(jjep.54.1.55.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.55.rp15 <- str_replace_all(jjep.54.1.55.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.55.mod <- rbind(varname,jjep.54.1.55.rp15); write(jjep.54.1.55.mod, file = "./jjep/Mod_54_1_55.txt")
jjep.54.1.63.tx <- readr::read_file(file="./jjep/54_1_63.txt"); jjep.54.1.63.rm00 <- jjep.54.1.63.tx; jjep.54.1.63.rm01 <- str_replace_all(jjep.54.1.63.rm00, pattern = rm.01, replacement = ""); jjep.54.1.63.rm02 <- str_replace_all(jjep.54.1.63.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.63.rm03 <- str_replace_all(jjep.54.1.63.rm02, pattern = rm.03, replacement = ""); jjep.54.1.63.rm04 <- str_replace_all(jjep.54.1.63.rm03, pattern = rm.04, replacement = ""); jjep.54.1.63.rm05 <- str_replace_all(jjep.54.1.63.rm04, pattern = rm.05, replacement = ""); jjep.54.1.63.rm06 <- str_replace_all(jjep.54.1.63.rm05, pattern = rm.06, replacement = ""); jjep.54.1.63.rm07 <- str_replace_all(jjep.54.1.63.rm06, pattern = rm.07, replacement = ""); jjep.54.1.63.rm08 <- str_replace_all(jjep.54.1.63.rm07, pattern = rm.08, replacement = ""); jjep.54.1.63.rm09 <- str_replace_all(jjep.54.1.63.rm08, pattern = rm.09, replacement = ""); jjep.54.1.63.rp10 <- str_replace_all(jjep.54.1.63.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.63.rp11 <- str_replace_all(jjep.54.1.63.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.63.rp12 <- str_replace_all(jjep.54.1.63.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.63.rp13 <- str_replace_all(jjep.54.1.63.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.63.rp14 <- str_replace_all(jjep.54.1.63.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.63.rp15 <- str_replace_all(jjep.54.1.63.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.63.mod <- rbind(varname,jjep.54.1.63.rp15); write(jjep.54.1.63.mod, file = "./jjep/Mod_54_1_63.txt")
jjep.54.1.75.tx <- readr::read_file(file="./jjep/54_1_75.txt"); jjep.54.1.75.rm00 <- jjep.54.1.75.tx; jjep.54.1.75.rm01 <- str_replace_all(jjep.54.1.75.rm00, pattern = rm.01, replacement = ""); jjep.54.1.75.rm02 <- str_replace_all(jjep.54.1.75.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.75.rm03 <- str_replace_all(jjep.54.1.75.rm02, pattern = rm.03, replacement = ""); jjep.54.1.75.rm04 <- str_replace_all(jjep.54.1.75.rm03, pattern = rm.04, replacement = ""); jjep.54.1.75.rm05 <- str_replace_all(jjep.54.1.75.rm04, pattern = rm.05, replacement = ""); jjep.54.1.75.rm06 <- str_replace_all(jjep.54.1.75.rm05, pattern = rm.06, replacement = ""); jjep.54.1.75.rm07 <- str_replace_all(jjep.54.1.75.rm06, pattern = rm.07, replacement = ""); jjep.54.1.75.rm08 <- str_replace_all(jjep.54.1.75.rm07, pattern = rm.08, replacement = ""); jjep.54.1.75.rm09 <- str_replace_all(jjep.54.1.75.rm08, pattern = rm.09, replacement = ""); jjep.54.1.75.rp10 <- str_replace_all(jjep.54.1.75.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.75.rp11 <- str_replace_all(jjep.54.1.75.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.75.rp12 <- str_replace_all(jjep.54.1.75.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.75.rp13 <- str_replace_all(jjep.54.1.75.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.75.rp14 <- str_replace_all(jjep.54.1.75.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.75.rp15 <- str_replace_all(jjep.54.1.75.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.75.mod <- rbind(varname,jjep.54.1.75.rp15); write(jjep.54.1.75.mod, file = "./jjep/Mod_54_1_75.txt")
jjep.54.1.90.tx <- readr::read_file(file="./jjep/54_1_90.txt"); jjep.54.1.90.rm00 <- jjep.54.1.90.tx; jjep.54.1.90.rm01 <- str_replace_all(jjep.54.1.90.rm00, pattern = rm.01, replacement = ""); jjep.54.1.90.rm02 <- str_replace_all(jjep.54.1.90.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.90.rm03 <- str_replace_all(jjep.54.1.90.rm02, pattern = rm.03, replacement = ""); jjep.54.1.90.rm04 <- str_replace_all(jjep.54.1.90.rm03, pattern = rm.04, replacement = ""); jjep.54.1.90.rm05 <- str_replace_all(jjep.54.1.90.rm04, pattern = rm.05, replacement = ""); jjep.54.1.90.rm06 <- str_replace_all(jjep.54.1.90.rm05, pattern = rm.06, replacement = ""); jjep.54.1.90.rm07 <- str_replace_all(jjep.54.1.90.rm06, pattern = rm.07, replacement = ""); jjep.54.1.90.rm08 <- str_replace_all(jjep.54.1.90.rm07, pattern = rm.08, replacement = ""); jjep.54.1.90.rm09 <- str_replace_all(jjep.54.1.90.rm08, pattern = rm.09, replacement = ""); jjep.54.1.90.rp10 <- str_replace_all(jjep.54.1.90.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.90.rp11 <- str_replace_all(jjep.54.1.90.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.90.rp12 <- str_replace_all(jjep.54.1.90.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.90.rp13 <- str_replace_all(jjep.54.1.90.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.90.rp14 <- str_replace_all(jjep.54.1.90.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.90.rp15 <- str_replace_all(jjep.54.1.90.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.90.mod <- rbind(varname,jjep.54.1.90.rp15); write(jjep.54.1.90.mod, file = "./jjep/Mod_54_1_90.txt")
jjep.54.1.101.tx <- readr::read_file(file="./jjep/54_1_101.txt"); jjep.54.1.101.rm00 <- jjep.54.1.101.tx; jjep.54.1.101.rm01 <- str_replace_all(jjep.54.1.101.rm00, pattern = rm.01, replacement = ""); jjep.54.1.101.rm02 <- str_replace_all(jjep.54.1.101.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.101.rm03 <- str_replace_all(jjep.54.1.101.rm02, pattern = rm.03, replacement = ""); jjep.54.1.101.rm04 <- str_replace_all(jjep.54.1.101.rm03, pattern = rm.04, replacement = ""); jjep.54.1.101.rm05 <- str_replace_all(jjep.54.1.101.rm04, pattern = rm.05, replacement = ""); jjep.54.1.101.rm06 <- str_replace_all(jjep.54.1.101.rm05, pattern = rm.06, replacement = ""); jjep.54.1.101.rm07 <- str_replace_all(jjep.54.1.101.rm06, pattern = rm.07, replacement = ""); jjep.54.1.101.rm08 <- str_replace_all(jjep.54.1.101.rm07, pattern = rm.08, replacement = ""); jjep.54.1.101.rm09 <- str_replace_all(jjep.54.1.101.rm08, pattern = rm.09, replacement = ""); jjep.54.1.101.rp10 <- str_replace_all(jjep.54.1.101.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.101.rp11 <- str_replace_all(jjep.54.1.101.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.101.rp12 <- str_replace_all(jjep.54.1.101.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.101.rp13 <- str_replace_all(jjep.54.1.101.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.101.rp14 <- str_replace_all(jjep.54.1.101.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.101.rp15 <- str_replace_all(jjep.54.1.101.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.101.mod <- rbind(varname,jjep.54.1.101.rp15); write(jjep.54.1.101.mod, file = "./jjep/Mod_54_1_101.txt")
jjep.54.1.112.tx <- readr::read_file(file="./jjep/54_1_112.txt"); jjep.54.1.112.rm00 <- jjep.54.1.112.tx; jjep.54.1.112.rm01 <- str_replace_all(jjep.54.1.112.rm00, pattern = rm.01, replacement = ""); jjep.54.1.112.rm02 <- str_replace_all(jjep.54.1.112.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.112.rm03 <- str_replace_all(jjep.54.1.112.rm02, pattern = rm.03, replacement = ""); jjep.54.1.112.rm04 <- str_replace_all(jjep.54.1.112.rm03, pattern = rm.04, replacement = ""); jjep.54.1.112.rm05 <- str_replace_all(jjep.54.1.112.rm04, pattern = rm.05, replacement = ""); jjep.54.1.112.rm06 <- str_replace_all(jjep.54.1.112.rm05, pattern = rm.06, replacement = ""); jjep.54.1.112.rm07 <- str_replace_all(jjep.54.1.112.rm06, pattern = rm.07, replacement = ""); jjep.54.1.112.rm08 <- str_replace_all(jjep.54.1.112.rm07, pattern = rm.08, replacement = ""); jjep.54.1.112.rm09 <- str_replace_all(jjep.54.1.112.rm08, pattern = rm.09, replacement = ""); jjep.54.1.112.rp10 <- str_replace_all(jjep.54.1.112.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.112.rp11 <- str_replace_all(jjep.54.1.112.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.112.rp12 <- str_replace_all(jjep.54.1.112.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.112.rp13 <- str_replace_all(jjep.54.1.112.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.112.rp14 <- str_replace_all(jjep.54.1.112.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.112.rp15 <- str_replace_all(jjep.54.1.112.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.112.mod <- rbind(varname,jjep.54.1.112.rp15); write(jjep.54.1.112.mod, file = "./jjep/Mod_54_1_112.txt")
jjep.54.1.124.tx <- readr::read_file(file="./jjep/54_1_124.txt"); jjep.54.1.124.rm00 <- jjep.54.1.124.tx; jjep.54.1.124.rm01 <- str_replace_all(jjep.54.1.124.rm00, pattern = rm.01, replacement = ""); jjep.54.1.124.rm02 <- str_replace_all(jjep.54.1.124.rm01, pattern = rm.02, replacement = "^"); jjep.54.1.124.rm03 <- str_replace_all(jjep.54.1.124.rm02, pattern = rm.03, replacement = ""); jjep.54.1.124.rm04 <- str_replace_all(jjep.54.1.124.rm03, pattern = rm.04, replacement = ""); jjep.54.1.124.rm05 <- str_replace_all(jjep.54.1.124.rm04, pattern = rm.05, replacement = ""); jjep.54.1.124.rm06 <- str_replace_all(jjep.54.1.124.rm05, pattern = rm.06, replacement = ""); jjep.54.1.124.rm07 <- str_replace_all(jjep.54.1.124.rm06, pattern = rm.07, replacement = ""); jjep.54.1.124.rm08 <- str_replace_all(jjep.54.1.124.rm07, pattern = rm.08, replacement = ""); jjep.54.1.124.rm09 <- str_replace_all(jjep.54.1.124.rm08, pattern = rm.09, replacement = ""); jjep.54.1.124.rp10 <- str_replace_all(jjep.54.1.124.rm09, pattern = rp.01, replacement = "・"); jjep.54.1.124.rp11 <- str_replace_all(jjep.54.1.124.rp10, pattern = rp.02, replacement = "^"); jjep.54.1.124.rp12 <- str_replace_all(jjep.54.1.124.rp11, pattern = rp.03, replacement = "^"); jjep.54.1.124.rp13 <- str_replace_all(jjep.54.1.124.rp12, pattern = rp.04, replacement = "^"); jjep.54.1.124.rp14 <- str_replace_all(jjep.54.1.124.rp13, pattern = rp.05, replacement = "^"); jjep.54.1.124.rp15 <- str_replace_all(jjep.54.1.124.rp14, pattern = rp.06, replacement = "^"); jjep.54.1.124.mod <- rbind(varname,jjep.54.1.124.rp15); write(jjep.54.1.124.mod, file = "./jjep/Mod_54_1_124.txt")
jjep.53.4.441.tx <- readr::read_file(file="./jjep/53_4_441.txt"); jjep.53.4.441.rm00 <- jjep.53.4.441.tx; jjep.53.4.441.rm01 <- str_replace_all(jjep.53.4.441.rm00, pattern = rm.01, replacement = ""); jjep.53.4.441.rm02 <- str_replace_all(jjep.53.4.441.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.441.rm03 <- str_replace_all(jjep.53.4.441.rm02, pattern = rm.03, replacement = ""); jjep.53.4.441.rm04 <- str_replace_all(jjep.53.4.441.rm03, pattern = rm.04, replacement = ""); jjep.53.4.441.rm05 <- str_replace_all(jjep.53.4.441.rm04, pattern = rm.05, replacement = ""); jjep.53.4.441.rm06 <- str_replace_all(jjep.53.4.441.rm05, pattern = rm.06, replacement = ""); jjep.53.4.441.rm07 <- str_replace_all(jjep.53.4.441.rm06, pattern = rm.07, replacement = ""); jjep.53.4.441.rm08 <- str_replace_all(jjep.53.4.441.rm07, pattern = rm.08, replacement = ""); jjep.53.4.441.rm09 <- str_replace_all(jjep.53.4.441.rm08, pattern = rm.09, replacement = ""); jjep.53.4.441.rp10 <- str_replace_all(jjep.53.4.441.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.441.rp11 <- str_replace_all(jjep.53.4.441.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.441.rp12 <- str_replace_all(jjep.53.4.441.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.441.rp13 <- str_replace_all(jjep.53.4.441.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.441.rp14 <- str_replace_all(jjep.53.4.441.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.441.rp15 <- str_replace_all(jjep.53.4.441.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.441.mod <- rbind(varname,jjep.53.4.441.rp15); write(jjep.53.4.441.mod, file = "./jjep/Mod_53_4_441.txt")
jjep.53.4.456.tx <- readr::read_file(file="./jjep/53_4_456.txt"); jjep.53.4.456.rm00 <- jjep.53.4.456.tx; jjep.53.4.456.rm01 <- str_replace_all(jjep.53.4.456.rm00, pattern = rm.01, replacement = ""); jjep.53.4.456.rm02 <- str_replace_all(jjep.53.4.456.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.456.rm03 <- str_replace_all(jjep.53.4.456.rm02, pattern = rm.03, replacement = ""); jjep.53.4.456.rm04 <- str_replace_all(jjep.53.4.456.rm03, pattern = rm.04, replacement = ""); jjep.53.4.456.rm05 <- str_replace_all(jjep.53.4.456.rm04, pattern = rm.05, replacement = ""); jjep.53.4.456.rm06 <- str_replace_all(jjep.53.4.456.rm05, pattern = rm.06, replacement = ""); jjep.53.4.456.rm07 <- str_replace_all(jjep.53.4.456.rm06, pattern = rm.07, replacement = ""); jjep.53.4.456.rm08 <- str_replace_all(jjep.53.4.456.rm07, pattern = rm.08, replacement = ""); jjep.53.4.456.rm09 <- str_replace_all(jjep.53.4.456.rm08, pattern = rm.09, replacement = ""); jjep.53.4.456.rp10 <- str_replace_all(jjep.53.4.456.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.456.rp11 <- str_replace_all(jjep.53.4.456.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.456.rp12 <- str_replace_all(jjep.53.4.456.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.456.rp13 <- str_replace_all(jjep.53.4.456.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.456.rp14 <- str_replace_all(jjep.53.4.456.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.456.rp15 <- str_replace_all(jjep.53.4.456.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.456.mod <- rbind(varname,jjep.53.4.456.rp15); write(jjep.53.4.456.mod, file = "./jjep/Mod_53_4_456.txt")
jjep.53.4.467.tx <- readr::read_file(file="./jjep/53_4_467.txt"); jjep.53.4.467.rm00 <- jjep.53.4.467.tx; jjep.53.4.467.rm01 <- str_replace_all(jjep.53.4.467.rm00, pattern = rm.01, replacement = ""); jjep.53.4.467.rm02 <- str_replace_all(jjep.53.4.467.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.467.rm03 <- str_replace_all(jjep.53.4.467.rm02, pattern = rm.03, replacement = ""); jjep.53.4.467.rm04 <- str_replace_all(jjep.53.4.467.rm03, pattern = rm.04, replacement = ""); jjep.53.4.467.rm05 <- str_replace_all(jjep.53.4.467.rm04, pattern = rm.05, replacement = ""); jjep.53.4.467.rm06 <- str_replace_all(jjep.53.4.467.rm05, pattern = rm.06, replacement = ""); jjep.53.4.467.rm07 <- str_replace_all(jjep.53.4.467.rm06, pattern = rm.07, replacement = ""); jjep.53.4.467.rm08 <- str_replace_all(jjep.53.4.467.rm07, pattern = rm.08, replacement = ""); jjep.53.4.467.rm09 <- str_replace_all(jjep.53.4.467.rm08, pattern = rm.09, replacement = ""); jjep.53.4.467.rp10 <- str_replace_all(jjep.53.4.467.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.467.rp11 <- str_replace_all(jjep.53.4.467.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.467.rp12 <- str_replace_all(jjep.53.4.467.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.467.rp13 <- str_replace_all(jjep.53.4.467.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.467.rp14 <- str_replace_all(jjep.53.4.467.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.467.rp15 <- str_replace_all(jjep.53.4.467.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.467.mod <- rbind(varname,jjep.53.4.467.rp15); write(jjep.53.4.467.mod, file = "./jjep/Mod_53_4_467.txt")
jjep.53.4.479.tx <- readr::read_file(file="./jjep/53_4_479.txt"); jjep.53.4.479.rm00 <- jjep.53.4.479.tx; jjep.53.4.479.rm01 <- str_replace_all(jjep.53.4.479.rm00, pattern = rm.01, replacement = ""); jjep.53.4.479.rm02 <- str_replace_all(jjep.53.4.479.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.479.rm03 <- str_replace_all(jjep.53.4.479.rm02, pattern = rm.03, replacement = ""); jjep.53.4.479.rm04 <- str_replace_all(jjep.53.4.479.rm03, pattern = rm.04, replacement = ""); jjep.53.4.479.rm05 <- str_replace_all(jjep.53.4.479.rm04, pattern = rm.05, replacement = ""); jjep.53.4.479.rm06 <- str_replace_all(jjep.53.4.479.rm05, pattern = rm.06, replacement = ""); jjep.53.4.479.rm07 <- str_replace_all(jjep.53.4.479.rm06, pattern = rm.07, replacement = ""); jjep.53.4.479.rm08 <- str_replace_all(jjep.53.4.479.rm07, pattern = rm.08, replacement = ""); jjep.53.4.479.rm09 <- str_replace_all(jjep.53.4.479.rm08, pattern = rm.09, replacement = ""); jjep.53.4.479.rp10 <- str_replace_all(jjep.53.4.479.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.479.rp11 <- str_replace_all(jjep.53.4.479.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.479.rp12 <- str_replace_all(jjep.53.4.479.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.479.rp13 <- str_replace_all(jjep.53.4.479.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.479.rp14 <- str_replace_all(jjep.53.4.479.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.479.rp15 <- str_replace_all(jjep.53.4.479.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.479.mod <- rbind(varname,jjep.53.4.479.rp15); write(jjep.53.4.479.mod, file = "./jjep/Mod_53_4_479.txt")
jjep.53.4.491.tx <- readr::read_file(file="./jjep/53_4_491.txt"); jjep.53.4.491.rm00 <- jjep.53.4.491.tx; jjep.53.4.491.rm01 <- str_replace_all(jjep.53.4.491.rm00, pattern = rm.01, replacement = ""); jjep.53.4.491.rm02 <- str_replace_all(jjep.53.4.491.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.491.rm03 <- str_replace_all(jjep.53.4.491.rm02, pattern = rm.03, replacement = ""); jjep.53.4.491.rm04 <- str_replace_all(jjep.53.4.491.rm03, pattern = rm.04, replacement = ""); jjep.53.4.491.rm05 <- str_replace_all(jjep.53.4.491.rm04, pattern = rm.05, replacement = ""); jjep.53.4.491.rm06 <- str_replace_all(jjep.53.4.491.rm05, pattern = rm.06, replacement = ""); jjep.53.4.491.rm07 <- str_replace_all(jjep.53.4.491.rm06, pattern = rm.07, replacement = ""); jjep.53.4.491.rm08 <- str_replace_all(jjep.53.4.491.rm07, pattern = rm.08, replacement = ""); jjep.53.4.491.rm09 <- str_replace_all(jjep.53.4.491.rm08, pattern = rm.09, replacement = ""); jjep.53.4.491.rp10 <- str_replace_all(jjep.53.4.491.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.491.rp11 <- str_replace_all(jjep.53.4.491.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.491.rp12 <- str_replace_all(jjep.53.4.491.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.491.rp13 <- str_replace_all(jjep.53.4.491.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.491.rp14 <- str_replace_all(jjep.53.4.491.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.491.rp15 <- str_replace_all(jjep.53.4.491.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.491.mod <- rbind(varname,jjep.53.4.491.rp15); write(jjep.53.4.491.mod, file = "./jjep/Mod_53_4_491.txt")
jjep.53.4.504.tx <- readr::read_file(file="./jjep/53_4_504.txt"); jjep.53.4.504.rm00 <- jjep.53.4.504.tx; jjep.53.4.504.rm01 <- str_replace_all(jjep.53.4.504.rm00, pattern = rm.01, replacement = ""); jjep.53.4.504.rm02 <- str_replace_all(jjep.53.4.504.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.504.rm03 <- str_replace_all(jjep.53.4.504.rm02, pattern = rm.03, replacement = ""); jjep.53.4.504.rm04 <- str_replace_all(jjep.53.4.504.rm03, pattern = rm.04, replacement = ""); jjep.53.4.504.rm05 <- str_replace_all(jjep.53.4.504.rm04, pattern = rm.05, replacement = ""); jjep.53.4.504.rm06 <- str_replace_all(jjep.53.4.504.rm05, pattern = rm.06, replacement = ""); jjep.53.4.504.rm07 <- str_replace_all(jjep.53.4.504.rm06, pattern = rm.07, replacement = ""); jjep.53.4.504.rm08 <- str_replace_all(jjep.53.4.504.rm07, pattern = rm.08, replacement = ""); jjep.53.4.504.rm09 <- str_replace_all(jjep.53.4.504.rm08, pattern = rm.09, replacement = ""); jjep.53.4.504.rp10 <- str_replace_all(jjep.53.4.504.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.504.rp11 <- str_replace_all(jjep.53.4.504.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.504.rp12 <- str_replace_all(jjep.53.4.504.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.504.rp13 <- str_replace_all(jjep.53.4.504.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.504.rp14 <- str_replace_all(jjep.53.4.504.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.504.rp15 <- str_replace_all(jjep.53.4.504.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.504.mod <- rbind(varname,jjep.53.4.504.rp15); write(jjep.53.4.504.mod, file = "./jjep/Mod_53_4_504.txt")
jjep.53.4.516.tx <- readr::read_file(file="./jjep/53_4_516.txt"); jjep.53.4.516.rm00 <- jjep.53.4.516.tx; jjep.53.4.516.rm01 <- str_replace_all(jjep.53.4.516.rm00, pattern = rm.01, replacement = ""); jjep.53.4.516.rm02 <- str_replace_all(jjep.53.4.516.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.516.rm03 <- str_replace_all(jjep.53.4.516.rm02, pattern = rm.03, replacement = ""); jjep.53.4.516.rm04 <- str_replace_all(jjep.53.4.516.rm03, pattern = rm.04, replacement = ""); jjep.53.4.516.rm05 <- str_replace_all(jjep.53.4.516.rm04, pattern = rm.05, replacement = ""); jjep.53.4.516.rm06 <- str_replace_all(jjep.53.4.516.rm05, pattern = rm.06, replacement = ""); jjep.53.4.516.rm07 <- str_replace_all(jjep.53.4.516.rm06, pattern = rm.07, replacement = ""); jjep.53.4.516.rm08 <- str_replace_all(jjep.53.4.516.rm07, pattern = rm.08, replacement = ""); jjep.53.4.516.rm09 <- str_replace_all(jjep.53.4.516.rm08, pattern = rm.09, replacement = ""); jjep.53.4.516.rp10 <- str_replace_all(jjep.53.4.516.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.516.rp11 <- str_replace_all(jjep.53.4.516.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.516.rp12 <- str_replace_all(jjep.53.4.516.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.516.rp13 <- str_replace_all(jjep.53.4.516.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.516.rp14 <- str_replace_all(jjep.53.4.516.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.516.rp15 <- str_replace_all(jjep.53.4.516.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.516.mod <- rbind(varname,jjep.53.4.516.rp15); write(jjep.53.4.516.mod, file = "./jjep/Mod_53_4_516.txt")
jjep.53.4.529.tx <- readr::read_file(file="./jjep/53_4_529.txt"); jjep.53.4.529.rm00 <- jjep.53.4.529.tx; jjep.53.4.529.rm01 <- str_replace_all(jjep.53.4.529.rm00, pattern = rm.01, replacement = ""); jjep.53.4.529.rm02 <- str_replace_all(jjep.53.4.529.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.529.rm03 <- str_replace_all(jjep.53.4.529.rm02, pattern = rm.03, replacement = ""); jjep.53.4.529.rm04 <- str_replace_all(jjep.53.4.529.rm03, pattern = rm.04, replacement = ""); jjep.53.4.529.rm05 <- str_replace_all(jjep.53.4.529.rm04, pattern = rm.05, replacement = ""); jjep.53.4.529.rm06 <- str_replace_all(jjep.53.4.529.rm05, pattern = rm.06, replacement = ""); jjep.53.4.529.rm07 <- str_replace_all(jjep.53.4.529.rm06, pattern = rm.07, replacement = ""); jjep.53.4.529.rm08 <- str_replace_all(jjep.53.4.529.rm07, pattern = rm.08, replacement = ""); jjep.53.4.529.rm09 <- str_replace_all(jjep.53.4.529.rm08, pattern = rm.09, replacement = ""); jjep.53.4.529.rp10 <- str_replace_all(jjep.53.4.529.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.529.rp11 <- str_replace_all(jjep.53.4.529.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.529.rp12 <- str_replace_all(jjep.53.4.529.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.529.rp13 <- str_replace_all(jjep.53.4.529.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.529.rp14 <- str_replace_all(jjep.53.4.529.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.529.rp15 <- str_replace_all(jjep.53.4.529.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.529.mod <- rbind(varname,jjep.53.4.529.rp15); write(jjep.53.4.529.mod, file = "./jjep/Mod_53_4_529.txt")
jjep.53.4.541.tx <- readr::read_file(file="./jjep/53_4_541.txt"); jjep.53.4.541.rm00 <- jjep.53.4.541.tx; jjep.53.4.541.rm01 <- str_replace_all(jjep.53.4.541.rm00, pattern = rm.01, replacement = ""); jjep.53.4.541.rm02 <- str_replace_all(jjep.53.4.541.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.541.rm03 <- str_replace_all(jjep.53.4.541.rm02, pattern = rm.03, replacement = ""); jjep.53.4.541.rm04 <- str_replace_all(jjep.53.4.541.rm03, pattern = rm.04, replacement = ""); jjep.53.4.541.rm05 <- str_replace_all(jjep.53.4.541.rm04, pattern = rm.05, replacement = ""); jjep.53.4.541.rm06 <- str_replace_all(jjep.53.4.541.rm05, pattern = rm.06, replacement = ""); jjep.53.4.541.rm07 <- str_replace_all(jjep.53.4.541.rm06, pattern = rm.07, replacement = ""); jjep.53.4.541.rm08 <- str_replace_all(jjep.53.4.541.rm07, pattern = rm.08, replacement = ""); jjep.53.4.541.rm09 <- str_replace_all(jjep.53.4.541.rm08, pattern = rm.09, replacement = ""); jjep.53.4.541.rp10 <- str_replace_all(jjep.53.4.541.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.541.rp11 <- str_replace_all(jjep.53.4.541.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.541.rp12 <- str_replace_all(jjep.53.4.541.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.541.rp13 <- str_replace_all(jjep.53.4.541.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.541.rp14 <- str_replace_all(jjep.53.4.541.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.541.rp15 <- str_replace_all(jjep.53.4.541.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.541.mod <- rbind(varname,jjep.53.4.541.rp15); write(jjep.53.4.541.mod, file = "./jjep/Mod_53_4_541.txt")
jjep.53.4.551.tx <- readr::read_file(file="./jjep/53_4_551.txt"); jjep.53.4.551.rm00 <- jjep.53.4.551.tx; jjep.53.4.551.rm01 <- str_replace_all(jjep.53.4.551.rm00, pattern = rm.01, replacement = ""); jjep.53.4.551.rm02 <- str_replace_all(jjep.53.4.551.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.551.rm03 <- str_replace_all(jjep.53.4.551.rm02, pattern = rm.03, replacement = ""); jjep.53.4.551.rm04 <- str_replace_all(jjep.53.4.551.rm03, pattern = rm.04, replacement = ""); jjep.53.4.551.rm05 <- str_replace_all(jjep.53.4.551.rm04, pattern = rm.05, replacement = ""); jjep.53.4.551.rm06 <- str_replace_all(jjep.53.4.551.rm05, pattern = rm.06, replacement = ""); jjep.53.4.551.rm07 <- str_replace_all(jjep.53.4.551.rm06, pattern = rm.07, replacement = ""); jjep.53.4.551.rm08 <- str_replace_all(jjep.53.4.551.rm07, pattern = rm.08, replacement = ""); jjep.53.4.551.rm09 <- str_replace_all(jjep.53.4.551.rm08, pattern = rm.09, replacement = ""); jjep.53.4.551.rp10 <- str_replace_all(jjep.53.4.551.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.551.rp11 <- str_replace_all(jjep.53.4.551.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.551.rp12 <- str_replace_all(jjep.53.4.551.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.551.rp13 <- str_replace_all(jjep.53.4.551.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.551.rp14 <- str_replace_all(jjep.53.4.551.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.551.rp15 <- str_replace_all(jjep.53.4.551.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.551.mod <- rbind(varname,jjep.53.4.551.rp15); write(jjep.53.4.551.mod, file = "./jjep/Mod_53_4_551.txt")
jjep.53.4.565.tx <- readr::read_file(file="./jjep/53_4_565.txt"); jjep.53.4.565.rm00 <- jjep.53.4.565.tx; jjep.53.4.565.rm01 <- str_replace_all(jjep.53.4.565.rm00, pattern = rm.01, replacement = ""); jjep.53.4.565.rm02 <- str_replace_all(jjep.53.4.565.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.565.rm03 <- str_replace_all(jjep.53.4.565.rm02, pattern = rm.03, replacement = ""); jjep.53.4.565.rm04 <- str_replace_all(jjep.53.4.565.rm03, pattern = rm.04, replacement = ""); jjep.53.4.565.rm05 <- str_replace_all(jjep.53.4.565.rm04, pattern = rm.05, replacement = ""); jjep.53.4.565.rm06 <- str_replace_all(jjep.53.4.565.rm05, pattern = rm.06, replacement = ""); jjep.53.4.565.rm07 <- str_replace_all(jjep.53.4.565.rm06, pattern = rm.07, replacement = ""); jjep.53.4.565.rm08 <- str_replace_all(jjep.53.4.565.rm07, pattern = rm.08, replacement = ""); jjep.53.4.565.rm09 <- str_replace_all(jjep.53.4.565.rm08, pattern = rm.09, replacement = ""); jjep.53.4.565.rp10 <- str_replace_all(jjep.53.4.565.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.565.rp11 <- str_replace_all(jjep.53.4.565.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.565.rp12 <- str_replace_all(jjep.53.4.565.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.565.rp13 <- str_replace_all(jjep.53.4.565.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.565.rp14 <- str_replace_all(jjep.53.4.565.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.565.rp15 <- str_replace_all(jjep.53.4.565.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.565.mod <- rbind(varname,jjep.53.4.565.rp15); write(jjep.53.4.565.mod, file = "./jjep/Mod_53_4_565.txt")
jjep.53.4.579.tx <- readr::read_file(file="./jjep/53_4_579.txt"); jjep.53.4.579.rm00 <- jjep.53.4.579.tx; jjep.53.4.579.rm01 <- str_replace_all(jjep.53.4.579.rm00, pattern = rm.01, replacement = ""); jjep.53.4.579.rm02 <- str_replace_all(jjep.53.4.579.rm01, pattern = rm.02, replacement = "^"); jjep.53.4.579.rm03 <- str_replace_all(jjep.53.4.579.rm02, pattern = rm.03, replacement = ""); jjep.53.4.579.rm04 <- str_replace_all(jjep.53.4.579.rm03, pattern = rm.04, replacement = ""); jjep.53.4.579.rm05 <- str_replace_all(jjep.53.4.579.rm04, pattern = rm.05, replacement = ""); jjep.53.4.579.rm06 <- str_replace_all(jjep.53.4.579.rm05, pattern = rm.06, replacement = ""); jjep.53.4.579.rm07 <- str_replace_all(jjep.53.4.579.rm06, pattern = rm.07, replacement = ""); jjep.53.4.579.rm08 <- str_replace_all(jjep.53.4.579.rm07, pattern = rm.08, replacement = ""); jjep.53.4.579.rm09 <- str_replace_all(jjep.53.4.579.rm08, pattern = rm.09, replacement = ""); jjep.53.4.579.rp10 <- str_replace_all(jjep.53.4.579.rm09, pattern = rp.01, replacement = "・"); jjep.53.4.579.rp11 <- str_replace_all(jjep.53.4.579.rp10, pattern = rp.02, replacement = "^"); jjep.53.4.579.rp12 <- str_replace_all(jjep.53.4.579.rp11, pattern = rp.03, replacement = "^"); jjep.53.4.579.rp13 <- str_replace_all(jjep.53.4.579.rp12, pattern = rp.04, replacement = "^"); jjep.53.4.579.rp14 <- str_replace_all(jjep.53.4.579.rp13, pattern = rp.05, replacement = "^"); jjep.53.4.579.rp15 <- str_replace_all(jjep.53.4.579.rp14, pattern = rp.06, replacement = "^"); jjep.53.4.579.mod <- rbind(varname,jjep.53.4.579.rp15); write(jjep.53.4.579.mod, file = "./jjep/Mod_53_4_579.txt")
jjep.53.3.297.tx <- readr::read_file(file="./jjep/53_3_297.txt"); jjep.53.3.297.rm00 <- jjep.53.3.297.tx; jjep.53.3.297.rm01 <- str_replace_all(jjep.53.3.297.rm00, pattern = rm.01, replacement = ""); jjep.53.3.297.rm02 <- str_replace_all(jjep.53.3.297.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.297.rm03 <- str_replace_all(jjep.53.3.297.rm02, pattern = rm.03, replacement = ""); jjep.53.3.297.rm04 <- str_replace_all(jjep.53.3.297.rm03, pattern = rm.04, replacement = ""); jjep.53.3.297.rm05 <- str_replace_all(jjep.53.3.297.rm04, pattern = rm.05, replacement = ""); jjep.53.3.297.rm06 <- str_replace_all(jjep.53.3.297.rm05, pattern = rm.06, replacement = ""); jjep.53.3.297.rm07 <- str_replace_all(jjep.53.3.297.rm06, pattern = rm.07, replacement = ""); jjep.53.3.297.rm08 <- str_replace_all(jjep.53.3.297.rm07, pattern = rm.08, replacement = ""); jjep.53.3.297.rm09 <- str_replace_all(jjep.53.3.297.rm08, pattern = rm.09, replacement = ""); jjep.53.3.297.rp10 <- str_replace_all(jjep.53.3.297.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.297.rp11 <- str_replace_all(jjep.53.3.297.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.297.rp12 <- str_replace_all(jjep.53.3.297.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.297.rp13 <- str_replace_all(jjep.53.3.297.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.297.rp14 <- str_replace_all(jjep.53.3.297.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.297.rp15 <- str_replace_all(jjep.53.3.297.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.297.mod <- rbind(varname,jjep.53.3.297.rp15); write(jjep.53.3.297.mod, file = "./jjep/Mod_53_3_297.txt")
jjep.53.3.307.tx <- readr::read_file(file="./jjep/53_3_307.txt"); jjep.53.3.307.rm00 <- jjep.53.3.307.tx; jjep.53.3.307.rm01 <- str_replace_all(jjep.53.3.307.rm00, pattern = rm.01, replacement = ""); jjep.53.3.307.rm02 <- str_replace_all(jjep.53.3.307.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.307.rm03 <- str_replace_all(jjep.53.3.307.rm02, pattern = rm.03, replacement = ""); jjep.53.3.307.rm04 <- str_replace_all(jjep.53.3.307.rm03, pattern = rm.04, replacement = ""); jjep.53.3.307.rm05 <- str_replace_all(jjep.53.3.307.rm04, pattern = rm.05, replacement = ""); jjep.53.3.307.rm06 <- str_replace_all(jjep.53.3.307.rm05, pattern = rm.06, replacement = ""); jjep.53.3.307.rm07 <- str_replace_all(jjep.53.3.307.rm06, pattern = rm.07, replacement = ""); jjep.53.3.307.rm08 <- str_replace_all(jjep.53.3.307.rm07, pattern = rm.08, replacement = ""); jjep.53.3.307.rm09 <- str_replace_all(jjep.53.3.307.rm08, pattern = rm.09, replacement = ""); jjep.53.3.307.rp10 <- str_replace_all(jjep.53.3.307.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.307.rp11 <- str_replace_all(jjep.53.3.307.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.307.rp12 <- str_replace_all(jjep.53.3.307.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.307.rp13 <- str_replace_all(jjep.53.3.307.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.307.rp14 <- str_replace_all(jjep.53.3.307.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.307.rp15 <- str_replace_all(jjep.53.3.307.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.307.mod <- rbind(varname,jjep.53.3.307.rp15); write(jjep.53.3.307.mod, file = "./jjep/Mod_53_3_307.txt")
jjep.53.3.320.tx <- readr::read_file(file="./jjep/53_3_320.txt"); jjep.53.3.320.rm00 <- jjep.53.3.320.tx; jjep.53.3.320.rm01 <- str_replace_all(jjep.53.3.320.rm00, pattern = rm.01, replacement = ""); jjep.53.3.320.rm02 <- str_replace_all(jjep.53.3.320.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.320.rm03 <- str_replace_all(jjep.53.3.320.rm02, pattern = rm.03, replacement = ""); jjep.53.3.320.rm04 <- str_replace_all(jjep.53.3.320.rm03, pattern = rm.04, replacement = ""); jjep.53.3.320.rm05 <- str_replace_all(jjep.53.3.320.rm04, pattern = rm.05, replacement = ""); jjep.53.3.320.rm06 <- str_replace_all(jjep.53.3.320.rm05, pattern = rm.06, replacement = ""); jjep.53.3.320.rm07 <- str_replace_all(jjep.53.3.320.rm06, pattern = rm.07, replacement = ""); jjep.53.3.320.rm08 <- str_replace_all(jjep.53.3.320.rm07, pattern = rm.08, replacement = ""); jjep.53.3.320.rm09 <- str_replace_all(jjep.53.3.320.rm08, pattern = rm.09, replacement = ""); jjep.53.3.320.rp10 <- str_replace_all(jjep.53.3.320.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.320.rp11 <- str_replace_all(jjep.53.3.320.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.320.rp12 <- str_replace_all(jjep.53.3.320.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.320.rp13 <- str_replace_all(jjep.53.3.320.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.320.rp14 <- str_replace_all(jjep.53.3.320.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.320.rp15 <- str_replace_all(jjep.53.3.320.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.320.mod <- rbind(varname,jjep.53.3.320.rp15); write(jjep.53.3.320.mod, file = "./jjep/Mod_53_3_320.txt")
jjep.53.3.331.tx <- readr::read_file(file="./jjep/53_3_331.txt"); jjep.53.3.331.rm00 <- jjep.53.3.331.tx; jjep.53.3.331.rm01 <- str_replace_all(jjep.53.3.331.rm00, pattern = rm.01, replacement = ""); jjep.53.3.331.rm02 <- str_replace_all(jjep.53.3.331.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.331.rm03 <- str_replace_all(jjep.53.3.331.rm02, pattern = rm.03, replacement = ""); jjep.53.3.331.rm04 <- str_replace_all(jjep.53.3.331.rm03, pattern = rm.04, replacement = ""); jjep.53.3.331.rm05 <- str_replace_all(jjep.53.3.331.rm04, pattern = rm.05, replacement = ""); jjep.53.3.331.rm06 <- str_replace_all(jjep.53.3.331.rm05, pattern = rm.06, replacement = ""); jjep.53.3.331.rm07 <- str_replace_all(jjep.53.3.331.rm06, pattern = rm.07, replacement = ""); jjep.53.3.331.rm08 <- str_replace_all(jjep.53.3.331.rm07, pattern = rm.08, replacement = ""); jjep.53.3.331.rm09 <- str_replace_all(jjep.53.3.331.rm08, pattern = rm.09, replacement = ""); jjep.53.3.331.rp10 <- str_replace_all(jjep.53.3.331.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.331.rp11 <- str_replace_all(jjep.53.3.331.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.331.rp12 <- str_replace_all(jjep.53.3.331.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.331.rp13 <- str_replace_all(jjep.53.3.331.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.331.rp14 <- str_replace_all(jjep.53.3.331.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.331.rp15 <- str_replace_all(jjep.53.3.331.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.331.mod <- rbind(varname,jjep.53.3.331.rp15); write(jjep.53.3.331.mod, file = "./jjep/Mod_53_3_331.txt")
jjep.53.3.344.tx <- readr::read_file(file="./jjep/53_3_344.txt"); jjep.53.3.344.rm00 <- jjep.53.3.344.tx; jjep.53.3.344.rm01 <- str_replace_all(jjep.53.3.344.rm00, pattern = rm.01, replacement = ""); jjep.53.3.344.rm02 <- str_replace_all(jjep.53.3.344.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.344.rm03 <- str_replace_all(jjep.53.3.344.rm02, pattern = rm.03, replacement = ""); jjep.53.3.344.rm04 <- str_replace_all(jjep.53.3.344.rm03, pattern = rm.04, replacement = ""); jjep.53.3.344.rm05 <- str_replace_all(jjep.53.3.344.rm04, pattern = rm.05, replacement = ""); jjep.53.3.344.rm06 <- str_replace_all(jjep.53.3.344.rm05, pattern = rm.06, replacement = ""); jjep.53.3.344.rm07 <- str_replace_all(jjep.53.3.344.rm06, pattern = rm.07, replacement = ""); jjep.53.3.344.rm08 <- str_replace_all(jjep.53.3.344.rm07, pattern = rm.08, replacement = ""); jjep.53.3.344.rm09 <- str_replace_all(jjep.53.3.344.rm08, pattern = rm.09, replacement = ""); jjep.53.3.344.rp10 <- str_replace_all(jjep.53.3.344.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.344.rp11 <- str_replace_all(jjep.53.3.344.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.344.rp12 <- str_replace_all(jjep.53.3.344.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.344.rp13 <- str_replace_all(jjep.53.3.344.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.344.rp14 <- str_replace_all(jjep.53.3.344.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.344.rp15 <- str_replace_all(jjep.53.3.344.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.344.mod <- rbind(varname,jjep.53.3.344.rp15); write(jjep.53.3.344.mod, file = "./jjep/Mod_53_3_344.txt")
jjep.53.3.356.tx <- readr::read_file(file="./jjep/53_3_356.txt"); jjep.53.3.356.rm00 <- jjep.53.3.356.tx; jjep.53.3.356.rm01 <- str_replace_all(jjep.53.3.356.rm00, pattern = rm.01, replacement = ""); jjep.53.3.356.rm02 <- str_replace_all(jjep.53.3.356.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.356.rm03 <- str_replace_all(jjep.53.3.356.rm02, pattern = rm.03, replacement = ""); jjep.53.3.356.rm04 <- str_replace_all(jjep.53.3.356.rm03, pattern = rm.04, replacement = ""); jjep.53.3.356.rm05 <- str_replace_all(jjep.53.3.356.rm04, pattern = rm.05, replacement = ""); jjep.53.3.356.rm06 <- str_replace_all(jjep.53.3.356.rm05, pattern = rm.06, replacement = ""); jjep.53.3.356.rm07 <- str_replace_all(jjep.53.3.356.rm06, pattern = rm.07, replacement = ""); jjep.53.3.356.rm08 <- str_replace_all(jjep.53.3.356.rm07, pattern = rm.08, replacement = ""); jjep.53.3.356.rm09 <- str_replace_all(jjep.53.3.356.rm08, pattern = rm.09, replacement = ""); jjep.53.3.356.rp10 <- str_replace_all(jjep.53.3.356.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.356.rp11 <- str_replace_all(jjep.53.3.356.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.356.rp12 <- str_replace_all(jjep.53.3.356.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.356.rp13 <- str_replace_all(jjep.53.3.356.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.356.rp14 <- str_replace_all(jjep.53.3.356.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.356.rp15 <- str_replace_all(jjep.53.3.356.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.356.mod <- rbind(varname,jjep.53.3.356.rp15); write(jjep.53.3.356.mod, file = "./jjep/Mod_53_3_356.txt")
jjep.53.3.368.tx <- readr::read_file(file="./jjep/53_3_368.txt"); jjep.53.3.368.rm00 <- jjep.53.3.368.tx; jjep.53.3.368.rm01 <- str_replace_all(jjep.53.3.368.rm00, pattern = rm.01, replacement = ""); jjep.53.3.368.rm02 <- str_replace_all(jjep.53.3.368.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.368.rm03 <- str_replace_all(jjep.53.3.368.rm02, pattern = rm.03, replacement = ""); jjep.53.3.368.rm04 <- str_replace_all(jjep.53.3.368.rm03, pattern = rm.04, replacement = ""); jjep.53.3.368.rm05 <- str_replace_all(jjep.53.3.368.rm04, pattern = rm.05, replacement = ""); jjep.53.3.368.rm06 <- str_replace_all(jjep.53.3.368.rm05, pattern = rm.06, replacement = ""); jjep.53.3.368.rm07 <- str_replace_all(jjep.53.3.368.rm06, pattern = rm.07, replacement = ""); jjep.53.3.368.rm08 <- str_replace_all(jjep.53.3.368.rm07, pattern = rm.08, replacement = ""); jjep.53.3.368.rm09 <- str_replace_all(jjep.53.3.368.rm08, pattern = rm.09, replacement = ""); jjep.53.3.368.rp10 <- str_replace_all(jjep.53.3.368.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.368.rp11 <- str_replace_all(jjep.53.3.368.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.368.rp12 <- str_replace_all(jjep.53.3.368.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.368.rp13 <- str_replace_all(jjep.53.3.368.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.368.rp14 <- str_replace_all(jjep.53.3.368.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.368.rp15 <- str_replace_all(jjep.53.3.368.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.368.mod <- rbind(varname,jjep.53.3.368.rp15); write(jjep.53.3.368.mod, file = "./jjep/Mod_53_3_368.txt")
jjep.53.3.381.tx <- readr::read_file(file="./jjep/53_3_381.txt"); jjep.53.3.381.rm00 <- jjep.53.3.381.tx; jjep.53.3.381.rm01 <- str_replace_all(jjep.53.3.381.rm00, pattern = rm.01, replacement = ""); jjep.53.3.381.rm02 <- str_replace_all(jjep.53.3.381.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.381.rm03 <- str_replace_all(jjep.53.3.381.rm02, pattern = rm.03, replacement = ""); jjep.53.3.381.rm04 <- str_replace_all(jjep.53.3.381.rm03, pattern = rm.04, replacement = ""); jjep.53.3.381.rm05 <- str_replace_all(jjep.53.3.381.rm04, pattern = rm.05, replacement = ""); jjep.53.3.381.rm06 <- str_replace_all(jjep.53.3.381.rm05, pattern = rm.06, replacement = ""); jjep.53.3.381.rm07 <- str_replace_all(jjep.53.3.381.rm06, pattern = rm.07, replacement = ""); jjep.53.3.381.rm08 <- str_replace_all(jjep.53.3.381.rm07, pattern = rm.08, replacement = ""); jjep.53.3.381.rm09 <- str_replace_all(jjep.53.3.381.rm08, pattern = rm.09, replacement = ""); jjep.53.3.381.rp10 <- str_replace_all(jjep.53.3.381.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.381.rp11 <- str_replace_all(jjep.53.3.381.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.381.rp12 <- str_replace_all(jjep.53.3.381.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.381.rp13 <- str_replace_all(jjep.53.3.381.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.381.rp14 <- str_replace_all(jjep.53.3.381.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.381.rp15 <- str_replace_all(jjep.53.3.381.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.381.mod <- rbind(varname,jjep.53.3.381.rp15); write(jjep.53.3.381.mod, file = "./jjep/Mod_53_3_381.txt")
jjep.53.3.393.tx <- readr::read_file(file="./jjep/53_3_393.txt"); jjep.53.3.393.rm00 <- jjep.53.3.393.tx; jjep.53.3.393.rm01 <- str_replace_all(jjep.53.3.393.rm00, pattern = rm.01, replacement = ""); jjep.53.3.393.rm02 <- str_replace_all(jjep.53.3.393.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.393.rm03 <- str_replace_all(jjep.53.3.393.rm02, pattern = rm.03, replacement = ""); jjep.53.3.393.rm04 <- str_replace_all(jjep.53.3.393.rm03, pattern = rm.04, replacement = ""); jjep.53.3.393.rm05 <- str_replace_all(jjep.53.3.393.rm04, pattern = rm.05, replacement = ""); jjep.53.3.393.rm06 <- str_replace_all(jjep.53.3.393.rm05, pattern = rm.06, replacement = ""); jjep.53.3.393.rm07 <- str_replace_all(jjep.53.3.393.rm06, pattern = rm.07, replacement = ""); jjep.53.3.393.rm08 <- str_replace_all(jjep.53.3.393.rm07, pattern = rm.08, replacement = ""); jjep.53.3.393.rm09 <- str_replace_all(jjep.53.3.393.rm08, pattern = rm.09, replacement = ""); jjep.53.3.393.rp10 <- str_replace_all(jjep.53.3.393.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.393.rp11 <- str_replace_all(jjep.53.3.393.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.393.rp12 <- str_replace_all(jjep.53.3.393.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.393.rp13 <- str_replace_all(jjep.53.3.393.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.393.rp14 <- str_replace_all(jjep.53.3.393.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.393.rp15 <- str_replace_all(jjep.53.3.393.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.393.mod <- rbind(varname,jjep.53.3.393.rp15); write(jjep.53.3.393.mod, file = "./jjep/Mod_53_3_393.txt")
jjep.53.3.405.tx <- readr::read_file(file="./jjep/53_3_405.txt"); jjep.53.3.405.rm00 <- jjep.53.3.405.tx; jjep.53.3.405.rm01 <- str_replace_all(jjep.53.3.405.rm00, pattern = rm.01, replacement = ""); jjep.53.3.405.rm02 <- str_replace_all(jjep.53.3.405.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.405.rm03 <- str_replace_all(jjep.53.3.405.rm02, pattern = rm.03, replacement = ""); jjep.53.3.405.rm04 <- str_replace_all(jjep.53.3.405.rm03, pattern = rm.04, replacement = ""); jjep.53.3.405.rm05 <- str_replace_all(jjep.53.3.405.rm04, pattern = rm.05, replacement = ""); jjep.53.3.405.rm06 <- str_replace_all(jjep.53.3.405.rm05, pattern = rm.06, replacement = ""); jjep.53.3.405.rm07 <- str_replace_all(jjep.53.3.405.rm06, pattern = rm.07, replacement = ""); jjep.53.3.405.rm08 <- str_replace_all(jjep.53.3.405.rm07, pattern = rm.08, replacement = ""); jjep.53.3.405.rm09 <- str_replace_all(jjep.53.3.405.rm08, pattern = rm.09, replacement = ""); jjep.53.3.405.rp10 <- str_replace_all(jjep.53.3.405.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.405.rp11 <- str_replace_all(jjep.53.3.405.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.405.rp12 <- str_replace_all(jjep.53.3.405.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.405.rp13 <- str_replace_all(jjep.53.3.405.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.405.rp14 <- str_replace_all(jjep.53.3.405.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.405.rp15 <- str_replace_all(jjep.53.3.405.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.405.mod <- rbind(varname,jjep.53.3.405.rp15); write(jjep.53.3.405.mod, file = "./jjep/Mod_53_3_405.txt")
jjep.53.3.414.tx <- readr::read_file(file="./jjep/53_3_414.txt"); jjep.53.3.414.rm00 <- jjep.53.3.414.tx; jjep.53.3.414.rm01 <- str_replace_all(jjep.53.3.414.rm00, pattern = rm.01, replacement = ""); jjep.53.3.414.rm02 <- str_replace_all(jjep.53.3.414.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.414.rm03 <- str_replace_all(jjep.53.3.414.rm02, pattern = rm.03, replacement = ""); jjep.53.3.414.rm04 <- str_replace_all(jjep.53.3.414.rm03, pattern = rm.04, replacement = ""); jjep.53.3.414.rm05 <- str_replace_all(jjep.53.3.414.rm04, pattern = rm.05, replacement = ""); jjep.53.3.414.rm06 <- str_replace_all(jjep.53.3.414.rm05, pattern = rm.06, replacement = ""); jjep.53.3.414.rm07 <- str_replace_all(jjep.53.3.414.rm06, pattern = rm.07, replacement = ""); jjep.53.3.414.rm08 <- str_replace_all(jjep.53.3.414.rm07, pattern = rm.08, replacement = ""); jjep.53.3.414.rm09 <- str_replace_all(jjep.53.3.414.rm08, pattern = rm.09, replacement = ""); jjep.53.3.414.rp10 <- str_replace_all(jjep.53.3.414.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.414.rp11 <- str_replace_all(jjep.53.3.414.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.414.rp12 <- str_replace_all(jjep.53.3.414.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.414.rp13 <- str_replace_all(jjep.53.3.414.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.414.rp14 <- str_replace_all(jjep.53.3.414.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.414.rp15 <- str_replace_all(jjep.53.3.414.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.414.mod <- rbind(varname,jjep.53.3.414.rp15); write(jjep.53.3.414.mod, file = "./jjep/Mod_53_3_414.txt")
jjep.53.3.427.tx <- readr::read_file(file="./jjep/53_3_427.txt"); jjep.53.3.427.rm00 <- jjep.53.3.427.tx; jjep.53.3.427.rm01 <- str_replace_all(jjep.53.3.427.rm00, pattern = rm.01, replacement = ""); jjep.53.3.427.rm02 <- str_replace_all(jjep.53.3.427.rm01, pattern = rm.02, replacement = "^"); jjep.53.3.427.rm03 <- str_replace_all(jjep.53.3.427.rm02, pattern = rm.03, replacement = ""); jjep.53.3.427.rm04 <- str_replace_all(jjep.53.3.427.rm03, pattern = rm.04, replacement = ""); jjep.53.3.427.rm05 <- str_replace_all(jjep.53.3.427.rm04, pattern = rm.05, replacement = ""); jjep.53.3.427.rm06 <- str_replace_all(jjep.53.3.427.rm05, pattern = rm.06, replacement = ""); jjep.53.3.427.rm07 <- str_replace_all(jjep.53.3.427.rm06, pattern = rm.07, replacement = ""); jjep.53.3.427.rm08 <- str_replace_all(jjep.53.3.427.rm07, pattern = rm.08, replacement = ""); jjep.53.3.427.rm09 <- str_replace_all(jjep.53.3.427.rm08, pattern = rm.09, replacement = ""); jjep.53.3.427.rp10 <- str_replace_all(jjep.53.3.427.rm09, pattern = rp.01, replacement = "・"); jjep.53.3.427.rp11 <- str_replace_all(jjep.53.3.427.rp10, pattern = rp.02, replacement = "^"); jjep.53.3.427.rp12 <- str_replace_all(jjep.53.3.427.rp11, pattern = rp.03, replacement = "^"); jjep.53.3.427.rp13 <- str_replace_all(jjep.53.3.427.rp12, pattern = rp.04, replacement = "^"); jjep.53.3.427.rp14 <- str_replace_all(jjep.53.3.427.rp13, pattern = rp.05, replacement = "^"); jjep.53.3.427.rp15 <- str_replace_all(jjep.53.3.427.rp14, pattern = rp.06, replacement = "^"); jjep.53.3.427.mod <- rbind(varname,jjep.53.3.427.rp15); write(jjep.53.3.427.mod, file = "./jjep/Mod_53_3_427.txt")
jjep.53.2.151.tx <- readr::read_file(file="./jjep/53_2_151.txt"); jjep.53.2.151.rm00 <- jjep.53.2.151.tx; jjep.53.2.151.rm01 <- str_replace_all(jjep.53.2.151.rm00, pattern = rm.01, replacement = ""); jjep.53.2.151.rm02 <- str_replace_all(jjep.53.2.151.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.151.rm03 <- str_replace_all(jjep.53.2.151.rm02, pattern = rm.03, replacement = ""); jjep.53.2.151.rm04 <- str_replace_all(jjep.53.2.151.rm03, pattern = rm.04, replacement = ""); jjep.53.2.151.rm05 <- str_replace_all(jjep.53.2.151.rm04, pattern = rm.05, replacement = ""); jjep.53.2.151.rm06 <- str_replace_all(jjep.53.2.151.rm05, pattern = rm.06, replacement = ""); jjep.53.2.151.rm07 <- str_replace_all(jjep.53.2.151.rm06, pattern = rm.07, replacement = ""); jjep.53.2.151.rm08 <- str_replace_all(jjep.53.2.151.rm07, pattern = rm.08, replacement = ""); jjep.53.2.151.rm09 <- str_replace_all(jjep.53.2.151.rm08, pattern = rm.09, replacement = ""); jjep.53.2.151.rp10 <- str_replace_all(jjep.53.2.151.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.151.rp11 <- str_replace_all(jjep.53.2.151.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.151.rp12 <- str_replace_all(jjep.53.2.151.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.151.rp13 <- str_replace_all(jjep.53.2.151.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.151.rp14 <- str_replace_all(jjep.53.2.151.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.151.rp15 <- str_replace_all(jjep.53.2.151.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.151.mod <- rbind(varname,jjep.53.2.151.rp15); write(jjep.53.2.151.mod, file = "./jjep/Mod_53_2_151.txt")
jjep.53.2.162.tx <- readr::read_file(file="./jjep/53_2_162.txt"); jjep.53.2.162.rm00 <- jjep.53.2.162.tx; jjep.53.2.162.rm01 <- str_replace_all(jjep.53.2.162.rm00, pattern = rm.01, replacement = ""); jjep.53.2.162.rm02 <- str_replace_all(jjep.53.2.162.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.162.rm03 <- str_replace_all(jjep.53.2.162.rm02, pattern = rm.03, replacement = ""); jjep.53.2.162.rm04 <- str_replace_all(jjep.53.2.162.rm03, pattern = rm.04, replacement = ""); jjep.53.2.162.rm05 <- str_replace_all(jjep.53.2.162.rm04, pattern = rm.05, replacement = ""); jjep.53.2.162.rm06 <- str_replace_all(jjep.53.2.162.rm05, pattern = rm.06, replacement = ""); jjep.53.2.162.rm07 <- str_replace_all(jjep.53.2.162.rm06, pattern = rm.07, replacement = ""); jjep.53.2.162.rm08 <- str_replace_all(jjep.53.2.162.rm07, pattern = rm.08, replacement = ""); jjep.53.2.162.rm09 <- str_replace_all(jjep.53.2.162.rm08, pattern = rm.09, replacement = ""); jjep.53.2.162.rp10 <- str_replace_all(jjep.53.2.162.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.162.rp11 <- str_replace_all(jjep.53.2.162.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.162.rp12 <- str_replace_all(jjep.53.2.162.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.162.rp13 <- str_replace_all(jjep.53.2.162.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.162.rp14 <- str_replace_all(jjep.53.2.162.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.162.rp15 <- str_replace_all(jjep.53.2.162.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.162.mod <- rbind(varname,jjep.53.2.162.rp15); write(jjep.53.2.162.mod, file = "./jjep/Mod_53_2_162.txt")
jjep.53.2.172.tx <- readr::read_file(file="./jjep/53_2_172.txt"); jjep.53.2.172.rm00 <- jjep.53.2.172.tx; jjep.53.2.172.rm01 <- str_replace_all(jjep.53.2.172.rm00, pattern = rm.01, replacement = ""); jjep.53.2.172.rm02 <- str_replace_all(jjep.53.2.172.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.172.rm03 <- str_replace_all(jjep.53.2.172.rm02, pattern = rm.03, replacement = ""); jjep.53.2.172.rm04 <- str_replace_all(jjep.53.2.172.rm03, pattern = rm.04, replacement = ""); jjep.53.2.172.rm05 <- str_replace_all(jjep.53.2.172.rm04, pattern = rm.05, replacement = ""); jjep.53.2.172.rm06 <- str_replace_all(jjep.53.2.172.rm05, pattern = rm.06, replacement = ""); jjep.53.2.172.rm07 <- str_replace_all(jjep.53.2.172.rm06, pattern = rm.07, replacement = ""); jjep.53.2.172.rm08 <- str_replace_all(jjep.53.2.172.rm07, pattern = rm.08, replacement = ""); jjep.53.2.172.rm09 <- str_replace_all(jjep.53.2.172.rm08, pattern = rm.09, replacement = ""); jjep.53.2.172.rp10 <- str_replace_all(jjep.53.2.172.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.172.rp11 <- str_replace_all(jjep.53.2.172.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.172.rp12 <- str_replace_all(jjep.53.2.172.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.172.rp13 <- str_replace_all(jjep.53.2.172.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.172.rp14 <- str_replace_all(jjep.53.2.172.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.172.rp15 <- str_replace_all(jjep.53.2.172.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.172.mod <- rbind(varname,jjep.53.2.172.rp15); write(jjep.53.2.172.mod, file = "./jjep/Mod_53_2_172.txt")
jjep.53.2.185.tx <- readr::read_file(file="./jjep/53_2_185.txt"); jjep.53.2.185.rm00 <- jjep.53.2.185.tx; jjep.53.2.185.rm01 <- str_replace_all(jjep.53.2.185.rm00, pattern = rm.01, replacement = ""); jjep.53.2.185.rm02 <- str_replace_all(jjep.53.2.185.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.185.rm03 <- str_replace_all(jjep.53.2.185.rm02, pattern = rm.03, replacement = ""); jjep.53.2.185.rm04 <- str_replace_all(jjep.53.2.185.rm03, pattern = rm.04, replacement = ""); jjep.53.2.185.rm05 <- str_replace_all(jjep.53.2.185.rm04, pattern = rm.05, replacement = ""); jjep.53.2.185.rm06 <- str_replace_all(jjep.53.2.185.rm05, pattern = rm.06, replacement = ""); jjep.53.2.185.rm07 <- str_replace_all(jjep.53.2.185.rm06, pattern = rm.07, replacement = ""); jjep.53.2.185.rm08 <- str_replace_all(jjep.53.2.185.rm07, pattern = rm.08, replacement = ""); jjep.53.2.185.rm09 <- str_replace_all(jjep.53.2.185.rm08, pattern = rm.09, replacement = ""); jjep.53.2.185.rp10 <- str_replace_all(jjep.53.2.185.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.185.rp11 <- str_replace_all(jjep.53.2.185.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.185.rp12 <- str_replace_all(jjep.53.2.185.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.185.rp13 <- str_replace_all(jjep.53.2.185.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.185.rp14 <- str_replace_all(jjep.53.2.185.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.185.rp15 <- str_replace_all(jjep.53.2.185.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.185.mod <- rbind(varname,jjep.53.2.185.rp15); write(jjep.53.2.185.mod, file = "./jjep/Mod_53_2_185.txt")
jjep.53.2.196.tx <- readr::read_file(file="./jjep/53_2_196.txt"); jjep.53.2.196.rm00 <- jjep.53.2.196.tx; jjep.53.2.196.rm01 <- str_replace_all(jjep.53.2.196.rm00, pattern = rm.01, replacement = ""); jjep.53.2.196.rm02 <- str_replace_all(jjep.53.2.196.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.196.rm03 <- str_replace_all(jjep.53.2.196.rm02, pattern = rm.03, replacement = ""); jjep.53.2.196.rm04 <- str_replace_all(jjep.53.2.196.rm03, pattern = rm.04, replacement = ""); jjep.53.2.196.rm05 <- str_replace_all(jjep.53.2.196.rm04, pattern = rm.05, replacement = ""); jjep.53.2.196.rm06 <- str_replace_all(jjep.53.2.196.rm05, pattern = rm.06, replacement = ""); jjep.53.2.196.rm07 <- str_replace_all(jjep.53.2.196.rm06, pattern = rm.07, replacement = ""); jjep.53.2.196.rm08 <- str_replace_all(jjep.53.2.196.rm07, pattern = rm.08, replacement = ""); jjep.53.2.196.rm09 <- str_replace_all(jjep.53.2.196.rm08, pattern = rm.09, replacement = ""); jjep.53.2.196.rp10 <- str_replace_all(jjep.53.2.196.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.196.rp11 <- str_replace_all(jjep.53.2.196.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.196.rp12 <- str_replace_all(jjep.53.2.196.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.196.rp13 <- str_replace_all(jjep.53.2.196.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.196.rp14 <- str_replace_all(jjep.53.2.196.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.196.rp15 <- str_replace_all(jjep.53.2.196.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.196.mod <- rbind(varname,jjep.53.2.196.rp15); write(jjep.53.2.196.mod, file = "./jjep/Mod_53_2_196.txt")
jjep.53.2.209.tx <- readr::read_file(file="./jjep/53_2_209.txt"); jjep.53.2.209.rm00 <- jjep.53.2.209.tx; jjep.53.2.209.rm01 <- str_replace_all(jjep.53.2.209.rm00, pattern = rm.01, replacement = ""); jjep.53.2.209.rm02 <- str_replace_all(jjep.53.2.209.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.209.rm03 <- str_replace_all(jjep.53.2.209.rm02, pattern = rm.03, replacement = ""); jjep.53.2.209.rm04 <- str_replace_all(jjep.53.2.209.rm03, pattern = rm.04, replacement = ""); jjep.53.2.209.rm05 <- str_replace_all(jjep.53.2.209.rm04, pattern = rm.05, replacement = ""); jjep.53.2.209.rm06 <- str_replace_all(jjep.53.2.209.rm05, pattern = rm.06, replacement = ""); jjep.53.2.209.rm07 <- str_replace_all(jjep.53.2.209.rm06, pattern = rm.07, replacement = ""); jjep.53.2.209.rm08 <- str_replace_all(jjep.53.2.209.rm07, pattern = rm.08, replacement = ""); jjep.53.2.209.rm09 <- str_replace_all(jjep.53.2.209.rm08, pattern = rm.09, replacement = ""); jjep.53.2.209.rp10 <- str_replace_all(jjep.53.2.209.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.209.rp11 <- str_replace_all(jjep.53.2.209.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.209.rp12 <- str_replace_all(jjep.53.2.209.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.209.rp13 <- str_replace_all(jjep.53.2.209.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.209.rp14 <- str_replace_all(jjep.53.2.209.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.209.rp15 <- str_replace_all(jjep.53.2.209.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.209.mod <- rbind(varname,jjep.53.2.209.rp15); write(jjep.53.2.209.mod, file = "./jjep/Mod_53_2_209.txt")
jjep.53.2.220.tx <- readr::read_file(file="./jjep/53_2_220.txt"); jjep.53.2.220.rm00 <- jjep.53.2.220.tx; jjep.53.2.220.rm01 <- str_replace_all(jjep.53.2.220.rm00, pattern = rm.01, replacement = ""); jjep.53.2.220.rm02 <- str_replace_all(jjep.53.2.220.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.220.rm03 <- str_replace_all(jjep.53.2.220.rm02, pattern = rm.03, replacement = ""); jjep.53.2.220.rm04 <- str_replace_all(jjep.53.2.220.rm03, pattern = rm.04, replacement = ""); jjep.53.2.220.rm05 <- str_replace_all(jjep.53.2.220.rm04, pattern = rm.05, replacement = ""); jjep.53.2.220.rm06 <- str_replace_all(jjep.53.2.220.rm05, pattern = rm.06, replacement = ""); jjep.53.2.220.rm07 <- str_replace_all(jjep.53.2.220.rm06, pattern = rm.07, replacement = ""); jjep.53.2.220.rm08 <- str_replace_all(jjep.53.2.220.rm07, pattern = rm.08, replacement = ""); jjep.53.2.220.rm09 <- str_replace_all(jjep.53.2.220.rm08, pattern = rm.09, replacement = ""); jjep.53.2.220.rp10 <- str_replace_all(jjep.53.2.220.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.220.rp11 <- str_replace_all(jjep.53.2.220.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.220.rp12 <- str_replace_all(jjep.53.2.220.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.220.rp13 <- str_replace_all(jjep.53.2.220.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.220.rp14 <- str_replace_all(jjep.53.2.220.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.220.rp15 <- str_replace_all(jjep.53.2.220.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.220.mod <- rbind(varname,jjep.53.2.220.rp15); write(jjep.53.2.220.mod, file = "./jjep/Mod_53_2_220.txt")
jjep.53.2.230.tx <- readr::read_file(file="./jjep/53_2_230.txt"); jjep.53.2.230.rm00 <- jjep.53.2.230.tx; jjep.53.2.230.rm01 <- str_replace_all(jjep.53.2.230.rm00, pattern = rm.01, replacement = ""); jjep.53.2.230.rm02 <- str_replace_all(jjep.53.2.230.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.230.rm03 <- str_replace_all(jjep.53.2.230.rm02, pattern = rm.03, replacement = ""); jjep.53.2.230.rm04 <- str_replace_all(jjep.53.2.230.rm03, pattern = rm.04, replacement = ""); jjep.53.2.230.rm05 <- str_replace_all(jjep.53.2.230.rm04, pattern = rm.05, replacement = ""); jjep.53.2.230.rm06 <- str_replace_all(jjep.53.2.230.rm05, pattern = rm.06, replacement = ""); jjep.53.2.230.rm07 <- str_replace_all(jjep.53.2.230.rm06, pattern = rm.07, replacement = ""); jjep.53.2.230.rm08 <- str_replace_all(jjep.53.2.230.rm07, pattern = rm.08, replacement = ""); jjep.53.2.230.rm09 <- str_replace_all(jjep.53.2.230.rm08, pattern = rm.09, replacement = ""); jjep.53.2.230.rp10 <- str_replace_all(jjep.53.2.230.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.230.rp11 <- str_replace_all(jjep.53.2.230.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.230.rp12 <- str_replace_all(jjep.53.2.230.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.230.rp13 <- str_replace_all(jjep.53.2.230.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.230.rp14 <- str_replace_all(jjep.53.2.230.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.230.rp15 <- str_replace_all(jjep.53.2.230.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.230.mod <- rbind(varname,jjep.53.2.230.rp15); write(jjep.53.2.230.mod, file = "./jjep/Mod_53_2_230.txt")
jjep.53.2.241.tx <- readr::read_file(file="./jjep/53_2_241.txt"); jjep.53.2.241.rm00 <- jjep.53.2.241.tx; jjep.53.2.241.rm01 <- str_replace_all(jjep.53.2.241.rm00, pattern = rm.01, replacement = ""); jjep.53.2.241.rm02 <- str_replace_all(jjep.53.2.241.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.241.rm03 <- str_replace_all(jjep.53.2.241.rm02, pattern = rm.03, replacement = ""); jjep.53.2.241.rm04 <- str_replace_all(jjep.53.2.241.rm03, pattern = rm.04, replacement = ""); jjep.53.2.241.rm05 <- str_replace_all(jjep.53.2.241.rm04, pattern = rm.05, replacement = ""); jjep.53.2.241.rm06 <- str_replace_all(jjep.53.2.241.rm05, pattern = rm.06, replacement = ""); jjep.53.2.241.rm07 <- str_replace_all(jjep.53.2.241.rm06, pattern = rm.07, replacement = ""); jjep.53.2.241.rm08 <- str_replace_all(jjep.53.2.241.rm07, pattern = rm.08, replacement = ""); jjep.53.2.241.rm09 <- str_replace_all(jjep.53.2.241.rm08, pattern = rm.09, replacement = ""); jjep.53.2.241.rp10 <- str_replace_all(jjep.53.2.241.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.241.rp11 <- str_replace_all(jjep.53.2.241.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.241.rp12 <- str_replace_all(jjep.53.2.241.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.241.rp13 <- str_replace_all(jjep.53.2.241.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.241.rp14 <- str_replace_all(jjep.53.2.241.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.241.rp15 <- str_replace_all(jjep.53.2.241.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.241.mod <- rbind(varname,jjep.53.2.241.rp15); write(jjep.53.2.241.mod, file = "./jjep/Mod_53_2_241.txt")
jjep.53.2.252.tx <- readr::read_file(file="./jjep/53_2_252.txt"); jjep.53.2.252.rm00 <- jjep.53.2.252.tx; jjep.53.2.252.rm01 <- str_replace_all(jjep.53.2.252.rm00, pattern = rm.01, replacement = ""); jjep.53.2.252.rm02 <- str_replace_all(jjep.53.2.252.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.252.rm03 <- str_replace_all(jjep.53.2.252.rm02, pattern = rm.03, replacement = ""); jjep.53.2.252.rm04 <- str_replace_all(jjep.53.2.252.rm03, pattern = rm.04, replacement = ""); jjep.53.2.252.rm05 <- str_replace_all(jjep.53.2.252.rm04, pattern = rm.05, replacement = ""); jjep.53.2.252.rm06 <- str_replace_all(jjep.53.2.252.rm05, pattern = rm.06, replacement = ""); jjep.53.2.252.rm07 <- str_replace_all(jjep.53.2.252.rm06, pattern = rm.07, replacement = ""); jjep.53.2.252.rm08 <- str_replace_all(jjep.53.2.252.rm07, pattern = rm.08, replacement = ""); jjep.53.2.252.rm09 <- str_replace_all(jjep.53.2.252.rm08, pattern = rm.09, replacement = ""); jjep.53.2.252.rp10 <- str_replace_all(jjep.53.2.252.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.252.rp11 <- str_replace_all(jjep.53.2.252.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.252.rp12 <- str_replace_all(jjep.53.2.252.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.252.rp13 <- str_replace_all(jjep.53.2.252.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.252.rp14 <- str_replace_all(jjep.53.2.252.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.252.rp15 <- str_replace_all(jjep.53.2.252.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.252.mod <- rbind(varname,jjep.53.2.252.rp15); write(jjep.53.2.252.mod, file = "./jjep/Mod_53_2_252.txt")
jjep.53.2.263.tx <- readr::read_file(file="./jjep/53_2_263.txt"); jjep.53.2.263.rm00 <- jjep.53.2.263.tx; jjep.53.2.263.rm01 <- str_replace_all(jjep.53.2.263.rm00, pattern = rm.01, replacement = ""); jjep.53.2.263.rm02 <- str_replace_all(jjep.53.2.263.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.263.rm03 <- str_replace_all(jjep.53.2.263.rm02, pattern = rm.03, replacement = ""); jjep.53.2.263.rm04 <- str_replace_all(jjep.53.2.263.rm03, pattern = rm.04, replacement = ""); jjep.53.2.263.rm05 <- str_replace_all(jjep.53.2.263.rm04, pattern = rm.05, replacement = ""); jjep.53.2.263.rm06 <- str_replace_all(jjep.53.2.263.rm05, pattern = rm.06, replacement = ""); jjep.53.2.263.rm07 <- str_replace_all(jjep.53.2.263.rm06, pattern = rm.07, replacement = ""); jjep.53.2.263.rm08 <- str_replace_all(jjep.53.2.263.rm07, pattern = rm.08, replacement = ""); jjep.53.2.263.rm09 <- str_replace_all(jjep.53.2.263.rm08, pattern = rm.09, replacement = ""); jjep.53.2.263.rp10 <- str_replace_all(jjep.53.2.263.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.263.rp11 <- str_replace_all(jjep.53.2.263.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.263.rp12 <- str_replace_all(jjep.53.2.263.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.263.rp13 <- str_replace_all(jjep.53.2.263.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.263.rp14 <- str_replace_all(jjep.53.2.263.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.263.rp15 <- str_replace_all(jjep.53.2.263.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.263.mod <- rbind(varname,jjep.53.2.263.rp15); write(jjep.53.2.263.mod, file = "./jjep/Mod_53_2_263.txt")
jjep.53.2.273.tx <- readr::read_file(file="./jjep/53_2_273.txt"); jjep.53.2.273.rm00 <- jjep.53.2.273.tx; jjep.53.2.273.rm01 <- str_replace_all(jjep.53.2.273.rm00, pattern = rm.01, replacement = ""); jjep.53.2.273.rm02 <- str_replace_all(jjep.53.2.273.rm01, pattern = rm.02, replacement = "^"); jjep.53.2.273.rm03 <- str_replace_all(jjep.53.2.273.rm02, pattern = rm.03, replacement = ""); jjep.53.2.273.rm04 <- str_replace_all(jjep.53.2.273.rm03, pattern = rm.04, replacement = ""); jjep.53.2.273.rm05 <- str_replace_all(jjep.53.2.273.rm04, pattern = rm.05, replacement = ""); jjep.53.2.273.rm06 <- str_replace_all(jjep.53.2.273.rm05, pattern = rm.06, replacement = ""); jjep.53.2.273.rm07 <- str_replace_all(jjep.53.2.273.rm06, pattern = rm.07, replacement = ""); jjep.53.2.273.rm08 <- str_replace_all(jjep.53.2.273.rm07, pattern = rm.08, replacement = ""); jjep.53.2.273.rm09 <- str_replace_all(jjep.53.2.273.rm08, pattern = rm.09, replacement = ""); jjep.53.2.273.rp10 <- str_replace_all(jjep.53.2.273.rm09, pattern = rp.01, replacement = "・"); jjep.53.2.273.rp11 <- str_replace_all(jjep.53.2.273.rp10, pattern = rp.02, replacement = "^"); jjep.53.2.273.rp12 <- str_replace_all(jjep.53.2.273.rp11, pattern = rp.03, replacement = "^"); jjep.53.2.273.rp13 <- str_replace_all(jjep.53.2.273.rp12, pattern = rp.04, replacement = "^"); jjep.53.2.273.rp14 <- str_replace_all(jjep.53.2.273.rp13, pattern = rp.05, replacement = "^"); jjep.53.2.273.rp15 <- str_replace_all(jjep.53.2.273.rp14, pattern = rp.06, replacement = "^"); jjep.53.2.273.mod <- rbind(varname,jjep.53.2.273.rp15); write(jjep.53.2.273.mod, file = "./jjep/Mod_53_2_273.txt")
jjep.53.1.1.tx <- readr::read_file(file="./jjep/53_1_1.txt"); jjep.53.1.1.rm00 <- jjep.53.1.1.tx; jjep.53.1.1.rm01 <- str_replace_all(jjep.53.1.1.rm00, pattern = rm.01, replacement = ""); jjep.53.1.1.rm02 <- str_replace_all(jjep.53.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.1.rm03 <- str_replace_all(jjep.53.1.1.rm02, pattern = rm.03, replacement = ""); jjep.53.1.1.rm04 <- str_replace_all(jjep.53.1.1.rm03, pattern = rm.04, replacement = ""); jjep.53.1.1.rm05 <- str_replace_all(jjep.53.1.1.rm04, pattern = rm.05, replacement = ""); jjep.53.1.1.rm06 <- str_replace_all(jjep.53.1.1.rm05, pattern = rm.06, replacement = ""); jjep.53.1.1.rm07 <- str_replace_all(jjep.53.1.1.rm06, pattern = rm.07, replacement = ""); jjep.53.1.1.rm08 <- str_replace_all(jjep.53.1.1.rm07, pattern = rm.08, replacement = ""); jjep.53.1.1.rm09 <- str_replace_all(jjep.53.1.1.rm08, pattern = rm.09, replacement = ""); jjep.53.1.1.rp10 <- str_replace_all(jjep.53.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.1.rp11 <- str_replace_all(jjep.53.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.1.rp12 <- str_replace_all(jjep.53.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.1.rp13 <- str_replace_all(jjep.53.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.1.rp14 <- str_replace_all(jjep.53.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.1.rp15 <- str_replace_all(jjep.53.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.1.mod <- rbind(varname,jjep.53.1.1.rp15); write(jjep.53.1.1.mod, file = "./jjep/Mod_53_1_1.txt")
jjep.53.1.14.tx <- readr::read_file(file="./jjep/53_1_14.txt"); jjep.53.1.14.rm00 <- jjep.53.1.14.tx; jjep.53.1.14.rm01 <- str_replace_all(jjep.53.1.14.rm00, pattern = rm.01, replacement = ""); jjep.53.1.14.rm02 <- str_replace_all(jjep.53.1.14.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.14.rm03 <- str_replace_all(jjep.53.1.14.rm02, pattern = rm.03, replacement = ""); jjep.53.1.14.rm04 <- str_replace_all(jjep.53.1.14.rm03, pattern = rm.04, replacement = ""); jjep.53.1.14.rm05 <- str_replace_all(jjep.53.1.14.rm04, pattern = rm.05, replacement = ""); jjep.53.1.14.rm06 <- str_replace_all(jjep.53.1.14.rm05, pattern = rm.06, replacement = ""); jjep.53.1.14.rm07 <- str_replace_all(jjep.53.1.14.rm06, pattern = rm.07, replacement = ""); jjep.53.1.14.rm08 <- str_replace_all(jjep.53.1.14.rm07, pattern = rm.08, replacement = ""); jjep.53.1.14.rm09 <- str_replace_all(jjep.53.1.14.rm08, pattern = rm.09, replacement = ""); jjep.53.1.14.rp10 <- str_replace_all(jjep.53.1.14.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.14.rp11 <- str_replace_all(jjep.53.1.14.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.14.rp12 <- str_replace_all(jjep.53.1.14.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.14.rp13 <- str_replace_all(jjep.53.1.14.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.14.rp14 <- str_replace_all(jjep.53.1.14.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.14.rp15 <- str_replace_all(jjep.53.1.14.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.14.mod <- rbind(varname,jjep.53.1.14.rp15); write(jjep.53.1.14.mod, file = "./jjep/Mod_53_1_14.txt")
jjep.53.1.26.tx <- readr::read_file(file="./jjep/53_1_26.txt"); jjep.53.1.26.rm00 <- jjep.53.1.26.tx; jjep.53.1.26.rm01 <- str_replace_all(jjep.53.1.26.rm00, pattern = rm.01, replacement = ""); jjep.53.1.26.rm02 <- str_replace_all(jjep.53.1.26.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.26.rm03 <- str_replace_all(jjep.53.1.26.rm02, pattern = rm.03, replacement = ""); jjep.53.1.26.rm04 <- str_replace_all(jjep.53.1.26.rm03, pattern = rm.04, replacement = ""); jjep.53.1.26.rm05 <- str_replace_all(jjep.53.1.26.rm04, pattern = rm.05, replacement = ""); jjep.53.1.26.rm06 <- str_replace_all(jjep.53.1.26.rm05, pattern = rm.06, replacement = ""); jjep.53.1.26.rm07 <- str_replace_all(jjep.53.1.26.rm06, pattern = rm.07, replacement = ""); jjep.53.1.26.rm08 <- str_replace_all(jjep.53.1.26.rm07, pattern = rm.08, replacement = ""); jjep.53.1.26.rm09 <- str_replace_all(jjep.53.1.26.rm08, pattern = rm.09, replacement = ""); jjep.53.1.26.rp10 <- str_replace_all(jjep.53.1.26.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.26.rp11 <- str_replace_all(jjep.53.1.26.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.26.rp12 <- str_replace_all(jjep.53.1.26.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.26.rp13 <- str_replace_all(jjep.53.1.26.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.26.rp14 <- str_replace_all(jjep.53.1.26.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.26.rp15 <- str_replace_all(jjep.53.1.26.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.26.mod <- rbind(varname,jjep.53.1.26.rp15); write(jjep.53.1.26.mod, file = "./jjep/Mod_53_1_26.txt")
jjep.53.1.37.tx <- readr::read_file(file="./jjep/53_1_37.txt"); jjep.53.1.37.rm00 <- jjep.53.1.37.tx; jjep.53.1.37.rm01 <- str_replace_all(jjep.53.1.37.rm00, pattern = rm.01, replacement = ""); jjep.53.1.37.rm02 <- str_replace_all(jjep.53.1.37.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.37.rm03 <- str_replace_all(jjep.53.1.37.rm02, pattern = rm.03, replacement = ""); jjep.53.1.37.rm04 <- str_replace_all(jjep.53.1.37.rm03, pattern = rm.04, replacement = ""); jjep.53.1.37.rm05 <- str_replace_all(jjep.53.1.37.rm04, pattern = rm.05, replacement = ""); jjep.53.1.37.rm06 <- str_replace_all(jjep.53.1.37.rm05, pattern = rm.06, replacement = ""); jjep.53.1.37.rm07 <- str_replace_all(jjep.53.1.37.rm06, pattern = rm.07, replacement = ""); jjep.53.1.37.rm08 <- str_replace_all(jjep.53.1.37.rm07, pattern = rm.08, replacement = ""); jjep.53.1.37.rm09 <- str_replace_all(jjep.53.1.37.rm08, pattern = rm.09, replacement = ""); jjep.53.1.37.rp10 <- str_replace_all(jjep.53.1.37.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.37.rp11 <- str_replace_all(jjep.53.1.37.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.37.rp12 <- str_replace_all(jjep.53.1.37.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.37.rp13 <- str_replace_all(jjep.53.1.37.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.37.rp14 <- str_replace_all(jjep.53.1.37.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.37.rp15 <- str_replace_all(jjep.53.1.37.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.37.mod <- rbind(varname,jjep.53.1.37.rp15); write(jjep.53.1.37.mod, file = "./jjep/Mod_53_1_37.txt")
jjep.53.1.49.tx <- readr::read_file(file="./jjep/53_1_49.txt"); jjep.53.1.49.rm00 <- jjep.53.1.49.tx; jjep.53.1.49.rm01 <- str_replace_all(jjep.53.1.49.rm00, pattern = rm.01, replacement = ""); jjep.53.1.49.rm02 <- str_replace_all(jjep.53.1.49.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.49.rm03 <- str_replace_all(jjep.53.1.49.rm02, pattern = rm.03, replacement = ""); jjep.53.1.49.rm04 <- str_replace_all(jjep.53.1.49.rm03, pattern = rm.04, replacement = ""); jjep.53.1.49.rm05 <- str_replace_all(jjep.53.1.49.rm04, pattern = rm.05, replacement = ""); jjep.53.1.49.rm06 <- str_replace_all(jjep.53.1.49.rm05, pattern = rm.06, replacement = ""); jjep.53.1.49.rm07 <- str_replace_all(jjep.53.1.49.rm06, pattern = rm.07, replacement = ""); jjep.53.1.49.rm08 <- str_replace_all(jjep.53.1.49.rm07, pattern = rm.08, replacement = ""); jjep.53.1.49.rm09 <- str_replace_all(jjep.53.1.49.rm08, pattern = rm.09, replacement = ""); jjep.53.1.49.rp10 <- str_replace_all(jjep.53.1.49.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.49.rp11 <- str_replace_all(jjep.53.1.49.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.49.rp12 <- str_replace_all(jjep.53.1.49.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.49.rp13 <- str_replace_all(jjep.53.1.49.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.49.rp14 <- str_replace_all(jjep.53.1.49.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.49.rp15 <- str_replace_all(jjep.53.1.49.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.49.mod <- rbind(varname,jjep.53.1.49.rp15); write(jjep.53.1.49.mod, file = "./jjep/Mod_53_1_49.txt")
jjep.53.1.62.tx <- readr::read_file(file="./jjep/53_1_62.txt"); jjep.53.1.62.rm00 <- jjep.53.1.62.tx; jjep.53.1.62.rm01 <- str_replace_all(jjep.53.1.62.rm00, pattern = rm.01, replacement = ""); jjep.53.1.62.rm02 <- str_replace_all(jjep.53.1.62.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.62.rm03 <- str_replace_all(jjep.53.1.62.rm02, pattern = rm.03, replacement = ""); jjep.53.1.62.rm04 <- str_replace_all(jjep.53.1.62.rm03, pattern = rm.04, replacement = ""); jjep.53.1.62.rm05 <- str_replace_all(jjep.53.1.62.rm04, pattern = rm.05, replacement = ""); jjep.53.1.62.rm06 <- str_replace_all(jjep.53.1.62.rm05, pattern = rm.06, replacement = ""); jjep.53.1.62.rm07 <- str_replace_all(jjep.53.1.62.rm06, pattern = rm.07, replacement = ""); jjep.53.1.62.rm08 <- str_replace_all(jjep.53.1.62.rm07, pattern = rm.08, replacement = ""); jjep.53.1.62.rm09 <- str_replace_all(jjep.53.1.62.rm08, pattern = rm.09, replacement = ""); jjep.53.1.62.rp10 <- str_replace_all(jjep.53.1.62.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.62.rp11 <- str_replace_all(jjep.53.1.62.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.62.rp12 <- str_replace_all(jjep.53.1.62.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.62.rp13 <- str_replace_all(jjep.53.1.62.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.62.rp14 <- str_replace_all(jjep.53.1.62.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.62.rp15 <- str_replace_all(jjep.53.1.62.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.62.mod <- rbind(varname,jjep.53.1.62.rp15); write(jjep.53.1.62.mod, file = "./jjep/Mod_53_1_62.txt")
jjep.53.1.74.tx <- readr::read_file(file="./jjep/53_1_74.txt"); jjep.53.1.74.rm00 <- jjep.53.1.74.tx; jjep.53.1.74.rm01 <- str_replace_all(jjep.53.1.74.rm00, pattern = rm.01, replacement = ""); jjep.53.1.74.rm02 <- str_replace_all(jjep.53.1.74.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.74.rm03 <- str_replace_all(jjep.53.1.74.rm02, pattern = rm.03, replacement = ""); jjep.53.1.74.rm04 <- str_replace_all(jjep.53.1.74.rm03, pattern = rm.04, replacement = ""); jjep.53.1.74.rm05 <- str_replace_all(jjep.53.1.74.rm04, pattern = rm.05, replacement = ""); jjep.53.1.74.rm06 <- str_replace_all(jjep.53.1.74.rm05, pattern = rm.06, replacement = ""); jjep.53.1.74.rm07 <- str_replace_all(jjep.53.1.74.rm06, pattern = rm.07, replacement = ""); jjep.53.1.74.rm08 <- str_replace_all(jjep.53.1.74.rm07, pattern = rm.08, replacement = ""); jjep.53.1.74.rm09 <- str_replace_all(jjep.53.1.74.rm08, pattern = rm.09, replacement = ""); jjep.53.1.74.rp10 <- str_replace_all(jjep.53.1.74.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.74.rp11 <- str_replace_all(jjep.53.1.74.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.74.rp12 <- str_replace_all(jjep.53.1.74.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.74.rp13 <- str_replace_all(jjep.53.1.74.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.74.rp14 <- str_replace_all(jjep.53.1.74.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.74.rp15 <- str_replace_all(jjep.53.1.74.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.74.mod <- rbind(varname,jjep.53.1.74.rp15); write(jjep.53.1.74.mod, file = "./jjep/Mod_53_1_74.txt")
jjep.53.1.86.tx <- readr::read_file(file="./jjep/53_1_86.txt"); jjep.53.1.86.rm00 <- jjep.53.1.86.tx; jjep.53.1.86.rm01 <- str_replace_all(jjep.53.1.86.rm00, pattern = rm.01, replacement = ""); jjep.53.1.86.rm02 <- str_replace_all(jjep.53.1.86.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.86.rm03 <- str_replace_all(jjep.53.1.86.rm02, pattern = rm.03, replacement = ""); jjep.53.1.86.rm04 <- str_replace_all(jjep.53.1.86.rm03, pattern = rm.04, replacement = ""); jjep.53.1.86.rm05 <- str_replace_all(jjep.53.1.86.rm04, pattern = rm.05, replacement = ""); jjep.53.1.86.rm06 <- str_replace_all(jjep.53.1.86.rm05, pattern = rm.06, replacement = ""); jjep.53.1.86.rm07 <- str_replace_all(jjep.53.1.86.rm06, pattern = rm.07, replacement = ""); jjep.53.1.86.rm08 <- str_replace_all(jjep.53.1.86.rm07, pattern = rm.08, replacement = ""); jjep.53.1.86.rm09 <- str_replace_all(jjep.53.1.86.rm08, pattern = rm.09, replacement = ""); jjep.53.1.86.rp10 <- str_replace_all(jjep.53.1.86.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.86.rp11 <- str_replace_all(jjep.53.1.86.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.86.rp12 <- str_replace_all(jjep.53.1.86.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.86.rp13 <- str_replace_all(jjep.53.1.86.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.86.rp14 <- str_replace_all(jjep.53.1.86.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.86.rp15 <- str_replace_all(jjep.53.1.86.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.86.mod <- rbind(varname,jjep.53.1.86.rp15); write(jjep.53.1.86.mod, file = "./jjep/Mod_53_1_86.txt")
jjep.53.1.98.tx <- readr::read_file(file="./jjep/53_1_98.txt"); jjep.53.1.98.rm00 <- jjep.53.1.98.tx; jjep.53.1.98.rm01 <- str_replace_all(jjep.53.1.98.rm00, pattern = rm.01, replacement = ""); jjep.53.1.98.rm02 <- str_replace_all(jjep.53.1.98.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.98.rm03 <- str_replace_all(jjep.53.1.98.rm02, pattern = rm.03, replacement = ""); jjep.53.1.98.rm04 <- str_replace_all(jjep.53.1.98.rm03, pattern = rm.04, replacement = ""); jjep.53.1.98.rm05 <- str_replace_all(jjep.53.1.98.rm04, pattern = rm.05, replacement = ""); jjep.53.1.98.rm06 <- str_replace_all(jjep.53.1.98.rm05, pattern = rm.06, replacement = ""); jjep.53.1.98.rm07 <- str_replace_all(jjep.53.1.98.rm06, pattern = rm.07, replacement = ""); jjep.53.1.98.rm08 <- str_replace_all(jjep.53.1.98.rm07, pattern = rm.08, replacement = ""); jjep.53.1.98.rm09 <- str_replace_all(jjep.53.1.98.rm08, pattern = rm.09, replacement = ""); jjep.53.1.98.rp10 <- str_replace_all(jjep.53.1.98.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.98.rp11 <- str_replace_all(jjep.53.1.98.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.98.rp12 <- str_replace_all(jjep.53.1.98.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.98.rp13 <- str_replace_all(jjep.53.1.98.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.98.rp14 <- str_replace_all(jjep.53.1.98.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.98.rp15 <- str_replace_all(jjep.53.1.98.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.98.mod <- rbind(varname,jjep.53.1.98.rp15); write(jjep.53.1.98.mod, file = "./jjep/Mod_53_1_98.txt")
jjep.53.1.110.tx <- readr::read_file(file="./jjep/53_1_110.txt"); jjep.53.1.110.rm00 <- jjep.53.1.110.tx; jjep.53.1.110.rm01 <- str_replace_all(jjep.53.1.110.rm00, pattern = rm.01, replacement = ""); jjep.53.1.110.rm02 <- str_replace_all(jjep.53.1.110.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.110.rm03 <- str_replace_all(jjep.53.1.110.rm02, pattern = rm.03, replacement = ""); jjep.53.1.110.rm04 <- str_replace_all(jjep.53.1.110.rm03, pattern = rm.04, replacement = ""); jjep.53.1.110.rm05 <- str_replace_all(jjep.53.1.110.rm04, pattern = rm.05, replacement = ""); jjep.53.1.110.rm06 <- str_replace_all(jjep.53.1.110.rm05, pattern = rm.06, replacement = ""); jjep.53.1.110.rm07 <- str_replace_all(jjep.53.1.110.rm06, pattern = rm.07, replacement = ""); jjep.53.1.110.rm08 <- str_replace_all(jjep.53.1.110.rm07, pattern = rm.08, replacement = ""); jjep.53.1.110.rm09 <- str_replace_all(jjep.53.1.110.rm08, pattern = rm.09, replacement = ""); jjep.53.1.110.rp10 <- str_replace_all(jjep.53.1.110.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.110.rp11 <- str_replace_all(jjep.53.1.110.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.110.rp12 <- str_replace_all(jjep.53.1.110.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.110.rp13 <- str_replace_all(jjep.53.1.110.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.110.rp14 <- str_replace_all(jjep.53.1.110.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.110.rp15 <- str_replace_all(jjep.53.1.110.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.110.mod <- rbind(varname,jjep.53.1.110.rp15); write(jjep.53.1.110.mod, file = "./jjep/Mod_53_1_110.txt")
jjep.53.1.122.tx <- readr::read_file(file="./jjep/53_1_122.txt"); jjep.53.1.122.rm00 <- jjep.53.1.122.tx; jjep.53.1.122.rm01 <- str_replace_all(jjep.53.1.122.rm00, pattern = rm.01, replacement = ""); jjep.53.1.122.rm02 <- str_replace_all(jjep.53.1.122.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.122.rm03 <- str_replace_all(jjep.53.1.122.rm02, pattern = rm.03, replacement = ""); jjep.53.1.122.rm04 <- str_replace_all(jjep.53.1.122.rm03, pattern = rm.04, replacement = ""); jjep.53.1.122.rm05 <- str_replace_all(jjep.53.1.122.rm04, pattern = rm.05, replacement = ""); jjep.53.1.122.rm06 <- str_replace_all(jjep.53.1.122.rm05, pattern = rm.06, replacement = ""); jjep.53.1.122.rm07 <- str_replace_all(jjep.53.1.122.rm06, pattern = rm.07, replacement = ""); jjep.53.1.122.rm08 <- str_replace_all(jjep.53.1.122.rm07, pattern = rm.08, replacement = ""); jjep.53.1.122.rm09 <- str_replace_all(jjep.53.1.122.rm08, pattern = rm.09, replacement = ""); jjep.53.1.122.rp10 <- str_replace_all(jjep.53.1.122.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.122.rp11 <- str_replace_all(jjep.53.1.122.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.122.rp12 <- str_replace_all(jjep.53.1.122.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.122.rp13 <- str_replace_all(jjep.53.1.122.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.122.rp14 <- str_replace_all(jjep.53.1.122.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.122.rp15 <- str_replace_all(jjep.53.1.122.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.122.mod <- rbind(varname,jjep.53.1.122.rp15); write(jjep.53.1.122.mod, file = "./jjep/Mod_53_1_122.txt")
jjep.53.1.133.tx <- readr::read_file(file="./jjep/53_1_133.txt"); jjep.53.1.133.rm00 <- jjep.53.1.133.tx; jjep.53.1.133.rm01 <- str_replace_all(jjep.53.1.133.rm00, pattern = rm.01, replacement = ""); jjep.53.1.133.rm02 <- str_replace_all(jjep.53.1.133.rm01, pattern = rm.02, replacement = "^"); jjep.53.1.133.rm03 <- str_replace_all(jjep.53.1.133.rm02, pattern = rm.03, replacement = ""); jjep.53.1.133.rm04 <- str_replace_all(jjep.53.1.133.rm03, pattern = rm.04, replacement = ""); jjep.53.1.133.rm05 <- str_replace_all(jjep.53.1.133.rm04, pattern = rm.05, replacement = ""); jjep.53.1.133.rm06 <- str_replace_all(jjep.53.1.133.rm05, pattern = rm.06, replacement = ""); jjep.53.1.133.rm07 <- str_replace_all(jjep.53.1.133.rm06, pattern = rm.07, replacement = ""); jjep.53.1.133.rm08 <- str_replace_all(jjep.53.1.133.rm07, pattern = rm.08, replacement = ""); jjep.53.1.133.rm09 <- str_replace_all(jjep.53.1.133.rm08, pattern = rm.09, replacement = ""); jjep.53.1.133.rp10 <- str_replace_all(jjep.53.1.133.rm09, pattern = rp.01, replacement = "・"); jjep.53.1.133.rp11 <- str_replace_all(jjep.53.1.133.rp10, pattern = rp.02, replacement = "^"); jjep.53.1.133.rp12 <- str_replace_all(jjep.53.1.133.rp11, pattern = rp.03, replacement = "^"); jjep.53.1.133.rp13 <- str_replace_all(jjep.53.1.133.rp12, pattern = rp.04, replacement = "^"); jjep.53.1.133.rp14 <- str_replace_all(jjep.53.1.133.rp13, pattern = rp.05, replacement = "^"); jjep.53.1.133.rp15 <- str_replace_all(jjep.53.1.133.rp14, pattern = rp.06, replacement = "^"); jjep.53.1.133.mod <- rbind(varname,jjep.53.1.133.rp15); write(jjep.53.1.133.mod, file = "./jjep/Mod_53_1_133.txt")
jjep.52.4.359.tx <- readr::read_file(file="./jjep/52_4_359.txt"); jjep.52.4.359.rm00 <- jjep.52.4.359.tx; jjep.52.4.359.rm01 <- str_replace_all(jjep.52.4.359.rm00, pattern = rm.01, replacement = ""); jjep.52.4.359.rm02 <- str_replace_all(jjep.52.4.359.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.359.rm03 <- str_replace_all(jjep.52.4.359.rm02, pattern = rm.03, replacement = ""); jjep.52.4.359.rm04 <- str_replace_all(jjep.52.4.359.rm03, pattern = rm.04, replacement = ""); jjep.52.4.359.rm05 <- str_replace_all(jjep.52.4.359.rm04, pattern = rm.05, replacement = ""); jjep.52.4.359.rm06 <- str_replace_all(jjep.52.4.359.rm05, pattern = rm.06, replacement = ""); jjep.52.4.359.rm07 <- str_replace_all(jjep.52.4.359.rm06, pattern = rm.07, replacement = ""); jjep.52.4.359.rm08 <- str_replace_all(jjep.52.4.359.rm07, pattern = rm.08, replacement = ""); jjep.52.4.359.rm09 <- str_replace_all(jjep.52.4.359.rm08, pattern = rm.09, replacement = ""); jjep.52.4.359.rp10 <- str_replace_all(jjep.52.4.359.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.359.rp11 <- str_replace_all(jjep.52.4.359.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.359.rp12 <- str_replace_all(jjep.52.4.359.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.359.rp13 <- str_replace_all(jjep.52.4.359.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.359.rp14 <- str_replace_all(jjep.52.4.359.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.359.rp15 <- str_replace_all(jjep.52.4.359.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.359.mod <- rbind(varname,jjep.52.4.359.rp15); write(jjep.52.4.359.mod, file = "./jjep/Mod_52_4_359.txt")
jjep.52.4.370.tx <- readr::read_file(file="./jjep/52_4_370.txt"); jjep.52.4.370.rm00 <- jjep.52.4.370.tx; jjep.52.4.370.rm01 <- str_replace_all(jjep.52.4.370.rm00, pattern = rm.01, replacement = ""); jjep.52.4.370.rm02 <- str_replace_all(jjep.52.4.370.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.370.rm03 <- str_replace_all(jjep.52.4.370.rm02, pattern = rm.03, replacement = ""); jjep.52.4.370.rm04 <- str_replace_all(jjep.52.4.370.rm03, pattern = rm.04, replacement = ""); jjep.52.4.370.rm05 <- str_replace_all(jjep.52.4.370.rm04, pattern = rm.05, replacement = ""); jjep.52.4.370.rm06 <- str_replace_all(jjep.52.4.370.rm05, pattern = rm.06, replacement = ""); jjep.52.4.370.rm07 <- str_replace_all(jjep.52.4.370.rm06, pattern = rm.07, replacement = ""); jjep.52.4.370.rm08 <- str_replace_all(jjep.52.4.370.rm07, pattern = rm.08, replacement = ""); jjep.52.4.370.rm09 <- str_replace_all(jjep.52.4.370.rm08, pattern = rm.09, replacement = ""); jjep.52.4.370.rp10 <- str_replace_all(jjep.52.4.370.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.370.rp11 <- str_replace_all(jjep.52.4.370.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.370.rp12 <- str_replace_all(jjep.52.4.370.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.370.rp13 <- str_replace_all(jjep.52.4.370.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.370.rp14 <- str_replace_all(jjep.52.4.370.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.370.rp15 <- str_replace_all(jjep.52.4.370.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.370.mod <- rbind(varname,jjep.52.4.370.rp15); write(jjep.52.4.370.mod, file = "./jjep/Mod_52_4_370.txt")
jjep.52.4.382.tx <- readr::read_file(file="./jjep/52_4_382.txt"); jjep.52.4.382.rm00 <- jjep.52.4.382.tx; jjep.52.4.382.rm01 <- str_replace_all(jjep.52.4.382.rm00, pattern = rm.01, replacement = ""); jjep.52.4.382.rm02 <- str_replace_all(jjep.52.4.382.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.382.rm03 <- str_replace_all(jjep.52.4.382.rm02, pattern = rm.03, replacement = ""); jjep.52.4.382.rm04 <- str_replace_all(jjep.52.4.382.rm03, pattern = rm.04, replacement = ""); jjep.52.4.382.rm05 <- str_replace_all(jjep.52.4.382.rm04, pattern = rm.05, replacement = ""); jjep.52.4.382.rm06 <- str_replace_all(jjep.52.4.382.rm05, pattern = rm.06, replacement = ""); jjep.52.4.382.rm07 <- str_replace_all(jjep.52.4.382.rm06, pattern = rm.07, replacement = ""); jjep.52.4.382.rm08 <- str_replace_all(jjep.52.4.382.rm07, pattern = rm.08, replacement = ""); jjep.52.4.382.rm09 <- str_replace_all(jjep.52.4.382.rm08, pattern = rm.09, replacement = ""); jjep.52.4.382.rp10 <- str_replace_all(jjep.52.4.382.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.382.rp11 <- str_replace_all(jjep.52.4.382.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.382.rp12 <- str_replace_all(jjep.52.4.382.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.382.rp13 <- str_replace_all(jjep.52.4.382.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.382.rp14 <- str_replace_all(jjep.52.4.382.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.382.rp15 <- str_replace_all(jjep.52.4.382.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.382.mod <- rbind(varname,jjep.52.4.382.rp15); write(jjep.52.4.382.mod, file = "./jjep/Mod_52_4_382.txt")
jjep.52.4.392.tx <- readr::read_file(file="./jjep/52_4_392.txt"); jjep.52.4.392.rm00 <- jjep.52.4.392.tx; jjep.52.4.392.rm01 <- str_replace_all(jjep.52.4.392.rm00, pattern = rm.01, replacement = ""); jjep.52.4.392.rm02 <- str_replace_all(jjep.52.4.392.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.392.rm03 <- str_replace_all(jjep.52.4.392.rm02, pattern = rm.03, replacement = ""); jjep.52.4.392.rm04 <- str_replace_all(jjep.52.4.392.rm03, pattern = rm.04, replacement = ""); jjep.52.4.392.rm05 <- str_replace_all(jjep.52.4.392.rm04, pattern = rm.05, replacement = ""); jjep.52.4.392.rm06 <- str_replace_all(jjep.52.4.392.rm05, pattern = rm.06, replacement = ""); jjep.52.4.392.rm07 <- str_replace_all(jjep.52.4.392.rm06, pattern = rm.07, replacement = ""); jjep.52.4.392.rm08 <- str_replace_all(jjep.52.4.392.rm07, pattern = rm.08, replacement = ""); jjep.52.4.392.rm09 <- str_replace_all(jjep.52.4.392.rm08, pattern = rm.09, replacement = ""); jjep.52.4.392.rp10 <- str_replace_all(jjep.52.4.392.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.392.rp11 <- str_replace_all(jjep.52.4.392.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.392.rp12 <- str_replace_all(jjep.52.4.392.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.392.rp13 <- str_replace_all(jjep.52.4.392.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.392.rp14 <- str_replace_all(jjep.52.4.392.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.392.rp15 <- str_replace_all(jjep.52.4.392.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.392.mod <- rbind(varname,jjep.52.4.392.rp15); write(jjep.52.4.392.mod, file = "./jjep/Mod_52_4_392.txt")
jjep.52.4.402.tx <- readr::read_file(file="./jjep/52_4_402.txt"); jjep.52.4.402.rm00 <- jjep.52.4.402.tx; jjep.52.4.402.rm01 <- str_replace_all(jjep.52.4.402.rm00, pattern = rm.01, replacement = ""); jjep.52.4.402.rm02 <- str_replace_all(jjep.52.4.402.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.402.rm03 <- str_replace_all(jjep.52.4.402.rm02, pattern = rm.03, replacement = ""); jjep.52.4.402.rm04 <- str_replace_all(jjep.52.4.402.rm03, pattern = rm.04, replacement = ""); jjep.52.4.402.rm05 <- str_replace_all(jjep.52.4.402.rm04, pattern = rm.05, replacement = ""); jjep.52.4.402.rm06 <- str_replace_all(jjep.52.4.402.rm05, pattern = rm.06, replacement = ""); jjep.52.4.402.rm07 <- str_replace_all(jjep.52.4.402.rm06, pattern = rm.07, replacement = ""); jjep.52.4.402.rm08 <- str_replace_all(jjep.52.4.402.rm07, pattern = rm.08, replacement = ""); jjep.52.4.402.rm09 <- str_replace_all(jjep.52.4.402.rm08, pattern = rm.09, replacement = ""); jjep.52.4.402.rp10 <- str_replace_all(jjep.52.4.402.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.402.rp11 <- str_replace_all(jjep.52.4.402.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.402.rp12 <- str_replace_all(jjep.52.4.402.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.402.rp13 <- str_replace_all(jjep.52.4.402.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.402.rp14 <- str_replace_all(jjep.52.4.402.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.402.rp15 <- str_replace_all(jjep.52.4.402.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.402.mod <- rbind(varname,jjep.52.4.402.rp15); write(jjep.52.4.402.mod, file = "./jjep/Mod_52_4_402.txt")
jjep.52.4.414.tx <- readr::read_file(file="./jjep/52_4_414.txt"); jjep.52.4.414.rm00 <- jjep.52.4.414.tx; jjep.52.4.414.rm01 <- str_replace_all(jjep.52.4.414.rm00, pattern = rm.01, replacement = ""); jjep.52.4.414.rm02 <- str_replace_all(jjep.52.4.414.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.414.rm03 <- str_replace_all(jjep.52.4.414.rm02, pattern = rm.03, replacement = ""); jjep.52.4.414.rm04 <- str_replace_all(jjep.52.4.414.rm03, pattern = rm.04, replacement = ""); jjep.52.4.414.rm05 <- str_replace_all(jjep.52.4.414.rm04, pattern = rm.05, replacement = ""); jjep.52.4.414.rm06 <- str_replace_all(jjep.52.4.414.rm05, pattern = rm.06, replacement = ""); jjep.52.4.414.rm07 <- str_replace_all(jjep.52.4.414.rm06, pattern = rm.07, replacement = ""); jjep.52.4.414.rm08 <- str_replace_all(jjep.52.4.414.rm07, pattern = rm.08, replacement = ""); jjep.52.4.414.rm09 <- str_replace_all(jjep.52.4.414.rm08, pattern = rm.09, replacement = ""); jjep.52.4.414.rp10 <- str_replace_all(jjep.52.4.414.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.414.rp11 <- str_replace_all(jjep.52.4.414.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.414.rp12 <- str_replace_all(jjep.52.4.414.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.414.rp13 <- str_replace_all(jjep.52.4.414.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.414.rp14 <- str_replace_all(jjep.52.4.414.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.414.rp15 <- str_replace_all(jjep.52.4.414.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.414.mod <- rbind(varname,jjep.52.4.414.rp15); write(jjep.52.4.414.mod, file = "./jjep/Mod_52_4_414.txt")
jjep.52.4.426.tx <- readr::read_file(file="./jjep/52_4_426.txt"); jjep.52.4.426.rm00 <- jjep.52.4.426.tx; jjep.52.4.426.rm01 <- str_replace_all(jjep.52.4.426.rm00, pattern = rm.01, replacement = ""); jjep.52.4.426.rm02 <- str_replace_all(jjep.52.4.426.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.426.rm03 <- str_replace_all(jjep.52.4.426.rm02, pattern = rm.03, replacement = ""); jjep.52.4.426.rm04 <- str_replace_all(jjep.52.4.426.rm03, pattern = rm.04, replacement = ""); jjep.52.4.426.rm05 <- str_replace_all(jjep.52.4.426.rm04, pattern = rm.05, replacement = ""); jjep.52.4.426.rm06 <- str_replace_all(jjep.52.4.426.rm05, pattern = rm.06, replacement = ""); jjep.52.4.426.rm07 <- str_replace_all(jjep.52.4.426.rm06, pattern = rm.07, replacement = ""); jjep.52.4.426.rm08 <- str_replace_all(jjep.52.4.426.rm07, pattern = rm.08, replacement = ""); jjep.52.4.426.rm09 <- str_replace_all(jjep.52.4.426.rm08, pattern = rm.09, replacement = ""); jjep.52.4.426.rp10 <- str_replace_all(jjep.52.4.426.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.426.rp11 <- str_replace_all(jjep.52.4.426.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.426.rp12 <- str_replace_all(jjep.52.4.426.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.426.rp13 <- str_replace_all(jjep.52.4.426.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.426.rp14 <- str_replace_all(jjep.52.4.426.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.426.rp15 <- str_replace_all(jjep.52.4.426.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.426.mod <- rbind(varname,jjep.52.4.426.rp15); write(jjep.52.4.426.mod, file = "./jjep/Mod_52_4_426.txt")
jjep.52.4.437.tx <- readr::read_file(file="./jjep/52_4_437.txt"); jjep.52.4.437.rm00 <- jjep.52.4.437.tx; jjep.52.4.437.rm01 <- str_replace_all(jjep.52.4.437.rm00, pattern = rm.01, replacement = ""); jjep.52.4.437.rm02 <- str_replace_all(jjep.52.4.437.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.437.rm03 <- str_replace_all(jjep.52.4.437.rm02, pattern = rm.03, replacement = ""); jjep.52.4.437.rm04 <- str_replace_all(jjep.52.4.437.rm03, pattern = rm.04, replacement = ""); jjep.52.4.437.rm05 <- str_replace_all(jjep.52.4.437.rm04, pattern = rm.05, replacement = ""); jjep.52.4.437.rm06 <- str_replace_all(jjep.52.4.437.rm05, pattern = rm.06, replacement = ""); jjep.52.4.437.rm07 <- str_replace_all(jjep.52.4.437.rm06, pattern = rm.07, replacement = ""); jjep.52.4.437.rm08 <- str_replace_all(jjep.52.4.437.rm07, pattern = rm.08, replacement = ""); jjep.52.4.437.rm09 <- str_replace_all(jjep.52.4.437.rm08, pattern = rm.09, replacement = ""); jjep.52.4.437.rp10 <- str_replace_all(jjep.52.4.437.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.437.rp11 <- str_replace_all(jjep.52.4.437.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.437.rp12 <- str_replace_all(jjep.52.4.437.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.437.rp13 <- str_replace_all(jjep.52.4.437.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.437.rp14 <- str_replace_all(jjep.52.4.437.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.437.rp15 <- str_replace_all(jjep.52.4.437.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.437.mod <- rbind(varname,jjep.52.4.437.rp15); write(jjep.52.4.437.mod, file = "./jjep/Mod_52_4_437.txt")
jjep.52.4.448.tx <- readr::read_file(file="./jjep/52_4_448.txt"); jjep.52.4.448.rm00 <- jjep.52.4.448.tx; jjep.52.4.448.rm01 <- str_replace_all(jjep.52.4.448.rm00, pattern = rm.01, replacement = ""); jjep.52.4.448.rm02 <- str_replace_all(jjep.52.4.448.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.448.rm03 <- str_replace_all(jjep.52.4.448.rm02, pattern = rm.03, replacement = ""); jjep.52.4.448.rm04 <- str_replace_all(jjep.52.4.448.rm03, pattern = rm.04, replacement = ""); jjep.52.4.448.rm05 <- str_replace_all(jjep.52.4.448.rm04, pattern = rm.05, replacement = ""); jjep.52.4.448.rm06 <- str_replace_all(jjep.52.4.448.rm05, pattern = rm.06, replacement = ""); jjep.52.4.448.rm07 <- str_replace_all(jjep.52.4.448.rm06, pattern = rm.07, replacement = ""); jjep.52.4.448.rm08 <- str_replace_all(jjep.52.4.448.rm07, pattern = rm.08, replacement = ""); jjep.52.4.448.rm09 <- str_replace_all(jjep.52.4.448.rm08, pattern = rm.09, replacement = ""); jjep.52.4.448.rp10 <- str_replace_all(jjep.52.4.448.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.448.rp11 <- str_replace_all(jjep.52.4.448.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.448.rp12 <- str_replace_all(jjep.52.4.448.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.448.rp13 <- str_replace_all(jjep.52.4.448.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.448.rp14 <- str_replace_all(jjep.52.4.448.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.448.rp15 <- str_replace_all(jjep.52.4.448.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.448.mod <- rbind(varname,jjep.52.4.448.rp15); write(jjep.52.4.448.mod, file = "./jjep/Mod_52_4_448.txt")
jjep.52.4.458.tx <- readr::read_file(file="./jjep/52_4_458.txt"); jjep.52.4.458.rm00 <- jjep.52.4.458.tx; jjep.52.4.458.rm01 <- str_replace_all(jjep.52.4.458.rm00, pattern = rm.01, replacement = ""); jjep.52.4.458.rm02 <- str_replace_all(jjep.52.4.458.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.458.rm03 <- str_replace_all(jjep.52.4.458.rm02, pattern = rm.03, replacement = ""); jjep.52.4.458.rm04 <- str_replace_all(jjep.52.4.458.rm03, pattern = rm.04, replacement = ""); jjep.52.4.458.rm05 <- str_replace_all(jjep.52.4.458.rm04, pattern = rm.05, replacement = ""); jjep.52.4.458.rm06 <- str_replace_all(jjep.52.4.458.rm05, pattern = rm.06, replacement = ""); jjep.52.4.458.rm07 <- str_replace_all(jjep.52.4.458.rm06, pattern = rm.07, replacement = ""); jjep.52.4.458.rm08 <- str_replace_all(jjep.52.4.458.rm07, pattern = rm.08, replacement = ""); jjep.52.4.458.rm09 <- str_replace_all(jjep.52.4.458.rm08, pattern = rm.09, replacement = ""); jjep.52.4.458.rp10 <- str_replace_all(jjep.52.4.458.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.458.rp11 <- str_replace_all(jjep.52.4.458.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.458.rp12 <- str_replace_all(jjep.52.4.458.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.458.rp13 <- str_replace_all(jjep.52.4.458.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.458.rp14 <- str_replace_all(jjep.52.4.458.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.458.rp15 <- str_replace_all(jjep.52.4.458.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.458.mod <- rbind(varname,jjep.52.4.458.rp15); write(jjep.52.4.458.mod, file = "./jjep/Mod_52_4_458.txt")
jjep.52.4.472.tx <- readr::read_file(file="./jjep/52_4_472.txt"); jjep.52.4.472.rm00 <- jjep.52.4.472.tx; jjep.52.4.472.rm01 <- str_replace_all(jjep.52.4.472.rm00, pattern = rm.01, replacement = ""); jjep.52.4.472.rm02 <- str_replace_all(jjep.52.4.472.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.472.rm03 <- str_replace_all(jjep.52.4.472.rm02, pattern = rm.03, replacement = ""); jjep.52.4.472.rm04 <- str_replace_all(jjep.52.4.472.rm03, pattern = rm.04, replacement = ""); jjep.52.4.472.rm05 <- str_replace_all(jjep.52.4.472.rm04, pattern = rm.05, replacement = ""); jjep.52.4.472.rm06 <- str_replace_all(jjep.52.4.472.rm05, pattern = rm.06, replacement = ""); jjep.52.4.472.rm07 <- str_replace_all(jjep.52.4.472.rm06, pattern = rm.07, replacement = ""); jjep.52.4.472.rm08 <- str_replace_all(jjep.52.4.472.rm07, pattern = rm.08, replacement = ""); jjep.52.4.472.rm09 <- str_replace_all(jjep.52.4.472.rm08, pattern = rm.09, replacement = ""); jjep.52.4.472.rp10 <- str_replace_all(jjep.52.4.472.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.472.rp11 <- str_replace_all(jjep.52.4.472.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.472.rp12 <- str_replace_all(jjep.52.4.472.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.472.rp13 <- str_replace_all(jjep.52.4.472.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.472.rp14 <- str_replace_all(jjep.52.4.472.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.472.rp15 <- str_replace_all(jjep.52.4.472.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.472.mod <- rbind(varname,jjep.52.4.472.rp15); write(jjep.52.4.472.mod, file = "./jjep/Mod_52_4_472.txt")
jjep.52.4.485.tx <- readr::read_file(file="./jjep/52_4_485.txt"); jjep.52.4.485.rm00 <- jjep.52.4.485.tx; jjep.52.4.485.rm01 <- str_replace_all(jjep.52.4.485.rm00, pattern = rm.01, replacement = ""); jjep.52.4.485.rm02 <- str_replace_all(jjep.52.4.485.rm01, pattern = rm.02, replacement = "^"); jjep.52.4.485.rm03 <- str_replace_all(jjep.52.4.485.rm02, pattern = rm.03, replacement = ""); jjep.52.4.485.rm04 <- str_replace_all(jjep.52.4.485.rm03, pattern = rm.04, replacement = ""); jjep.52.4.485.rm05 <- str_replace_all(jjep.52.4.485.rm04, pattern = rm.05, replacement = ""); jjep.52.4.485.rm06 <- str_replace_all(jjep.52.4.485.rm05, pattern = rm.06, replacement = ""); jjep.52.4.485.rm07 <- str_replace_all(jjep.52.4.485.rm06, pattern = rm.07, replacement = ""); jjep.52.4.485.rm08 <- str_replace_all(jjep.52.4.485.rm07, pattern = rm.08, replacement = ""); jjep.52.4.485.rm09 <- str_replace_all(jjep.52.4.485.rm08, pattern = rm.09, replacement = ""); jjep.52.4.485.rp10 <- str_replace_all(jjep.52.4.485.rm09, pattern = rp.01, replacement = "・"); jjep.52.4.485.rp11 <- str_replace_all(jjep.52.4.485.rp10, pattern = rp.02, replacement = "^"); jjep.52.4.485.rp12 <- str_replace_all(jjep.52.4.485.rp11, pattern = rp.03, replacement = "^"); jjep.52.4.485.rp13 <- str_replace_all(jjep.52.4.485.rp12, pattern = rp.04, replacement = "^"); jjep.52.4.485.rp14 <- str_replace_all(jjep.52.4.485.rp13, pattern = rp.05, replacement = "^"); jjep.52.4.485.rp15 <- str_replace_all(jjep.52.4.485.rp14, pattern = rp.06, replacement = "^"); jjep.52.4.485.mod <- rbind(varname,jjep.52.4.485.rp15); write(jjep.52.4.485.mod, file = "./jjep/Mod_52_4_485.txt")
jjep.52.3.219.tx <- readr::read_file(file="./jjep/52_3_219.txt"); jjep.52.3.219.rm00 <- jjep.52.3.219.tx; jjep.52.3.219.rm01 <- str_replace_all(jjep.52.3.219.rm00, pattern = rm.01, replacement = ""); jjep.52.3.219.rm02 <- str_replace_all(jjep.52.3.219.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.219.rm03 <- str_replace_all(jjep.52.3.219.rm02, pattern = rm.03, replacement = ""); jjep.52.3.219.rm04 <- str_replace_all(jjep.52.3.219.rm03, pattern = rm.04, replacement = ""); jjep.52.3.219.rm05 <- str_replace_all(jjep.52.3.219.rm04, pattern = rm.05, replacement = ""); jjep.52.3.219.rm06 <- str_replace_all(jjep.52.3.219.rm05, pattern = rm.06, replacement = ""); jjep.52.3.219.rm07 <- str_replace_all(jjep.52.3.219.rm06, pattern = rm.07, replacement = ""); jjep.52.3.219.rm08 <- str_replace_all(jjep.52.3.219.rm07, pattern = rm.08, replacement = ""); jjep.52.3.219.rm09 <- str_replace_all(jjep.52.3.219.rm08, pattern = rm.09, replacement = ""); jjep.52.3.219.rp10 <- str_replace_all(jjep.52.3.219.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.219.rp11 <- str_replace_all(jjep.52.3.219.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.219.rp12 <- str_replace_all(jjep.52.3.219.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.219.rp13 <- str_replace_all(jjep.52.3.219.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.219.rp14 <- str_replace_all(jjep.52.3.219.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.219.rp15 <- str_replace_all(jjep.52.3.219.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.219.mod <- rbind(varname,jjep.52.3.219.rp15); write(jjep.52.3.219.mod, file = "./jjep/Mod_52_3_219.txt")
jjep.52.3.231.tx <- readr::read_file(file="./jjep/52_3_231.txt"); jjep.52.3.231.rm00 <- jjep.52.3.231.tx; jjep.52.3.231.rm01 <- str_replace_all(jjep.52.3.231.rm00, pattern = rm.01, replacement = ""); jjep.52.3.231.rm02 <- str_replace_all(jjep.52.3.231.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.231.rm03 <- str_replace_all(jjep.52.3.231.rm02, pattern = rm.03, replacement = ""); jjep.52.3.231.rm04 <- str_replace_all(jjep.52.3.231.rm03, pattern = rm.04, replacement = ""); jjep.52.3.231.rm05 <- str_replace_all(jjep.52.3.231.rm04, pattern = rm.05, replacement = ""); jjep.52.3.231.rm06 <- str_replace_all(jjep.52.3.231.rm05, pattern = rm.06, replacement = ""); jjep.52.3.231.rm07 <- str_replace_all(jjep.52.3.231.rm06, pattern = rm.07, replacement = ""); jjep.52.3.231.rm08 <- str_replace_all(jjep.52.3.231.rm07, pattern = rm.08, replacement = ""); jjep.52.3.231.rm09 <- str_replace_all(jjep.52.3.231.rm08, pattern = rm.09, replacement = ""); jjep.52.3.231.rp10 <- str_replace_all(jjep.52.3.231.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.231.rp11 <- str_replace_all(jjep.52.3.231.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.231.rp12 <- str_replace_all(jjep.52.3.231.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.231.rp13 <- str_replace_all(jjep.52.3.231.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.231.rp14 <- str_replace_all(jjep.52.3.231.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.231.rp15 <- str_replace_all(jjep.52.3.231.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.231.mod <- rbind(varname,jjep.52.3.231.rp15); write(jjep.52.3.231.mod, file = "./jjep/Mod_52_3_231.txt")
jjep.52.3.241.tx <- readr::read_file(file="./jjep/52_3_241.txt"); jjep.52.3.241.rm00 <- jjep.52.3.241.tx; jjep.52.3.241.rm01 <- str_replace_all(jjep.52.3.241.rm00, pattern = rm.01, replacement = ""); jjep.52.3.241.rm02 <- str_replace_all(jjep.52.3.241.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.241.rm03 <- str_replace_all(jjep.52.3.241.rm02, pattern = rm.03, replacement = ""); jjep.52.3.241.rm04 <- str_replace_all(jjep.52.3.241.rm03, pattern = rm.04, replacement = ""); jjep.52.3.241.rm05 <- str_replace_all(jjep.52.3.241.rm04, pattern = rm.05, replacement = ""); jjep.52.3.241.rm06 <- str_replace_all(jjep.52.3.241.rm05, pattern = rm.06, replacement = ""); jjep.52.3.241.rm07 <- str_replace_all(jjep.52.3.241.rm06, pattern = rm.07, replacement = ""); jjep.52.3.241.rm08 <- str_replace_all(jjep.52.3.241.rm07, pattern = rm.08, replacement = ""); jjep.52.3.241.rm09 <- str_replace_all(jjep.52.3.241.rm08, pattern = rm.09, replacement = ""); jjep.52.3.241.rp10 <- str_replace_all(jjep.52.3.241.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.241.rp11 <- str_replace_all(jjep.52.3.241.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.241.rp12 <- str_replace_all(jjep.52.3.241.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.241.rp13 <- str_replace_all(jjep.52.3.241.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.241.rp14 <- str_replace_all(jjep.52.3.241.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.241.rp15 <- str_replace_all(jjep.52.3.241.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.241.mod <- rbind(varname,jjep.52.3.241.rp15); write(jjep.52.3.241.mod, file = "./jjep/Mod_52_3_241.txt")
jjep.52.3.255.tx <- readr::read_file(file="./jjep/52_3_255.txt"); jjep.52.3.255.rm00 <- jjep.52.3.255.tx; jjep.52.3.255.rm01 <- str_replace_all(jjep.52.3.255.rm00, pattern = rm.01, replacement = ""); jjep.52.3.255.rm02 <- str_replace_all(jjep.52.3.255.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.255.rm03 <- str_replace_all(jjep.52.3.255.rm02, pattern = rm.03, replacement = ""); jjep.52.3.255.rm04 <- str_replace_all(jjep.52.3.255.rm03, pattern = rm.04, replacement = ""); jjep.52.3.255.rm05 <- str_replace_all(jjep.52.3.255.rm04, pattern = rm.05, replacement = ""); jjep.52.3.255.rm06 <- str_replace_all(jjep.52.3.255.rm05, pattern = rm.06, replacement = ""); jjep.52.3.255.rm07 <- str_replace_all(jjep.52.3.255.rm06, pattern = rm.07, replacement = ""); jjep.52.3.255.rm08 <- str_replace_all(jjep.52.3.255.rm07, pattern = rm.08, replacement = ""); jjep.52.3.255.rm09 <- str_replace_all(jjep.52.3.255.rm08, pattern = rm.09, replacement = ""); jjep.52.3.255.rp10 <- str_replace_all(jjep.52.3.255.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.255.rp11 <- str_replace_all(jjep.52.3.255.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.255.rp12 <- str_replace_all(jjep.52.3.255.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.255.rp13 <- str_replace_all(jjep.52.3.255.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.255.rp14 <- str_replace_all(jjep.52.3.255.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.255.rp15 <- str_replace_all(jjep.52.3.255.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.255.mod <- rbind(varname,jjep.52.3.255.rp15); write(jjep.52.3.255.mod, file = "./jjep/Mod_52_3_255.txt")
jjep.52.3.264.tx <- readr::read_file(file="./jjep/52_3_264.txt"); jjep.52.3.264.rm00 <- jjep.52.3.264.tx; jjep.52.3.264.rm01 <- str_replace_all(jjep.52.3.264.rm00, pattern = rm.01, replacement = ""); jjep.52.3.264.rm02 <- str_replace_all(jjep.52.3.264.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.264.rm03 <- str_replace_all(jjep.52.3.264.rm02, pattern = rm.03, replacement = ""); jjep.52.3.264.rm04 <- str_replace_all(jjep.52.3.264.rm03, pattern = rm.04, replacement = ""); jjep.52.3.264.rm05 <- str_replace_all(jjep.52.3.264.rm04, pattern = rm.05, replacement = ""); jjep.52.3.264.rm06 <- str_replace_all(jjep.52.3.264.rm05, pattern = rm.06, replacement = ""); jjep.52.3.264.rm07 <- str_replace_all(jjep.52.3.264.rm06, pattern = rm.07, replacement = ""); jjep.52.3.264.rm08 <- str_replace_all(jjep.52.3.264.rm07, pattern = rm.08, replacement = ""); jjep.52.3.264.rm09 <- str_replace_all(jjep.52.3.264.rm08, pattern = rm.09, replacement = ""); jjep.52.3.264.rp10 <- str_replace_all(jjep.52.3.264.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.264.rp11 <- str_replace_all(jjep.52.3.264.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.264.rp12 <- str_replace_all(jjep.52.3.264.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.264.rp13 <- str_replace_all(jjep.52.3.264.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.264.rp14 <- str_replace_all(jjep.52.3.264.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.264.rp15 <- str_replace_all(jjep.52.3.264.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.264.mod <- rbind(varname,jjep.52.3.264.rp15); write(jjep.52.3.264.mod, file = "./jjep/Mod_52_3_264.txt")
jjep.52.3.277.tx <- readr::read_file(file="./jjep/52_3_277.txt"); jjep.52.3.277.rm00 <- jjep.52.3.277.tx; jjep.52.3.277.rm01 <- str_replace_all(jjep.52.3.277.rm00, pattern = rm.01, replacement = ""); jjep.52.3.277.rm02 <- str_replace_all(jjep.52.3.277.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.277.rm03 <- str_replace_all(jjep.52.3.277.rm02, pattern = rm.03, replacement = ""); jjep.52.3.277.rm04 <- str_replace_all(jjep.52.3.277.rm03, pattern = rm.04, replacement = ""); jjep.52.3.277.rm05 <- str_replace_all(jjep.52.3.277.rm04, pattern = rm.05, replacement = ""); jjep.52.3.277.rm06 <- str_replace_all(jjep.52.3.277.rm05, pattern = rm.06, replacement = ""); jjep.52.3.277.rm07 <- str_replace_all(jjep.52.3.277.rm06, pattern = rm.07, replacement = ""); jjep.52.3.277.rm08 <- str_replace_all(jjep.52.3.277.rm07, pattern = rm.08, replacement = ""); jjep.52.3.277.rm09 <- str_replace_all(jjep.52.3.277.rm08, pattern = rm.09, replacement = ""); jjep.52.3.277.rp10 <- str_replace_all(jjep.52.3.277.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.277.rp11 <- str_replace_all(jjep.52.3.277.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.277.rp12 <- str_replace_all(jjep.52.3.277.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.277.rp13 <- str_replace_all(jjep.52.3.277.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.277.rp14 <- str_replace_all(jjep.52.3.277.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.277.rp15 <- str_replace_all(jjep.52.3.277.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.277.mod <- rbind(varname,jjep.52.3.277.rp15); write(jjep.52.3.277.mod, file = "./jjep/Mod_52_3_277.txt")
jjep.52.3.287.tx <- readr::read_file(file="./jjep/52_3_287.txt"); jjep.52.3.287.rm00 <- jjep.52.3.287.tx; jjep.52.3.287.rm01 <- str_replace_all(jjep.52.3.287.rm00, pattern = rm.01, replacement = ""); jjep.52.3.287.rm02 <- str_replace_all(jjep.52.3.287.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.287.rm03 <- str_replace_all(jjep.52.3.287.rm02, pattern = rm.03, replacement = ""); jjep.52.3.287.rm04 <- str_replace_all(jjep.52.3.287.rm03, pattern = rm.04, replacement = ""); jjep.52.3.287.rm05 <- str_replace_all(jjep.52.3.287.rm04, pattern = rm.05, replacement = ""); jjep.52.3.287.rm06 <- str_replace_all(jjep.52.3.287.rm05, pattern = rm.06, replacement = ""); jjep.52.3.287.rm07 <- str_replace_all(jjep.52.3.287.rm06, pattern = rm.07, replacement = ""); jjep.52.3.287.rm08 <- str_replace_all(jjep.52.3.287.rm07, pattern = rm.08, replacement = ""); jjep.52.3.287.rm09 <- str_replace_all(jjep.52.3.287.rm08, pattern = rm.09, replacement = ""); jjep.52.3.287.rp10 <- str_replace_all(jjep.52.3.287.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.287.rp11 <- str_replace_all(jjep.52.3.287.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.287.rp12 <- str_replace_all(jjep.52.3.287.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.287.rp13 <- str_replace_all(jjep.52.3.287.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.287.rp14 <- str_replace_all(jjep.52.3.287.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.287.rp15 <- str_replace_all(jjep.52.3.287.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.287.mod <- rbind(varname,jjep.52.3.287.rp15); write(jjep.52.3.287.mod, file = "./jjep/Mod_52_3_287.txt")
jjep.52.3.298.tx <- readr::read_file(file="./jjep/52_3_298.txt"); jjep.52.3.298.rm00 <- jjep.52.3.298.tx; jjep.52.3.298.rm01 <- str_replace_all(jjep.52.3.298.rm00, pattern = rm.01, replacement = ""); jjep.52.3.298.rm02 <- str_replace_all(jjep.52.3.298.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.298.rm03 <- str_replace_all(jjep.52.3.298.rm02, pattern = rm.03, replacement = ""); jjep.52.3.298.rm04 <- str_replace_all(jjep.52.3.298.rm03, pattern = rm.04, replacement = ""); jjep.52.3.298.rm05 <- str_replace_all(jjep.52.3.298.rm04, pattern = rm.05, replacement = ""); jjep.52.3.298.rm06 <- str_replace_all(jjep.52.3.298.rm05, pattern = rm.06, replacement = ""); jjep.52.3.298.rm07 <- str_replace_all(jjep.52.3.298.rm06, pattern = rm.07, replacement = ""); jjep.52.3.298.rm08 <- str_replace_all(jjep.52.3.298.rm07, pattern = rm.08, replacement = ""); jjep.52.3.298.rm09 <- str_replace_all(jjep.52.3.298.rm08, pattern = rm.09, replacement = ""); jjep.52.3.298.rp10 <- str_replace_all(jjep.52.3.298.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.298.rp11 <- str_replace_all(jjep.52.3.298.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.298.rp12 <- str_replace_all(jjep.52.3.298.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.298.rp13 <- str_replace_all(jjep.52.3.298.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.298.rp14 <- str_replace_all(jjep.52.3.298.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.298.rp15 <- str_replace_all(jjep.52.3.298.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.298.mod <- rbind(varname,jjep.52.3.298.rp15); write(jjep.52.3.298.mod, file = "./jjep/Mod_52_3_298.txt")
jjep.52.3.310.tx <- readr::read_file(file="./jjep/52_3_310.txt"); jjep.52.3.310.rm00 <- jjep.52.3.310.tx; jjep.52.3.310.rm01 <- str_replace_all(jjep.52.3.310.rm00, pattern = rm.01, replacement = ""); jjep.52.3.310.rm02 <- str_replace_all(jjep.52.3.310.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.310.rm03 <- str_replace_all(jjep.52.3.310.rm02, pattern = rm.03, replacement = ""); jjep.52.3.310.rm04 <- str_replace_all(jjep.52.3.310.rm03, pattern = rm.04, replacement = ""); jjep.52.3.310.rm05 <- str_replace_all(jjep.52.3.310.rm04, pattern = rm.05, replacement = ""); jjep.52.3.310.rm06 <- str_replace_all(jjep.52.3.310.rm05, pattern = rm.06, replacement = ""); jjep.52.3.310.rm07 <- str_replace_all(jjep.52.3.310.rm06, pattern = rm.07, replacement = ""); jjep.52.3.310.rm08 <- str_replace_all(jjep.52.3.310.rm07, pattern = rm.08, replacement = ""); jjep.52.3.310.rm09 <- str_replace_all(jjep.52.3.310.rm08, pattern = rm.09, replacement = ""); jjep.52.3.310.rp10 <- str_replace_all(jjep.52.3.310.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.310.rp11 <- str_replace_all(jjep.52.3.310.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.310.rp12 <- str_replace_all(jjep.52.3.310.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.310.rp13 <- str_replace_all(jjep.52.3.310.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.310.rp14 <- str_replace_all(jjep.52.3.310.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.310.rp15 <- str_replace_all(jjep.52.3.310.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.310.mod <- rbind(varname,jjep.52.3.310.rp15); write(jjep.52.3.310.mod, file = "./jjep/Mod_52_3_310.txt")
jjep.52.3.320.tx <- readr::read_file(file="./jjep/52_3_320.txt"); jjep.52.3.320.rm00 <- jjep.52.3.320.tx; jjep.52.3.320.rm01 <- str_replace_all(jjep.52.3.320.rm00, pattern = rm.01, replacement = ""); jjep.52.3.320.rm02 <- str_replace_all(jjep.52.3.320.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.320.rm03 <- str_replace_all(jjep.52.3.320.rm02, pattern = rm.03, replacement = ""); jjep.52.3.320.rm04 <- str_replace_all(jjep.52.3.320.rm03, pattern = rm.04, replacement = ""); jjep.52.3.320.rm05 <- str_replace_all(jjep.52.3.320.rm04, pattern = rm.05, replacement = ""); jjep.52.3.320.rm06 <- str_replace_all(jjep.52.3.320.rm05, pattern = rm.06, replacement = ""); jjep.52.3.320.rm07 <- str_replace_all(jjep.52.3.320.rm06, pattern = rm.07, replacement = ""); jjep.52.3.320.rm08 <- str_replace_all(jjep.52.3.320.rm07, pattern = rm.08, replacement = ""); jjep.52.3.320.rm09 <- str_replace_all(jjep.52.3.320.rm08, pattern = rm.09, replacement = ""); jjep.52.3.320.rp10 <- str_replace_all(jjep.52.3.320.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.320.rp11 <- str_replace_all(jjep.52.3.320.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.320.rp12 <- str_replace_all(jjep.52.3.320.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.320.rp13 <- str_replace_all(jjep.52.3.320.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.320.rp14 <- str_replace_all(jjep.52.3.320.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.320.rp15 <- str_replace_all(jjep.52.3.320.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.320.mod <- rbind(varname,jjep.52.3.320.rp15); write(jjep.52.3.320.mod, file = "./jjep/Mod_52_3_320.txt")
jjep.52.3.331.tx <- readr::read_file(file="./jjep/52_3_331.txt"); jjep.52.3.331.rm00 <- jjep.52.3.331.tx; jjep.52.3.331.rm01 <- str_replace_all(jjep.52.3.331.rm00, pattern = rm.01, replacement = ""); jjep.52.3.331.rm02 <- str_replace_all(jjep.52.3.331.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.331.rm03 <- str_replace_all(jjep.52.3.331.rm02, pattern = rm.03, replacement = ""); jjep.52.3.331.rm04 <- str_replace_all(jjep.52.3.331.rm03, pattern = rm.04, replacement = ""); jjep.52.3.331.rm05 <- str_replace_all(jjep.52.3.331.rm04, pattern = rm.05, replacement = ""); jjep.52.3.331.rm06 <- str_replace_all(jjep.52.3.331.rm05, pattern = rm.06, replacement = ""); jjep.52.3.331.rm07 <- str_replace_all(jjep.52.3.331.rm06, pattern = rm.07, replacement = ""); jjep.52.3.331.rm08 <- str_replace_all(jjep.52.3.331.rm07, pattern = rm.08, replacement = ""); jjep.52.3.331.rm09 <- str_replace_all(jjep.52.3.331.rm08, pattern = rm.09, replacement = ""); jjep.52.3.331.rp10 <- str_replace_all(jjep.52.3.331.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.331.rp11 <- str_replace_all(jjep.52.3.331.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.331.rp12 <- str_replace_all(jjep.52.3.331.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.331.rp13 <- str_replace_all(jjep.52.3.331.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.331.rp14 <- str_replace_all(jjep.52.3.331.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.331.rp15 <- str_replace_all(jjep.52.3.331.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.331.mod <- rbind(varname,jjep.52.3.331.rp15); write(jjep.52.3.331.mod, file = "./jjep/Mod_52_3_331.txt")
jjep.52.3.344.tx <- readr::read_file(file="./jjep/52_3_344.txt"); jjep.52.3.344.rm00 <- jjep.52.3.344.tx; jjep.52.3.344.rm01 <- str_replace_all(jjep.52.3.344.rm00, pattern = rm.01, replacement = ""); jjep.52.3.344.rm02 <- str_replace_all(jjep.52.3.344.rm01, pattern = rm.02, replacement = "^"); jjep.52.3.344.rm03 <- str_replace_all(jjep.52.3.344.rm02, pattern = rm.03, replacement = ""); jjep.52.3.344.rm04 <- str_replace_all(jjep.52.3.344.rm03, pattern = rm.04, replacement = ""); jjep.52.3.344.rm05 <- str_replace_all(jjep.52.3.344.rm04, pattern = rm.05, replacement = ""); jjep.52.3.344.rm06 <- str_replace_all(jjep.52.3.344.rm05, pattern = rm.06, replacement = ""); jjep.52.3.344.rm07 <- str_replace_all(jjep.52.3.344.rm06, pattern = rm.07, replacement = ""); jjep.52.3.344.rm08 <- str_replace_all(jjep.52.3.344.rm07, pattern = rm.08, replacement = ""); jjep.52.3.344.rm09 <- str_replace_all(jjep.52.3.344.rm08, pattern = rm.09, replacement = ""); jjep.52.3.344.rp10 <- str_replace_all(jjep.52.3.344.rm09, pattern = rp.01, replacement = "・"); jjep.52.3.344.rp11 <- str_replace_all(jjep.52.3.344.rp10, pattern = rp.02, replacement = "^"); jjep.52.3.344.rp12 <- str_replace_all(jjep.52.3.344.rp11, pattern = rp.03, replacement = "^"); jjep.52.3.344.rp13 <- str_replace_all(jjep.52.3.344.rp12, pattern = rp.04, replacement = "^"); jjep.52.3.344.rp14 <- str_replace_all(jjep.52.3.344.rp13, pattern = rp.05, replacement = "^"); jjep.52.3.344.rp15 <- str_replace_all(jjep.52.3.344.rp14, pattern = rp.06, replacement = "^"); jjep.52.3.344.mod <- rbind(varname,jjep.52.3.344.rp15); write(jjep.52.3.344.mod, file = "./jjep/Mod_52_3_344.txt")
jjep.52.2.93.tx <- readr::read_file(file="./jjep/52_2_93.txt"); jjep.52.2.93.rm00 <- jjep.52.2.93.tx; jjep.52.2.93.rm01 <- str_replace_all(jjep.52.2.93.rm00, pattern = rm.01, replacement = ""); jjep.52.2.93.rm02 <- str_replace_all(jjep.52.2.93.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.93.rm03 <- str_replace_all(jjep.52.2.93.rm02, pattern = rm.03, replacement = ""); jjep.52.2.93.rm04 <- str_replace_all(jjep.52.2.93.rm03, pattern = rm.04, replacement = ""); jjep.52.2.93.rm05 <- str_replace_all(jjep.52.2.93.rm04, pattern = rm.05, replacement = ""); jjep.52.2.93.rm06 <- str_replace_all(jjep.52.2.93.rm05, pattern = rm.06, replacement = ""); jjep.52.2.93.rm07 <- str_replace_all(jjep.52.2.93.rm06, pattern = rm.07, replacement = ""); jjep.52.2.93.rm08 <- str_replace_all(jjep.52.2.93.rm07, pattern = rm.08, replacement = ""); jjep.52.2.93.rm09 <- str_replace_all(jjep.52.2.93.rm08, pattern = rm.09, replacement = ""); jjep.52.2.93.rp10 <- str_replace_all(jjep.52.2.93.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.93.rp11 <- str_replace_all(jjep.52.2.93.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.93.rp12 <- str_replace_all(jjep.52.2.93.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.93.rp13 <- str_replace_all(jjep.52.2.93.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.93.rp14 <- str_replace_all(jjep.52.2.93.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.93.rp15 <- str_replace_all(jjep.52.2.93.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.93.mod <- rbind(varname,jjep.52.2.93.rp15); write(jjep.52.2.93.mod, file = "./jjep/Mod_52_2_93.txt")
jjep.52.2.107.tx <- readr::read_file(file="./jjep/52_2_107.txt"); jjep.52.2.107.rm00 <- jjep.52.2.107.tx; jjep.52.2.107.rm01 <- str_replace_all(jjep.52.2.107.rm00, pattern = rm.01, replacement = ""); jjep.52.2.107.rm02 <- str_replace_all(jjep.52.2.107.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.107.rm03 <- str_replace_all(jjep.52.2.107.rm02, pattern = rm.03, replacement = ""); jjep.52.2.107.rm04 <- str_replace_all(jjep.52.2.107.rm03, pattern = rm.04, replacement = ""); jjep.52.2.107.rm05 <- str_replace_all(jjep.52.2.107.rm04, pattern = rm.05, replacement = ""); jjep.52.2.107.rm06 <- str_replace_all(jjep.52.2.107.rm05, pattern = rm.06, replacement = ""); jjep.52.2.107.rm07 <- str_replace_all(jjep.52.2.107.rm06, pattern = rm.07, replacement = ""); jjep.52.2.107.rm08 <- str_replace_all(jjep.52.2.107.rm07, pattern = rm.08, replacement = ""); jjep.52.2.107.rm09 <- str_replace_all(jjep.52.2.107.rm08, pattern = rm.09, replacement = ""); jjep.52.2.107.rp10 <- str_replace_all(jjep.52.2.107.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.107.rp11 <- str_replace_all(jjep.52.2.107.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.107.rp12 <- str_replace_all(jjep.52.2.107.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.107.rp13 <- str_replace_all(jjep.52.2.107.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.107.rp14 <- str_replace_all(jjep.52.2.107.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.107.rp15 <- str_replace_all(jjep.52.2.107.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.107.mod <- rbind(varname,jjep.52.2.107.rp15); write(jjep.52.2.107.mod, file = "./jjep/Mod_52_2_107.txt")
jjep.52.2.115.tx <- readr::read_file(file="./jjep/52_2_115.txt"); jjep.52.2.115.rm00 <- jjep.52.2.115.tx; jjep.52.2.115.rm01 <- str_replace_all(jjep.52.2.115.rm00, pattern = rm.01, replacement = ""); jjep.52.2.115.rm02 <- str_replace_all(jjep.52.2.115.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.115.rm03 <- str_replace_all(jjep.52.2.115.rm02, pattern = rm.03, replacement = ""); jjep.52.2.115.rm04 <- str_replace_all(jjep.52.2.115.rm03, pattern = rm.04, replacement = ""); jjep.52.2.115.rm05 <- str_replace_all(jjep.52.2.115.rm04, pattern = rm.05, replacement = ""); jjep.52.2.115.rm06 <- str_replace_all(jjep.52.2.115.rm05, pattern = rm.06, replacement = ""); jjep.52.2.115.rm07 <- str_replace_all(jjep.52.2.115.rm06, pattern = rm.07, replacement = ""); jjep.52.2.115.rm08 <- str_replace_all(jjep.52.2.115.rm07, pattern = rm.08, replacement = ""); jjep.52.2.115.rm09 <- str_replace_all(jjep.52.2.115.rm08, pattern = rm.09, replacement = ""); jjep.52.2.115.rp10 <- str_replace_all(jjep.52.2.115.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.115.rp11 <- str_replace_all(jjep.52.2.115.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.115.rp12 <- str_replace_all(jjep.52.2.115.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.115.rp13 <- str_replace_all(jjep.52.2.115.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.115.rp14 <- str_replace_all(jjep.52.2.115.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.115.rp15 <- str_replace_all(jjep.52.2.115.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.115.mod <- rbind(varname,jjep.52.2.115.rp15); write(jjep.52.2.115.mod, file = "./jjep/Mod_52_2_115.txt")
jjep.52.2.127.tx <- readr::read_file(file="./jjep/52_2_127.txt"); jjep.52.2.127.rm00 <- jjep.52.2.127.tx; jjep.52.2.127.rm01 <- str_replace_all(jjep.52.2.127.rm00, pattern = rm.01, replacement = ""); jjep.52.2.127.rm02 <- str_replace_all(jjep.52.2.127.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.127.rm03 <- str_replace_all(jjep.52.2.127.rm02, pattern = rm.03, replacement = ""); jjep.52.2.127.rm04 <- str_replace_all(jjep.52.2.127.rm03, pattern = rm.04, replacement = ""); jjep.52.2.127.rm05 <- str_replace_all(jjep.52.2.127.rm04, pattern = rm.05, replacement = ""); jjep.52.2.127.rm06 <- str_replace_all(jjep.52.2.127.rm05, pattern = rm.06, replacement = ""); jjep.52.2.127.rm07 <- str_replace_all(jjep.52.2.127.rm06, pattern = rm.07, replacement = ""); jjep.52.2.127.rm08 <- str_replace_all(jjep.52.2.127.rm07, pattern = rm.08, replacement = ""); jjep.52.2.127.rm09 <- str_replace_all(jjep.52.2.127.rm08, pattern = rm.09, replacement = ""); jjep.52.2.127.rp10 <- str_replace_all(jjep.52.2.127.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.127.rp11 <- str_replace_all(jjep.52.2.127.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.127.rp12 <- str_replace_all(jjep.52.2.127.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.127.rp13 <- str_replace_all(jjep.52.2.127.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.127.rp14 <- str_replace_all(jjep.52.2.127.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.127.rp15 <- str_replace_all(jjep.52.2.127.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.127.mod <- rbind(varname,jjep.52.2.127.rp15); write(jjep.52.2.127.mod, file = "./jjep/Mod_52_2_127.txt")
jjep.52.2.139.tx <- readr::read_file(file="./jjep/52_2_139.txt"); jjep.52.2.139.rm00 <- jjep.52.2.139.tx; jjep.52.2.139.rm01 <- str_replace_all(jjep.52.2.139.rm00, pattern = rm.01, replacement = ""); jjep.52.2.139.rm02 <- str_replace_all(jjep.52.2.139.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.139.rm03 <- str_replace_all(jjep.52.2.139.rm02, pattern = rm.03, replacement = ""); jjep.52.2.139.rm04 <- str_replace_all(jjep.52.2.139.rm03, pattern = rm.04, replacement = ""); jjep.52.2.139.rm05 <- str_replace_all(jjep.52.2.139.rm04, pattern = rm.05, replacement = ""); jjep.52.2.139.rm06 <- str_replace_all(jjep.52.2.139.rm05, pattern = rm.06, replacement = ""); jjep.52.2.139.rm07 <- str_replace_all(jjep.52.2.139.rm06, pattern = rm.07, replacement = ""); jjep.52.2.139.rm08 <- str_replace_all(jjep.52.2.139.rm07, pattern = rm.08, replacement = ""); jjep.52.2.139.rm09 <- str_replace_all(jjep.52.2.139.rm08, pattern = rm.09, replacement = ""); jjep.52.2.139.rp10 <- str_replace_all(jjep.52.2.139.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.139.rp11 <- str_replace_all(jjep.52.2.139.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.139.rp12 <- str_replace_all(jjep.52.2.139.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.139.rp13 <- str_replace_all(jjep.52.2.139.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.139.rp14 <- str_replace_all(jjep.52.2.139.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.139.rp15 <- str_replace_all(jjep.52.2.139.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.139.mod <- rbind(varname,jjep.52.2.139.rp15); write(jjep.52.2.139.mod, file = "./jjep/Mod_52_2_139.txt")
jjep.52.2.148.tx <- readr::read_file(file="./jjep/52_2_148.txt"); jjep.52.2.148.rm00 <- jjep.52.2.148.tx; jjep.52.2.148.rm01 <- str_replace_all(jjep.52.2.148.rm00, pattern = rm.01, replacement = ""); jjep.52.2.148.rm02 <- str_replace_all(jjep.52.2.148.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.148.rm03 <- str_replace_all(jjep.52.2.148.rm02, pattern = rm.03, replacement = ""); jjep.52.2.148.rm04 <- str_replace_all(jjep.52.2.148.rm03, pattern = rm.04, replacement = ""); jjep.52.2.148.rm05 <- str_replace_all(jjep.52.2.148.rm04, pattern = rm.05, replacement = ""); jjep.52.2.148.rm06 <- str_replace_all(jjep.52.2.148.rm05, pattern = rm.06, replacement = ""); jjep.52.2.148.rm07 <- str_replace_all(jjep.52.2.148.rm06, pattern = rm.07, replacement = ""); jjep.52.2.148.rm08 <- str_replace_all(jjep.52.2.148.rm07, pattern = rm.08, replacement = ""); jjep.52.2.148.rm09 <- str_replace_all(jjep.52.2.148.rm08, pattern = rm.09, replacement = ""); jjep.52.2.148.rp10 <- str_replace_all(jjep.52.2.148.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.148.rp11 <- str_replace_all(jjep.52.2.148.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.148.rp12 <- str_replace_all(jjep.52.2.148.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.148.rp13 <- str_replace_all(jjep.52.2.148.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.148.rp14 <- str_replace_all(jjep.52.2.148.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.148.rp15 <- str_replace_all(jjep.52.2.148.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.148.mod <- rbind(varname,jjep.52.2.148.rp15); write(jjep.52.2.148.mod, file = "./jjep/Mod_52_2_148.txt")
jjep.52.2.159.tx <- readr::read_file(file="./jjep/52_2_159.txt"); jjep.52.2.159.rm00 <- jjep.52.2.159.tx; jjep.52.2.159.rm01 <- str_replace_all(jjep.52.2.159.rm00, pattern = rm.01, replacement = ""); jjep.52.2.159.rm02 <- str_replace_all(jjep.52.2.159.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.159.rm03 <- str_replace_all(jjep.52.2.159.rm02, pattern = rm.03, replacement = ""); jjep.52.2.159.rm04 <- str_replace_all(jjep.52.2.159.rm03, pattern = rm.04, replacement = ""); jjep.52.2.159.rm05 <- str_replace_all(jjep.52.2.159.rm04, pattern = rm.05, replacement = ""); jjep.52.2.159.rm06 <- str_replace_all(jjep.52.2.159.rm05, pattern = rm.06, replacement = ""); jjep.52.2.159.rm07 <- str_replace_all(jjep.52.2.159.rm06, pattern = rm.07, replacement = ""); jjep.52.2.159.rm08 <- str_replace_all(jjep.52.2.159.rm07, pattern = rm.08, replacement = ""); jjep.52.2.159.rm09 <- str_replace_all(jjep.52.2.159.rm08, pattern = rm.09, replacement = ""); jjep.52.2.159.rp10 <- str_replace_all(jjep.52.2.159.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.159.rp11 <- str_replace_all(jjep.52.2.159.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.159.rp12 <- str_replace_all(jjep.52.2.159.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.159.rp13 <- str_replace_all(jjep.52.2.159.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.159.rp14 <- str_replace_all(jjep.52.2.159.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.159.rp15 <- str_replace_all(jjep.52.2.159.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.159.mod <- rbind(varname,jjep.52.2.159.rp15); write(jjep.52.2.159.mod, file = "./jjep/Mod_52_2_159.txt")
jjep.52.2.170.tx <- readr::read_file(file="./jjep/52_2_170.txt"); jjep.52.2.170.rm00 <- jjep.52.2.170.tx; jjep.52.2.170.rm01 <- str_replace_all(jjep.52.2.170.rm00, pattern = rm.01, replacement = ""); jjep.52.2.170.rm02 <- str_replace_all(jjep.52.2.170.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.170.rm03 <- str_replace_all(jjep.52.2.170.rm02, pattern = rm.03, replacement = ""); jjep.52.2.170.rm04 <- str_replace_all(jjep.52.2.170.rm03, pattern = rm.04, replacement = ""); jjep.52.2.170.rm05 <- str_replace_all(jjep.52.2.170.rm04, pattern = rm.05, replacement = ""); jjep.52.2.170.rm06 <- str_replace_all(jjep.52.2.170.rm05, pattern = rm.06, replacement = ""); jjep.52.2.170.rm07 <- str_replace_all(jjep.52.2.170.rm06, pattern = rm.07, replacement = ""); jjep.52.2.170.rm08 <- str_replace_all(jjep.52.2.170.rm07, pattern = rm.08, replacement = ""); jjep.52.2.170.rm09 <- str_replace_all(jjep.52.2.170.rm08, pattern = rm.09, replacement = ""); jjep.52.2.170.rp10 <- str_replace_all(jjep.52.2.170.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.170.rp11 <- str_replace_all(jjep.52.2.170.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.170.rp12 <- str_replace_all(jjep.52.2.170.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.170.rp13 <- str_replace_all(jjep.52.2.170.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.170.rp14 <- str_replace_all(jjep.52.2.170.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.170.rp15 <- str_replace_all(jjep.52.2.170.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.170.mod <- rbind(varname,jjep.52.2.170.rp15); write(jjep.52.2.170.mod, file = "./jjep/Mod_52_2_170.txt")
jjep.52.2.186.tx <- readr::read_file(file="./jjep/52_2_186.txt"); jjep.52.2.186.rm00 <- jjep.52.2.186.tx; jjep.52.2.186.rm01 <- str_replace_all(jjep.52.2.186.rm00, pattern = rm.01, replacement = ""); jjep.52.2.186.rm02 <- str_replace_all(jjep.52.2.186.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.186.rm03 <- str_replace_all(jjep.52.2.186.rm02, pattern = rm.03, replacement = ""); jjep.52.2.186.rm04 <- str_replace_all(jjep.52.2.186.rm03, pattern = rm.04, replacement = ""); jjep.52.2.186.rm05 <- str_replace_all(jjep.52.2.186.rm04, pattern = rm.05, replacement = ""); jjep.52.2.186.rm06 <- str_replace_all(jjep.52.2.186.rm05, pattern = rm.06, replacement = ""); jjep.52.2.186.rm07 <- str_replace_all(jjep.52.2.186.rm06, pattern = rm.07, replacement = ""); jjep.52.2.186.rm08 <- str_replace_all(jjep.52.2.186.rm07, pattern = rm.08, replacement = ""); jjep.52.2.186.rm09 <- str_replace_all(jjep.52.2.186.rm08, pattern = rm.09, replacement = ""); jjep.52.2.186.rp10 <- str_replace_all(jjep.52.2.186.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.186.rp11 <- str_replace_all(jjep.52.2.186.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.186.rp12 <- str_replace_all(jjep.52.2.186.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.186.rp13 <- str_replace_all(jjep.52.2.186.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.186.rp14 <- str_replace_all(jjep.52.2.186.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.186.rp15 <- str_replace_all(jjep.52.2.186.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.186.mod <- rbind(varname,jjep.52.2.186.rp15); write(jjep.52.2.186.mod, file = "./jjep/Mod_52_2_186.txt")
jjep.52.2.199.tx <- readr::read_file(file="./jjep/52_2_199.txt"); jjep.52.2.199.rm00 <- jjep.52.2.199.tx; jjep.52.2.199.rm01 <- str_replace_all(jjep.52.2.199.rm00, pattern = rm.01, replacement = ""); jjep.52.2.199.rm02 <- str_replace_all(jjep.52.2.199.rm01, pattern = rm.02, replacement = "^"); jjep.52.2.199.rm03 <- str_replace_all(jjep.52.2.199.rm02, pattern = rm.03, replacement = ""); jjep.52.2.199.rm04 <- str_replace_all(jjep.52.2.199.rm03, pattern = rm.04, replacement = ""); jjep.52.2.199.rm05 <- str_replace_all(jjep.52.2.199.rm04, pattern = rm.05, replacement = ""); jjep.52.2.199.rm06 <- str_replace_all(jjep.52.2.199.rm05, pattern = rm.06, replacement = ""); jjep.52.2.199.rm07 <- str_replace_all(jjep.52.2.199.rm06, pattern = rm.07, replacement = ""); jjep.52.2.199.rm08 <- str_replace_all(jjep.52.2.199.rm07, pattern = rm.08, replacement = ""); jjep.52.2.199.rm09 <- str_replace_all(jjep.52.2.199.rm08, pattern = rm.09, replacement = ""); jjep.52.2.199.rp10 <- str_replace_all(jjep.52.2.199.rm09, pattern = rp.01, replacement = "・"); jjep.52.2.199.rp11 <- str_replace_all(jjep.52.2.199.rp10, pattern = rp.02, replacement = "^"); jjep.52.2.199.rp12 <- str_replace_all(jjep.52.2.199.rp11, pattern = rp.03, replacement = "^"); jjep.52.2.199.rp13 <- str_replace_all(jjep.52.2.199.rp12, pattern = rp.04, replacement = "^"); jjep.52.2.199.rp14 <- str_replace_all(jjep.52.2.199.rp13, pattern = rp.05, replacement = "^"); jjep.52.2.199.rp15 <- str_replace_all(jjep.52.2.199.rp14, pattern = rp.06, replacement = "^"); jjep.52.2.199.mod <- rbind(varname,jjep.52.2.199.rp15); write(jjep.52.2.199.mod, file = "./jjep/Mod_52_2_199.txt")
jjep.52.1.1.tx <- readr::read_file(file="./jjep/52_1_1.txt"); jjep.52.1.1.rm00 <- jjep.52.1.1.tx; jjep.52.1.1.rm01 <- str_replace_all(jjep.52.1.1.rm00, pattern = rm.01, replacement = ""); jjep.52.1.1.rm02 <- str_replace_all(jjep.52.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.52.1.1.rm03 <- str_replace_all(jjep.52.1.1.rm02, pattern = rm.03, replacement = ""); jjep.52.1.1.rm04 <- str_replace_all(jjep.52.1.1.rm03, pattern = rm.04, replacement = ""); jjep.52.1.1.rm05 <- str_replace_all(jjep.52.1.1.rm04, pattern = rm.05, replacement = ""); jjep.52.1.1.rm06 <- str_replace_all(jjep.52.1.1.rm05, pattern = rm.06, replacement = ""); jjep.52.1.1.rm07 <- str_replace_all(jjep.52.1.1.rm06, pattern = rm.07, replacement = ""); jjep.52.1.1.rm08 <- str_replace_all(jjep.52.1.1.rm07, pattern = rm.08, replacement = ""); jjep.52.1.1.rm09 <- str_replace_all(jjep.52.1.1.rm08, pattern = rm.09, replacement = ""); jjep.52.1.1.rp10 <- str_replace_all(jjep.52.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.52.1.1.rp11 <- str_replace_all(jjep.52.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.52.1.1.rp12 <- str_replace_all(jjep.52.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.52.1.1.rp13 <- str_replace_all(jjep.52.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.52.1.1.rp14 <- str_replace_all(jjep.52.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.52.1.1.rp15 <- str_replace_all(jjep.52.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.52.1.1.mod <- rbind(varname,jjep.52.1.1.rp15); write(jjep.52.1.1.mod, file = "./jjep/Mod_52_1_1.txt")
jjep.52.1.12.tx <- readr::read_file(file="./jjep/52_1_12.txt"); jjep.52.1.12.rm00 <- jjep.52.1.12.tx; jjep.52.1.12.rm01 <- str_replace_all(jjep.52.1.12.rm00, pattern = rm.01, replacement = ""); jjep.52.1.12.rm02 <- str_replace_all(jjep.52.1.12.rm01, pattern = rm.02, replacement = "^"); jjep.52.1.12.rm03 <- str_replace_all(jjep.52.1.12.rm02, pattern = rm.03, replacement = ""); jjep.52.1.12.rm04 <- str_replace_all(jjep.52.1.12.rm03, pattern = rm.04, replacement = ""); jjep.52.1.12.rm05 <- str_replace_all(jjep.52.1.12.rm04, pattern = rm.05, replacement = ""); jjep.52.1.12.rm06 <- str_replace_all(jjep.52.1.12.rm05, pattern = rm.06, replacement = ""); jjep.52.1.12.rm07 <- str_replace_all(jjep.52.1.12.rm06, pattern = rm.07, replacement = ""); jjep.52.1.12.rm08 <- str_replace_all(jjep.52.1.12.rm07, pattern = rm.08, replacement = ""); jjep.52.1.12.rm09 <- str_replace_all(jjep.52.1.12.rm08, pattern = rm.09, replacement = ""); jjep.52.1.12.rp10 <- str_replace_all(jjep.52.1.12.rm09, pattern = rp.01, replacement = "・"); jjep.52.1.12.rp11 <- str_replace_all(jjep.52.1.12.rp10, pattern = rp.02, replacement = "^"); jjep.52.1.12.rp12 <- str_replace_all(jjep.52.1.12.rp11, pattern = rp.03, replacement = "^"); jjep.52.1.12.rp13 <- str_replace_all(jjep.52.1.12.rp12, pattern = rp.04, replacement = "^"); jjep.52.1.12.rp14 <- str_replace_all(jjep.52.1.12.rp13, pattern = rp.05, replacement = "^"); jjep.52.1.12.rp15 <- str_replace_all(jjep.52.1.12.rp14, pattern = rp.06, replacement = "^"); jjep.52.1.12.mod <- rbind(varname,jjep.52.1.12.rp15); write(jjep.52.1.12.mod, file = "./jjep/Mod_52_1_12.txt")
jjep.52.1.24.tx <- readr::read_file(file="./jjep/52_1_24.txt"); jjep.52.1.24.rm00 <- jjep.52.1.24.tx; jjep.52.1.24.rm01 <- str_replace_all(jjep.52.1.24.rm00, pattern = rm.01, replacement = ""); jjep.52.1.24.rm02 <- str_replace_all(jjep.52.1.24.rm01, pattern = rm.02, replacement = "^"); jjep.52.1.24.rm03 <- str_replace_all(jjep.52.1.24.rm02, pattern = rm.03, replacement = ""); jjep.52.1.24.rm04 <- str_replace_all(jjep.52.1.24.rm03, pattern = rm.04, replacement = ""); jjep.52.1.24.rm05 <- str_replace_all(jjep.52.1.24.rm04, pattern = rm.05, replacement = ""); jjep.52.1.24.rm06 <- str_replace_all(jjep.52.1.24.rm05, pattern = rm.06, replacement = ""); jjep.52.1.24.rm07 <- str_replace_all(jjep.52.1.24.rm06, pattern = rm.07, replacement = ""); jjep.52.1.24.rm08 <- str_replace_all(jjep.52.1.24.rm07, pattern = rm.08, replacement = ""); jjep.52.1.24.rm09 <- str_replace_all(jjep.52.1.24.rm08, pattern = rm.09, replacement = ""); jjep.52.1.24.rp10 <- str_replace_all(jjep.52.1.24.rm09, pattern = rp.01, replacement = "・"); jjep.52.1.24.rp11 <- str_replace_all(jjep.52.1.24.rp10, pattern = rp.02, replacement = "^"); jjep.52.1.24.rp12 <- str_replace_all(jjep.52.1.24.rp11, pattern = rp.03, replacement = "^"); jjep.52.1.24.rp13 <- str_replace_all(jjep.52.1.24.rp12, pattern = rp.04, replacement = "^"); jjep.52.1.24.rp14 <- str_replace_all(jjep.52.1.24.rp13, pattern = rp.05, replacement = "^"); jjep.52.1.24.rp15 <- str_replace_all(jjep.52.1.24.rp14, pattern = rp.06, replacement = "^"); jjep.52.1.24.mod <- rbind(varname,jjep.52.1.24.rp15); write(jjep.52.1.24.mod, file = "./jjep/Mod_52_1_24.txt")
jjep.52.1.33.tx <- readr::read_file(file="./jjep/52_1_33.txt"); jjep.52.1.33.rm00 <- jjep.52.1.33.tx; jjep.52.1.33.rm01 <- str_replace_all(jjep.52.1.33.rm00, pattern = rm.01, replacement = ""); jjep.52.1.33.rm02 <- str_replace_all(jjep.52.1.33.rm01, pattern = rm.02, replacement = "^"); jjep.52.1.33.rm03 <- str_replace_all(jjep.52.1.33.rm02, pattern = rm.03, replacement = ""); jjep.52.1.33.rm04 <- str_replace_all(jjep.52.1.33.rm03, pattern = rm.04, replacement = ""); jjep.52.1.33.rm05 <- str_replace_all(jjep.52.1.33.rm04, pattern = rm.05, replacement = ""); jjep.52.1.33.rm06 <- str_replace_all(jjep.52.1.33.rm05, pattern = rm.06, replacement = ""); jjep.52.1.33.rm07 <- str_replace_all(jjep.52.1.33.rm06, pattern = rm.07, replacement = ""); jjep.52.1.33.rm08 <- str_replace_all(jjep.52.1.33.rm07, pattern = rm.08, replacement = ""); jjep.52.1.33.rm09 <- str_replace_all(jjep.52.1.33.rm08, pattern = rm.09, replacement = ""); jjep.52.1.33.rp10 <- str_replace_all(jjep.52.1.33.rm09, pattern = rp.01, replacement = "・"); jjep.52.1.33.rp11 <- str_replace_all(jjep.52.1.33.rp10, pattern = rp.02, replacement = "^"); jjep.52.1.33.rp12 <- str_replace_all(jjep.52.1.33.rp11, pattern = rp.03, replacement = "^"); jjep.52.1.33.rp13 <- str_replace_all(jjep.52.1.33.rp12, pattern = rp.04, replacement = "^"); jjep.52.1.33.rp14 <- str_replace_all(jjep.52.1.33.rp13, pattern = rp.05, replacement = "^"); jjep.52.1.33.rp15 <- str_replace_all(jjep.52.1.33.rp14, pattern = rp.06, replacement = "^"); jjep.52.1.33.mod <- rbind(varname,jjep.52.1.33.rp15); write(jjep.52.1.33.mod, file = "./jjep/Mod_52_1_33.txt")
jjep.52.1.44.tx <- readr::read_file(file="./jjep/52_1_44.txt"); jjep.52.1.44.rm00 <- jjep.52.1.44.tx; jjep.52.1.44.rm01 <- str_replace_all(jjep.52.1.44.rm00, pattern = rm.01, replacement = ""); jjep.52.1.44.rm02 <- str_replace_all(jjep.52.1.44.rm01, pattern = rm.02, replacement = "^"); jjep.52.1.44.rm03 <- str_replace_all(jjep.52.1.44.rm02, pattern = rm.03, replacement = ""); jjep.52.1.44.rm04 <- str_replace_all(jjep.52.1.44.rm03, pattern = rm.04, replacement = ""); jjep.52.1.44.rm05 <- str_replace_all(jjep.52.1.44.rm04, pattern = rm.05, replacement = ""); jjep.52.1.44.rm06 <- str_replace_all(jjep.52.1.44.rm05, pattern = rm.06, replacement = ""); jjep.52.1.44.rm07 <- str_replace_all(jjep.52.1.44.rm06, pattern = rm.07, replacement = ""); jjep.52.1.44.rm08 <- str_replace_all(jjep.52.1.44.rm07, pattern = rm.08, replacement = ""); jjep.52.1.44.rm09 <- str_replace_all(jjep.52.1.44.rm08, pattern = rm.09, replacement = ""); jjep.52.1.44.rp10 <- str_replace_all(jjep.52.1.44.rm09, pattern = rp.01, replacement = "・"); jjep.52.1.44.rp11 <- str_replace_all(jjep.52.1.44.rp10, pattern = rp.02, replacement = "^"); jjep.52.1.44.rp12 <- str_replace_all(jjep.52.1.44.rp11, pattern = rp.03, replacement = "^"); jjep.52.1.44.rp13 <- str_replace_all(jjep.52.1.44.rp12, pattern = rp.04, replacement = "^"); jjep.52.1.44.rp14 <- str_replace_all(jjep.52.1.44.rp13, pattern = rp.05, replacement = "^"); jjep.52.1.44.rp15 <- str_replace_all(jjep.52.1.44.rp14, pattern = rp.06, replacement = "^"); jjep.52.1.44.mod <- rbind(varname,jjep.52.1.44.rp15); write(jjep.52.1.44.mod, file = "./jjep/Mod_52_1_44.txt")
jjep.52.1.52.tx <- readr::read_file(file="./jjep/52_1_52.txt"); jjep.52.1.52.rm00 <- jjep.52.1.52.tx; jjep.52.1.52.rm01 <- str_replace_all(jjep.52.1.52.rm00, pattern = rm.01, replacement = ""); jjep.52.1.52.rm02 <- str_replace_all(jjep.52.1.52.rm01, pattern = rm.02, replacement = "^"); jjep.52.1.52.rm03 <- str_replace_all(jjep.52.1.52.rm02, pattern = rm.03, replacement = ""); jjep.52.1.52.rm04 <- str_replace_all(jjep.52.1.52.rm03, pattern = rm.04, replacement = ""); jjep.52.1.52.rm05 <- str_replace_all(jjep.52.1.52.rm04, pattern = rm.05, replacement = ""); jjep.52.1.52.rm06 <- str_replace_all(jjep.52.1.52.rm05, pattern = rm.06, replacement = ""); jjep.52.1.52.rm07 <- str_replace_all(jjep.52.1.52.rm06, pattern = rm.07, replacement = ""); jjep.52.1.52.rm08 <- str_replace_all(jjep.52.1.52.rm07, pattern = rm.08, replacement = ""); jjep.52.1.52.rm09 <- str_replace_all(jjep.52.1.52.rm08, pattern = rm.09, replacement = ""); jjep.52.1.52.rp10 <- str_replace_all(jjep.52.1.52.rm09, pattern = rp.01, replacement = "・"); jjep.52.1.52.rp11 <- str_replace_all(jjep.52.1.52.rp10, pattern = rp.02, replacement = "^"); jjep.52.1.52.rp12 <- str_replace_all(jjep.52.1.52.rp11, pattern = rp.03, replacement = "^"); jjep.52.1.52.rp13 <- str_replace_all(jjep.52.1.52.rp12, pattern = rp.04, replacement = "^"); jjep.52.1.52.rp14 <- str_replace_all(jjep.52.1.52.rp13, pattern = rp.05, replacement = "^"); jjep.52.1.52.rp15 <- str_replace_all(jjep.52.1.52.rp14, pattern = rp.06, replacement = "^"); jjep.52.1.52.mod <- rbind(varname,jjep.52.1.52.rp15); write(jjep.52.1.52.mod, file = "./jjep/Mod_52_1_52.txt")
jjep.52.1.61.tx <- readr::read_file(file="./jjep/52_1_61.txt"); jjep.52.1.61.rm00 <- jjep.52.1.61.tx; jjep.52.1.61.rm01 <- str_replace_all(jjep.52.1.61.rm00, pattern = rm.01, replacement = ""); jjep.52.1.61.rm02 <- str_replace_all(jjep.52.1.61.rm01, pattern = rm.02, replacement = "^"); jjep.52.1.61.rm03 <- str_replace_all(jjep.52.1.61.rm02, pattern = rm.03, replacement = ""); jjep.52.1.61.rm04 <- str_replace_all(jjep.52.1.61.rm03, pattern = rm.04, replacement = ""); jjep.52.1.61.rm05 <- str_replace_all(jjep.52.1.61.rm04, pattern = rm.05, replacement = ""); jjep.52.1.61.rm06 <- str_replace_all(jjep.52.1.61.rm05, pattern = rm.06, replacement = ""); jjep.52.1.61.rm07 <- str_replace_all(jjep.52.1.61.rm06, pattern = rm.07, replacement = ""); jjep.52.1.61.rm08 <- str_replace_all(jjep.52.1.61.rm07, pattern = rm.08, replacement = ""); jjep.52.1.61.rm09 <- str_replace_all(jjep.52.1.61.rm08, pattern = rm.09, replacement = ""); jjep.52.1.61.rp10 <- str_replace_all(jjep.52.1.61.rm09, pattern = rp.01, replacement = "・"); jjep.52.1.61.rp11 <- str_replace_all(jjep.52.1.61.rp10, pattern = rp.02, replacement = "^"); jjep.52.1.61.rp12 <- str_replace_all(jjep.52.1.61.rp11, pattern = rp.03, replacement = "^"); jjep.52.1.61.rp13 <- str_replace_all(jjep.52.1.61.rp12, pattern = rp.04, replacement = "^"); jjep.52.1.61.rp14 <- str_replace_all(jjep.52.1.61.rp13, pattern = rp.05, replacement = "^"); jjep.52.1.61.rp15 <- str_replace_all(jjep.52.1.61.rp14, pattern = rp.06, replacement = "^"); jjep.52.1.61.mod <- rbind(varname,jjep.52.1.61.rp15); write(jjep.52.1.61.mod, file = "./jjep/Mod_52_1_61.txt")
jjep.52.1.71.tx <- readr::read_file(file="./jjep/52_1_71.txt"); jjep.52.1.71.rm00 <- jjep.52.1.71.tx; jjep.52.1.71.rm01 <- str_replace_all(jjep.52.1.71.rm00, pattern = rm.01, replacement = ""); jjep.52.1.71.rm02 <- str_replace_all(jjep.52.1.71.rm01, pattern = rm.02, replacement = "^"); jjep.52.1.71.rm03 <- str_replace_all(jjep.52.1.71.rm02, pattern = rm.03, replacement = ""); jjep.52.1.71.rm04 <- str_replace_all(jjep.52.1.71.rm03, pattern = rm.04, replacement = ""); jjep.52.1.71.rm05 <- str_replace_all(jjep.52.1.71.rm04, pattern = rm.05, replacement = ""); jjep.52.1.71.rm06 <- str_replace_all(jjep.52.1.71.rm05, pattern = rm.06, replacement = ""); jjep.52.1.71.rm07 <- str_replace_all(jjep.52.1.71.rm06, pattern = rm.07, replacement = ""); jjep.52.1.71.rm08 <- str_replace_all(jjep.52.1.71.rm07, pattern = rm.08, replacement = ""); jjep.52.1.71.rm09 <- str_replace_all(jjep.52.1.71.rm08, pattern = rm.09, replacement = ""); jjep.52.1.71.rp10 <- str_replace_all(jjep.52.1.71.rm09, pattern = rp.01, replacement = "・"); jjep.52.1.71.rp11 <- str_replace_all(jjep.52.1.71.rp10, pattern = rp.02, replacement = "^"); jjep.52.1.71.rp12 <- str_replace_all(jjep.52.1.71.rp11, pattern = rp.03, replacement = "^"); jjep.52.1.71.rp13 <- str_replace_all(jjep.52.1.71.rp12, pattern = rp.04, replacement = "^"); jjep.52.1.71.rp14 <- str_replace_all(jjep.52.1.71.rp13, pattern = rp.05, replacement = "^"); jjep.52.1.71.rp15 <- str_replace_all(jjep.52.1.71.rp14, pattern = rp.06, replacement = "^"); jjep.52.1.71.mod <- rbind(varname,jjep.52.1.71.rp15); write(jjep.52.1.71.mod, file = "./jjep/Mod_52_1_71.txt")
jjep.51.4.367.tx <- readr::read_file(file="./jjep/51_4_367.txt"); jjep.51.4.367.rm00 <- jjep.51.4.367.tx; jjep.51.4.367.rm01 <- str_replace_all(jjep.51.4.367.rm00, pattern = rm.01, replacement = ""); jjep.51.4.367.rm02 <- str_replace_all(jjep.51.4.367.rm01, pattern = rm.02, replacement = "^"); jjep.51.4.367.rm03 <- str_replace_all(jjep.51.4.367.rm02, pattern = rm.03, replacement = ""); jjep.51.4.367.rm04 <- str_replace_all(jjep.51.4.367.rm03, pattern = rm.04, replacement = ""); jjep.51.4.367.rm05 <- str_replace_all(jjep.51.4.367.rm04, pattern = rm.05, replacement = ""); jjep.51.4.367.rm06 <- str_replace_all(jjep.51.4.367.rm05, pattern = rm.06, replacement = ""); jjep.51.4.367.rm07 <- str_replace_all(jjep.51.4.367.rm06, pattern = rm.07, replacement = ""); jjep.51.4.367.rm08 <- str_replace_all(jjep.51.4.367.rm07, pattern = rm.08, replacement = ""); jjep.51.4.367.rm09 <- str_replace_all(jjep.51.4.367.rm08, pattern = rm.09, replacement = ""); jjep.51.4.367.rp10 <- str_replace_all(jjep.51.4.367.rm09, pattern = rp.01, replacement = "・"); jjep.51.4.367.rp11 <- str_replace_all(jjep.51.4.367.rp10, pattern = rp.02, replacement = "^"); jjep.51.4.367.rp12 <- str_replace_all(jjep.51.4.367.rp11, pattern = rp.03, replacement = "^"); jjep.51.4.367.rp13 <- str_replace_all(jjep.51.4.367.rp12, pattern = rp.04, replacement = "^"); jjep.51.4.367.rp14 <- str_replace_all(jjep.51.4.367.rp13, pattern = rp.05, replacement = "^"); jjep.51.4.367.rp15 <- str_replace_all(jjep.51.4.367.rp14, pattern = rp.06, replacement = "^"); jjep.51.4.367.mod <- rbind(varname,jjep.51.4.367.rp15); write(jjep.51.4.367.mod, file = "./jjep/Mod_51_4_367.txt")
jjep.51.4.378.tx <- readr::read_file(file="./jjep/51_4_378.txt"); jjep.51.4.378.rm00 <- jjep.51.4.378.tx; jjep.51.4.378.rm01 <- str_replace_all(jjep.51.4.378.rm00, pattern = rm.01, replacement = ""); jjep.51.4.378.rm02 <- str_replace_all(jjep.51.4.378.rm01, pattern = rm.02, replacement = "^"); jjep.51.4.378.rm03 <- str_replace_all(jjep.51.4.378.rm02, pattern = rm.03, replacement = ""); jjep.51.4.378.rm04 <- str_replace_all(jjep.51.4.378.rm03, pattern = rm.04, replacement = ""); jjep.51.4.378.rm05 <- str_replace_all(jjep.51.4.378.rm04, pattern = rm.05, replacement = ""); jjep.51.4.378.rm06 <- str_replace_all(jjep.51.4.378.rm05, pattern = rm.06, replacement = ""); jjep.51.4.378.rm07 <- str_replace_all(jjep.51.4.378.rm06, pattern = rm.07, replacement = ""); jjep.51.4.378.rm08 <- str_replace_all(jjep.51.4.378.rm07, pattern = rm.08, replacement = ""); jjep.51.4.378.rm09 <- str_replace_all(jjep.51.4.378.rm08, pattern = rm.09, replacement = ""); jjep.51.4.378.rp10 <- str_replace_all(jjep.51.4.378.rm09, pattern = rp.01, replacement = "・"); jjep.51.4.378.rp11 <- str_replace_all(jjep.51.4.378.rp10, pattern = rp.02, replacement = "^"); jjep.51.4.378.rp12 <- str_replace_all(jjep.51.4.378.rp11, pattern = rp.03, replacement = "^"); jjep.51.4.378.rp13 <- str_replace_all(jjep.51.4.378.rp12, pattern = rp.04, replacement = "^"); jjep.51.4.378.rp14 <- str_replace_all(jjep.51.4.378.rp13, pattern = rp.05, replacement = "^"); jjep.51.4.378.rp15 <- str_replace_all(jjep.51.4.378.rp14, pattern = rp.06, replacement = "^"); jjep.51.4.378.mod <- rbind(varname,jjep.51.4.378.rp15); write(jjep.51.4.378.mod, file = "./jjep/Mod_51_4_378.txt")
jjep.51.4.390.tx <- readr::read_file(file="./jjep/51_4_390.txt"); jjep.51.4.390.rm00 <- jjep.51.4.390.tx; jjep.51.4.390.rm01 <- str_replace_all(jjep.51.4.390.rm00, pattern = rm.01, replacement = ""); jjep.51.4.390.rm02 <- str_replace_all(jjep.51.4.390.rm01, pattern = rm.02, replacement = "^"); jjep.51.4.390.rm03 <- str_replace_all(jjep.51.4.390.rm02, pattern = rm.03, replacement = ""); jjep.51.4.390.rm04 <- str_replace_all(jjep.51.4.390.rm03, pattern = rm.04, replacement = ""); jjep.51.4.390.rm05 <- str_replace_all(jjep.51.4.390.rm04, pattern = rm.05, replacement = ""); jjep.51.4.390.rm06 <- str_replace_all(jjep.51.4.390.rm05, pattern = rm.06, replacement = ""); jjep.51.4.390.rm07 <- str_replace_all(jjep.51.4.390.rm06, pattern = rm.07, replacement = ""); jjep.51.4.390.rm08 <- str_replace_all(jjep.51.4.390.rm07, pattern = rm.08, replacement = ""); jjep.51.4.390.rm09 <- str_replace_all(jjep.51.4.390.rm08, pattern = rm.09, replacement = ""); jjep.51.4.390.rp10 <- str_replace_all(jjep.51.4.390.rm09, pattern = rp.01, replacement = "・"); jjep.51.4.390.rp11 <- str_replace_all(jjep.51.4.390.rp10, pattern = rp.02, replacement = "^"); jjep.51.4.390.rp12 <- str_replace_all(jjep.51.4.390.rp11, pattern = rp.03, replacement = "^"); jjep.51.4.390.rp13 <- str_replace_all(jjep.51.4.390.rp12, pattern = rp.04, replacement = "^"); jjep.51.4.390.rp14 <- str_replace_all(jjep.51.4.390.rp13, pattern = rp.05, replacement = "^"); jjep.51.4.390.rp15 <- str_replace_all(jjep.51.4.390.rp14, pattern = rp.06, replacement = "^"); jjep.51.4.390.mod <- rbind(varname,jjep.51.4.390.rp15); write(jjep.51.4.390.mod, file = "./jjep/Mod_51_4_390.txt")
jjep.51.4.401.tx <- readr::read_file(file="./jjep/51_4_401.txt"); jjep.51.4.401.rm00 <- jjep.51.4.401.tx; jjep.51.4.401.rm01 <- str_replace_all(jjep.51.4.401.rm00, pattern = rm.01, replacement = ""); jjep.51.4.401.rm02 <- str_replace_all(jjep.51.4.401.rm01, pattern = rm.02, replacement = "^"); jjep.51.4.401.rm03 <- str_replace_all(jjep.51.4.401.rm02, pattern = rm.03, replacement = ""); jjep.51.4.401.rm04 <- str_replace_all(jjep.51.4.401.rm03, pattern = rm.04, replacement = ""); jjep.51.4.401.rm05 <- str_replace_all(jjep.51.4.401.rm04, pattern = rm.05, replacement = ""); jjep.51.4.401.rm06 <- str_replace_all(jjep.51.4.401.rm05, pattern = rm.06, replacement = ""); jjep.51.4.401.rm07 <- str_replace_all(jjep.51.4.401.rm06, pattern = rm.07, replacement = ""); jjep.51.4.401.rm08 <- str_replace_all(jjep.51.4.401.rm07, pattern = rm.08, replacement = ""); jjep.51.4.401.rm09 <- str_replace_all(jjep.51.4.401.rm08, pattern = rm.09, replacement = ""); jjep.51.4.401.rp10 <- str_replace_all(jjep.51.4.401.rm09, pattern = rp.01, replacement = "・"); jjep.51.4.401.rp11 <- str_replace_all(jjep.51.4.401.rp10, pattern = rp.02, replacement = "^"); jjep.51.4.401.rp12 <- str_replace_all(jjep.51.4.401.rp11, pattern = rp.03, replacement = "^"); jjep.51.4.401.rp13 <- str_replace_all(jjep.51.4.401.rp12, pattern = rp.04, replacement = "^"); jjep.51.4.401.rp14 <- str_replace_all(jjep.51.4.401.rp13, pattern = rp.05, replacement = "^"); jjep.51.4.401.rp15 <- str_replace_all(jjep.51.4.401.rp14, pattern = rp.06, replacement = "^"); jjep.51.4.401.mod <- rbind(varname,jjep.51.4.401.rp15); write(jjep.51.4.401.mod, file = "./jjep/Mod_51_4_401.txt")
jjep.51.4.413.tx <- readr::read_file(file="./jjep/51_4_413.txt"); jjep.51.4.413.rm00 <- jjep.51.4.413.tx; jjep.51.4.413.rm01 <- str_replace_all(jjep.51.4.413.rm00, pattern = rm.01, replacement = ""); jjep.51.4.413.rm02 <- str_replace_all(jjep.51.4.413.rm01, pattern = rm.02, replacement = "^"); jjep.51.4.413.rm03 <- str_replace_all(jjep.51.4.413.rm02, pattern = rm.03, replacement = ""); jjep.51.4.413.rm04 <- str_replace_all(jjep.51.4.413.rm03, pattern = rm.04, replacement = ""); jjep.51.4.413.rm05 <- str_replace_all(jjep.51.4.413.rm04, pattern = rm.05, replacement = ""); jjep.51.4.413.rm06 <- str_replace_all(jjep.51.4.413.rm05, pattern = rm.06, replacement = ""); jjep.51.4.413.rm07 <- str_replace_all(jjep.51.4.413.rm06, pattern = rm.07, replacement = ""); jjep.51.4.413.rm08 <- str_replace_all(jjep.51.4.413.rm07, pattern = rm.08, replacement = ""); jjep.51.4.413.rm09 <- str_replace_all(jjep.51.4.413.rm08, pattern = rm.09, replacement = ""); jjep.51.4.413.rp10 <- str_replace_all(jjep.51.4.413.rm09, pattern = rp.01, replacement = "・"); jjep.51.4.413.rp11 <- str_replace_all(jjep.51.4.413.rp10, pattern = rp.02, replacement = "^"); jjep.51.4.413.rp12 <- str_replace_all(jjep.51.4.413.rp11, pattern = rp.03, replacement = "^"); jjep.51.4.413.rp13 <- str_replace_all(jjep.51.4.413.rp12, pattern = rp.04, replacement = "^"); jjep.51.4.413.rp14 <- str_replace_all(jjep.51.4.413.rp13, pattern = rp.05, replacement = "^"); jjep.51.4.413.rp15 <- str_replace_all(jjep.51.4.413.rp14, pattern = rp.06, replacement = "^"); jjep.51.4.413.mod <- rbind(varname,jjep.51.4.413.rp15); write(jjep.51.4.413.mod, file = "./jjep/Mod_51_4_413.txt")
jjep.51.4.425.tx <- readr::read_file(file="./jjep/51_4_425.txt"); jjep.51.4.425.rm00 <- jjep.51.4.425.tx; jjep.51.4.425.rm01 <- str_replace_all(jjep.51.4.425.rm00, pattern = rm.01, replacement = ""); jjep.51.4.425.rm02 <- str_replace_all(jjep.51.4.425.rm01, pattern = rm.02, replacement = "^"); jjep.51.4.425.rm03 <- str_replace_all(jjep.51.4.425.rm02, pattern = rm.03, replacement = ""); jjep.51.4.425.rm04 <- str_replace_all(jjep.51.4.425.rm03, pattern = rm.04, replacement = ""); jjep.51.4.425.rm05 <- str_replace_all(jjep.51.4.425.rm04, pattern = rm.05, replacement = ""); jjep.51.4.425.rm06 <- str_replace_all(jjep.51.4.425.rm05, pattern = rm.06, replacement = ""); jjep.51.4.425.rm07 <- str_replace_all(jjep.51.4.425.rm06, pattern = rm.07, replacement = ""); jjep.51.4.425.rm08 <- str_replace_all(jjep.51.4.425.rm07, pattern = rm.08, replacement = ""); jjep.51.4.425.rm09 <- str_replace_all(jjep.51.4.425.rm08, pattern = rm.09, replacement = ""); jjep.51.4.425.rp10 <- str_replace_all(jjep.51.4.425.rm09, pattern = rp.01, replacement = "・"); jjep.51.4.425.rp11 <- str_replace_all(jjep.51.4.425.rp10, pattern = rp.02, replacement = "^"); jjep.51.4.425.rp12 <- str_replace_all(jjep.51.4.425.rp11, pattern = rp.03, replacement = "^"); jjep.51.4.425.rp13 <- str_replace_all(jjep.51.4.425.rp12, pattern = rp.04, replacement = "^"); jjep.51.4.425.rp14 <- str_replace_all(jjep.51.4.425.rp13, pattern = rp.05, replacement = "^"); jjep.51.4.425.rp15 <- str_replace_all(jjep.51.4.425.rp14, pattern = rp.06, replacement = "^"); jjep.51.4.425.mod <- rbind(varname,jjep.51.4.425.rp15); write(jjep.51.4.425.mod, file = "./jjep/Mod_51_4_425.txt")
jjep.51.4.431.tx <- readr::read_file(file="./jjep/51_4_431.txt"); jjep.51.4.431.rm00 <- jjep.51.4.431.tx; jjep.51.4.431.rm01 <- str_replace_all(jjep.51.4.431.rm00, pattern = rm.01, replacement = ""); jjep.51.4.431.rm02 <- str_replace_all(jjep.51.4.431.rm01, pattern = rm.02, replacement = "^"); jjep.51.4.431.rm03 <- str_replace_all(jjep.51.4.431.rm02, pattern = rm.03, replacement = ""); jjep.51.4.431.rm04 <- str_replace_all(jjep.51.4.431.rm03, pattern = rm.04, replacement = ""); jjep.51.4.431.rm05 <- str_replace_all(jjep.51.4.431.rm04, pattern = rm.05, replacement = ""); jjep.51.4.431.rm06 <- str_replace_all(jjep.51.4.431.rm05, pattern = rm.06, replacement = ""); jjep.51.4.431.rm07 <- str_replace_all(jjep.51.4.431.rm06, pattern = rm.07, replacement = ""); jjep.51.4.431.rm08 <- str_replace_all(jjep.51.4.431.rm07, pattern = rm.08, replacement = ""); jjep.51.4.431.rm09 <- str_replace_all(jjep.51.4.431.rm08, pattern = rm.09, replacement = ""); jjep.51.4.431.rp10 <- str_replace_all(jjep.51.4.431.rm09, pattern = rp.01, replacement = "・"); jjep.51.4.431.rp11 <- str_replace_all(jjep.51.4.431.rp10, pattern = rp.02, replacement = "^"); jjep.51.4.431.rp12 <- str_replace_all(jjep.51.4.431.rp11, pattern = rp.03, replacement = "^"); jjep.51.4.431.rp13 <- str_replace_all(jjep.51.4.431.rp12, pattern = rp.04, replacement = "^"); jjep.51.4.431.rp14 <- str_replace_all(jjep.51.4.431.rp13, pattern = rp.05, replacement = "^"); jjep.51.4.431.rp15 <- str_replace_all(jjep.51.4.431.rp14, pattern = rp.06, replacement = "^"); jjep.51.4.431.mod <- rbind(varname,jjep.51.4.431.rp15); write(jjep.51.4.431.mod, file = "./jjep/Mod_51_4_431.txt")
jjep.51.4.443.tx <- readr::read_file(file="./jjep/51_4_443.txt"); jjep.51.4.443.rm00 <- jjep.51.4.443.tx; jjep.51.4.443.rm01 <- str_replace_all(jjep.51.4.443.rm00, pattern = rm.01, replacement = ""); jjep.51.4.443.rm02 <- str_replace_all(jjep.51.4.443.rm01, pattern = rm.02, replacement = "^"); jjep.51.4.443.rm03 <- str_replace_all(jjep.51.4.443.rm02, pattern = rm.03, replacement = ""); jjep.51.4.443.rm04 <- str_replace_all(jjep.51.4.443.rm03, pattern = rm.04, replacement = ""); jjep.51.4.443.rm05 <- str_replace_all(jjep.51.4.443.rm04, pattern = rm.05, replacement = ""); jjep.51.4.443.rm06 <- str_replace_all(jjep.51.4.443.rm05, pattern = rm.06, replacement = ""); jjep.51.4.443.rm07 <- str_replace_all(jjep.51.4.443.rm06, pattern = rm.07, replacement = ""); jjep.51.4.443.rm08 <- str_replace_all(jjep.51.4.443.rm07, pattern = rm.08, replacement = ""); jjep.51.4.443.rm09 <- str_replace_all(jjep.51.4.443.rm08, pattern = rm.09, replacement = ""); jjep.51.4.443.rp10 <- str_replace_all(jjep.51.4.443.rm09, pattern = rp.01, replacement = "・"); jjep.51.4.443.rp11 <- str_replace_all(jjep.51.4.443.rp10, pattern = rp.02, replacement = "^"); jjep.51.4.443.rp12 <- str_replace_all(jjep.51.4.443.rp11, pattern = rp.03, replacement = "^"); jjep.51.4.443.rp13 <- str_replace_all(jjep.51.4.443.rp12, pattern = rp.04, replacement = "^"); jjep.51.4.443.rp14 <- str_replace_all(jjep.51.4.443.rp13, pattern = rp.05, replacement = "^"); jjep.51.4.443.rp15 <- str_replace_all(jjep.51.4.443.rp14, pattern = rp.06, replacement = "^"); jjep.51.4.443.mod <- rbind(varname,jjep.51.4.443.rp15); write(jjep.51.4.443.mod, file = "./jjep/Mod_51_4_443.txt")
jjep.51.3.251.tx <- readr::read_file(file="./jjep/51_3_251.txt"); jjep.51.3.251.rm00 <- jjep.51.3.251.tx; jjep.51.3.251.rm01 <- str_replace_all(jjep.51.3.251.rm00, pattern = rm.01, replacement = ""); jjep.51.3.251.rm02 <- str_replace_all(jjep.51.3.251.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.251.rm03 <- str_replace_all(jjep.51.3.251.rm02, pattern = rm.03, replacement = ""); jjep.51.3.251.rm04 <- str_replace_all(jjep.51.3.251.rm03, pattern = rm.04, replacement = ""); jjep.51.3.251.rm05 <- str_replace_all(jjep.51.3.251.rm04, pattern = rm.05, replacement = ""); jjep.51.3.251.rm06 <- str_replace_all(jjep.51.3.251.rm05, pattern = rm.06, replacement = ""); jjep.51.3.251.rm07 <- str_replace_all(jjep.51.3.251.rm06, pattern = rm.07, replacement = ""); jjep.51.3.251.rm08 <- str_replace_all(jjep.51.3.251.rm07, pattern = rm.08, replacement = ""); jjep.51.3.251.rm09 <- str_replace_all(jjep.51.3.251.rm08, pattern = rm.09, replacement = ""); jjep.51.3.251.rp10 <- str_replace_all(jjep.51.3.251.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.251.rp11 <- str_replace_all(jjep.51.3.251.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.251.rp12 <- str_replace_all(jjep.51.3.251.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.251.rp13 <- str_replace_all(jjep.51.3.251.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.251.rp14 <- str_replace_all(jjep.51.3.251.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.251.rp15 <- str_replace_all(jjep.51.3.251.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.251.mod <- rbind(varname,jjep.51.3.251.rp15); write(jjep.51.3.251.mod, file = "./jjep/Mod_51_3_251.txt")
jjep.51.3.261.tx <- readr::read_file(file="./jjep/51_3_261.txt"); jjep.51.3.261.rm00 <- jjep.51.3.261.tx; jjep.51.3.261.rm01 <- str_replace_all(jjep.51.3.261.rm00, pattern = rm.01, replacement = ""); jjep.51.3.261.rm02 <- str_replace_all(jjep.51.3.261.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.261.rm03 <- str_replace_all(jjep.51.3.261.rm02, pattern = rm.03, replacement = ""); jjep.51.3.261.rm04 <- str_replace_all(jjep.51.3.261.rm03, pattern = rm.04, replacement = ""); jjep.51.3.261.rm05 <- str_replace_all(jjep.51.3.261.rm04, pattern = rm.05, replacement = ""); jjep.51.3.261.rm06 <- str_replace_all(jjep.51.3.261.rm05, pattern = rm.06, replacement = ""); jjep.51.3.261.rm07 <- str_replace_all(jjep.51.3.261.rm06, pattern = rm.07, replacement = ""); jjep.51.3.261.rm08 <- str_replace_all(jjep.51.3.261.rm07, pattern = rm.08, replacement = ""); jjep.51.3.261.rm09 <- str_replace_all(jjep.51.3.261.rm08, pattern = rm.09, replacement = ""); jjep.51.3.261.rp10 <- str_replace_all(jjep.51.3.261.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.261.rp11 <- str_replace_all(jjep.51.3.261.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.261.rp12 <- str_replace_all(jjep.51.3.261.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.261.rp13 <- str_replace_all(jjep.51.3.261.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.261.rp14 <- str_replace_all(jjep.51.3.261.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.261.rp15 <- str_replace_all(jjep.51.3.261.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.261.mod <- rbind(varname,jjep.51.3.261.rp15); write(jjep.51.3.261.mod, file = "./jjep/Mod_51_3_261.txt")
jjep.51.3.273.tx <- readr::read_file(file="./jjep/51_3_273.txt"); jjep.51.3.273.rm00 <- jjep.51.3.273.tx; jjep.51.3.273.rm01 <- str_replace_all(jjep.51.3.273.rm00, pattern = rm.01, replacement = ""); jjep.51.3.273.rm02 <- str_replace_all(jjep.51.3.273.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.273.rm03 <- str_replace_all(jjep.51.3.273.rm02, pattern = rm.03, replacement = ""); jjep.51.3.273.rm04 <- str_replace_all(jjep.51.3.273.rm03, pattern = rm.04, replacement = ""); jjep.51.3.273.rm05 <- str_replace_all(jjep.51.3.273.rm04, pattern = rm.05, replacement = ""); jjep.51.3.273.rm06 <- str_replace_all(jjep.51.3.273.rm05, pattern = rm.06, replacement = ""); jjep.51.3.273.rm07 <- str_replace_all(jjep.51.3.273.rm06, pattern = rm.07, replacement = ""); jjep.51.3.273.rm08 <- str_replace_all(jjep.51.3.273.rm07, pattern = rm.08, replacement = ""); jjep.51.3.273.rm09 <- str_replace_all(jjep.51.3.273.rm08, pattern = rm.09, replacement = ""); jjep.51.3.273.rp10 <- str_replace_all(jjep.51.3.273.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.273.rp11 <- str_replace_all(jjep.51.3.273.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.273.rp12 <- str_replace_all(jjep.51.3.273.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.273.rp13 <- str_replace_all(jjep.51.3.273.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.273.rp14 <- str_replace_all(jjep.51.3.273.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.273.rp15 <- str_replace_all(jjep.51.3.273.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.273.mod <- rbind(varname,jjep.51.3.273.rp15); write(jjep.51.3.273.mod, file = "./jjep/Mod_51_3_273.txt")
jjep.51.3.281.tx <- readr::read_file(file="./jjep/51_3_281.txt"); jjep.51.3.281.rm00 <- jjep.51.3.281.tx; jjep.51.3.281.rm01 <- str_replace_all(jjep.51.3.281.rm00, pattern = rm.01, replacement = ""); jjep.51.3.281.rm02 <- str_replace_all(jjep.51.3.281.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.281.rm03 <- str_replace_all(jjep.51.3.281.rm02, pattern = rm.03, replacement = ""); jjep.51.3.281.rm04 <- str_replace_all(jjep.51.3.281.rm03, pattern = rm.04, replacement = ""); jjep.51.3.281.rm05 <- str_replace_all(jjep.51.3.281.rm04, pattern = rm.05, replacement = ""); jjep.51.3.281.rm06 <- str_replace_all(jjep.51.3.281.rm05, pattern = rm.06, replacement = ""); jjep.51.3.281.rm07 <- str_replace_all(jjep.51.3.281.rm06, pattern = rm.07, replacement = ""); jjep.51.3.281.rm08 <- str_replace_all(jjep.51.3.281.rm07, pattern = rm.08, replacement = ""); jjep.51.3.281.rm09 <- str_replace_all(jjep.51.3.281.rm08, pattern = rm.09, replacement = ""); jjep.51.3.281.rp10 <- str_replace_all(jjep.51.3.281.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.281.rp11 <- str_replace_all(jjep.51.3.281.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.281.rp12 <- str_replace_all(jjep.51.3.281.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.281.rp13 <- str_replace_all(jjep.51.3.281.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.281.rp14 <- str_replace_all(jjep.51.3.281.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.281.rp15 <- str_replace_all(jjep.51.3.281.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.281.mod <- rbind(varname,jjep.51.3.281.rp15); write(jjep.51.3.281.mod, file = "./jjep/Mod_51_3_281.txt")
jjep.51.3.288.tx <- readr::read_file(file="./jjep/51_3_288.txt"); jjep.51.3.288.rm00 <- jjep.51.3.288.tx; jjep.51.3.288.rm01 <- str_replace_all(jjep.51.3.288.rm00, pattern = rm.01, replacement = ""); jjep.51.3.288.rm02 <- str_replace_all(jjep.51.3.288.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.288.rm03 <- str_replace_all(jjep.51.3.288.rm02, pattern = rm.03, replacement = ""); jjep.51.3.288.rm04 <- str_replace_all(jjep.51.3.288.rm03, pattern = rm.04, replacement = ""); jjep.51.3.288.rm05 <- str_replace_all(jjep.51.3.288.rm04, pattern = rm.05, replacement = ""); jjep.51.3.288.rm06 <- str_replace_all(jjep.51.3.288.rm05, pattern = rm.06, replacement = ""); jjep.51.3.288.rm07 <- str_replace_all(jjep.51.3.288.rm06, pattern = rm.07, replacement = ""); jjep.51.3.288.rm08 <- str_replace_all(jjep.51.3.288.rm07, pattern = rm.08, replacement = ""); jjep.51.3.288.rm09 <- str_replace_all(jjep.51.3.288.rm08, pattern = rm.09, replacement = ""); jjep.51.3.288.rp10 <- str_replace_all(jjep.51.3.288.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.288.rp11 <- str_replace_all(jjep.51.3.288.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.288.rp12 <- str_replace_all(jjep.51.3.288.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.288.rp13 <- str_replace_all(jjep.51.3.288.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.288.rp14 <- str_replace_all(jjep.51.3.288.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.288.rp15 <- str_replace_all(jjep.51.3.288.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.288.mod <- rbind(varname,jjep.51.3.288.rp15); write(jjep.51.3.288.mod, file = "./jjep/Mod_51_3_288.txt")
jjep.51.3.298.tx <- readr::read_file(file="./jjep/51_3_298.txt"); jjep.51.3.298.rm00 <- jjep.51.3.298.tx; jjep.51.3.298.rm01 <- str_replace_all(jjep.51.3.298.rm00, pattern = rm.01, replacement = ""); jjep.51.3.298.rm02 <- str_replace_all(jjep.51.3.298.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.298.rm03 <- str_replace_all(jjep.51.3.298.rm02, pattern = rm.03, replacement = ""); jjep.51.3.298.rm04 <- str_replace_all(jjep.51.3.298.rm03, pattern = rm.04, replacement = ""); jjep.51.3.298.rm05 <- str_replace_all(jjep.51.3.298.rm04, pattern = rm.05, replacement = ""); jjep.51.3.298.rm06 <- str_replace_all(jjep.51.3.298.rm05, pattern = rm.06, replacement = ""); jjep.51.3.298.rm07 <- str_replace_all(jjep.51.3.298.rm06, pattern = rm.07, replacement = ""); jjep.51.3.298.rm08 <- str_replace_all(jjep.51.3.298.rm07, pattern = rm.08, replacement = ""); jjep.51.3.298.rm09 <- str_replace_all(jjep.51.3.298.rm08, pattern = rm.09, replacement = ""); jjep.51.3.298.rp10 <- str_replace_all(jjep.51.3.298.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.298.rp11 <- str_replace_all(jjep.51.3.298.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.298.rp12 <- str_replace_all(jjep.51.3.298.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.298.rp13 <- str_replace_all(jjep.51.3.298.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.298.rp14 <- str_replace_all(jjep.51.3.298.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.298.rp15 <- str_replace_all(jjep.51.3.298.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.298.mod <- rbind(varname,jjep.51.3.298.rp15); write(jjep.51.3.298.mod, file = "./jjep/Mod_51_3_298.txt")
jjep.51.3.308.tx <- readr::read_file(file="./jjep/51_3_308.txt"); jjep.51.3.308.rm00 <- jjep.51.3.308.tx; jjep.51.3.308.rm01 <- str_replace_all(jjep.51.3.308.rm00, pattern = rm.01, replacement = ""); jjep.51.3.308.rm02 <- str_replace_all(jjep.51.3.308.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.308.rm03 <- str_replace_all(jjep.51.3.308.rm02, pattern = rm.03, replacement = ""); jjep.51.3.308.rm04 <- str_replace_all(jjep.51.3.308.rm03, pattern = rm.04, replacement = ""); jjep.51.3.308.rm05 <- str_replace_all(jjep.51.3.308.rm04, pattern = rm.05, replacement = ""); jjep.51.3.308.rm06 <- str_replace_all(jjep.51.3.308.rm05, pattern = rm.06, replacement = ""); jjep.51.3.308.rm07 <- str_replace_all(jjep.51.3.308.rm06, pattern = rm.07, replacement = ""); jjep.51.3.308.rm08 <- str_replace_all(jjep.51.3.308.rm07, pattern = rm.08, replacement = ""); jjep.51.3.308.rm09 <- str_replace_all(jjep.51.3.308.rm08, pattern = rm.09, replacement = ""); jjep.51.3.308.rp10 <- str_replace_all(jjep.51.3.308.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.308.rp11 <- str_replace_all(jjep.51.3.308.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.308.rp12 <- str_replace_all(jjep.51.3.308.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.308.rp13 <- str_replace_all(jjep.51.3.308.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.308.rp14 <- str_replace_all(jjep.51.3.308.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.308.rp15 <- str_replace_all(jjep.51.3.308.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.308.mod <- rbind(varname,jjep.51.3.308.rp15); write(jjep.51.3.308.mod, file = "./jjep/Mod_51_3_308.txt")
jjep.51.3.319.tx <- readr::read_file(file="./jjep/51_3_319.txt"); jjep.51.3.319.rm00 <- jjep.51.3.319.tx; jjep.51.3.319.rm01 <- str_replace_all(jjep.51.3.319.rm00, pattern = rm.01, replacement = ""); jjep.51.3.319.rm02 <- str_replace_all(jjep.51.3.319.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.319.rm03 <- str_replace_all(jjep.51.3.319.rm02, pattern = rm.03, replacement = ""); jjep.51.3.319.rm04 <- str_replace_all(jjep.51.3.319.rm03, pattern = rm.04, replacement = ""); jjep.51.3.319.rm05 <- str_replace_all(jjep.51.3.319.rm04, pattern = rm.05, replacement = ""); jjep.51.3.319.rm06 <- str_replace_all(jjep.51.3.319.rm05, pattern = rm.06, replacement = ""); jjep.51.3.319.rm07 <- str_replace_all(jjep.51.3.319.rm06, pattern = rm.07, replacement = ""); jjep.51.3.319.rm08 <- str_replace_all(jjep.51.3.319.rm07, pattern = rm.08, replacement = ""); jjep.51.3.319.rm09 <- str_replace_all(jjep.51.3.319.rm08, pattern = rm.09, replacement = ""); jjep.51.3.319.rp10 <- str_replace_all(jjep.51.3.319.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.319.rp11 <- str_replace_all(jjep.51.3.319.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.319.rp12 <- str_replace_all(jjep.51.3.319.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.319.rp13 <- str_replace_all(jjep.51.3.319.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.319.rp14 <- str_replace_all(jjep.51.3.319.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.319.rp15 <- str_replace_all(jjep.51.3.319.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.319.mod <- rbind(varname,jjep.51.3.319.rp15); write(jjep.51.3.319.mod, file = "./jjep/Mod_51_3_319.txt")
jjep.51.3.328.tx <- readr::read_file(file="./jjep/51_3_328.txt"); jjep.51.3.328.rm00 <- jjep.51.3.328.tx; jjep.51.3.328.rm01 <- str_replace_all(jjep.51.3.328.rm00, pattern = rm.01, replacement = ""); jjep.51.3.328.rm02 <- str_replace_all(jjep.51.3.328.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.328.rm03 <- str_replace_all(jjep.51.3.328.rm02, pattern = rm.03, replacement = ""); jjep.51.3.328.rm04 <- str_replace_all(jjep.51.3.328.rm03, pattern = rm.04, replacement = ""); jjep.51.3.328.rm05 <- str_replace_all(jjep.51.3.328.rm04, pattern = rm.05, replacement = ""); jjep.51.3.328.rm06 <- str_replace_all(jjep.51.3.328.rm05, pattern = rm.06, replacement = ""); jjep.51.3.328.rm07 <- str_replace_all(jjep.51.3.328.rm06, pattern = rm.07, replacement = ""); jjep.51.3.328.rm08 <- str_replace_all(jjep.51.3.328.rm07, pattern = rm.08, replacement = ""); jjep.51.3.328.rm09 <- str_replace_all(jjep.51.3.328.rm08, pattern = rm.09, replacement = ""); jjep.51.3.328.rp10 <- str_replace_all(jjep.51.3.328.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.328.rp11 <- str_replace_all(jjep.51.3.328.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.328.rp12 <- str_replace_all(jjep.51.3.328.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.328.rp13 <- str_replace_all(jjep.51.3.328.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.328.rp14 <- str_replace_all(jjep.51.3.328.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.328.rp15 <- str_replace_all(jjep.51.3.328.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.328.mod <- rbind(varname,jjep.51.3.328.rp15); write(jjep.51.3.328.mod, file = "./jjep/Mod_51_3_328.txt")
jjep.51.3.339.tx <- readr::read_file(file="./jjep/51_3_339.txt"); jjep.51.3.339.rm00 <- jjep.51.3.339.tx; jjep.51.3.339.rm01 <- str_replace_all(jjep.51.3.339.rm00, pattern = rm.01, replacement = ""); jjep.51.3.339.rm02 <- str_replace_all(jjep.51.3.339.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.339.rm03 <- str_replace_all(jjep.51.3.339.rm02, pattern = rm.03, replacement = ""); jjep.51.3.339.rm04 <- str_replace_all(jjep.51.3.339.rm03, pattern = rm.04, replacement = ""); jjep.51.3.339.rm05 <- str_replace_all(jjep.51.3.339.rm04, pattern = rm.05, replacement = ""); jjep.51.3.339.rm06 <- str_replace_all(jjep.51.3.339.rm05, pattern = rm.06, replacement = ""); jjep.51.3.339.rm07 <- str_replace_all(jjep.51.3.339.rm06, pattern = rm.07, replacement = ""); jjep.51.3.339.rm08 <- str_replace_all(jjep.51.3.339.rm07, pattern = rm.08, replacement = ""); jjep.51.3.339.rm09 <- str_replace_all(jjep.51.3.339.rm08, pattern = rm.09, replacement = ""); jjep.51.3.339.rp10 <- str_replace_all(jjep.51.3.339.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.339.rp11 <- str_replace_all(jjep.51.3.339.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.339.rp12 <- str_replace_all(jjep.51.3.339.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.339.rp13 <- str_replace_all(jjep.51.3.339.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.339.rp14 <- str_replace_all(jjep.51.3.339.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.339.rp15 <- str_replace_all(jjep.51.3.339.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.339.mod <- rbind(varname,jjep.51.3.339.rp15); write(jjep.51.3.339.mod, file = "./jjep/Mod_51_3_339.txt")
jjep.51.3.351.tx <- readr::read_file(file="./jjep/51_3_351.txt"); jjep.51.3.351.rm00 <- jjep.51.3.351.tx; jjep.51.3.351.rm01 <- str_replace_all(jjep.51.3.351.rm00, pattern = rm.01, replacement = ""); jjep.51.3.351.rm02 <- str_replace_all(jjep.51.3.351.rm01, pattern = rm.02, replacement = "^"); jjep.51.3.351.rm03 <- str_replace_all(jjep.51.3.351.rm02, pattern = rm.03, replacement = ""); jjep.51.3.351.rm04 <- str_replace_all(jjep.51.3.351.rm03, pattern = rm.04, replacement = ""); jjep.51.3.351.rm05 <- str_replace_all(jjep.51.3.351.rm04, pattern = rm.05, replacement = ""); jjep.51.3.351.rm06 <- str_replace_all(jjep.51.3.351.rm05, pattern = rm.06, replacement = ""); jjep.51.3.351.rm07 <- str_replace_all(jjep.51.3.351.rm06, pattern = rm.07, replacement = ""); jjep.51.3.351.rm08 <- str_replace_all(jjep.51.3.351.rm07, pattern = rm.08, replacement = ""); jjep.51.3.351.rm09 <- str_replace_all(jjep.51.3.351.rm08, pattern = rm.09, replacement = ""); jjep.51.3.351.rp10 <- str_replace_all(jjep.51.3.351.rm09, pattern = rp.01, replacement = "・"); jjep.51.3.351.rp11 <- str_replace_all(jjep.51.3.351.rp10, pattern = rp.02, replacement = "^"); jjep.51.3.351.rp12 <- str_replace_all(jjep.51.3.351.rp11, pattern = rp.03, replacement = "^"); jjep.51.3.351.rp13 <- str_replace_all(jjep.51.3.351.rp12, pattern = rp.04, replacement = "^"); jjep.51.3.351.rp14 <- str_replace_all(jjep.51.3.351.rp13, pattern = rp.05, replacement = "^"); jjep.51.3.351.rp15 <- str_replace_all(jjep.51.3.351.rp14, pattern = rp.06, replacement = "^"); jjep.51.3.351.mod <- rbind(varname,jjep.51.3.351.rp15); write(jjep.51.3.351.mod, file = "./jjep/Mod_51_3_351.txt")
jjep.51.2.121.tx <- readr::read_file(file="./jjep/51_2_121.txt"); jjep.51.2.121.rm00 <- jjep.51.2.121.tx; jjep.51.2.121.rm01 <- str_replace_all(jjep.51.2.121.rm00, pattern = rm.01, replacement = ""); jjep.51.2.121.rm02 <- str_replace_all(jjep.51.2.121.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.121.rm03 <- str_replace_all(jjep.51.2.121.rm02, pattern = rm.03, replacement = ""); jjep.51.2.121.rm04 <- str_replace_all(jjep.51.2.121.rm03, pattern = rm.04, replacement = ""); jjep.51.2.121.rm05 <- str_replace_all(jjep.51.2.121.rm04, pattern = rm.05, replacement = ""); jjep.51.2.121.rm06 <- str_replace_all(jjep.51.2.121.rm05, pattern = rm.06, replacement = ""); jjep.51.2.121.rm07 <- str_replace_all(jjep.51.2.121.rm06, pattern = rm.07, replacement = ""); jjep.51.2.121.rm08 <- str_replace_all(jjep.51.2.121.rm07, pattern = rm.08, replacement = ""); jjep.51.2.121.rm09 <- str_replace_all(jjep.51.2.121.rm08, pattern = rm.09, replacement = ""); jjep.51.2.121.rp10 <- str_replace_all(jjep.51.2.121.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.121.rp11 <- str_replace_all(jjep.51.2.121.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.121.rp12 <- str_replace_all(jjep.51.2.121.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.121.rp13 <- str_replace_all(jjep.51.2.121.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.121.rp14 <- str_replace_all(jjep.51.2.121.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.121.rp15 <- str_replace_all(jjep.51.2.121.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.121.mod <- rbind(varname,jjep.51.2.121.rp15); write(jjep.51.2.121.mod, file = "./jjep/Mod_51_2_121.txt")
jjep.51.2.130.tx <- readr::read_file(file="./jjep/51_2_130.txt"); jjep.51.2.130.rm00 <- jjep.51.2.130.tx; jjep.51.2.130.rm01 <- str_replace_all(jjep.51.2.130.rm00, pattern = rm.01, replacement = ""); jjep.51.2.130.rm02 <- str_replace_all(jjep.51.2.130.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.130.rm03 <- str_replace_all(jjep.51.2.130.rm02, pattern = rm.03, replacement = ""); jjep.51.2.130.rm04 <- str_replace_all(jjep.51.2.130.rm03, pattern = rm.04, replacement = ""); jjep.51.2.130.rm05 <- str_replace_all(jjep.51.2.130.rm04, pattern = rm.05, replacement = ""); jjep.51.2.130.rm06 <- str_replace_all(jjep.51.2.130.rm05, pattern = rm.06, replacement = ""); jjep.51.2.130.rm07 <- str_replace_all(jjep.51.2.130.rm06, pattern = rm.07, replacement = ""); jjep.51.2.130.rm08 <- str_replace_all(jjep.51.2.130.rm07, pattern = rm.08, replacement = ""); jjep.51.2.130.rm09 <- str_replace_all(jjep.51.2.130.rm08, pattern = rm.09, replacement = ""); jjep.51.2.130.rp10 <- str_replace_all(jjep.51.2.130.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.130.rp11 <- str_replace_all(jjep.51.2.130.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.130.rp12 <- str_replace_all(jjep.51.2.130.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.130.rp13 <- str_replace_all(jjep.51.2.130.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.130.rp14 <- str_replace_all(jjep.51.2.130.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.130.rp15 <- str_replace_all(jjep.51.2.130.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.130.mod <- rbind(varname,jjep.51.2.130.rp15); write(jjep.51.2.130.mod, file = "./jjep/Mod_51_2_130.txt")
jjep.51.2.141.tx <- readr::read_file(file="./jjep/51_2_141.txt"); jjep.51.2.141.rm00 <- jjep.51.2.141.tx; jjep.51.2.141.rm01 <- str_replace_all(jjep.51.2.141.rm00, pattern = rm.01, replacement = ""); jjep.51.2.141.rm02 <- str_replace_all(jjep.51.2.141.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.141.rm03 <- str_replace_all(jjep.51.2.141.rm02, pattern = rm.03, replacement = ""); jjep.51.2.141.rm04 <- str_replace_all(jjep.51.2.141.rm03, pattern = rm.04, replacement = ""); jjep.51.2.141.rm05 <- str_replace_all(jjep.51.2.141.rm04, pattern = rm.05, replacement = ""); jjep.51.2.141.rm06 <- str_replace_all(jjep.51.2.141.rm05, pattern = rm.06, replacement = ""); jjep.51.2.141.rm07 <- str_replace_all(jjep.51.2.141.rm06, pattern = rm.07, replacement = ""); jjep.51.2.141.rm08 <- str_replace_all(jjep.51.2.141.rm07, pattern = rm.08, replacement = ""); jjep.51.2.141.rm09 <- str_replace_all(jjep.51.2.141.rm08, pattern = rm.09, replacement = ""); jjep.51.2.141.rp10 <- str_replace_all(jjep.51.2.141.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.141.rp11 <- str_replace_all(jjep.51.2.141.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.141.rp12 <- str_replace_all(jjep.51.2.141.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.141.rp13 <- str_replace_all(jjep.51.2.141.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.141.rp14 <- str_replace_all(jjep.51.2.141.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.141.rp15 <- str_replace_all(jjep.51.2.141.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.141.mod <- rbind(varname,jjep.51.2.141.rp15); write(jjep.51.2.141.mod, file = "./jjep/Mod_51_2_141.txt")
jjep.51.2.154.tx <- readr::read_file(file="./jjep/51_2_154.txt"); jjep.51.2.154.rm00 <- jjep.51.2.154.tx; jjep.51.2.154.rm01 <- str_replace_all(jjep.51.2.154.rm00, pattern = rm.01, replacement = ""); jjep.51.2.154.rm02 <- str_replace_all(jjep.51.2.154.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.154.rm03 <- str_replace_all(jjep.51.2.154.rm02, pattern = rm.03, replacement = ""); jjep.51.2.154.rm04 <- str_replace_all(jjep.51.2.154.rm03, pattern = rm.04, replacement = ""); jjep.51.2.154.rm05 <- str_replace_all(jjep.51.2.154.rm04, pattern = rm.05, replacement = ""); jjep.51.2.154.rm06 <- str_replace_all(jjep.51.2.154.rm05, pattern = rm.06, replacement = ""); jjep.51.2.154.rm07 <- str_replace_all(jjep.51.2.154.rm06, pattern = rm.07, replacement = ""); jjep.51.2.154.rm08 <- str_replace_all(jjep.51.2.154.rm07, pattern = rm.08, replacement = ""); jjep.51.2.154.rm09 <- str_replace_all(jjep.51.2.154.rm08, pattern = rm.09, replacement = ""); jjep.51.2.154.rp10 <- str_replace_all(jjep.51.2.154.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.154.rp11 <- str_replace_all(jjep.51.2.154.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.154.rp12 <- str_replace_all(jjep.51.2.154.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.154.rp13 <- str_replace_all(jjep.51.2.154.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.154.rp14 <- str_replace_all(jjep.51.2.154.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.154.rp15 <- str_replace_all(jjep.51.2.154.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.154.mod <- rbind(varname,jjep.51.2.154.rp15); write(jjep.51.2.154.mod, file = "./jjep/Mod_51_2_154.txt")
jjep.51.2.165.tx <- readr::read_file(file="./jjep/51_2_165.txt"); jjep.51.2.165.rm00 <- jjep.51.2.165.tx; jjep.51.2.165.rm01 <- str_replace_all(jjep.51.2.165.rm00, pattern = rm.01, replacement = ""); jjep.51.2.165.rm02 <- str_replace_all(jjep.51.2.165.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.165.rm03 <- str_replace_all(jjep.51.2.165.rm02, pattern = rm.03, replacement = ""); jjep.51.2.165.rm04 <- str_replace_all(jjep.51.2.165.rm03, pattern = rm.04, replacement = ""); jjep.51.2.165.rm05 <- str_replace_all(jjep.51.2.165.rm04, pattern = rm.05, replacement = ""); jjep.51.2.165.rm06 <- str_replace_all(jjep.51.2.165.rm05, pattern = rm.06, replacement = ""); jjep.51.2.165.rm07 <- str_replace_all(jjep.51.2.165.rm06, pattern = rm.07, replacement = ""); jjep.51.2.165.rm08 <- str_replace_all(jjep.51.2.165.rm07, pattern = rm.08, replacement = ""); jjep.51.2.165.rm09 <- str_replace_all(jjep.51.2.165.rm08, pattern = rm.09, replacement = ""); jjep.51.2.165.rp10 <- str_replace_all(jjep.51.2.165.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.165.rp11 <- str_replace_all(jjep.51.2.165.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.165.rp12 <- str_replace_all(jjep.51.2.165.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.165.rp13 <- str_replace_all(jjep.51.2.165.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.165.rp14 <- str_replace_all(jjep.51.2.165.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.165.rp15 <- str_replace_all(jjep.51.2.165.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.165.mod <- rbind(varname,jjep.51.2.165.rp15); write(jjep.51.2.165.mod, file = "./jjep/Mod_51_2_165.txt")
jjep.51.2.175.tx <- readr::read_file(file="./jjep/51_2_175.txt"); jjep.51.2.175.rm00 <- jjep.51.2.175.tx; jjep.51.2.175.rm01 <- str_replace_all(jjep.51.2.175.rm00, pattern = rm.01, replacement = ""); jjep.51.2.175.rm02 <- str_replace_all(jjep.51.2.175.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.175.rm03 <- str_replace_all(jjep.51.2.175.rm02, pattern = rm.03, replacement = ""); jjep.51.2.175.rm04 <- str_replace_all(jjep.51.2.175.rm03, pattern = rm.04, replacement = ""); jjep.51.2.175.rm05 <- str_replace_all(jjep.51.2.175.rm04, pattern = rm.05, replacement = ""); jjep.51.2.175.rm06 <- str_replace_all(jjep.51.2.175.rm05, pattern = rm.06, replacement = ""); jjep.51.2.175.rm07 <- str_replace_all(jjep.51.2.175.rm06, pattern = rm.07, replacement = ""); jjep.51.2.175.rm08 <- str_replace_all(jjep.51.2.175.rm07, pattern = rm.08, replacement = ""); jjep.51.2.175.rm09 <- str_replace_all(jjep.51.2.175.rm08, pattern = rm.09, replacement = ""); jjep.51.2.175.rp10 <- str_replace_all(jjep.51.2.175.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.175.rp11 <- str_replace_all(jjep.51.2.175.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.175.rp12 <- str_replace_all(jjep.51.2.175.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.175.rp13 <- str_replace_all(jjep.51.2.175.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.175.rp14 <- str_replace_all(jjep.51.2.175.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.175.rp15 <- str_replace_all(jjep.51.2.175.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.175.mod <- rbind(varname,jjep.51.2.175.rp15); write(jjep.51.2.175.mod, file = "./jjep/Mod_51_2_175.txt")
jjep.51.2.187.tx <- readr::read_file(file="./jjep/51_2_187.txt"); jjep.51.2.187.rm00 <- jjep.51.2.187.tx; jjep.51.2.187.rm01 <- str_replace_all(jjep.51.2.187.rm00, pattern = rm.01, replacement = ""); jjep.51.2.187.rm02 <- str_replace_all(jjep.51.2.187.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.187.rm03 <- str_replace_all(jjep.51.2.187.rm02, pattern = rm.03, replacement = ""); jjep.51.2.187.rm04 <- str_replace_all(jjep.51.2.187.rm03, pattern = rm.04, replacement = ""); jjep.51.2.187.rm05 <- str_replace_all(jjep.51.2.187.rm04, pattern = rm.05, replacement = ""); jjep.51.2.187.rm06 <- str_replace_all(jjep.51.2.187.rm05, pattern = rm.06, replacement = ""); jjep.51.2.187.rm07 <- str_replace_all(jjep.51.2.187.rm06, pattern = rm.07, replacement = ""); jjep.51.2.187.rm08 <- str_replace_all(jjep.51.2.187.rm07, pattern = rm.08, replacement = ""); jjep.51.2.187.rm09 <- str_replace_all(jjep.51.2.187.rm08, pattern = rm.09, replacement = ""); jjep.51.2.187.rp10 <- str_replace_all(jjep.51.2.187.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.187.rp11 <- str_replace_all(jjep.51.2.187.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.187.rp12 <- str_replace_all(jjep.51.2.187.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.187.rp13 <- str_replace_all(jjep.51.2.187.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.187.rp14 <- str_replace_all(jjep.51.2.187.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.187.rp15 <- str_replace_all(jjep.51.2.187.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.187.mod <- rbind(varname,jjep.51.2.187.rp15); write(jjep.51.2.187.mod, file = "./jjep/Mod_51_2_187.txt")
jjep.51.2.195.tx <- readr::read_file(file="./jjep/51_2_195.txt"); jjep.51.2.195.rm00 <- jjep.51.2.195.tx; jjep.51.2.195.rm01 <- str_replace_all(jjep.51.2.195.rm00, pattern = rm.01, replacement = ""); jjep.51.2.195.rm02 <- str_replace_all(jjep.51.2.195.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.195.rm03 <- str_replace_all(jjep.51.2.195.rm02, pattern = rm.03, replacement = ""); jjep.51.2.195.rm04 <- str_replace_all(jjep.51.2.195.rm03, pattern = rm.04, replacement = ""); jjep.51.2.195.rm05 <- str_replace_all(jjep.51.2.195.rm04, pattern = rm.05, replacement = ""); jjep.51.2.195.rm06 <- str_replace_all(jjep.51.2.195.rm05, pattern = rm.06, replacement = ""); jjep.51.2.195.rm07 <- str_replace_all(jjep.51.2.195.rm06, pattern = rm.07, replacement = ""); jjep.51.2.195.rm08 <- str_replace_all(jjep.51.2.195.rm07, pattern = rm.08, replacement = ""); jjep.51.2.195.rm09 <- str_replace_all(jjep.51.2.195.rm08, pattern = rm.09, replacement = ""); jjep.51.2.195.rp10 <- str_replace_all(jjep.51.2.195.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.195.rp11 <- str_replace_all(jjep.51.2.195.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.195.rp12 <- str_replace_all(jjep.51.2.195.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.195.rp13 <- str_replace_all(jjep.51.2.195.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.195.rp14 <- str_replace_all(jjep.51.2.195.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.195.rp15 <- str_replace_all(jjep.51.2.195.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.195.mod <- rbind(varname,jjep.51.2.195.rp15); write(jjep.51.2.195.mod, file = "./jjep/Mod_51_2_195.txt")
jjep.51.2.205.tx <- readr::read_file(file="./jjep/51_2_205.txt"); jjep.51.2.205.rm00 <- jjep.51.2.205.tx; jjep.51.2.205.rm01 <- str_replace_all(jjep.51.2.205.rm00, pattern = rm.01, replacement = ""); jjep.51.2.205.rm02 <- str_replace_all(jjep.51.2.205.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.205.rm03 <- str_replace_all(jjep.51.2.205.rm02, pattern = rm.03, replacement = ""); jjep.51.2.205.rm04 <- str_replace_all(jjep.51.2.205.rm03, pattern = rm.04, replacement = ""); jjep.51.2.205.rm05 <- str_replace_all(jjep.51.2.205.rm04, pattern = rm.05, replacement = ""); jjep.51.2.205.rm06 <- str_replace_all(jjep.51.2.205.rm05, pattern = rm.06, replacement = ""); jjep.51.2.205.rm07 <- str_replace_all(jjep.51.2.205.rm06, pattern = rm.07, replacement = ""); jjep.51.2.205.rm08 <- str_replace_all(jjep.51.2.205.rm07, pattern = rm.08, replacement = ""); jjep.51.2.205.rm09 <- str_replace_all(jjep.51.2.205.rm08, pattern = rm.09, replacement = ""); jjep.51.2.205.rp10 <- str_replace_all(jjep.51.2.205.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.205.rp11 <- str_replace_all(jjep.51.2.205.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.205.rp12 <- str_replace_all(jjep.51.2.205.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.205.rp13 <- str_replace_all(jjep.51.2.205.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.205.rp14 <- str_replace_all(jjep.51.2.205.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.205.rp15 <- str_replace_all(jjep.51.2.205.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.205.mod <- rbind(varname,jjep.51.2.205.rp15); write(jjep.51.2.205.mod, file = "./jjep/Mod_51_2_205.txt")
jjep.51.2.218.tx <- readr::read_file(file="./jjep/51_2_218.txt"); jjep.51.2.218.rm00 <- jjep.51.2.218.tx; jjep.51.2.218.rm01 <- str_replace_all(jjep.51.2.218.rm00, pattern = rm.01, replacement = ""); jjep.51.2.218.rm02 <- str_replace_all(jjep.51.2.218.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.218.rm03 <- str_replace_all(jjep.51.2.218.rm02, pattern = rm.03, replacement = ""); jjep.51.2.218.rm04 <- str_replace_all(jjep.51.2.218.rm03, pattern = rm.04, replacement = ""); jjep.51.2.218.rm05 <- str_replace_all(jjep.51.2.218.rm04, pattern = rm.05, replacement = ""); jjep.51.2.218.rm06 <- str_replace_all(jjep.51.2.218.rm05, pattern = rm.06, replacement = ""); jjep.51.2.218.rm07 <- str_replace_all(jjep.51.2.218.rm06, pattern = rm.07, replacement = ""); jjep.51.2.218.rm08 <- str_replace_all(jjep.51.2.218.rm07, pattern = rm.08, replacement = ""); jjep.51.2.218.rm09 <- str_replace_all(jjep.51.2.218.rm08, pattern = rm.09, replacement = ""); jjep.51.2.218.rp10 <- str_replace_all(jjep.51.2.218.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.218.rp11 <- str_replace_all(jjep.51.2.218.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.218.rp12 <- str_replace_all(jjep.51.2.218.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.218.rp13 <- str_replace_all(jjep.51.2.218.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.218.rp14 <- str_replace_all(jjep.51.2.218.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.218.rp15 <- str_replace_all(jjep.51.2.218.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.218.mod <- rbind(varname,jjep.51.2.218.rp15); write(jjep.51.2.218.mod, file = "./jjep/Mod_51_2_218.txt")
jjep.51.2.230.tx <- readr::read_file(file="./jjep/51_2_230.txt"); jjep.51.2.230.rm00 <- jjep.51.2.230.tx; jjep.51.2.230.rm01 <- str_replace_all(jjep.51.2.230.rm00, pattern = rm.01, replacement = ""); jjep.51.2.230.rm02 <- str_replace_all(jjep.51.2.230.rm01, pattern = rm.02, replacement = "^"); jjep.51.2.230.rm03 <- str_replace_all(jjep.51.2.230.rm02, pattern = rm.03, replacement = ""); jjep.51.2.230.rm04 <- str_replace_all(jjep.51.2.230.rm03, pattern = rm.04, replacement = ""); jjep.51.2.230.rm05 <- str_replace_all(jjep.51.2.230.rm04, pattern = rm.05, replacement = ""); jjep.51.2.230.rm06 <- str_replace_all(jjep.51.2.230.rm05, pattern = rm.06, replacement = ""); jjep.51.2.230.rm07 <- str_replace_all(jjep.51.2.230.rm06, pattern = rm.07, replacement = ""); jjep.51.2.230.rm08 <- str_replace_all(jjep.51.2.230.rm07, pattern = rm.08, replacement = ""); jjep.51.2.230.rm09 <- str_replace_all(jjep.51.2.230.rm08, pattern = rm.09, replacement = ""); jjep.51.2.230.rp10 <- str_replace_all(jjep.51.2.230.rm09, pattern = rp.01, replacement = "・"); jjep.51.2.230.rp11 <- str_replace_all(jjep.51.2.230.rp10, pattern = rp.02, replacement = "^"); jjep.51.2.230.rp12 <- str_replace_all(jjep.51.2.230.rp11, pattern = rp.03, replacement = "^"); jjep.51.2.230.rp13 <- str_replace_all(jjep.51.2.230.rp12, pattern = rp.04, replacement = "^"); jjep.51.2.230.rp14 <- str_replace_all(jjep.51.2.230.rp13, pattern = rp.05, replacement = "^"); jjep.51.2.230.rp15 <- str_replace_all(jjep.51.2.230.rp14, pattern = rp.06, replacement = "^"); jjep.51.2.230.mod <- rbind(varname,jjep.51.2.230.rp15); write(jjep.51.2.230.mod, file = "./jjep/Mod_51_2_230.txt")
jjep.51.1.1.tx <- readr::read_file(file="./jjep/51_1_1.txt"); jjep.51.1.1.rm00 <- jjep.51.1.1.tx; jjep.51.1.1.rm01 <- str_replace_all(jjep.51.1.1.rm00, pattern = rm.01, replacement = ""); jjep.51.1.1.rm02 <- str_replace_all(jjep.51.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.1.rm03 <- str_replace_all(jjep.51.1.1.rm02, pattern = rm.03, replacement = ""); jjep.51.1.1.rm04 <- str_replace_all(jjep.51.1.1.rm03, pattern = rm.04, replacement = ""); jjep.51.1.1.rm05 <- str_replace_all(jjep.51.1.1.rm04, pattern = rm.05, replacement = ""); jjep.51.1.1.rm06 <- str_replace_all(jjep.51.1.1.rm05, pattern = rm.06, replacement = ""); jjep.51.1.1.rm07 <- str_replace_all(jjep.51.1.1.rm06, pattern = rm.07, replacement = ""); jjep.51.1.1.rm08 <- str_replace_all(jjep.51.1.1.rm07, pattern = rm.08, replacement = ""); jjep.51.1.1.rm09 <- str_replace_all(jjep.51.1.1.rm08, pattern = rm.09, replacement = ""); jjep.51.1.1.rp10 <- str_replace_all(jjep.51.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.1.rp11 <- str_replace_all(jjep.51.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.1.rp12 <- str_replace_all(jjep.51.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.1.rp13 <- str_replace_all(jjep.51.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.1.rp14 <- str_replace_all(jjep.51.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.1.rp15 <- str_replace_all(jjep.51.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.1.mod <- rbind(varname,jjep.51.1.1.rp15); write(jjep.51.1.1.mod, file = "./jjep/Mod_51_1_1.txt")
jjep.51.1.13.tx <- readr::read_file(file="./jjep/51_1_13.txt"); jjep.51.1.13.rm00 <- jjep.51.1.13.tx; jjep.51.1.13.rm01 <- str_replace_all(jjep.51.1.13.rm00, pattern = rm.01, replacement = ""); jjep.51.1.13.rm02 <- str_replace_all(jjep.51.1.13.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.13.rm03 <- str_replace_all(jjep.51.1.13.rm02, pattern = rm.03, replacement = ""); jjep.51.1.13.rm04 <- str_replace_all(jjep.51.1.13.rm03, pattern = rm.04, replacement = ""); jjep.51.1.13.rm05 <- str_replace_all(jjep.51.1.13.rm04, pattern = rm.05, replacement = ""); jjep.51.1.13.rm06 <- str_replace_all(jjep.51.1.13.rm05, pattern = rm.06, replacement = ""); jjep.51.1.13.rm07 <- str_replace_all(jjep.51.1.13.rm06, pattern = rm.07, replacement = ""); jjep.51.1.13.rm08 <- str_replace_all(jjep.51.1.13.rm07, pattern = rm.08, replacement = ""); jjep.51.1.13.rm09 <- str_replace_all(jjep.51.1.13.rm08, pattern = rm.09, replacement = ""); jjep.51.1.13.rp10 <- str_replace_all(jjep.51.1.13.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.13.rp11 <- str_replace_all(jjep.51.1.13.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.13.rp12 <- str_replace_all(jjep.51.1.13.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.13.rp13 <- str_replace_all(jjep.51.1.13.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.13.rp14 <- str_replace_all(jjep.51.1.13.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.13.rp15 <- str_replace_all(jjep.51.1.13.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.13.mod <- rbind(varname,jjep.51.1.13.rp15); write(jjep.51.1.13.mod, file = "./jjep/Mod_51_1_13.txt")
jjep.51.1.22.tx <- readr::read_file(file="./jjep/51_1_22.txt"); jjep.51.1.22.rm00 <- jjep.51.1.22.tx; jjep.51.1.22.rm01 <- str_replace_all(jjep.51.1.22.rm00, pattern = rm.01, replacement = ""); jjep.51.1.22.rm02 <- str_replace_all(jjep.51.1.22.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.22.rm03 <- str_replace_all(jjep.51.1.22.rm02, pattern = rm.03, replacement = ""); jjep.51.1.22.rm04 <- str_replace_all(jjep.51.1.22.rm03, pattern = rm.04, replacement = ""); jjep.51.1.22.rm05 <- str_replace_all(jjep.51.1.22.rm04, pattern = rm.05, replacement = ""); jjep.51.1.22.rm06 <- str_replace_all(jjep.51.1.22.rm05, pattern = rm.06, replacement = ""); jjep.51.1.22.rm07 <- str_replace_all(jjep.51.1.22.rm06, pattern = rm.07, replacement = ""); jjep.51.1.22.rm08 <- str_replace_all(jjep.51.1.22.rm07, pattern = rm.08, replacement = ""); jjep.51.1.22.rm09 <- str_replace_all(jjep.51.1.22.rm08, pattern = rm.09, replacement = ""); jjep.51.1.22.rp10 <- str_replace_all(jjep.51.1.22.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.22.rp11 <- str_replace_all(jjep.51.1.22.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.22.rp12 <- str_replace_all(jjep.51.1.22.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.22.rp13 <- str_replace_all(jjep.51.1.22.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.22.rp14 <- str_replace_all(jjep.51.1.22.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.22.rp15 <- str_replace_all(jjep.51.1.22.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.22.mod <- rbind(varname,jjep.51.1.22.rp15); write(jjep.51.1.22.mod, file = "./jjep/Mod_51_1_22.txt")
jjep.51.1.33.tx <- readr::read_file(file="./jjep/51_1_33.txt"); jjep.51.1.33.rm00 <- jjep.51.1.33.tx; jjep.51.1.33.rm01 <- str_replace_all(jjep.51.1.33.rm00, pattern = rm.01, replacement = ""); jjep.51.1.33.rm02 <- str_replace_all(jjep.51.1.33.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.33.rm03 <- str_replace_all(jjep.51.1.33.rm02, pattern = rm.03, replacement = ""); jjep.51.1.33.rm04 <- str_replace_all(jjep.51.1.33.rm03, pattern = rm.04, replacement = ""); jjep.51.1.33.rm05 <- str_replace_all(jjep.51.1.33.rm04, pattern = rm.05, replacement = ""); jjep.51.1.33.rm06 <- str_replace_all(jjep.51.1.33.rm05, pattern = rm.06, replacement = ""); jjep.51.1.33.rm07 <- str_replace_all(jjep.51.1.33.rm06, pattern = rm.07, replacement = ""); jjep.51.1.33.rm08 <- str_replace_all(jjep.51.1.33.rm07, pattern = rm.08, replacement = ""); jjep.51.1.33.rm09 <- str_replace_all(jjep.51.1.33.rm08, pattern = rm.09, replacement = ""); jjep.51.1.33.rp10 <- str_replace_all(jjep.51.1.33.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.33.rp11 <- str_replace_all(jjep.51.1.33.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.33.rp12 <- str_replace_all(jjep.51.1.33.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.33.rp13 <- str_replace_all(jjep.51.1.33.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.33.rp14 <- str_replace_all(jjep.51.1.33.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.33.rp15 <- str_replace_all(jjep.51.1.33.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.33.mod <- rbind(varname,jjep.51.1.33.rp15); write(jjep.51.1.33.mod, file = "./jjep/Mod_51_1_33.txt")
jjep.51.1.43.tx <- readr::read_file(file="./jjep/51_1_43.txt"); jjep.51.1.43.rm00 <- jjep.51.1.43.tx; jjep.51.1.43.rm01 <- str_replace_all(jjep.51.1.43.rm00, pattern = rm.01, replacement = ""); jjep.51.1.43.rm02 <- str_replace_all(jjep.51.1.43.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.43.rm03 <- str_replace_all(jjep.51.1.43.rm02, pattern = rm.03, replacement = ""); jjep.51.1.43.rm04 <- str_replace_all(jjep.51.1.43.rm03, pattern = rm.04, replacement = ""); jjep.51.1.43.rm05 <- str_replace_all(jjep.51.1.43.rm04, pattern = rm.05, replacement = ""); jjep.51.1.43.rm06 <- str_replace_all(jjep.51.1.43.rm05, pattern = rm.06, replacement = ""); jjep.51.1.43.rm07 <- str_replace_all(jjep.51.1.43.rm06, pattern = rm.07, replacement = ""); jjep.51.1.43.rm08 <- str_replace_all(jjep.51.1.43.rm07, pattern = rm.08, replacement = ""); jjep.51.1.43.rm09 <- str_replace_all(jjep.51.1.43.rm08, pattern = rm.09, replacement = ""); jjep.51.1.43.rp10 <- str_replace_all(jjep.51.1.43.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.43.rp11 <- str_replace_all(jjep.51.1.43.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.43.rp12 <- str_replace_all(jjep.51.1.43.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.43.rp13 <- str_replace_all(jjep.51.1.43.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.43.rp14 <- str_replace_all(jjep.51.1.43.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.43.rp15 <- str_replace_all(jjep.51.1.43.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.43.mod <- rbind(varname,jjep.51.1.43.rp15); write(jjep.51.1.43.mod, file = "./jjep/Mod_51_1_43.txt")
jjep.51.1.54.tx <- readr::read_file(file="./jjep/51_1_54.txt"); jjep.51.1.54.rm00 <- jjep.51.1.54.tx; jjep.51.1.54.rm01 <- str_replace_all(jjep.51.1.54.rm00, pattern = rm.01, replacement = ""); jjep.51.1.54.rm02 <- str_replace_all(jjep.51.1.54.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.54.rm03 <- str_replace_all(jjep.51.1.54.rm02, pattern = rm.03, replacement = ""); jjep.51.1.54.rm04 <- str_replace_all(jjep.51.1.54.rm03, pattern = rm.04, replacement = ""); jjep.51.1.54.rm05 <- str_replace_all(jjep.51.1.54.rm04, pattern = rm.05, replacement = ""); jjep.51.1.54.rm06 <- str_replace_all(jjep.51.1.54.rm05, pattern = rm.06, replacement = ""); jjep.51.1.54.rm07 <- str_replace_all(jjep.51.1.54.rm06, pattern = rm.07, replacement = ""); jjep.51.1.54.rm08 <- str_replace_all(jjep.51.1.54.rm07, pattern = rm.08, replacement = ""); jjep.51.1.54.rm09 <- str_replace_all(jjep.51.1.54.rm08, pattern = rm.09, replacement = ""); jjep.51.1.54.rp10 <- str_replace_all(jjep.51.1.54.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.54.rp11 <- str_replace_all(jjep.51.1.54.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.54.rp12 <- str_replace_all(jjep.51.1.54.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.54.rp13 <- str_replace_all(jjep.51.1.54.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.54.rp14 <- str_replace_all(jjep.51.1.54.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.54.rp15 <- str_replace_all(jjep.51.1.54.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.54.mod <- rbind(varname,jjep.51.1.54.rp15); write(jjep.51.1.54.mod, file = "./jjep/Mod_51_1_54.txt")
jjep.51.1.65.tx <- readr::read_file(file="./jjep/51_1_65.txt"); jjep.51.1.65.rm00 <- jjep.51.1.65.tx; jjep.51.1.65.rm01 <- str_replace_all(jjep.51.1.65.rm00, pattern = rm.01, replacement = ""); jjep.51.1.65.rm02 <- str_replace_all(jjep.51.1.65.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.65.rm03 <- str_replace_all(jjep.51.1.65.rm02, pattern = rm.03, replacement = ""); jjep.51.1.65.rm04 <- str_replace_all(jjep.51.1.65.rm03, pattern = rm.04, replacement = ""); jjep.51.1.65.rm05 <- str_replace_all(jjep.51.1.65.rm04, pattern = rm.05, replacement = ""); jjep.51.1.65.rm06 <- str_replace_all(jjep.51.1.65.rm05, pattern = rm.06, replacement = ""); jjep.51.1.65.rm07 <- str_replace_all(jjep.51.1.65.rm06, pattern = rm.07, replacement = ""); jjep.51.1.65.rm08 <- str_replace_all(jjep.51.1.65.rm07, pattern = rm.08, replacement = ""); jjep.51.1.65.rm09 <- str_replace_all(jjep.51.1.65.rm08, pattern = rm.09, replacement = ""); jjep.51.1.65.rp10 <- str_replace_all(jjep.51.1.65.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.65.rp11 <- str_replace_all(jjep.51.1.65.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.65.rp12 <- str_replace_all(jjep.51.1.65.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.65.rp13 <- str_replace_all(jjep.51.1.65.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.65.rp14 <- str_replace_all(jjep.51.1.65.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.65.rp15 <- str_replace_all(jjep.51.1.65.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.65.mod <- rbind(varname,jjep.51.1.65.rp15); write(jjep.51.1.65.mod, file = "./jjep/Mod_51_1_65.txt")
jjep.51.1.76.tx <- readr::read_file(file="./jjep/51_1_76.txt"); jjep.51.1.76.rm00 <- jjep.51.1.76.tx; jjep.51.1.76.rm01 <- str_replace_all(jjep.51.1.76.rm00, pattern = rm.01, replacement = ""); jjep.51.1.76.rm02 <- str_replace_all(jjep.51.1.76.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.76.rm03 <- str_replace_all(jjep.51.1.76.rm02, pattern = rm.03, replacement = ""); jjep.51.1.76.rm04 <- str_replace_all(jjep.51.1.76.rm03, pattern = rm.04, replacement = ""); jjep.51.1.76.rm05 <- str_replace_all(jjep.51.1.76.rm04, pattern = rm.05, replacement = ""); jjep.51.1.76.rm06 <- str_replace_all(jjep.51.1.76.rm05, pattern = rm.06, replacement = ""); jjep.51.1.76.rm07 <- str_replace_all(jjep.51.1.76.rm06, pattern = rm.07, replacement = ""); jjep.51.1.76.rm08 <- str_replace_all(jjep.51.1.76.rm07, pattern = rm.08, replacement = ""); jjep.51.1.76.rm09 <- str_replace_all(jjep.51.1.76.rm08, pattern = rm.09, replacement = ""); jjep.51.1.76.rp10 <- str_replace_all(jjep.51.1.76.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.76.rp11 <- str_replace_all(jjep.51.1.76.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.76.rp12 <- str_replace_all(jjep.51.1.76.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.76.rp13 <- str_replace_all(jjep.51.1.76.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.76.rp14 <- str_replace_all(jjep.51.1.76.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.76.rp15 <- str_replace_all(jjep.51.1.76.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.76.mod <- rbind(varname,jjep.51.1.76.rp15); write(jjep.51.1.76.mod, file = "./jjep/Mod_51_1_76.txt")
jjep.51.1.86.tx <- readr::read_file(file="./jjep/51_1_86.txt"); jjep.51.1.86.rm00 <- jjep.51.1.86.tx; jjep.51.1.86.rm01 <- str_replace_all(jjep.51.1.86.rm00, pattern = rm.01, replacement = ""); jjep.51.1.86.rm02 <- str_replace_all(jjep.51.1.86.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.86.rm03 <- str_replace_all(jjep.51.1.86.rm02, pattern = rm.03, replacement = ""); jjep.51.1.86.rm04 <- str_replace_all(jjep.51.1.86.rm03, pattern = rm.04, replacement = ""); jjep.51.1.86.rm05 <- str_replace_all(jjep.51.1.86.rm04, pattern = rm.05, replacement = ""); jjep.51.1.86.rm06 <- str_replace_all(jjep.51.1.86.rm05, pattern = rm.06, replacement = ""); jjep.51.1.86.rm07 <- str_replace_all(jjep.51.1.86.rm06, pattern = rm.07, replacement = ""); jjep.51.1.86.rm08 <- str_replace_all(jjep.51.1.86.rm07, pattern = rm.08, replacement = ""); jjep.51.1.86.rm09 <- str_replace_all(jjep.51.1.86.rm08, pattern = rm.09, replacement = ""); jjep.51.1.86.rp10 <- str_replace_all(jjep.51.1.86.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.86.rp11 <- str_replace_all(jjep.51.1.86.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.86.rp12 <- str_replace_all(jjep.51.1.86.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.86.rp13 <- str_replace_all(jjep.51.1.86.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.86.rp14 <- str_replace_all(jjep.51.1.86.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.86.rp15 <- str_replace_all(jjep.51.1.86.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.86.mod <- rbind(varname,jjep.51.1.86.rp15); write(jjep.51.1.86.mod, file = "./jjep/Mod_51_1_86.txt")
jjep.51.1.96.tx <- readr::read_file(file="./jjep/51_1_96.txt"); jjep.51.1.96.rm00 <- jjep.51.1.96.tx; jjep.51.1.96.rm01 <- str_replace_all(jjep.51.1.96.rm00, pattern = rm.01, replacement = ""); jjep.51.1.96.rm02 <- str_replace_all(jjep.51.1.96.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.96.rm03 <- str_replace_all(jjep.51.1.96.rm02, pattern = rm.03, replacement = ""); jjep.51.1.96.rm04 <- str_replace_all(jjep.51.1.96.rm03, pattern = rm.04, replacement = ""); jjep.51.1.96.rm05 <- str_replace_all(jjep.51.1.96.rm04, pattern = rm.05, replacement = ""); jjep.51.1.96.rm06 <- str_replace_all(jjep.51.1.96.rm05, pattern = rm.06, replacement = ""); jjep.51.1.96.rm07 <- str_replace_all(jjep.51.1.96.rm06, pattern = rm.07, replacement = ""); jjep.51.1.96.rm08 <- str_replace_all(jjep.51.1.96.rm07, pattern = rm.08, replacement = ""); jjep.51.1.96.rm09 <- str_replace_all(jjep.51.1.96.rm08, pattern = rm.09, replacement = ""); jjep.51.1.96.rp10 <- str_replace_all(jjep.51.1.96.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.96.rp11 <- str_replace_all(jjep.51.1.96.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.96.rp12 <- str_replace_all(jjep.51.1.96.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.96.rp13 <- str_replace_all(jjep.51.1.96.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.96.rp14 <- str_replace_all(jjep.51.1.96.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.96.rp15 <- str_replace_all(jjep.51.1.96.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.96.mod <- rbind(varname,jjep.51.1.96.rp15); write(jjep.51.1.96.mod, file = "./jjep/Mod_51_1_96.txt")
jjep.51.1.105.tx <- readr::read_file(file="./jjep/51_1_105.txt"); jjep.51.1.105.rm00 <- jjep.51.1.105.tx; jjep.51.1.105.rm01 <- str_replace_all(jjep.51.1.105.rm00, pattern = rm.01, replacement = ""); jjep.51.1.105.rm02 <- str_replace_all(jjep.51.1.105.rm01, pattern = rm.02, replacement = "^"); jjep.51.1.105.rm03 <- str_replace_all(jjep.51.1.105.rm02, pattern = rm.03, replacement = ""); jjep.51.1.105.rm04 <- str_replace_all(jjep.51.1.105.rm03, pattern = rm.04, replacement = ""); jjep.51.1.105.rm05 <- str_replace_all(jjep.51.1.105.rm04, pattern = rm.05, replacement = ""); jjep.51.1.105.rm06 <- str_replace_all(jjep.51.1.105.rm05, pattern = rm.06, replacement = ""); jjep.51.1.105.rm07 <- str_replace_all(jjep.51.1.105.rm06, pattern = rm.07, replacement = ""); jjep.51.1.105.rm08 <- str_replace_all(jjep.51.1.105.rm07, pattern = rm.08, replacement = ""); jjep.51.1.105.rm09 <- str_replace_all(jjep.51.1.105.rm08, pattern = rm.09, replacement = ""); jjep.51.1.105.rp10 <- str_replace_all(jjep.51.1.105.rm09, pattern = rp.01, replacement = "・"); jjep.51.1.105.rp11 <- str_replace_all(jjep.51.1.105.rp10, pattern = rp.02, replacement = "^"); jjep.51.1.105.rp12 <- str_replace_all(jjep.51.1.105.rp11, pattern = rp.03, replacement = "^"); jjep.51.1.105.rp13 <- str_replace_all(jjep.51.1.105.rp12, pattern = rp.04, replacement = "^"); jjep.51.1.105.rp14 <- str_replace_all(jjep.51.1.105.rp13, pattern = rp.05, replacement = "^"); jjep.51.1.105.rp15 <- str_replace_all(jjep.51.1.105.rp14, pattern = rp.06, replacement = "^"); jjep.51.1.105.mod <- rbind(varname,jjep.51.1.105.rp15); write(jjep.51.1.105.mod, file = "./jjep/Mod_51_1_105.txt")
jjep.50.4.393.tx <- readr::read_file(file="./jjep/50_4_393.txt"); jjep.50.4.393.rm00 <- jjep.50.4.393.tx; jjep.50.4.393.rm01 <- str_replace_all(jjep.50.4.393.rm00, pattern = rm.01, replacement = ""); jjep.50.4.393.rm02 <- str_replace_all(jjep.50.4.393.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.393.rm03 <- str_replace_all(jjep.50.4.393.rm02, pattern = rm.03, replacement = ""); jjep.50.4.393.rm04 <- str_replace_all(jjep.50.4.393.rm03, pattern = rm.04, replacement = ""); jjep.50.4.393.rm05 <- str_replace_all(jjep.50.4.393.rm04, pattern = rm.05, replacement = ""); jjep.50.4.393.rm06 <- str_replace_all(jjep.50.4.393.rm05, pattern = rm.06, replacement = ""); jjep.50.4.393.rm07 <- str_replace_all(jjep.50.4.393.rm06, pattern = rm.07, replacement = ""); jjep.50.4.393.rm08 <- str_replace_all(jjep.50.4.393.rm07, pattern = rm.08, replacement = ""); jjep.50.4.393.rm09 <- str_replace_all(jjep.50.4.393.rm08, pattern = rm.09, replacement = ""); jjep.50.4.393.rp10 <- str_replace_all(jjep.50.4.393.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.393.rp11 <- str_replace_all(jjep.50.4.393.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.393.rp12 <- str_replace_all(jjep.50.4.393.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.393.rp13 <- str_replace_all(jjep.50.4.393.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.393.rp14 <- str_replace_all(jjep.50.4.393.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.393.rp15 <- str_replace_all(jjep.50.4.393.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.393.mod <- rbind(varname,jjep.50.4.393.rp15); write(jjep.50.4.393.mod, file = "./jjep/Mod_50_4_393.txt")
jjep.50.4.403.tx <- readr::read_file(file="./jjep/50_4_403.txt"); jjep.50.4.403.rm00 <- jjep.50.4.403.tx; jjep.50.4.403.rm01 <- str_replace_all(jjep.50.4.403.rm00, pattern = rm.01, replacement = ""); jjep.50.4.403.rm02 <- str_replace_all(jjep.50.4.403.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.403.rm03 <- str_replace_all(jjep.50.4.403.rm02, pattern = rm.03, replacement = ""); jjep.50.4.403.rm04 <- str_replace_all(jjep.50.4.403.rm03, pattern = rm.04, replacement = ""); jjep.50.4.403.rm05 <- str_replace_all(jjep.50.4.403.rm04, pattern = rm.05, replacement = ""); jjep.50.4.403.rm06 <- str_replace_all(jjep.50.4.403.rm05, pattern = rm.06, replacement = ""); jjep.50.4.403.rm07 <- str_replace_all(jjep.50.4.403.rm06, pattern = rm.07, replacement = ""); jjep.50.4.403.rm08 <- str_replace_all(jjep.50.4.403.rm07, pattern = rm.08, replacement = ""); jjep.50.4.403.rm09 <- str_replace_all(jjep.50.4.403.rm08, pattern = rm.09, replacement = ""); jjep.50.4.403.rp10 <- str_replace_all(jjep.50.4.403.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.403.rp11 <- str_replace_all(jjep.50.4.403.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.403.rp12 <- str_replace_all(jjep.50.4.403.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.403.rp13 <- str_replace_all(jjep.50.4.403.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.403.rp14 <- str_replace_all(jjep.50.4.403.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.403.rp15 <- str_replace_all(jjep.50.4.403.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.403.mod <- rbind(varname,jjep.50.4.403.rp15); write(jjep.50.4.403.mod, file = "./jjep/Mod_50_4_403.txt")
jjep.50.4.412.tx <- readr::read_file(file="./jjep/50_4_412.txt"); jjep.50.4.412.rm00 <- jjep.50.4.412.tx; jjep.50.4.412.rm01 <- str_replace_all(jjep.50.4.412.rm00, pattern = rm.01, replacement = ""); jjep.50.4.412.rm02 <- str_replace_all(jjep.50.4.412.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.412.rm03 <- str_replace_all(jjep.50.4.412.rm02, pattern = rm.03, replacement = ""); jjep.50.4.412.rm04 <- str_replace_all(jjep.50.4.412.rm03, pattern = rm.04, replacement = ""); jjep.50.4.412.rm05 <- str_replace_all(jjep.50.4.412.rm04, pattern = rm.05, replacement = ""); jjep.50.4.412.rm06 <- str_replace_all(jjep.50.4.412.rm05, pattern = rm.06, replacement = ""); jjep.50.4.412.rm07 <- str_replace_all(jjep.50.4.412.rm06, pattern = rm.07, replacement = ""); jjep.50.4.412.rm08 <- str_replace_all(jjep.50.4.412.rm07, pattern = rm.08, replacement = ""); jjep.50.4.412.rm09 <- str_replace_all(jjep.50.4.412.rm08, pattern = rm.09, replacement = ""); jjep.50.4.412.rp10 <- str_replace_all(jjep.50.4.412.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.412.rp11 <- str_replace_all(jjep.50.4.412.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.412.rp12 <- str_replace_all(jjep.50.4.412.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.412.rp13 <- str_replace_all(jjep.50.4.412.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.412.rp14 <- str_replace_all(jjep.50.4.412.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.412.rp15 <- str_replace_all(jjep.50.4.412.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.412.mod <- rbind(varname,jjep.50.4.412.rp15); write(jjep.50.4.412.mod, file = "./jjep/Mod_50_4_412.txt")
jjep.50.4.421.tx <- readr::read_file(file="./jjep/50_4_421.txt"); jjep.50.4.421.rm00 <- jjep.50.4.421.tx; jjep.50.4.421.rm01 <- str_replace_all(jjep.50.4.421.rm00, pattern = rm.01, replacement = ""); jjep.50.4.421.rm02 <- str_replace_all(jjep.50.4.421.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.421.rm03 <- str_replace_all(jjep.50.4.421.rm02, pattern = rm.03, replacement = ""); jjep.50.4.421.rm04 <- str_replace_all(jjep.50.4.421.rm03, pattern = rm.04, replacement = ""); jjep.50.4.421.rm05 <- str_replace_all(jjep.50.4.421.rm04, pattern = rm.05, replacement = ""); jjep.50.4.421.rm06 <- str_replace_all(jjep.50.4.421.rm05, pattern = rm.06, replacement = ""); jjep.50.4.421.rm07 <- str_replace_all(jjep.50.4.421.rm06, pattern = rm.07, replacement = ""); jjep.50.4.421.rm08 <- str_replace_all(jjep.50.4.421.rm07, pattern = rm.08, replacement = ""); jjep.50.4.421.rm09 <- str_replace_all(jjep.50.4.421.rm08, pattern = rm.09, replacement = ""); jjep.50.4.421.rp10 <- str_replace_all(jjep.50.4.421.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.421.rp11 <- str_replace_all(jjep.50.4.421.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.421.rp12 <- str_replace_all(jjep.50.4.421.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.421.rp13 <- str_replace_all(jjep.50.4.421.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.421.rp14 <- str_replace_all(jjep.50.4.421.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.421.rp15 <- str_replace_all(jjep.50.4.421.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.421.mod <- rbind(varname,jjep.50.4.421.rp15); write(jjep.50.4.421.mod, file = "./jjep/Mod_50_4_421.txt")
jjep.50.4.427.tx <- readr::read_file(file="./jjep/50_4_427.txt"); jjep.50.4.427.rm00 <- jjep.50.4.427.tx; jjep.50.4.427.rm01 <- str_replace_all(jjep.50.4.427.rm00, pattern = rm.01, replacement = ""); jjep.50.4.427.rm02 <- str_replace_all(jjep.50.4.427.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.427.rm03 <- str_replace_all(jjep.50.4.427.rm02, pattern = rm.03, replacement = ""); jjep.50.4.427.rm04 <- str_replace_all(jjep.50.4.427.rm03, pattern = rm.04, replacement = ""); jjep.50.4.427.rm05 <- str_replace_all(jjep.50.4.427.rm04, pattern = rm.05, replacement = ""); jjep.50.4.427.rm06 <- str_replace_all(jjep.50.4.427.rm05, pattern = rm.06, replacement = ""); jjep.50.4.427.rm07 <- str_replace_all(jjep.50.4.427.rm06, pattern = rm.07, replacement = ""); jjep.50.4.427.rm08 <- str_replace_all(jjep.50.4.427.rm07, pattern = rm.08, replacement = ""); jjep.50.4.427.rm09 <- str_replace_all(jjep.50.4.427.rm08, pattern = rm.09, replacement = ""); jjep.50.4.427.rp10 <- str_replace_all(jjep.50.4.427.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.427.rp11 <- str_replace_all(jjep.50.4.427.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.427.rp12 <- str_replace_all(jjep.50.4.427.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.427.rp13 <- str_replace_all(jjep.50.4.427.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.427.rp14 <- str_replace_all(jjep.50.4.427.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.427.rp15 <- str_replace_all(jjep.50.4.427.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.427.mod <- rbind(varname,jjep.50.4.427.rp15); write(jjep.50.4.427.mod, file = "./jjep/Mod_50_4_427.txt")
jjep.50.4.436.tx <- readr::read_file(file="./jjep/50_4_436.txt"); jjep.50.4.436.rm00 <- jjep.50.4.436.tx; jjep.50.4.436.rm01 <- str_replace_all(jjep.50.4.436.rm00, pattern = rm.01, replacement = ""); jjep.50.4.436.rm02 <- str_replace_all(jjep.50.4.436.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.436.rm03 <- str_replace_all(jjep.50.4.436.rm02, pattern = rm.03, replacement = ""); jjep.50.4.436.rm04 <- str_replace_all(jjep.50.4.436.rm03, pattern = rm.04, replacement = ""); jjep.50.4.436.rm05 <- str_replace_all(jjep.50.4.436.rm04, pattern = rm.05, replacement = ""); jjep.50.4.436.rm06 <- str_replace_all(jjep.50.4.436.rm05, pattern = rm.06, replacement = ""); jjep.50.4.436.rm07 <- str_replace_all(jjep.50.4.436.rm06, pattern = rm.07, replacement = ""); jjep.50.4.436.rm08 <- str_replace_all(jjep.50.4.436.rm07, pattern = rm.08, replacement = ""); jjep.50.4.436.rm09 <- str_replace_all(jjep.50.4.436.rm08, pattern = rm.09, replacement = ""); jjep.50.4.436.rp10 <- str_replace_all(jjep.50.4.436.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.436.rp11 <- str_replace_all(jjep.50.4.436.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.436.rp12 <- str_replace_all(jjep.50.4.436.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.436.rp13 <- str_replace_all(jjep.50.4.436.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.436.rp14 <- str_replace_all(jjep.50.4.436.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.436.rp15 <- str_replace_all(jjep.50.4.436.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.436.mod <- rbind(varname,jjep.50.4.436.rp15); write(jjep.50.4.436.mod, file = "./jjep/Mod_50_4_436.txt")
jjep.50.4.446.tx <- readr::read_file(file="./jjep/50_4_446.txt"); jjep.50.4.446.rm00 <- jjep.50.4.446.tx; jjep.50.4.446.rm01 <- str_replace_all(jjep.50.4.446.rm00, pattern = rm.01, replacement = ""); jjep.50.4.446.rm02 <- str_replace_all(jjep.50.4.446.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.446.rm03 <- str_replace_all(jjep.50.4.446.rm02, pattern = rm.03, replacement = ""); jjep.50.4.446.rm04 <- str_replace_all(jjep.50.4.446.rm03, pattern = rm.04, replacement = ""); jjep.50.4.446.rm05 <- str_replace_all(jjep.50.4.446.rm04, pattern = rm.05, replacement = ""); jjep.50.4.446.rm06 <- str_replace_all(jjep.50.4.446.rm05, pattern = rm.06, replacement = ""); jjep.50.4.446.rm07 <- str_replace_all(jjep.50.4.446.rm06, pattern = rm.07, replacement = ""); jjep.50.4.446.rm08 <- str_replace_all(jjep.50.4.446.rm07, pattern = rm.08, replacement = ""); jjep.50.4.446.rm09 <- str_replace_all(jjep.50.4.446.rm08, pattern = rm.09, replacement = ""); jjep.50.4.446.rp10 <- str_replace_all(jjep.50.4.446.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.446.rp11 <- str_replace_all(jjep.50.4.446.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.446.rp12 <- str_replace_all(jjep.50.4.446.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.446.rp13 <- str_replace_all(jjep.50.4.446.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.446.rp14 <- str_replace_all(jjep.50.4.446.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.446.rp15 <- str_replace_all(jjep.50.4.446.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.446.mod <- rbind(varname,jjep.50.4.446.rp15); write(jjep.50.4.446.mod, file = "./jjep/Mod_50_4_446.txt")
jjep.50.4.456.tx <- readr::read_file(file="./jjep/50_4_456.txt"); jjep.50.4.456.rm00 <- jjep.50.4.456.tx; jjep.50.4.456.rm01 <- str_replace_all(jjep.50.4.456.rm00, pattern = rm.01, replacement = ""); jjep.50.4.456.rm02 <- str_replace_all(jjep.50.4.456.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.456.rm03 <- str_replace_all(jjep.50.4.456.rm02, pattern = rm.03, replacement = ""); jjep.50.4.456.rm04 <- str_replace_all(jjep.50.4.456.rm03, pattern = rm.04, replacement = ""); jjep.50.4.456.rm05 <- str_replace_all(jjep.50.4.456.rm04, pattern = rm.05, replacement = ""); jjep.50.4.456.rm06 <- str_replace_all(jjep.50.4.456.rm05, pattern = rm.06, replacement = ""); jjep.50.4.456.rm07 <- str_replace_all(jjep.50.4.456.rm06, pattern = rm.07, replacement = ""); jjep.50.4.456.rm08 <- str_replace_all(jjep.50.4.456.rm07, pattern = rm.08, replacement = ""); jjep.50.4.456.rm09 <- str_replace_all(jjep.50.4.456.rm08, pattern = rm.09, replacement = ""); jjep.50.4.456.rp10 <- str_replace_all(jjep.50.4.456.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.456.rp11 <- str_replace_all(jjep.50.4.456.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.456.rp12 <- str_replace_all(jjep.50.4.456.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.456.rp13 <- str_replace_all(jjep.50.4.456.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.456.rp14 <- str_replace_all(jjep.50.4.456.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.456.rp15 <- str_replace_all(jjep.50.4.456.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.456.mod <- rbind(varname,jjep.50.4.456.rp15); write(jjep.50.4.456.mod, file = "./jjep/Mod_50_4_456.txt")
jjep.50.4.465.tx <- readr::read_file(file="./jjep/50_4_465.txt"); jjep.50.4.465.rm00 <- jjep.50.4.465.tx; jjep.50.4.465.rm01 <- str_replace_all(jjep.50.4.465.rm00, pattern = rm.01, replacement = ""); jjep.50.4.465.rm02 <- str_replace_all(jjep.50.4.465.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.465.rm03 <- str_replace_all(jjep.50.4.465.rm02, pattern = rm.03, replacement = ""); jjep.50.4.465.rm04 <- str_replace_all(jjep.50.4.465.rm03, pattern = rm.04, replacement = ""); jjep.50.4.465.rm05 <- str_replace_all(jjep.50.4.465.rm04, pattern = rm.05, replacement = ""); jjep.50.4.465.rm06 <- str_replace_all(jjep.50.4.465.rm05, pattern = rm.06, replacement = ""); jjep.50.4.465.rm07 <- str_replace_all(jjep.50.4.465.rm06, pattern = rm.07, replacement = ""); jjep.50.4.465.rm08 <- str_replace_all(jjep.50.4.465.rm07, pattern = rm.08, replacement = ""); jjep.50.4.465.rm09 <- str_replace_all(jjep.50.4.465.rm08, pattern = rm.09, replacement = ""); jjep.50.4.465.rp10 <- str_replace_all(jjep.50.4.465.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.465.rp11 <- str_replace_all(jjep.50.4.465.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.465.rp12 <- str_replace_all(jjep.50.4.465.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.465.rp13 <- str_replace_all(jjep.50.4.465.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.465.rp14 <- str_replace_all(jjep.50.4.465.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.465.rp15 <- str_replace_all(jjep.50.4.465.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.465.mod <- rbind(varname,jjep.50.4.465.rp15); write(jjep.50.4.465.mod, file = "./jjep/Mod_50_4_465.txt")
jjep.50.4.476.tx <- readr::read_file(file="./jjep/50_4_476.txt"); jjep.50.4.476.rm00 <- jjep.50.4.476.tx; jjep.50.4.476.rm01 <- str_replace_all(jjep.50.4.476.rm00, pattern = rm.01, replacement = ""); jjep.50.4.476.rm02 <- str_replace_all(jjep.50.4.476.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.476.rm03 <- str_replace_all(jjep.50.4.476.rm02, pattern = rm.03, replacement = ""); jjep.50.4.476.rm04 <- str_replace_all(jjep.50.4.476.rm03, pattern = rm.04, replacement = ""); jjep.50.4.476.rm05 <- str_replace_all(jjep.50.4.476.rm04, pattern = rm.05, replacement = ""); jjep.50.4.476.rm06 <- str_replace_all(jjep.50.4.476.rm05, pattern = rm.06, replacement = ""); jjep.50.4.476.rm07 <- str_replace_all(jjep.50.4.476.rm06, pattern = rm.07, replacement = ""); jjep.50.4.476.rm08 <- str_replace_all(jjep.50.4.476.rm07, pattern = rm.08, replacement = ""); jjep.50.4.476.rm09 <- str_replace_all(jjep.50.4.476.rm08, pattern = rm.09, replacement = ""); jjep.50.4.476.rp10 <- str_replace_all(jjep.50.4.476.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.476.rp11 <- str_replace_all(jjep.50.4.476.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.476.rp12 <- str_replace_all(jjep.50.4.476.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.476.rp13 <- str_replace_all(jjep.50.4.476.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.476.rp14 <- str_replace_all(jjep.50.4.476.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.476.rp15 <- str_replace_all(jjep.50.4.476.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.476.mod <- rbind(varname,jjep.50.4.476.rp15); write(jjep.50.4.476.mod, file = "./jjep/Mod_50_4_476.txt")
jjep.50.4.487.tx <- readr::read_file(file="./jjep/50_4_487.txt"); jjep.50.4.487.rm00 <- jjep.50.4.487.tx; jjep.50.4.487.rm01 <- str_replace_all(jjep.50.4.487.rm00, pattern = rm.01, replacement = ""); jjep.50.4.487.rm02 <- str_replace_all(jjep.50.4.487.rm01, pattern = rm.02, replacement = "^"); jjep.50.4.487.rm03 <- str_replace_all(jjep.50.4.487.rm02, pattern = rm.03, replacement = ""); jjep.50.4.487.rm04 <- str_replace_all(jjep.50.4.487.rm03, pattern = rm.04, replacement = ""); jjep.50.4.487.rm05 <- str_replace_all(jjep.50.4.487.rm04, pattern = rm.05, replacement = ""); jjep.50.4.487.rm06 <- str_replace_all(jjep.50.4.487.rm05, pattern = rm.06, replacement = ""); jjep.50.4.487.rm07 <- str_replace_all(jjep.50.4.487.rm06, pattern = rm.07, replacement = ""); jjep.50.4.487.rm08 <- str_replace_all(jjep.50.4.487.rm07, pattern = rm.08, replacement = ""); jjep.50.4.487.rm09 <- str_replace_all(jjep.50.4.487.rm08, pattern = rm.09, replacement = ""); jjep.50.4.487.rp10 <- str_replace_all(jjep.50.4.487.rm09, pattern = rp.01, replacement = "・"); jjep.50.4.487.rp11 <- str_replace_all(jjep.50.4.487.rp10, pattern = rp.02, replacement = "^"); jjep.50.4.487.rp12 <- str_replace_all(jjep.50.4.487.rp11, pattern = rp.03, replacement = "^"); jjep.50.4.487.rp13 <- str_replace_all(jjep.50.4.487.rp12, pattern = rp.04, replacement = "^"); jjep.50.4.487.rp14 <- str_replace_all(jjep.50.4.487.rp13, pattern = rp.05, replacement = "^"); jjep.50.4.487.rp15 <- str_replace_all(jjep.50.4.487.rp14, pattern = rp.06, replacement = "^"); jjep.50.4.487.mod <- rbind(varname,jjep.50.4.487.rp15); write(jjep.50.4.487.mod, file = "./jjep/Mod_50_4_487.txt")
jjep.50.3.261.tx <- readr::read_file(file="./jjep/50_3_261.txt"); jjep.50.3.261.rm00 <- jjep.50.3.261.tx; jjep.50.3.261.rm01 <- str_replace_all(jjep.50.3.261.rm00, pattern = rm.01, replacement = ""); jjep.50.3.261.rm02 <- str_replace_all(jjep.50.3.261.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.261.rm03 <- str_replace_all(jjep.50.3.261.rm02, pattern = rm.03, replacement = ""); jjep.50.3.261.rm04 <- str_replace_all(jjep.50.3.261.rm03, pattern = rm.04, replacement = ""); jjep.50.3.261.rm05 <- str_replace_all(jjep.50.3.261.rm04, pattern = rm.05, replacement = ""); jjep.50.3.261.rm06 <- str_replace_all(jjep.50.3.261.rm05, pattern = rm.06, replacement = ""); jjep.50.3.261.rm07 <- str_replace_all(jjep.50.3.261.rm06, pattern = rm.07, replacement = ""); jjep.50.3.261.rm08 <- str_replace_all(jjep.50.3.261.rm07, pattern = rm.08, replacement = ""); jjep.50.3.261.rm09 <- str_replace_all(jjep.50.3.261.rm08, pattern = rm.09, replacement = ""); jjep.50.3.261.rp10 <- str_replace_all(jjep.50.3.261.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.261.rp11 <- str_replace_all(jjep.50.3.261.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.261.rp12 <- str_replace_all(jjep.50.3.261.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.261.rp13 <- str_replace_all(jjep.50.3.261.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.261.rp14 <- str_replace_all(jjep.50.3.261.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.261.rp15 <- str_replace_all(jjep.50.3.261.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.261.mod <- rbind(varname,jjep.50.3.261.rp15); write(jjep.50.3.261.mod, file = "./jjep/Mod_50_3_261.txt")
jjep.50.3.271.tx <- readr::read_file(file="./jjep/50_3_271.txt"); jjep.50.3.271.rm00 <- jjep.50.3.271.tx; jjep.50.3.271.rm01 <- str_replace_all(jjep.50.3.271.rm00, pattern = rm.01, replacement = ""); jjep.50.3.271.rm02 <- str_replace_all(jjep.50.3.271.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.271.rm03 <- str_replace_all(jjep.50.3.271.rm02, pattern = rm.03, replacement = ""); jjep.50.3.271.rm04 <- str_replace_all(jjep.50.3.271.rm03, pattern = rm.04, replacement = ""); jjep.50.3.271.rm05 <- str_replace_all(jjep.50.3.271.rm04, pattern = rm.05, replacement = ""); jjep.50.3.271.rm06 <- str_replace_all(jjep.50.3.271.rm05, pattern = rm.06, replacement = ""); jjep.50.3.271.rm07 <- str_replace_all(jjep.50.3.271.rm06, pattern = rm.07, replacement = ""); jjep.50.3.271.rm08 <- str_replace_all(jjep.50.3.271.rm07, pattern = rm.08, replacement = ""); jjep.50.3.271.rm09 <- str_replace_all(jjep.50.3.271.rm08, pattern = rm.09, replacement = ""); jjep.50.3.271.rp10 <- str_replace_all(jjep.50.3.271.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.271.rp11 <- str_replace_all(jjep.50.3.271.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.271.rp12 <- str_replace_all(jjep.50.3.271.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.271.rp13 <- str_replace_all(jjep.50.3.271.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.271.rp14 <- str_replace_all(jjep.50.3.271.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.271.rp15 <- str_replace_all(jjep.50.3.271.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.271.mod <- rbind(varname,jjep.50.3.271.rp15); write(jjep.50.3.271.mod, file = "./jjep/Mod_50_3_271.txt")
jjep.50.3.283.tx <- readr::read_file(file="./jjep/50_3_283.txt"); jjep.50.3.283.rm00 <- jjep.50.3.283.tx; jjep.50.3.283.rm01 <- str_replace_all(jjep.50.3.283.rm00, pattern = rm.01, replacement = ""); jjep.50.3.283.rm02 <- str_replace_all(jjep.50.3.283.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.283.rm03 <- str_replace_all(jjep.50.3.283.rm02, pattern = rm.03, replacement = ""); jjep.50.3.283.rm04 <- str_replace_all(jjep.50.3.283.rm03, pattern = rm.04, replacement = ""); jjep.50.3.283.rm05 <- str_replace_all(jjep.50.3.283.rm04, pattern = rm.05, replacement = ""); jjep.50.3.283.rm06 <- str_replace_all(jjep.50.3.283.rm05, pattern = rm.06, replacement = ""); jjep.50.3.283.rm07 <- str_replace_all(jjep.50.3.283.rm06, pattern = rm.07, replacement = ""); jjep.50.3.283.rm08 <- str_replace_all(jjep.50.3.283.rm07, pattern = rm.08, replacement = ""); jjep.50.3.283.rm09 <- str_replace_all(jjep.50.3.283.rm08, pattern = rm.09, replacement = ""); jjep.50.3.283.rp10 <- str_replace_all(jjep.50.3.283.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.283.rp11 <- str_replace_all(jjep.50.3.283.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.283.rp12 <- str_replace_all(jjep.50.3.283.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.283.rp13 <- str_replace_all(jjep.50.3.283.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.283.rp14 <- str_replace_all(jjep.50.3.283.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.283.rp15 <- str_replace_all(jjep.50.3.283.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.283.mod <- rbind(varname,jjep.50.3.283.rp15); write(jjep.50.3.283.mod, file = "./jjep/Mod_50_3_283.txt")
jjep.50.3.291.tx <- readr::read_file(file="./jjep/50_3_291.txt"); jjep.50.3.291.rm00 <- jjep.50.3.291.tx; jjep.50.3.291.rm01 <- str_replace_all(jjep.50.3.291.rm00, pattern = rm.01, replacement = ""); jjep.50.3.291.rm02 <- str_replace_all(jjep.50.3.291.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.291.rm03 <- str_replace_all(jjep.50.3.291.rm02, pattern = rm.03, replacement = ""); jjep.50.3.291.rm04 <- str_replace_all(jjep.50.3.291.rm03, pattern = rm.04, replacement = ""); jjep.50.3.291.rm05 <- str_replace_all(jjep.50.3.291.rm04, pattern = rm.05, replacement = ""); jjep.50.3.291.rm06 <- str_replace_all(jjep.50.3.291.rm05, pattern = rm.06, replacement = ""); jjep.50.3.291.rm07 <- str_replace_all(jjep.50.3.291.rm06, pattern = rm.07, replacement = ""); jjep.50.3.291.rm08 <- str_replace_all(jjep.50.3.291.rm07, pattern = rm.08, replacement = ""); jjep.50.3.291.rm09 <- str_replace_all(jjep.50.3.291.rm08, pattern = rm.09, replacement = ""); jjep.50.3.291.rp10 <- str_replace_all(jjep.50.3.291.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.291.rp11 <- str_replace_all(jjep.50.3.291.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.291.rp12 <- str_replace_all(jjep.50.3.291.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.291.rp13 <- str_replace_all(jjep.50.3.291.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.291.rp14 <- str_replace_all(jjep.50.3.291.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.291.rp15 <- str_replace_all(jjep.50.3.291.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.291.mod <- rbind(varname,jjep.50.3.291.rp15); write(jjep.50.3.291.mod, file = "./jjep/Mod_50_3_291.txt")
jjep.50.3.301.tx <- readr::read_file(file="./jjep/50_3_301.txt"); jjep.50.3.301.rm00 <- jjep.50.3.301.tx; jjep.50.3.301.rm01 <- str_replace_all(jjep.50.3.301.rm00, pattern = rm.01, replacement = ""); jjep.50.3.301.rm02 <- str_replace_all(jjep.50.3.301.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.301.rm03 <- str_replace_all(jjep.50.3.301.rm02, pattern = rm.03, replacement = ""); jjep.50.3.301.rm04 <- str_replace_all(jjep.50.3.301.rm03, pattern = rm.04, replacement = ""); jjep.50.3.301.rm05 <- str_replace_all(jjep.50.3.301.rm04, pattern = rm.05, replacement = ""); jjep.50.3.301.rm06 <- str_replace_all(jjep.50.3.301.rm05, pattern = rm.06, replacement = ""); jjep.50.3.301.rm07 <- str_replace_all(jjep.50.3.301.rm06, pattern = rm.07, replacement = ""); jjep.50.3.301.rm08 <- str_replace_all(jjep.50.3.301.rm07, pattern = rm.08, replacement = ""); jjep.50.3.301.rm09 <- str_replace_all(jjep.50.3.301.rm08, pattern = rm.09, replacement = ""); jjep.50.3.301.rp10 <- str_replace_all(jjep.50.3.301.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.301.rp11 <- str_replace_all(jjep.50.3.301.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.301.rp12 <- str_replace_all(jjep.50.3.301.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.301.rp13 <- str_replace_all(jjep.50.3.301.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.301.rp14 <- str_replace_all(jjep.50.3.301.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.301.rp15 <- str_replace_all(jjep.50.3.301.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.301.mod <- rbind(varname,jjep.50.3.301.rp15); write(jjep.50.3.301.mod, file = "./jjep/Mod_50_3_301.txt")
jjep.50.3.311.tx <- readr::read_file(file="./jjep/50_3_311.txt"); jjep.50.3.311.rm00 <- jjep.50.3.311.tx; jjep.50.3.311.rm01 <- str_replace_all(jjep.50.3.311.rm00, pattern = rm.01, replacement = ""); jjep.50.3.311.rm02 <- str_replace_all(jjep.50.3.311.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.311.rm03 <- str_replace_all(jjep.50.3.311.rm02, pattern = rm.03, replacement = ""); jjep.50.3.311.rm04 <- str_replace_all(jjep.50.3.311.rm03, pattern = rm.04, replacement = ""); jjep.50.3.311.rm05 <- str_replace_all(jjep.50.3.311.rm04, pattern = rm.05, replacement = ""); jjep.50.3.311.rm06 <- str_replace_all(jjep.50.3.311.rm05, pattern = rm.06, replacement = ""); jjep.50.3.311.rm07 <- str_replace_all(jjep.50.3.311.rm06, pattern = rm.07, replacement = ""); jjep.50.3.311.rm08 <- str_replace_all(jjep.50.3.311.rm07, pattern = rm.08, replacement = ""); jjep.50.3.311.rm09 <- str_replace_all(jjep.50.3.311.rm08, pattern = rm.09, replacement = ""); jjep.50.3.311.rp10 <- str_replace_all(jjep.50.3.311.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.311.rp11 <- str_replace_all(jjep.50.3.311.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.311.rp12 <- str_replace_all(jjep.50.3.311.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.311.rp13 <- str_replace_all(jjep.50.3.311.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.311.rp14 <- str_replace_all(jjep.50.3.311.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.311.rp15 <- str_replace_all(jjep.50.3.311.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.311.mod <- rbind(varname,jjep.50.3.311.rp15); write(jjep.50.3.311.mod, file = "./jjep/Mod_50_3_311.txt")
jjep.50.3.323.tx <- readr::read_file(file="./jjep/50_3_323.txt"); jjep.50.3.323.rm00 <- jjep.50.3.323.tx; jjep.50.3.323.rm01 <- str_replace_all(jjep.50.3.323.rm00, pattern = rm.01, replacement = ""); jjep.50.3.323.rm02 <- str_replace_all(jjep.50.3.323.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.323.rm03 <- str_replace_all(jjep.50.3.323.rm02, pattern = rm.03, replacement = ""); jjep.50.3.323.rm04 <- str_replace_all(jjep.50.3.323.rm03, pattern = rm.04, replacement = ""); jjep.50.3.323.rm05 <- str_replace_all(jjep.50.3.323.rm04, pattern = rm.05, replacement = ""); jjep.50.3.323.rm06 <- str_replace_all(jjep.50.3.323.rm05, pattern = rm.06, replacement = ""); jjep.50.3.323.rm07 <- str_replace_all(jjep.50.3.323.rm06, pattern = rm.07, replacement = ""); jjep.50.3.323.rm08 <- str_replace_all(jjep.50.3.323.rm07, pattern = rm.08, replacement = ""); jjep.50.3.323.rm09 <- str_replace_all(jjep.50.3.323.rm08, pattern = rm.09, replacement = ""); jjep.50.3.323.rp10 <- str_replace_all(jjep.50.3.323.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.323.rp11 <- str_replace_all(jjep.50.3.323.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.323.rp12 <- str_replace_all(jjep.50.3.323.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.323.rp13 <- str_replace_all(jjep.50.3.323.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.323.rp14 <- str_replace_all(jjep.50.3.323.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.323.rp15 <- str_replace_all(jjep.50.3.323.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.323.mod <- rbind(varname,jjep.50.3.323.rp15); write(jjep.50.3.323.mod, file = "./jjep/Mod_50_3_323.txt")
jjep.50.3.334.tx <- readr::read_file(file="./jjep/50_3_334.txt"); jjep.50.3.334.rm00 <- jjep.50.3.334.tx; jjep.50.3.334.rm01 <- str_replace_all(jjep.50.3.334.rm00, pattern = rm.01, replacement = ""); jjep.50.3.334.rm02 <- str_replace_all(jjep.50.3.334.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.334.rm03 <- str_replace_all(jjep.50.3.334.rm02, pattern = rm.03, replacement = ""); jjep.50.3.334.rm04 <- str_replace_all(jjep.50.3.334.rm03, pattern = rm.04, replacement = ""); jjep.50.3.334.rm05 <- str_replace_all(jjep.50.3.334.rm04, pattern = rm.05, replacement = ""); jjep.50.3.334.rm06 <- str_replace_all(jjep.50.3.334.rm05, pattern = rm.06, replacement = ""); jjep.50.3.334.rm07 <- str_replace_all(jjep.50.3.334.rm06, pattern = rm.07, replacement = ""); jjep.50.3.334.rm08 <- str_replace_all(jjep.50.3.334.rm07, pattern = rm.08, replacement = ""); jjep.50.3.334.rm09 <- str_replace_all(jjep.50.3.334.rm08, pattern = rm.09, replacement = ""); jjep.50.3.334.rp10 <- str_replace_all(jjep.50.3.334.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.334.rp11 <- str_replace_all(jjep.50.3.334.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.334.rp12 <- str_replace_all(jjep.50.3.334.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.334.rp13 <- str_replace_all(jjep.50.3.334.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.334.rp14 <- str_replace_all(jjep.50.3.334.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.334.rp15 <- str_replace_all(jjep.50.3.334.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.334.mod <- rbind(varname,jjep.50.3.334.rp15); write(jjep.50.3.334.mod, file = "./jjep/Mod_50_3_334.txt")
jjep.50.3.345.tx <- readr::read_file(file="./jjep/50_3_345.txt"); jjep.50.3.345.rm00 <- jjep.50.3.345.tx; jjep.50.3.345.rm01 <- str_replace_all(jjep.50.3.345.rm00, pattern = rm.01, replacement = ""); jjep.50.3.345.rm02 <- str_replace_all(jjep.50.3.345.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.345.rm03 <- str_replace_all(jjep.50.3.345.rm02, pattern = rm.03, replacement = ""); jjep.50.3.345.rm04 <- str_replace_all(jjep.50.3.345.rm03, pattern = rm.04, replacement = ""); jjep.50.3.345.rm05 <- str_replace_all(jjep.50.3.345.rm04, pattern = rm.05, replacement = ""); jjep.50.3.345.rm06 <- str_replace_all(jjep.50.3.345.rm05, pattern = rm.06, replacement = ""); jjep.50.3.345.rm07 <- str_replace_all(jjep.50.3.345.rm06, pattern = rm.07, replacement = ""); jjep.50.3.345.rm08 <- str_replace_all(jjep.50.3.345.rm07, pattern = rm.08, replacement = ""); jjep.50.3.345.rm09 <- str_replace_all(jjep.50.3.345.rm08, pattern = rm.09, replacement = ""); jjep.50.3.345.rp10 <- str_replace_all(jjep.50.3.345.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.345.rp11 <- str_replace_all(jjep.50.3.345.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.345.rp12 <- str_replace_all(jjep.50.3.345.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.345.rp13 <- str_replace_all(jjep.50.3.345.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.345.rp14 <- str_replace_all(jjep.50.3.345.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.345.rp15 <- str_replace_all(jjep.50.3.345.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.345.mod <- rbind(varname,jjep.50.3.345.rp15); write(jjep.50.3.345.mod, file = "./jjep/Mod_50_3_345.txt")
jjep.50.3.355.tx <- readr::read_file(file="./jjep/50_3_355.txt"); jjep.50.3.355.rm00 <- jjep.50.3.355.tx; jjep.50.3.355.rm01 <- str_replace_all(jjep.50.3.355.rm00, pattern = rm.01, replacement = ""); jjep.50.3.355.rm02 <- str_replace_all(jjep.50.3.355.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.355.rm03 <- str_replace_all(jjep.50.3.355.rm02, pattern = rm.03, replacement = ""); jjep.50.3.355.rm04 <- str_replace_all(jjep.50.3.355.rm03, pattern = rm.04, replacement = ""); jjep.50.3.355.rm05 <- str_replace_all(jjep.50.3.355.rm04, pattern = rm.05, replacement = ""); jjep.50.3.355.rm06 <- str_replace_all(jjep.50.3.355.rm05, pattern = rm.06, replacement = ""); jjep.50.3.355.rm07 <- str_replace_all(jjep.50.3.355.rm06, pattern = rm.07, replacement = ""); jjep.50.3.355.rm08 <- str_replace_all(jjep.50.3.355.rm07, pattern = rm.08, replacement = ""); jjep.50.3.355.rm09 <- str_replace_all(jjep.50.3.355.rm08, pattern = rm.09, replacement = ""); jjep.50.3.355.rp10 <- str_replace_all(jjep.50.3.355.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.355.rp11 <- str_replace_all(jjep.50.3.355.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.355.rp12 <- str_replace_all(jjep.50.3.355.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.355.rp13 <- str_replace_all(jjep.50.3.355.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.355.rp14 <- str_replace_all(jjep.50.3.355.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.355.rp15 <- str_replace_all(jjep.50.3.355.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.355.mod <- rbind(varname,jjep.50.3.355.rp15); write(jjep.50.3.355.mod, file = "./jjep/Mod_50_3_355.txt")
jjep.50.3.367.tx <- readr::read_file(file="./jjep/50_3_367.txt"); jjep.50.3.367.rm00 <- jjep.50.3.367.tx; jjep.50.3.367.rm01 <- str_replace_all(jjep.50.3.367.rm00, pattern = rm.01, replacement = ""); jjep.50.3.367.rm02 <- str_replace_all(jjep.50.3.367.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.367.rm03 <- str_replace_all(jjep.50.3.367.rm02, pattern = rm.03, replacement = ""); jjep.50.3.367.rm04 <- str_replace_all(jjep.50.3.367.rm03, pattern = rm.04, replacement = ""); jjep.50.3.367.rm05 <- str_replace_all(jjep.50.3.367.rm04, pattern = rm.05, replacement = ""); jjep.50.3.367.rm06 <- str_replace_all(jjep.50.3.367.rm05, pattern = rm.06, replacement = ""); jjep.50.3.367.rm07 <- str_replace_all(jjep.50.3.367.rm06, pattern = rm.07, replacement = ""); jjep.50.3.367.rm08 <- str_replace_all(jjep.50.3.367.rm07, pattern = rm.08, replacement = ""); jjep.50.3.367.rm09 <- str_replace_all(jjep.50.3.367.rm08, pattern = rm.09, replacement = ""); jjep.50.3.367.rp10 <- str_replace_all(jjep.50.3.367.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.367.rp11 <- str_replace_all(jjep.50.3.367.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.367.rp12 <- str_replace_all(jjep.50.3.367.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.367.rp13 <- str_replace_all(jjep.50.3.367.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.367.rp14 <- str_replace_all(jjep.50.3.367.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.367.rp15 <- str_replace_all(jjep.50.3.367.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.367.mod <- rbind(varname,jjep.50.3.367.rp15); write(jjep.50.3.367.mod, file = "./jjep/Mod_50_3_367.txt")
jjep.50.3.377.tx <- readr::read_file(file="./jjep/50_3_377.txt"); jjep.50.3.377.rm00 <- jjep.50.3.377.tx; jjep.50.3.377.rm01 <- str_replace_all(jjep.50.3.377.rm00, pattern = rm.01, replacement = ""); jjep.50.3.377.rm02 <- str_replace_all(jjep.50.3.377.rm01, pattern = rm.02, replacement = "^"); jjep.50.3.377.rm03 <- str_replace_all(jjep.50.3.377.rm02, pattern = rm.03, replacement = ""); jjep.50.3.377.rm04 <- str_replace_all(jjep.50.3.377.rm03, pattern = rm.04, replacement = ""); jjep.50.3.377.rm05 <- str_replace_all(jjep.50.3.377.rm04, pattern = rm.05, replacement = ""); jjep.50.3.377.rm06 <- str_replace_all(jjep.50.3.377.rm05, pattern = rm.06, replacement = ""); jjep.50.3.377.rm07 <- str_replace_all(jjep.50.3.377.rm06, pattern = rm.07, replacement = ""); jjep.50.3.377.rm08 <- str_replace_all(jjep.50.3.377.rm07, pattern = rm.08, replacement = ""); jjep.50.3.377.rm09 <- str_replace_all(jjep.50.3.377.rm08, pattern = rm.09, replacement = ""); jjep.50.3.377.rp10 <- str_replace_all(jjep.50.3.377.rm09, pattern = rp.01, replacement = "・"); jjep.50.3.377.rp11 <- str_replace_all(jjep.50.3.377.rp10, pattern = rp.02, replacement = "^"); jjep.50.3.377.rp12 <- str_replace_all(jjep.50.3.377.rp11, pattern = rp.03, replacement = "^"); jjep.50.3.377.rp13 <- str_replace_all(jjep.50.3.377.rp12, pattern = rp.04, replacement = "^"); jjep.50.3.377.rp14 <- str_replace_all(jjep.50.3.377.rp13, pattern = rp.05, replacement = "^"); jjep.50.3.377.rp15 <- str_replace_all(jjep.50.3.377.rp14, pattern = rp.06, replacement = "^"); jjep.50.3.377.mod <- rbind(varname,jjep.50.3.377.rp15); write(jjep.50.3.377.mod, file = "./jjep/Mod_50_3_377.txt")
jjep.50.2.129.tx <- readr::read_file(file="./jjep/50_2_129.txt"); jjep.50.2.129.rm00 <- jjep.50.2.129.tx; jjep.50.2.129.rm01 <- str_replace_all(jjep.50.2.129.rm00, pattern = rm.01, replacement = ""); jjep.50.2.129.rm02 <- str_replace_all(jjep.50.2.129.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.129.rm03 <- str_replace_all(jjep.50.2.129.rm02, pattern = rm.03, replacement = ""); jjep.50.2.129.rm04 <- str_replace_all(jjep.50.2.129.rm03, pattern = rm.04, replacement = ""); jjep.50.2.129.rm05 <- str_replace_all(jjep.50.2.129.rm04, pattern = rm.05, replacement = ""); jjep.50.2.129.rm06 <- str_replace_all(jjep.50.2.129.rm05, pattern = rm.06, replacement = ""); jjep.50.2.129.rm07 <- str_replace_all(jjep.50.2.129.rm06, pattern = rm.07, replacement = ""); jjep.50.2.129.rm08 <- str_replace_all(jjep.50.2.129.rm07, pattern = rm.08, replacement = ""); jjep.50.2.129.rm09 <- str_replace_all(jjep.50.2.129.rm08, pattern = rm.09, replacement = ""); jjep.50.2.129.rp10 <- str_replace_all(jjep.50.2.129.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.129.rp11 <- str_replace_all(jjep.50.2.129.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.129.rp12 <- str_replace_all(jjep.50.2.129.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.129.rp13 <- str_replace_all(jjep.50.2.129.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.129.rp14 <- str_replace_all(jjep.50.2.129.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.129.rp15 <- str_replace_all(jjep.50.2.129.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.129.mod <- rbind(varname,jjep.50.2.129.rp15); write(jjep.50.2.129.mod, file = "./jjep/Mod_50_2_129.txt")
jjep.50.2.141.tx <- readr::read_file(file="./jjep/50_2_141.txt"); jjep.50.2.141.rm00 <- jjep.50.2.141.tx; jjep.50.2.141.rm01 <- str_replace_all(jjep.50.2.141.rm00, pattern = rm.01, replacement = ""); jjep.50.2.141.rm02 <- str_replace_all(jjep.50.2.141.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.141.rm03 <- str_replace_all(jjep.50.2.141.rm02, pattern = rm.03, replacement = ""); jjep.50.2.141.rm04 <- str_replace_all(jjep.50.2.141.rm03, pattern = rm.04, replacement = ""); jjep.50.2.141.rm05 <- str_replace_all(jjep.50.2.141.rm04, pattern = rm.05, replacement = ""); jjep.50.2.141.rm06 <- str_replace_all(jjep.50.2.141.rm05, pattern = rm.06, replacement = ""); jjep.50.2.141.rm07 <- str_replace_all(jjep.50.2.141.rm06, pattern = rm.07, replacement = ""); jjep.50.2.141.rm08 <- str_replace_all(jjep.50.2.141.rm07, pattern = rm.08, replacement = ""); jjep.50.2.141.rm09 <- str_replace_all(jjep.50.2.141.rm08, pattern = rm.09, replacement = ""); jjep.50.2.141.rp10 <- str_replace_all(jjep.50.2.141.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.141.rp11 <- str_replace_all(jjep.50.2.141.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.141.rp12 <- str_replace_all(jjep.50.2.141.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.141.rp13 <- str_replace_all(jjep.50.2.141.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.141.rp14 <- str_replace_all(jjep.50.2.141.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.141.rp15 <- str_replace_all(jjep.50.2.141.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.141.mod <- rbind(varname,jjep.50.2.141.rp15); write(jjep.50.2.141.mod, file = "./jjep/Mod_50_2_141.txt")
jjep.50.2.152.tx <- readr::read_file(file="./jjep/50_2_152.txt"); jjep.50.2.152.rm00 <- jjep.50.2.152.tx; jjep.50.2.152.rm01 <- str_replace_all(jjep.50.2.152.rm00, pattern = rm.01, replacement = ""); jjep.50.2.152.rm02 <- str_replace_all(jjep.50.2.152.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.152.rm03 <- str_replace_all(jjep.50.2.152.rm02, pattern = rm.03, replacement = ""); jjep.50.2.152.rm04 <- str_replace_all(jjep.50.2.152.rm03, pattern = rm.04, replacement = ""); jjep.50.2.152.rm05 <- str_replace_all(jjep.50.2.152.rm04, pattern = rm.05, replacement = ""); jjep.50.2.152.rm06 <- str_replace_all(jjep.50.2.152.rm05, pattern = rm.06, replacement = ""); jjep.50.2.152.rm07 <- str_replace_all(jjep.50.2.152.rm06, pattern = rm.07, replacement = ""); jjep.50.2.152.rm08 <- str_replace_all(jjep.50.2.152.rm07, pattern = rm.08, replacement = ""); jjep.50.2.152.rm09 <- str_replace_all(jjep.50.2.152.rm08, pattern = rm.09, replacement = ""); jjep.50.2.152.rp10 <- str_replace_all(jjep.50.2.152.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.152.rp11 <- str_replace_all(jjep.50.2.152.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.152.rp12 <- str_replace_all(jjep.50.2.152.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.152.rp13 <- str_replace_all(jjep.50.2.152.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.152.rp14 <- str_replace_all(jjep.50.2.152.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.152.rp15 <- str_replace_all(jjep.50.2.152.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.152.mod <- rbind(varname,jjep.50.2.152.rp15); write(jjep.50.2.152.mod, file = "./jjep/Mod_50_2_152.txt")
jjep.50.2.163.tx <- readr::read_file(file="./jjep/50_2_163.txt"); jjep.50.2.163.rm00 <- jjep.50.2.163.tx; jjep.50.2.163.rm01 <- str_replace_all(jjep.50.2.163.rm00, pattern = rm.01, replacement = ""); jjep.50.2.163.rm02 <- str_replace_all(jjep.50.2.163.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.163.rm03 <- str_replace_all(jjep.50.2.163.rm02, pattern = rm.03, replacement = ""); jjep.50.2.163.rm04 <- str_replace_all(jjep.50.2.163.rm03, pattern = rm.04, replacement = ""); jjep.50.2.163.rm05 <- str_replace_all(jjep.50.2.163.rm04, pattern = rm.05, replacement = ""); jjep.50.2.163.rm06 <- str_replace_all(jjep.50.2.163.rm05, pattern = rm.06, replacement = ""); jjep.50.2.163.rm07 <- str_replace_all(jjep.50.2.163.rm06, pattern = rm.07, replacement = ""); jjep.50.2.163.rm08 <- str_replace_all(jjep.50.2.163.rm07, pattern = rm.08, replacement = ""); jjep.50.2.163.rm09 <- str_replace_all(jjep.50.2.163.rm08, pattern = rm.09, replacement = ""); jjep.50.2.163.rp10 <- str_replace_all(jjep.50.2.163.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.163.rp11 <- str_replace_all(jjep.50.2.163.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.163.rp12 <- str_replace_all(jjep.50.2.163.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.163.rp13 <- str_replace_all(jjep.50.2.163.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.163.rp14 <- str_replace_all(jjep.50.2.163.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.163.rp15 <- str_replace_all(jjep.50.2.163.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.163.mod <- rbind(varname,jjep.50.2.163.rp15); write(jjep.50.2.163.mod, file = "./jjep/Mod_50_2_163.txt")
jjep.50.2.175.tx <- readr::read_file(file="./jjep/50_2_175.txt"); jjep.50.2.175.rm00 <- jjep.50.2.175.tx; jjep.50.2.175.rm01 <- str_replace_all(jjep.50.2.175.rm00, pattern = rm.01, replacement = ""); jjep.50.2.175.rm02 <- str_replace_all(jjep.50.2.175.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.175.rm03 <- str_replace_all(jjep.50.2.175.rm02, pattern = rm.03, replacement = ""); jjep.50.2.175.rm04 <- str_replace_all(jjep.50.2.175.rm03, pattern = rm.04, replacement = ""); jjep.50.2.175.rm05 <- str_replace_all(jjep.50.2.175.rm04, pattern = rm.05, replacement = ""); jjep.50.2.175.rm06 <- str_replace_all(jjep.50.2.175.rm05, pattern = rm.06, replacement = ""); jjep.50.2.175.rm07 <- str_replace_all(jjep.50.2.175.rm06, pattern = rm.07, replacement = ""); jjep.50.2.175.rm08 <- str_replace_all(jjep.50.2.175.rm07, pattern = rm.08, replacement = ""); jjep.50.2.175.rm09 <- str_replace_all(jjep.50.2.175.rm08, pattern = rm.09, replacement = ""); jjep.50.2.175.rp10 <- str_replace_all(jjep.50.2.175.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.175.rp11 <- str_replace_all(jjep.50.2.175.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.175.rp12 <- str_replace_all(jjep.50.2.175.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.175.rp13 <- str_replace_all(jjep.50.2.175.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.175.rp14 <- str_replace_all(jjep.50.2.175.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.175.rp15 <- str_replace_all(jjep.50.2.175.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.175.mod <- rbind(varname,jjep.50.2.175.rp15); write(jjep.50.2.175.mod, file = "./jjep/Mod_50_2_175.txt")
jjep.50.2.185.tx <- readr::read_file(file="./jjep/50_2_185.txt"); jjep.50.2.185.rm00 <- jjep.50.2.185.tx; jjep.50.2.185.rm01 <- str_replace_all(jjep.50.2.185.rm00, pattern = rm.01, replacement = ""); jjep.50.2.185.rm02 <- str_replace_all(jjep.50.2.185.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.185.rm03 <- str_replace_all(jjep.50.2.185.rm02, pattern = rm.03, replacement = ""); jjep.50.2.185.rm04 <- str_replace_all(jjep.50.2.185.rm03, pattern = rm.04, replacement = ""); jjep.50.2.185.rm05 <- str_replace_all(jjep.50.2.185.rm04, pattern = rm.05, replacement = ""); jjep.50.2.185.rm06 <- str_replace_all(jjep.50.2.185.rm05, pattern = rm.06, replacement = ""); jjep.50.2.185.rm07 <- str_replace_all(jjep.50.2.185.rm06, pattern = rm.07, replacement = ""); jjep.50.2.185.rm08 <- str_replace_all(jjep.50.2.185.rm07, pattern = rm.08, replacement = ""); jjep.50.2.185.rm09 <- str_replace_all(jjep.50.2.185.rm08, pattern = rm.09, replacement = ""); jjep.50.2.185.rp10 <- str_replace_all(jjep.50.2.185.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.185.rp11 <- str_replace_all(jjep.50.2.185.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.185.rp12 <- str_replace_all(jjep.50.2.185.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.185.rp13 <- str_replace_all(jjep.50.2.185.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.185.rp14 <- str_replace_all(jjep.50.2.185.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.185.rp15 <- str_replace_all(jjep.50.2.185.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.185.mod <- rbind(varname,jjep.50.2.185.rp15); write(jjep.50.2.185.mod, file = "./jjep/Mod_50_2_185.txt")
jjep.50.2.193.tx <- readr::read_file(file="./jjep/50_2_193.txt"); jjep.50.2.193.rm00 <- jjep.50.2.193.tx; jjep.50.2.193.rm01 <- str_replace_all(jjep.50.2.193.rm00, pattern = rm.01, replacement = ""); jjep.50.2.193.rm02 <- str_replace_all(jjep.50.2.193.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.193.rm03 <- str_replace_all(jjep.50.2.193.rm02, pattern = rm.03, replacement = ""); jjep.50.2.193.rm04 <- str_replace_all(jjep.50.2.193.rm03, pattern = rm.04, replacement = ""); jjep.50.2.193.rm05 <- str_replace_all(jjep.50.2.193.rm04, pattern = rm.05, replacement = ""); jjep.50.2.193.rm06 <- str_replace_all(jjep.50.2.193.rm05, pattern = rm.06, replacement = ""); jjep.50.2.193.rm07 <- str_replace_all(jjep.50.2.193.rm06, pattern = rm.07, replacement = ""); jjep.50.2.193.rm08 <- str_replace_all(jjep.50.2.193.rm07, pattern = rm.08, replacement = ""); jjep.50.2.193.rm09 <- str_replace_all(jjep.50.2.193.rm08, pattern = rm.09, replacement = ""); jjep.50.2.193.rp10 <- str_replace_all(jjep.50.2.193.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.193.rp11 <- str_replace_all(jjep.50.2.193.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.193.rp12 <- str_replace_all(jjep.50.2.193.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.193.rp13 <- str_replace_all(jjep.50.2.193.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.193.rp14 <- str_replace_all(jjep.50.2.193.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.193.rp15 <- str_replace_all(jjep.50.2.193.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.193.mod <- rbind(varname,jjep.50.2.193.rp15); write(jjep.50.2.193.mod, file = "./jjep/Mod_50_2_193.txt")
jjep.50.2.204.tx <- readr::read_file(file="./jjep/50_2_204.txt"); jjep.50.2.204.rm00 <- jjep.50.2.204.tx; jjep.50.2.204.rm01 <- str_replace_all(jjep.50.2.204.rm00, pattern = rm.01, replacement = ""); jjep.50.2.204.rm02 <- str_replace_all(jjep.50.2.204.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.204.rm03 <- str_replace_all(jjep.50.2.204.rm02, pattern = rm.03, replacement = ""); jjep.50.2.204.rm04 <- str_replace_all(jjep.50.2.204.rm03, pattern = rm.04, replacement = ""); jjep.50.2.204.rm05 <- str_replace_all(jjep.50.2.204.rm04, pattern = rm.05, replacement = ""); jjep.50.2.204.rm06 <- str_replace_all(jjep.50.2.204.rm05, pattern = rm.06, replacement = ""); jjep.50.2.204.rm07 <- str_replace_all(jjep.50.2.204.rm06, pattern = rm.07, replacement = ""); jjep.50.2.204.rm08 <- str_replace_all(jjep.50.2.204.rm07, pattern = rm.08, replacement = ""); jjep.50.2.204.rm09 <- str_replace_all(jjep.50.2.204.rm08, pattern = rm.09, replacement = ""); jjep.50.2.204.rp10 <- str_replace_all(jjep.50.2.204.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.204.rp11 <- str_replace_all(jjep.50.2.204.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.204.rp12 <- str_replace_all(jjep.50.2.204.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.204.rp13 <- str_replace_all(jjep.50.2.204.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.204.rp14 <- str_replace_all(jjep.50.2.204.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.204.rp15 <- str_replace_all(jjep.50.2.204.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.204.mod <- rbind(varname,jjep.50.2.204.rp15); write(jjep.50.2.204.mod, file = "./jjep/Mod_50_2_204.txt")
jjep.50.2.215.tx <- readr::read_file(file="./jjep/50_2_215.txt"); jjep.50.2.215.rm00 <- jjep.50.2.215.tx; jjep.50.2.215.rm01 <- str_replace_all(jjep.50.2.215.rm00, pattern = rm.01, replacement = ""); jjep.50.2.215.rm02 <- str_replace_all(jjep.50.2.215.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.215.rm03 <- str_replace_all(jjep.50.2.215.rm02, pattern = rm.03, replacement = ""); jjep.50.2.215.rm04 <- str_replace_all(jjep.50.2.215.rm03, pattern = rm.04, replacement = ""); jjep.50.2.215.rm05 <- str_replace_all(jjep.50.2.215.rm04, pattern = rm.05, replacement = ""); jjep.50.2.215.rm06 <- str_replace_all(jjep.50.2.215.rm05, pattern = rm.06, replacement = ""); jjep.50.2.215.rm07 <- str_replace_all(jjep.50.2.215.rm06, pattern = rm.07, replacement = ""); jjep.50.2.215.rm08 <- str_replace_all(jjep.50.2.215.rm07, pattern = rm.08, replacement = ""); jjep.50.2.215.rm09 <- str_replace_all(jjep.50.2.215.rm08, pattern = rm.09, replacement = ""); jjep.50.2.215.rp10 <- str_replace_all(jjep.50.2.215.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.215.rp11 <- str_replace_all(jjep.50.2.215.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.215.rp12 <- str_replace_all(jjep.50.2.215.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.215.rp13 <- str_replace_all(jjep.50.2.215.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.215.rp14 <- str_replace_all(jjep.50.2.215.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.215.rp15 <- str_replace_all(jjep.50.2.215.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.215.mod <- rbind(varname,jjep.50.2.215.rp15); write(jjep.50.2.215.mod, file = "./jjep/Mod_50_2_215.txt")
jjep.50.2.225.tx <- readr::read_file(file="./jjep/50_2_225.txt"); jjep.50.2.225.rm00 <- jjep.50.2.225.tx; jjep.50.2.225.rm01 <- str_replace_all(jjep.50.2.225.rm00, pattern = rm.01, replacement = ""); jjep.50.2.225.rm02 <- str_replace_all(jjep.50.2.225.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.225.rm03 <- str_replace_all(jjep.50.2.225.rm02, pattern = rm.03, replacement = ""); jjep.50.2.225.rm04 <- str_replace_all(jjep.50.2.225.rm03, pattern = rm.04, replacement = ""); jjep.50.2.225.rm05 <- str_replace_all(jjep.50.2.225.rm04, pattern = rm.05, replacement = ""); jjep.50.2.225.rm06 <- str_replace_all(jjep.50.2.225.rm05, pattern = rm.06, replacement = ""); jjep.50.2.225.rm07 <- str_replace_all(jjep.50.2.225.rm06, pattern = rm.07, replacement = ""); jjep.50.2.225.rm08 <- str_replace_all(jjep.50.2.225.rm07, pattern = rm.08, replacement = ""); jjep.50.2.225.rm09 <- str_replace_all(jjep.50.2.225.rm08, pattern = rm.09, replacement = ""); jjep.50.2.225.rp10 <- str_replace_all(jjep.50.2.225.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.225.rp11 <- str_replace_all(jjep.50.2.225.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.225.rp12 <- str_replace_all(jjep.50.2.225.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.225.rp13 <- str_replace_all(jjep.50.2.225.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.225.rp14 <- str_replace_all(jjep.50.2.225.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.225.rp15 <- str_replace_all(jjep.50.2.225.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.225.mod <- rbind(varname,jjep.50.2.225.rp15); write(jjep.50.2.225.mod, file = "./jjep/Mod_50_2_225.txt")
jjep.50.2.237.tx <- readr::read_file(file="./jjep/50_2_237.txt"); jjep.50.2.237.rm00 <- jjep.50.2.237.tx; jjep.50.2.237.rm01 <- str_replace_all(jjep.50.2.237.rm00, pattern = rm.01, replacement = ""); jjep.50.2.237.rm02 <- str_replace_all(jjep.50.2.237.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.237.rm03 <- str_replace_all(jjep.50.2.237.rm02, pattern = rm.03, replacement = ""); jjep.50.2.237.rm04 <- str_replace_all(jjep.50.2.237.rm03, pattern = rm.04, replacement = ""); jjep.50.2.237.rm05 <- str_replace_all(jjep.50.2.237.rm04, pattern = rm.05, replacement = ""); jjep.50.2.237.rm06 <- str_replace_all(jjep.50.2.237.rm05, pattern = rm.06, replacement = ""); jjep.50.2.237.rm07 <- str_replace_all(jjep.50.2.237.rm06, pattern = rm.07, replacement = ""); jjep.50.2.237.rm08 <- str_replace_all(jjep.50.2.237.rm07, pattern = rm.08, replacement = ""); jjep.50.2.237.rm09 <- str_replace_all(jjep.50.2.237.rm08, pattern = rm.09, replacement = ""); jjep.50.2.237.rp10 <- str_replace_all(jjep.50.2.237.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.237.rp11 <- str_replace_all(jjep.50.2.237.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.237.rp12 <- str_replace_all(jjep.50.2.237.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.237.rp13 <- str_replace_all(jjep.50.2.237.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.237.rp14 <- str_replace_all(jjep.50.2.237.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.237.rp15 <- str_replace_all(jjep.50.2.237.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.237.mod <- rbind(varname,jjep.50.2.237.rp15); write(jjep.50.2.237.mod, file = "./jjep/Mod_50_2_237.txt")
jjep.50.2.246.tx <- readr::read_file(file="./jjep/50_2_246.txt"); jjep.50.2.246.rm00 <- jjep.50.2.246.tx; jjep.50.2.246.rm01 <- str_replace_all(jjep.50.2.246.rm00, pattern = rm.01, replacement = ""); jjep.50.2.246.rm02 <- str_replace_all(jjep.50.2.246.rm01, pattern = rm.02, replacement = "^"); jjep.50.2.246.rm03 <- str_replace_all(jjep.50.2.246.rm02, pattern = rm.03, replacement = ""); jjep.50.2.246.rm04 <- str_replace_all(jjep.50.2.246.rm03, pattern = rm.04, replacement = ""); jjep.50.2.246.rm05 <- str_replace_all(jjep.50.2.246.rm04, pattern = rm.05, replacement = ""); jjep.50.2.246.rm06 <- str_replace_all(jjep.50.2.246.rm05, pattern = rm.06, replacement = ""); jjep.50.2.246.rm07 <- str_replace_all(jjep.50.2.246.rm06, pattern = rm.07, replacement = ""); jjep.50.2.246.rm08 <- str_replace_all(jjep.50.2.246.rm07, pattern = rm.08, replacement = ""); jjep.50.2.246.rm09 <- str_replace_all(jjep.50.2.246.rm08, pattern = rm.09, replacement = ""); jjep.50.2.246.rp10 <- str_replace_all(jjep.50.2.246.rm09, pattern = rp.01, replacement = "・"); jjep.50.2.246.rp11 <- str_replace_all(jjep.50.2.246.rp10, pattern = rp.02, replacement = "^"); jjep.50.2.246.rp12 <- str_replace_all(jjep.50.2.246.rp11, pattern = rp.03, replacement = "^"); jjep.50.2.246.rp13 <- str_replace_all(jjep.50.2.246.rp12, pattern = rp.04, replacement = "^"); jjep.50.2.246.rp14 <- str_replace_all(jjep.50.2.246.rp13, pattern = rp.05, replacement = "^"); jjep.50.2.246.rp15 <- str_replace_all(jjep.50.2.246.rp14, pattern = rp.06, replacement = "^"); jjep.50.2.246.mod <- rbind(varname,jjep.50.2.246.rp15); write(jjep.50.2.246.mod, file = "./jjep/Mod_50_2_246.txt")
jjep.50.1.1.tx <- readr::read_file(file="./jjep/50_1_1.txt"); jjep.50.1.1.rm00 <- jjep.50.1.1.tx; jjep.50.1.1.rm01 <- str_replace_all(jjep.50.1.1.rm00, pattern = rm.01, replacement = ""); jjep.50.1.1.rm02 <- str_replace_all(jjep.50.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.1.rm03 <- str_replace_all(jjep.50.1.1.rm02, pattern = rm.03, replacement = ""); jjep.50.1.1.rm04 <- str_replace_all(jjep.50.1.1.rm03, pattern = rm.04, replacement = ""); jjep.50.1.1.rm05 <- str_replace_all(jjep.50.1.1.rm04, pattern = rm.05, replacement = ""); jjep.50.1.1.rm06 <- str_replace_all(jjep.50.1.1.rm05, pattern = rm.06, replacement = ""); jjep.50.1.1.rm07 <- str_replace_all(jjep.50.1.1.rm06, pattern = rm.07, replacement = ""); jjep.50.1.1.rm08 <- str_replace_all(jjep.50.1.1.rm07, pattern = rm.08, replacement = ""); jjep.50.1.1.rm09 <- str_replace_all(jjep.50.1.1.rm08, pattern = rm.09, replacement = ""); jjep.50.1.1.rp10 <- str_replace_all(jjep.50.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.1.rp11 <- str_replace_all(jjep.50.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.1.rp12 <- str_replace_all(jjep.50.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.1.rp13 <- str_replace_all(jjep.50.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.1.rp14 <- str_replace_all(jjep.50.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.1.rp15 <- str_replace_all(jjep.50.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.1.mod <- rbind(varname,jjep.50.1.1.rp15); write(jjep.50.1.1.mod, file = "./jjep/Mod_50_1_1.txt")
jjep.50.1.12.tx <- readr::read_file(file="./jjep/50_1_12.txt"); jjep.50.1.12.rm00 <- jjep.50.1.12.tx; jjep.50.1.12.rm01 <- str_replace_all(jjep.50.1.12.rm00, pattern = rm.01, replacement = ""); jjep.50.1.12.rm02 <- str_replace_all(jjep.50.1.12.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.12.rm03 <- str_replace_all(jjep.50.1.12.rm02, pattern = rm.03, replacement = ""); jjep.50.1.12.rm04 <- str_replace_all(jjep.50.1.12.rm03, pattern = rm.04, replacement = ""); jjep.50.1.12.rm05 <- str_replace_all(jjep.50.1.12.rm04, pattern = rm.05, replacement = ""); jjep.50.1.12.rm06 <- str_replace_all(jjep.50.1.12.rm05, pattern = rm.06, replacement = ""); jjep.50.1.12.rm07 <- str_replace_all(jjep.50.1.12.rm06, pattern = rm.07, replacement = ""); jjep.50.1.12.rm08 <- str_replace_all(jjep.50.1.12.rm07, pattern = rm.08, replacement = ""); jjep.50.1.12.rm09 <- str_replace_all(jjep.50.1.12.rm08, pattern = rm.09, replacement = ""); jjep.50.1.12.rp10 <- str_replace_all(jjep.50.1.12.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.12.rp11 <- str_replace_all(jjep.50.1.12.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.12.rp12 <- str_replace_all(jjep.50.1.12.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.12.rp13 <- str_replace_all(jjep.50.1.12.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.12.rp14 <- str_replace_all(jjep.50.1.12.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.12.rp15 <- str_replace_all(jjep.50.1.12.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.12.mod <- rbind(varname,jjep.50.1.12.rp15); write(jjep.50.1.12.mod, file = "./jjep/Mod_50_1_12.txt")
jjep.50.1.23.tx <- readr::read_file(file="./jjep/50_1_23.txt"); jjep.50.1.23.rm00 <- jjep.50.1.23.tx; jjep.50.1.23.rm01 <- str_replace_all(jjep.50.1.23.rm00, pattern = rm.01, replacement = ""); jjep.50.1.23.rm02 <- str_replace_all(jjep.50.1.23.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.23.rm03 <- str_replace_all(jjep.50.1.23.rm02, pattern = rm.03, replacement = ""); jjep.50.1.23.rm04 <- str_replace_all(jjep.50.1.23.rm03, pattern = rm.04, replacement = ""); jjep.50.1.23.rm05 <- str_replace_all(jjep.50.1.23.rm04, pattern = rm.05, replacement = ""); jjep.50.1.23.rm06 <- str_replace_all(jjep.50.1.23.rm05, pattern = rm.06, replacement = ""); jjep.50.1.23.rm07 <- str_replace_all(jjep.50.1.23.rm06, pattern = rm.07, replacement = ""); jjep.50.1.23.rm08 <- str_replace_all(jjep.50.1.23.rm07, pattern = rm.08, replacement = ""); jjep.50.1.23.rm09 <- str_replace_all(jjep.50.1.23.rm08, pattern = rm.09, replacement = ""); jjep.50.1.23.rp10 <- str_replace_all(jjep.50.1.23.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.23.rp11 <- str_replace_all(jjep.50.1.23.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.23.rp12 <- str_replace_all(jjep.50.1.23.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.23.rp13 <- str_replace_all(jjep.50.1.23.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.23.rp14 <- str_replace_all(jjep.50.1.23.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.23.rp15 <- str_replace_all(jjep.50.1.23.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.23.mod <- rbind(varname,jjep.50.1.23.rp15); write(jjep.50.1.23.mod, file = "./jjep/Mod_50_1_23.txt")
jjep.50.1.33.tx <- readr::read_file(file="./jjep/50_1_33.txt"); jjep.50.1.33.rm00 <- jjep.50.1.33.tx; jjep.50.1.33.rm01 <- str_replace_all(jjep.50.1.33.rm00, pattern = rm.01, replacement = ""); jjep.50.1.33.rm02 <- str_replace_all(jjep.50.1.33.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.33.rm03 <- str_replace_all(jjep.50.1.33.rm02, pattern = rm.03, replacement = ""); jjep.50.1.33.rm04 <- str_replace_all(jjep.50.1.33.rm03, pattern = rm.04, replacement = ""); jjep.50.1.33.rm05 <- str_replace_all(jjep.50.1.33.rm04, pattern = rm.05, replacement = ""); jjep.50.1.33.rm06 <- str_replace_all(jjep.50.1.33.rm05, pattern = rm.06, replacement = ""); jjep.50.1.33.rm07 <- str_replace_all(jjep.50.1.33.rm06, pattern = rm.07, replacement = ""); jjep.50.1.33.rm08 <- str_replace_all(jjep.50.1.33.rm07, pattern = rm.08, replacement = ""); jjep.50.1.33.rm09 <- str_replace_all(jjep.50.1.33.rm08, pattern = rm.09, replacement = ""); jjep.50.1.33.rp10 <- str_replace_all(jjep.50.1.33.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.33.rp11 <- str_replace_all(jjep.50.1.33.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.33.rp12 <- str_replace_all(jjep.50.1.33.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.33.rp13 <- str_replace_all(jjep.50.1.33.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.33.rp14 <- str_replace_all(jjep.50.1.33.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.33.rp15 <- str_replace_all(jjep.50.1.33.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.33.mod <- rbind(varname,jjep.50.1.33.rp15); write(jjep.50.1.33.mod, file = "./jjep/Mod_50_1_33.txt")
jjep.50.1.43.tx <- readr::read_file(file="./jjep/50_1_43.txt"); jjep.50.1.43.rm00 <- jjep.50.1.43.tx; jjep.50.1.43.rm01 <- str_replace_all(jjep.50.1.43.rm00, pattern = rm.01, replacement = ""); jjep.50.1.43.rm02 <- str_replace_all(jjep.50.1.43.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.43.rm03 <- str_replace_all(jjep.50.1.43.rm02, pattern = rm.03, replacement = ""); jjep.50.1.43.rm04 <- str_replace_all(jjep.50.1.43.rm03, pattern = rm.04, replacement = ""); jjep.50.1.43.rm05 <- str_replace_all(jjep.50.1.43.rm04, pattern = rm.05, replacement = ""); jjep.50.1.43.rm06 <- str_replace_all(jjep.50.1.43.rm05, pattern = rm.06, replacement = ""); jjep.50.1.43.rm07 <- str_replace_all(jjep.50.1.43.rm06, pattern = rm.07, replacement = ""); jjep.50.1.43.rm08 <- str_replace_all(jjep.50.1.43.rm07, pattern = rm.08, replacement = ""); jjep.50.1.43.rm09 <- str_replace_all(jjep.50.1.43.rm08, pattern = rm.09, replacement = ""); jjep.50.1.43.rp10 <- str_replace_all(jjep.50.1.43.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.43.rp11 <- str_replace_all(jjep.50.1.43.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.43.rp12 <- str_replace_all(jjep.50.1.43.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.43.rp13 <- str_replace_all(jjep.50.1.43.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.43.rp14 <- str_replace_all(jjep.50.1.43.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.43.rp15 <- str_replace_all(jjep.50.1.43.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.43.mod <- rbind(varname,jjep.50.1.43.rp15); write(jjep.50.1.43.mod, file = "./jjep/Mod_50_1_43.txt")
jjep.50.1.54.tx <- readr::read_file(file="./jjep/50_1_54.txt"); jjep.50.1.54.rm00 <- jjep.50.1.54.tx; jjep.50.1.54.rm01 <- str_replace_all(jjep.50.1.54.rm00, pattern = rm.01, replacement = ""); jjep.50.1.54.rm02 <- str_replace_all(jjep.50.1.54.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.54.rm03 <- str_replace_all(jjep.50.1.54.rm02, pattern = rm.03, replacement = ""); jjep.50.1.54.rm04 <- str_replace_all(jjep.50.1.54.rm03, pattern = rm.04, replacement = ""); jjep.50.1.54.rm05 <- str_replace_all(jjep.50.1.54.rm04, pattern = rm.05, replacement = ""); jjep.50.1.54.rm06 <- str_replace_all(jjep.50.1.54.rm05, pattern = rm.06, replacement = ""); jjep.50.1.54.rm07 <- str_replace_all(jjep.50.1.54.rm06, pattern = rm.07, replacement = ""); jjep.50.1.54.rm08 <- str_replace_all(jjep.50.1.54.rm07, pattern = rm.08, replacement = ""); jjep.50.1.54.rm09 <- str_replace_all(jjep.50.1.54.rm08, pattern = rm.09, replacement = ""); jjep.50.1.54.rp10 <- str_replace_all(jjep.50.1.54.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.54.rp11 <- str_replace_all(jjep.50.1.54.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.54.rp12 <- str_replace_all(jjep.50.1.54.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.54.rp13 <- str_replace_all(jjep.50.1.54.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.54.rp14 <- str_replace_all(jjep.50.1.54.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.54.rp15 <- str_replace_all(jjep.50.1.54.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.54.mod <- rbind(varname,jjep.50.1.54.rp15); write(jjep.50.1.54.mod, file = "./jjep/Mod_50_1_54.txt")
jjep.50.1.65.tx <- readr::read_file(file="./jjep/50_1_65.txt"); jjep.50.1.65.rm00 <- jjep.50.1.65.tx; jjep.50.1.65.rm01 <- str_replace_all(jjep.50.1.65.rm00, pattern = rm.01, replacement = ""); jjep.50.1.65.rm02 <- str_replace_all(jjep.50.1.65.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.65.rm03 <- str_replace_all(jjep.50.1.65.rm02, pattern = rm.03, replacement = ""); jjep.50.1.65.rm04 <- str_replace_all(jjep.50.1.65.rm03, pattern = rm.04, replacement = ""); jjep.50.1.65.rm05 <- str_replace_all(jjep.50.1.65.rm04, pattern = rm.05, replacement = ""); jjep.50.1.65.rm06 <- str_replace_all(jjep.50.1.65.rm05, pattern = rm.06, replacement = ""); jjep.50.1.65.rm07 <- str_replace_all(jjep.50.1.65.rm06, pattern = rm.07, replacement = ""); jjep.50.1.65.rm08 <- str_replace_all(jjep.50.1.65.rm07, pattern = rm.08, replacement = ""); jjep.50.1.65.rm09 <- str_replace_all(jjep.50.1.65.rm08, pattern = rm.09, replacement = ""); jjep.50.1.65.rp10 <- str_replace_all(jjep.50.1.65.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.65.rp11 <- str_replace_all(jjep.50.1.65.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.65.rp12 <- str_replace_all(jjep.50.1.65.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.65.rp13 <- str_replace_all(jjep.50.1.65.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.65.rp14 <- str_replace_all(jjep.50.1.65.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.65.rp15 <- str_replace_all(jjep.50.1.65.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.65.mod <- rbind(varname,jjep.50.1.65.rp15); write(jjep.50.1.65.mod, file = "./jjep/Mod_50_1_65.txt")
jjep.50.1.73.tx <- readr::read_file(file="./jjep/50_1_73.txt"); jjep.50.1.73.rm00 <- jjep.50.1.73.tx; jjep.50.1.73.rm01 <- str_replace_all(jjep.50.1.73.rm00, pattern = rm.01, replacement = ""); jjep.50.1.73.rm02 <- str_replace_all(jjep.50.1.73.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.73.rm03 <- str_replace_all(jjep.50.1.73.rm02, pattern = rm.03, replacement = ""); jjep.50.1.73.rm04 <- str_replace_all(jjep.50.1.73.rm03, pattern = rm.04, replacement = ""); jjep.50.1.73.rm05 <- str_replace_all(jjep.50.1.73.rm04, pattern = rm.05, replacement = ""); jjep.50.1.73.rm06 <- str_replace_all(jjep.50.1.73.rm05, pattern = rm.06, replacement = ""); jjep.50.1.73.rm07 <- str_replace_all(jjep.50.1.73.rm06, pattern = rm.07, replacement = ""); jjep.50.1.73.rm08 <- str_replace_all(jjep.50.1.73.rm07, pattern = rm.08, replacement = ""); jjep.50.1.73.rm09 <- str_replace_all(jjep.50.1.73.rm08, pattern = rm.09, replacement = ""); jjep.50.1.73.rp10 <- str_replace_all(jjep.50.1.73.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.73.rp11 <- str_replace_all(jjep.50.1.73.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.73.rp12 <- str_replace_all(jjep.50.1.73.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.73.rp13 <- str_replace_all(jjep.50.1.73.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.73.rp14 <- str_replace_all(jjep.50.1.73.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.73.rp15 <- str_replace_all(jjep.50.1.73.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.73.mod <- rbind(varname,jjep.50.1.73.rp15); write(jjep.50.1.73.mod, file = "./jjep/Mod_50_1_73.txt")
jjep.50.1.81.tx <- readr::read_file(file="./jjep/50_1_81.txt"); jjep.50.1.81.rm00 <- jjep.50.1.81.tx; jjep.50.1.81.rm01 <- str_replace_all(jjep.50.1.81.rm00, pattern = rm.01, replacement = ""); jjep.50.1.81.rm02 <- str_replace_all(jjep.50.1.81.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.81.rm03 <- str_replace_all(jjep.50.1.81.rm02, pattern = rm.03, replacement = ""); jjep.50.1.81.rm04 <- str_replace_all(jjep.50.1.81.rm03, pattern = rm.04, replacement = ""); jjep.50.1.81.rm05 <- str_replace_all(jjep.50.1.81.rm04, pattern = rm.05, replacement = ""); jjep.50.1.81.rm06 <- str_replace_all(jjep.50.1.81.rm05, pattern = rm.06, replacement = ""); jjep.50.1.81.rm07 <- str_replace_all(jjep.50.1.81.rm06, pattern = rm.07, replacement = ""); jjep.50.1.81.rm08 <- str_replace_all(jjep.50.1.81.rm07, pattern = rm.08, replacement = ""); jjep.50.1.81.rm09 <- str_replace_all(jjep.50.1.81.rm08, pattern = rm.09, replacement = ""); jjep.50.1.81.rp10 <- str_replace_all(jjep.50.1.81.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.81.rp11 <- str_replace_all(jjep.50.1.81.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.81.rp12 <- str_replace_all(jjep.50.1.81.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.81.rp13 <- str_replace_all(jjep.50.1.81.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.81.rp14 <- str_replace_all(jjep.50.1.81.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.81.rp15 <- str_replace_all(jjep.50.1.81.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.81.mod <- rbind(varname,jjep.50.1.81.rp15); write(jjep.50.1.81.mod, file = "./jjep/Mod_50_1_81.txt")
jjep.50.1.92.tx <- readr::read_file(file="./jjep/50_1_92.txt"); jjep.50.1.92.rm00 <- jjep.50.1.92.tx; jjep.50.1.92.rm01 <- str_replace_all(jjep.50.1.92.rm00, pattern = rm.01, replacement = ""); jjep.50.1.92.rm02 <- str_replace_all(jjep.50.1.92.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.92.rm03 <- str_replace_all(jjep.50.1.92.rm02, pattern = rm.03, replacement = ""); jjep.50.1.92.rm04 <- str_replace_all(jjep.50.1.92.rm03, pattern = rm.04, replacement = ""); jjep.50.1.92.rm05 <- str_replace_all(jjep.50.1.92.rm04, pattern = rm.05, replacement = ""); jjep.50.1.92.rm06 <- str_replace_all(jjep.50.1.92.rm05, pattern = rm.06, replacement = ""); jjep.50.1.92.rm07 <- str_replace_all(jjep.50.1.92.rm06, pattern = rm.07, replacement = ""); jjep.50.1.92.rm08 <- str_replace_all(jjep.50.1.92.rm07, pattern = rm.08, replacement = ""); jjep.50.1.92.rm09 <- str_replace_all(jjep.50.1.92.rm08, pattern = rm.09, replacement = ""); jjep.50.1.92.rp10 <- str_replace_all(jjep.50.1.92.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.92.rp11 <- str_replace_all(jjep.50.1.92.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.92.rp12 <- str_replace_all(jjep.50.1.92.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.92.rp13 <- str_replace_all(jjep.50.1.92.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.92.rp14 <- str_replace_all(jjep.50.1.92.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.92.rp15 <- str_replace_all(jjep.50.1.92.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.92.mod <- rbind(varname,jjep.50.1.92.rp15); write(jjep.50.1.92.mod, file = "./jjep/Mod_50_1_92.txt")
jjep.50.1.103.tx <- readr::read_file(file="./jjep/50_1_103.txt"); jjep.50.1.103.rm00 <- jjep.50.1.103.tx; jjep.50.1.103.rm01 <- str_replace_all(jjep.50.1.103.rm00, pattern = rm.01, replacement = ""); jjep.50.1.103.rm02 <- str_replace_all(jjep.50.1.103.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.103.rm03 <- str_replace_all(jjep.50.1.103.rm02, pattern = rm.03, replacement = ""); jjep.50.1.103.rm04 <- str_replace_all(jjep.50.1.103.rm03, pattern = rm.04, replacement = ""); jjep.50.1.103.rm05 <- str_replace_all(jjep.50.1.103.rm04, pattern = rm.05, replacement = ""); jjep.50.1.103.rm06 <- str_replace_all(jjep.50.1.103.rm05, pattern = rm.06, replacement = ""); jjep.50.1.103.rm07 <- str_replace_all(jjep.50.1.103.rm06, pattern = rm.07, replacement = ""); jjep.50.1.103.rm08 <- str_replace_all(jjep.50.1.103.rm07, pattern = rm.08, replacement = ""); jjep.50.1.103.rm09 <- str_replace_all(jjep.50.1.103.rm08, pattern = rm.09, replacement = ""); jjep.50.1.103.rp10 <- str_replace_all(jjep.50.1.103.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.103.rp11 <- str_replace_all(jjep.50.1.103.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.103.rp12 <- str_replace_all(jjep.50.1.103.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.103.rp13 <- str_replace_all(jjep.50.1.103.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.103.rp14 <- str_replace_all(jjep.50.1.103.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.103.rp15 <- str_replace_all(jjep.50.1.103.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.103.mod <- rbind(varname,jjep.50.1.103.rp15); write(jjep.50.1.103.mod, file = "./jjep/Mod_50_1_103.txt")
jjep.50.1.113.tx <- readr::read_file(file="./jjep/50_1_113.txt"); jjep.50.1.113.rm00 <- jjep.50.1.113.tx; jjep.50.1.113.rm01 <- str_replace_all(jjep.50.1.113.rm00, pattern = rm.01, replacement = ""); jjep.50.1.113.rm02 <- str_replace_all(jjep.50.1.113.rm01, pattern = rm.02, replacement = "^"); jjep.50.1.113.rm03 <- str_replace_all(jjep.50.1.113.rm02, pattern = rm.03, replacement = ""); jjep.50.1.113.rm04 <- str_replace_all(jjep.50.1.113.rm03, pattern = rm.04, replacement = ""); jjep.50.1.113.rm05 <- str_replace_all(jjep.50.1.113.rm04, pattern = rm.05, replacement = ""); jjep.50.1.113.rm06 <- str_replace_all(jjep.50.1.113.rm05, pattern = rm.06, replacement = ""); jjep.50.1.113.rm07 <- str_replace_all(jjep.50.1.113.rm06, pattern = rm.07, replacement = ""); jjep.50.1.113.rm08 <- str_replace_all(jjep.50.1.113.rm07, pattern = rm.08, replacement = ""); jjep.50.1.113.rm09 <- str_replace_all(jjep.50.1.113.rm08, pattern = rm.09, replacement = ""); jjep.50.1.113.rp10 <- str_replace_all(jjep.50.1.113.rm09, pattern = rp.01, replacement = "・"); jjep.50.1.113.rp11 <- str_replace_all(jjep.50.1.113.rp10, pattern = rp.02, replacement = "^"); jjep.50.1.113.rp12 <- str_replace_all(jjep.50.1.113.rp11, pattern = rp.03, replacement = "^"); jjep.50.1.113.rp13 <- str_replace_all(jjep.50.1.113.rp12, pattern = rp.04, replacement = "^"); jjep.50.1.113.rp14 <- str_replace_all(jjep.50.1.113.rp13, pattern = rp.05, replacement = "^"); jjep.50.1.113.rp15 <- str_replace_all(jjep.50.1.113.rp14, pattern = rp.06, replacement = "^"); jjep.50.1.113.mod <- rbind(varname,jjep.50.1.113.rp15); write(jjep.50.1.113.mod, file = "./jjep/Mod_50_1_113.txt")
jjep.49.4.401.tx <- readr::read_file(file="./jjep/49_4_401.txt"); jjep.49.4.401.rm00 <- jjep.49.4.401.tx; jjep.49.4.401.rm01 <- str_replace_all(jjep.49.4.401.rm00, pattern = rm.01, replacement = ""); jjep.49.4.401.rm02 <- str_replace_all(jjep.49.4.401.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.401.rm03 <- str_replace_all(jjep.49.4.401.rm02, pattern = rm.03, replacement = ""); jjep.49.4.401.rm04 <- str_replace_all(jjep.49.4.401.rm03, pattern = rm.04, replacement = ""); jjep.49.4.401.rm05 <- str_replace_all(jjep.49.4.401.rm04, pattern = rm.05, replacement = ""); jjep.49.4.401.rm06 <- str_replace_all(jjep.49.4.401.rm05, pattern = rm.06, replacement = ""); jjep.49.4.401.rm07 <- str_replace_all(jjep.49.4.401.rm06, pattern = rm.07, replacement = ""); jjep.49.4.401.rm08 <- str_replace_all(jjep.49.4.401.rm07, pattern = rm.08, replacement = ""); jjep.49.4.401.rm09 <- str_replace_all(jjep.49.4.401.rm08, pattern = rm.09, replacement = ""); jjep.49.4.401.rp10 <- str_replace_all(jjep.49.4.401.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.401.rp11 <- str_replace_all(jjep.49.4.401.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.401.rp12 <- str_replace_all(jjep.49.4.401.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.401.rp13 <- str_replace_all(jjep.49.4.401.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.401.rp14 <- str_replace_all(jjep.49.4.401.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.401.rp15 <- str_replace_all(jjep.49.4.401.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.401.mod <- rbind(varname,jjep.49.4.401.rp15); write(jjep.49.4.401.mod, file = "./jjep/Mod_49_4_401.txt")
jjep.49.4.409.tx <- readr::read_file(file="./jjep/49_4_409.txt"); jjep.49.4.409.rm00 <- jjep.49.4.409.tx; jjep.49.4.409.rm01 <- str_replace_all(jjep.49.4.409.rm00, pattern = rm.01, replacement = ""); jjep.49.4.409.rm02 <- str_replace_all(jjep.49.4.409.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.409.rm03 <- str_replace_all(jjep.49.4.409.rm02, pattern = rm.03, replacement = ""); jjep.49.4.409.rm04 <- str_replace_all(jjep.49.4.409.rm03, pattern = rm.04, replacement = ""); jjep.49.4.409.rm05 <- str_replace_all(jjep.49.4.409.rm04, pattern = rm.05, replacement = ""); jjep.49.4.409.rm06 <- str_replace_all(jjep.49.4.409.rm05, pattern = rm.06, replacement = ""); jjep.49.4.409.rm07 <- str_replace_all(jjep.49.4.409.rm06, pattern = rm.07, replacement = ""); jjep.49.4.409.rm08 <- str_replace_all(jjep.49.4.409.rm07, pattern = rm.08, replacement = ""); jjep.49.4.409.rm09 <- str_replace_all(jjep.49.4.409.rm08, pattern = rm.09, replacement = ""); jjep.49.4.409.rp10 <- str_replace_all(jjep.49.4.409.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.409.rp11 <- str_replace_all(jjep.49.4.409.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.409.rp12 <- str_replace_all(jjep.49.4.409.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.409.rp13 <- str_replace_all(jjep.49.4.409.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.409.rp14 <- str_replace_all(jjep.49.4.409.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.409.rp15 <- str_replace_all(jjep.49.4.409.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.409.mod <- rbind(varname,jjep.49.4.409.rp15); write(jjep.49.4.409.mod, file = "./jjep/Mod_49_4_409.txt")
jjep.49.4.417.tx <- readr::read_file(file="./jjep/49_4_417.txt"); jjep.49.4.417.rm00 <- jjep.49.4.417.tx; jjep.49.4.417.rm01 <- str_replace_all(jjep.49.4.417.rm00, pattern = rm.01, replacement = ""); jjep.49.4.417.rm02 <- str_replace_all(jjep.49.4.417.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.417.rm03 <- str_replace_all(jjep.49.4.417.rm02, pattern = rm.03, replacement = ""); jjep.49.4.417.rm04 <- str_replace_all(jjep.49.4.417.rm03, pattern = rm.04, replacement = ""); jjep.49.4.417.rm05 <- str_replace_all(jjep.49.4.417.rm04, pattern = rm.05, replacement = ""); jjep.49.4.417.rm06 <- str_replace_all(jjep.49.4.417.rm05, pattern = rm.06, replacement = ""); jjep.49.4.417.rm07 <- str_replace_all(jjep.49.4.417.rm06, pattern = rm.07, replacement = ""); jjep.49.4.417.rm08 <- str_replace_all(jjep.49.4.417.rm07, pattern = rm.08, replacement = ""); jjep.49.4.417.rm09 <- str_replace_all(jjep.49.4.417.rm08, pattern = rm.09, replacement = ""); jjep.49.4.417.rp10 <- str_replace_all(jjep.49.4.417.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.417.rp11 <- str_replace_all(jjep.49.4.417.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.417.rp12 <- str_replace_all(jjep.49.4.417.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.417.rp13 <- str_replace_all(jjep.49.4.417.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.417.rp14 <- str_replace_all(jjep.49.4.417.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.417.rp15 <- str_replace_all(jjep.49.4.417.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.417.mod <- rbind(varname,jjep.49.4.417.rp15); write(jjep.49.4.417.mod, file = "./jjep/Mod_49_4_417.txt")
jjep.49.4.427.tx <- readr::read_file(file="./jjep/49_4_427.txt"); jjep.49.4.427.rm00 <- jjep.49.4.427.tx; jjep.49.4.427.rm01 <- str_replace_all(jjep.49.4.427.rm00, pattern = rm.01, replacement = ""); jjep.49.4.427.rm02 <- str_replace_all(jjep.49.4.427.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.427.rm03 <- str_replace_all(jjep.49.4.427.rm02, pattern = rm.03, replacement = ""); jjep.49.4.427.rm04 <- str_replace_all(jjep.49.4.427.rm03, pattern = rm.04, replacement = ""); jjep.49.4.427.rm05 <- str_replace_all(jjep.49.4.427.rm04, pattern = rm.05, replacement = ""); jjep.49.4.427.rm06 <- str_replace_all(jjep.49.4.427.rm05, pattern = rm.06, replacement = ""); jjep.49.4.427.rm07 <- str_replace_all(jjep.49.4.427.rm06, pattern = rm.07, replacement = ""); jjep.49.4.427.rm08 <- str_replace_all(jjep.49.4.427.rm07, pattern = rm.08, replacement = ""); jjep.49.4.427.rm09 <- str_replace_all(jjep.49.4.427.rm08, pattern = rm.09, replacement = ""); jjep.49.4.427.rp10 <- str_replace_all(jjep.49.4.427.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.427.rp11 <- str_replace_all(jjep.49.4.427.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.427.rp12 <- str_replace_all(jjep.49.4.427.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.427.rp13 <- str_replace_all(jjep.49.4.427.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.427.rp14 <- str_replace_all(jjep.49.4.427.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.427.rp15 <- str_replace_all(jjep.49.4.427.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.427.mod <- rbind(varname,jjep.49.4.427.rp15); write(jjep.49.4.427.mod, file = "./jjep/Mod_49_4_427.txt")
jjep.49.4.438.tx <- readr::read_file(file="./jjep/49_4_438.txt"); jjep.49.4.438.rm00 <- jjep.49.4.438.tx; jjep.49.4.438.rm01 <- str_replace_all(jjep.49.4.438.rm00, pattern = rm.01, replacement = ""); jjep.49.4.438.rm02 <- str_replace_all(jjep.49.4.438.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.438.rm03 <- str_replace_all(jjep.49.4.438.rm02, pattern = rm.03, replacement = ""); jjep.49.4.438.rm04 <- str_replace_all(jjep.49.4.438.rm03, pattern = rm.04, replacement = ""); jjep.49.4.438.rm05 <- str_replace_all(jjep.49.4.438.rm04, pattern = rm.05, replacement = ""); jjep.49.4.438.rm06 <- str_replace_all(jjep.49.4.438.rm05, pattern = rm.06, replacement = ""); jjep.49.4.438.rm07 <- str_replace_all(jjep.49.4.438.rm06, pattern = rm.07, replacement = ""); jjep.49.4.438.rm08 <- str_replace_all(jjep.49.4.438.rm07, pattern = rm.08, replacement = ""); jjep.49.4.438.rm09 <- str_replace_all(jjep.49.4.438.rm08, pattern = rm.09, replacement = ""); jjep.49.4.438.rp10 <- str_replace_all(jjep.49.4.438.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.438.rp11 <- str_replace_all(jjep.49.4.438.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.438.rp12 <- str_replace_all(jjep.49.4.438.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.438.rp13 <- str_replace_all(jjep.49.4.438.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.438.rp14 <- str_replace_all(jjep.49.4.438.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.438.rp15 <- str_replace_all(jjep.49.4.438.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.438.mod <- rbind(varname,jjep.49.4.438.rp15); write(jjep.49.4.438.mod, file = "./jjep/Mod_49_4_438.txt")
jjep.49.4.449.tx <- readr::read_file(file="./jjep/49_4_449.txt"); jjep.49.4.449.rm00 <- jjep.49.4.449.tx; jjep.49.4.449.rm01 <- str_replace_all(jjep.49.4.449.rm00, pattern = rm.01, replacement = ""); jjep.49.4.449.rm02 <- str_replace_all(jjep.49.4.449.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.449.rm03 <- str_replace_all(jjep.49.4.449.rm02, pattern = rm.03, replacement = ""); jjep.49.4.449.rm04 <- str_replace_all(jjep.49.4.449.rm03, pattern = rm.04, replacement = ""); jjep.49.4.449.rm05 <- str_replace_all(jjep.49.4.449.rm04, pattern = rm.05, replacement = ""); jjep.49.4.449.rm06 <- str_replace_all(jjep.49.4.449.rm05, pattern = rm.06, replacement = ""); jjep.49.4.449.rm07 <- str_replace_all(jjep.49.4.449.rm06, pattern = rm.07, replacement = ""); jjep.49.4.449.rm08 <- str_replace_all(jjep.49.4.449.rm07, pattern = rm.08, replacement = ""); jjep.49.4.449.rm09 <- str_replace_all(jjep.49.4.449.rm08, pattern = rm.09, replacement = ""); jjep.49.4.449.rp10 <- str_replace_all(jjep.49.4.449.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.449.rp11 <- str_replace_all(jjep.49.4.449.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.449.rp12 <- str_replace_all(jjep.49.4.449.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.449.rp13 <- str_replace_all(jjep.49.4.449.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.449.rp14 <- str_replace_all(jjep.49.4.449.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.449.rp15 <- str_replace_all(jjep.49.4.449.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.449.mod <- rbind(varname,jjep.49.4.449.rp15); write(jjep.49.4.449.mod, file = "./jjep/Mod_49_4_449.txt")
jjep.49.4.458.tx <- readr::read_file(file="./jjep/49_4_458.txt"); jjep.49.4.458.rm00 <- jjep.49.4.458.tx; jjep.49.4.458.rm01 <- str_replace_all(jjep.49.4.458.rm00, pattern = rm.01, replacement = ""); jjep.49.4.458.rm02 <- str_replace_all(jjep.49.4.458.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.458.rm03 <- str_replace_all(jjep.49.4.458.rm02, pattern = rm.03, replacement = ""); jjep.49.4.458.rm04 <- str_replace_all(jjep.49.4.458.rm03, pattern = rm.04, replacement = ""); jjep.49.4.458.rm05 <- str_replace_all(jjep.49.4.458.rm04, pattern = rm.05, replacement = ""); jjep.49.4.458.rm06 <- str_replace_all(jjep.49.4.458.rm05, pattern = rm.06, replacement = ""); jjep.49.4.458.rm07 <- str_replace_all(jjep.49.4.458.rm06, pattern = rm.07, replacement = ""); jjep.49.4.458.rm08 <- str_replace_all(jjep.49.4.458.rm07, pattern = rm.08, replacement = ""); jjep.49.4.458.rm09 <- str_replace_all(jjep.49.4.458.rm08, pattern = rm.09, replacement = ""); jjep.49.4.458.rp10 <- str_replace_all(jjep.49.4.458.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.458.rp11 <- str_replace_all(jjep.49.4.458.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.458.rp12 <- str_replace_all(jjep.49.4.458.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.458.rp13 <- str_replace_all(jjep.49.4.458.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.458.rp14 <- str_replace_all(jjep.49.4.458.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.458.rp15 <- str_replace_all(jjep.49.4.458.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.458.mod <- rbind(varname,jjep.49.4.458.rp15); write(jjep.49.4.458.mod, file = "./jjep/Mod_49_4_458.txt")
jjep.49.4.469.tx <- readr::read_file(file="./jjep/49_4_469.txt"); jjep.49.4.469.rm00 <- jjep.49.4.469.tx; jjep.49.4.469.rm01 <- str_replace_all(jjep.49.4.469.rm00, pattern = rm.01, replacement = ""); jjep.49.4.469.rm02 <- str_replace_all(jjep.49.4.469.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.469.rm03 <- str_replace_all(jjep.49.4.469.rm02, pattern = rm.03, replacement = ""); jjep.49.4.469.rm04 <- str_replace_all(jjep.49.4.469.rm03, pattern = rm.04, replacement = ""); jjep.49.4.469.rm05 <- str_replace_all(jjep.49.4.469.rm04, pattern = rm.05, replacement = ""); jjep.49.4.469.rm06 <- str_replace_all(jjep.49.4.469.rm05, pattern = rm.06, replacement = ""); jjep.49.4.469.rm07 <- str_replace_all(jjep.49.4.469.rm06, pattern = rm.07, replacement = ""); jjep.49.4.469.rm08 <- str_replace_all(jjep.49.4.469.rm07, pattern = rm.08, replacement = ""); jjep.49.4.469.rm09 <- str_replace_all(jjep.49.4.469.rm08, pattern = rm.09, replacement = ""); jjep.49.4.469.rp10 <- str_replace_all(jjep.49.4.469.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.469.rp11 <- str_replace_all(jjep.49.4.469.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.469.rp12 <- str_replace_all(jjep.49.4.469.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.469.rp13 <- str_replace_all(jjep.49.4.469.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.469.rp14 <- str_replace_all(jjep.49.4.469.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.469.rp15 <- str_replace_all(jjep.49.4.469.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.469.mod <- rbind(varname,jjep.49.4.469.rp15); write(jjep.49.4.469.mod, file = "./jjep/Mod_49_4_469.txt")
jjep.49.4.480.tx <- readr::read_file(file="./jjep/49_4_480.txt"); jjep.49.4.480.rm00 <- jjep.49.4.480.tx; jjep.49.4.480.rm01 <- str_replace_all(jjep.49.4.480.rm00, pattern = rm.01, replacement = ""); jjep.49.4.480.rm02 <- str_replace_all(jjep.49.4.480.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.480.rm03 <- str_replace_all(jjep.49.4.480.rm02, pattern = rm.03, replacement = ""); jjep.49.4.480.rm04 <- str_replace_all(jjep.49.4.480.rm03, pattern = rm.04, replacement = ""); jjep.49.4.480.rm05 <- str_replace_all(jjep.49.4.480.rm04, pattern = rm.05, replacement = ""); jjep.49.4.480.rm06 <- str_replace_all(jjep.49.4.480.rm05, pattern = rm.06, replacement = ""); jjep.49.4.480.rm07 <- str_replace_all(jjep.49.4.480.rm06, pattern = rm.07, replacement = ""); jjep.49.4.480.rm08 <- str_replace_all(jjep.49.4.480.rm07, pattern = rm.08, replacement = ""); jjep.49.4.480.rm09 <- str_replace_all(jjep.49.4.480.rm08, pattern = rm.09, replacement = ""); jjep.49.4.480.rp10 <- str_replace_all(jjep.49.4.480.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.480.rp11 <- str_replace_all(jjep.49.4.480.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.480.rp12 <- str_replace_all(jjep.49.4.480.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.480.rp13 <- str_replace_all(jjep.49.4.480.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.480.rp14 <- str_replace_all(jjep.49.4.480.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.480.rp15 <- str_replace_all(jjep.49.4.480.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.480.mod <- rbind(varname,jjep.49.4.480.rp15); write(jjep.49.4.480.mod, file = "./jjep/Mod_49_4_480.txt")
jjep.49.4.491.tx <- readr::read_file(file="./jjep/49_4_491.txt"); jjep.49.4.491.rm00 <- jjep.49.4.491.tx; jjep.49.4.491.rm01 <- str_replace_all(jjep.49.4.491.rm00, pattern = rm.01, replacement = ""); jjep.49.4.491.rm02 <- str_replace_all(jjep.49.4.491.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.491.rm03 <- str_replace_all(jjep.49.4.491.rm02, pattern = rm.03, replacement = ""); jjep.49.4.491.rm04 <- str_replace_all(jjep.49.4.491.rm03, pattern = rm.04, replacement = ""); jjep.49.4.491.rm05 <- str_replace_all(jjep.49.4.491.rm04, pattern = rm.05, replacement = ""); jjep.49.4.491.rm06 <- str_replace_all(jjep.49.4.491.rm05, pattern = rm.06, replacement = ""); jjep.49.4.491.rm07 <- str_replace_all(jjep.49.4.491.rm06, pattern = rm.07, replacement = ""); jjep.49.4.491.rm08 <- str_replace_all(jjep.49.4.491.rm07, pattern = rm.08, replacement = ""); jjep.49.4.491.rm09 <- str_replace_all(jjep.49.4.491.rm08, pattern = rm.09, replacement = ""); jjep.49.4.491.rp10 <- str_replace_all(jjep.49.4.491.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.491.rp11 <- str_replace_all(jjep.49.4.491.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.491.rp12 <- str_replace_all(jjep.49.4.491.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.491.rp13 <- str_replace_all(jjep.49.4.491.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.491.rp14 <- str_replace_all(jjep.49.4.491.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.491.rp15 <- str_replace_all(jjep.49.4.491.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.491.mod <- rbind(varname,jjep.49.4.491.rp15); write(jjep.49.4.491.mod, file = "./jjep/Mod_49_4_491.txt")
jjep.49.4.500.tx <- readr::read_file(file="./jjep/49_4_500.txt"); jjep.49.4.500.rm00 <- jjep.49.4.500.tx; jjep.49.4.500.rm01 <- str_replace_all(jjep.49.4.500.rm00, pattern = rm.01, replacement = ""); jjep.49.4.500.rm02 <- str_replace_all(jjep.49.4.500.rm01, pattern = rm.02, replacement = "^"); jjep.49.4.500.rm03 <- str_replace_all(jjep.49.4.500.rm02, pattern = rm.03, replacement = ""); jjep.49.4.500.rm04 <- str_replace_all(jjep.49.4.500.rm03, pattern = rm.04, replacement = ""); jjep.49.4.500.rm05 <- str_replace_all(jjep.49.4.500.rm04, pattern = rm.05, replacement = ""); jjep.49.4.500.rm06 <- str_replace_all(jjep.49.4.500.rm05, pattern = rm.06, replacement = ""); jjep.49.4.500.rm07 <- str_replace_all(jjep.49.4.500.rm06, pattern = rm.07, replacement = ""); jjep.49.4.500.rm08 <- str_replace_all(jjep.49.4.500.rm07, pattern = rm.08, replacement = ""); jjep.49.4.500.rm09 <- str_replace_all(jjep.49.4.500.rm08, pattern = rm.09, replacement = ""); jjep.49.4.500.rp10 <- str_replace_all(jjep.49.4.500.rm09, pattern = rp.01, replacement = "・"); jjep.49.4.500.rp11 <- str_replace_all(jjep.49.4.500.rp10, pattern = rp.02, replacement = "^"); jjep.49.4.500.rp12 <- str_replace_all(jjep.49.4.500.rp11, pattern = rp.03, replacement = "^"); jjep.49.4.500.rp13 <- str_replace_all(jjep.49.4.500.rp12, pattern = rp.04, replacement = "^"); jjep.49.4.500.rp14 <- str_replace_all(jjep.49.4.500.rp13, pattern = rp.05, replacement = "^"); jjep.49.4.500.rp15 <- str_replace_all(jjep.49.4.500.rp14, pattern = rp.06, replacement = "^"); jjep.49.4.500.mod <- rbind(varname,jjep.49.4.500.rp15); write(jjep.49.4.500.mod, file = "./jjep/Mod_49_4_500.txt")
jjep.49.3.265.tx <- readr::read_file(file="./jjep/49_3_265.txt"); jjep.49.3.265.rm00 <- jjep.49.3.265.tx; jjep.49.3.265.rm01 <- str_replace_all(jjep.49.3.265.rm00, pattern = rm.01, replacement = ""); jjep.49.3.265.rm02 <- str_replace_all(jjep.49.3.265.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.265.rm03 <- str_replace_all(jjep.49.3.265.rm02, pattern = rm.03, replacement = ""); jjep.49.3.265.rm04 <- str_replace_all(jjep.49.3.265.rm03, pattern = rm.04, replacement = ""); jjep.49.3.265.rm05 <- str_replace_all(jjep.49.3.265.rm04, pattern = rm.05, replacement = ""); jjep.49.3.265.rm06 <- str_replace_all(jjep.49.3.265.rm05, pattern = rm.06, replacement = ""); jjep.49.3.265.rm07 <- str_replace_all(jjep.49.3.265.rm06, pattern = rm.07, replacement = ""); jjep.49.3.265.rm08 <- str_replace_all(jjep.49.3.265.rm07, pattern = rm.08, replacement = ""); jjep.49.3.265.rm09 <- str_replace_all(jjep.49.3.265.rm08, pattern = rm.09, replacement = ""); jjep.49.3.265.rp10 <- str_replace_all(jjep.49.3.265.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.265.rp11 <- str_replace_all(jjep.49.3.265.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.265.rp12 <- str_replace_all(jjep.49.3.265.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.265.rp13 <- str_replace_all(jjep.49.3.265.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.265.rp14 <- str_replace_all(jjep.49.3.265.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.265.rp15 <- str_replace_all(jjep.49.3.265.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.265.mod <- rbind(varname,jjep.49.3.265.rp15); write(jjep.49.3.265.mod, file = "./jjep/Mod_49_3_265.txt")
jjep.49.3.274.tx <- readr::read_file(file="./jjep/49_3_274.txt"); jjep.49.3.274.rm00 <- jjep.49.3.274.tx; jjep.49.3.274.rm01 <- str_replace_all(jjep.49.3.274.rm00, pattern = rm.01, replacement = ""); jjep.49.3.274.rm02 <- str_replace_all(jjep.49.3.274.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.274.rm03 <- str_replace_all(jjep.49.3.274.rm02, pattern = rm.03, replacement = ""); jjep.49.3.274.rm04 <- str_replace_all(jjep.49.3.274.rm03, pattern = rm.04, replacement = ""); jjep.49.3.274.rm05 <- str_replace_all(jjep.49.3.274.rm04, pattern = rm.05, replacement = ""); jjep.49.3.274.rm06 <- str_replace_all(jjep.49.3.274.rm05, pattern = rm.06, replacement = ""); jjep.49.3.274.rm07 <- str_replace_all(jjep.49.3.274.rm06, pattern = rm.07, replacement = ""); jjep.49.3.274.rm08 <- str_replace_all(jjep.49.3.274.rm07, pattern = rm.08, replacement = ""); jjep.49.3.274.rm09 <- str_replace_all(jjep.49.3.274.rm08, pattern = rm.09, replacement = ""); jjep.49.3.274.rp10 <- str_replace_all(jjep.49.3.274.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.274.rp11 <- str_replace_all(jjep.49.3.274.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.274.rp12 <- str_replace_all(jjep.49.3.274.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.274.rp13 <- str_replace_all(jjep.49.3.274.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.274.rp14 <- str_replace_all(jjep.49.3.274.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.274.rp15 <- str_replace_all(jjep.49.3.274.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.274.mod <- rbind(varname,jjep.49.3.274.rp15); write(jjep.49.3.274.mod, file = "./jjep/Mod_49_3_274.txt")
jjep.49.3.285.tx <- readr::read_file(file="./jjep/49_3_285.txt"); jjep.49.3.285.rm00 <- jjep.49.3.285.tx; jjep.49.3.285.rm01 <- str_replace_all(jjep.49.3.285.rm00, pattern = rm.01, replacement = ""); jjep.49.3.285.rm02 <- str_replace_all(jjep.49.3.285.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.285.rm03 <- str_replace_all(jjep.49.3.285.rm02, pattern = rm.03, replacement = ""); jjep.49.3.285.rm04 <- str_replace_all(jjep.49.3.285.rm03, pattern = rm.04, replacement = ""); jjep.49.3.285.rm05 <- str_replace_all(jjep.49.3.285.rm04, pattern = rm.05, replacement = ""); jjep.49.3.285.rm06 <- str_replace_all(jjep.49.3.285.rm05, pattern = rm.06, replacement = ""); jjep.49.3.285.rm07 <- str_replace_all(jjep.49.3.285.rm06, pattern = rm.07, replacement = ""); jjep.49.3.285.rm08 <- str_replace_all(jjep.49.3.285.rm07, pattern = rm.08, replacement = ""); jjep.49.3.285.rm09 <- str_replace_all(jjep.49.3.285.rm08, pattern = rm.09, replacement = ""); jjep.49.3.285.rp10 <- str_replace_all(jjep.49.3.285.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.285.rp11 <- str_replace_all(jjep.49.3.285.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.285.rp12 <- str_replace_all(jjep.49.3.285.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.285.rp13 <- str_replace_all(jjep.49.3.285.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.285.rp14 <- str_replace_all(jjep.49.3.285.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.285.rp15 <- str_replace_all(jjep.49.3.285.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.285.mod <- rbind(varname,jjep.49.3.285.rp15); write(jjep.49.3.285.mod, file = "./jjep/Mod_49_3_285.txt")
jjep.49.3.295.tx <- readr::read_file(file="./jjep/49_3_295.txt"); jjep.49.3.295.rm00 <- jjep.49.3.295.tx; jjep.49.3.295.rm01 <- str_replace_all(jjep.49.3.295.rm00, pattern = rm.01, replacement = ""); jjep.49.3.295.rm02 <- str_replace_all(jjep.49.3.295.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.295.rm03 <- str_replace_all(jjep.49.3.295.rm02, pattern = rm.03, replacement = ""); jjep.49.3.295.rm04 <- str_replace_all(jjep.49.3.295.rm03, pattern = rm.04, replacement = ""); jjep.49.3.295.rm05 <- str_replace_all(jjep.49.3.295.rm04, pattern = rm.05, replacement = ""); jjep.49.3.295.rm06 <- str_replace_all(jjep.49.3.295.rm05, pattern = rm.06, replacement = ""); jjep.49.3.295.rm07 <- str_replace_all(jjep.49.3.295.rm06, pattern = rm.07, replacement = ""); jjep.49.3.295.rm08 <- str_replace_all(jjep.49.3.295.rm07, pattern = rm.08, replacement = ""); jjep.49.3.295.rm09 <- str_replace_all(jjep.49.3.295.rm08, pattern = rm.09, replacement = ""); jjep.49.3.295.rp10 <- str_replace_all(jjep.49.3.295.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.295.rp11 <- str_replace_all(jjep.49.3.295.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.295.rp12 <- str_replace_all(jjep.49.3.295.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.295.rp13 <- str_replace_all(jjep.49.3.295.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.295.rp14 <- str_replace_all(jjep.49.3.295.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.295.rp15 <- str_replace_all(jjep.49.3.295.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.295.mod <- rbind(varname,jjep.49.3.295.rp15); write(jjep.49.3.295.mod, file = "./jjep/Mod_49_3_295.txt")
jjep.49.3.305.tx <- readr::read_file(file="./jjep/49_3_305.txt"); jjep.49.3.305.rm00 <- jjep.49.3.305.tx; jjep.49.3.305.rm01 <- str_replace_all(jjep.49.3.305.rm00, pattern = rm.01, replacement = ""); jjep.49.3.305.rm02 <- str_replace_all(jjep.49.3.305.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.305.rm03 <- str_replace_all(jjep.49.3.305.rm02, pattern = rm.03, replacement = ""); jjep.49.3.305.rm04 <- str_replace_all(jjep.49.3.305.rm03, pattern = rm.04, replacement = ""); jjep.49.3.305.rm05 <- str_replace_all(jjep.49.3.305.rm04, pattern = rm.05, replacement = ""); jjep.49.3.305.rm06 <- str_replace_all(jjep.49.3.305.rm05, pattern = rm.06, replacement = ""); jjep.49.3.305.rm07 <- str_replace_all(jjep.49.3.305.rm06, pattern = rm.07, replacement = ""); jjep.49.3.305.rm08 <- str_replace_all(jjep.49.3.305.rm07, pattern = rm.08, replacement = ""); jjep.49.3.305.rm09 <- str_replace_all(jjep.49.3.305.rm08, pattern = rm.09, replacement = ""); jjep.49.3.305.rp10 <- str_replace_all(jjep.49.3.305.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.305.rp11 <- str_replace_all(jjep.49.3.305.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.305.rp12 <- str_replace_all(jjep.49.3.305.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.305.rp13 <- str_replace_all(jjep.49.3.305.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.305.rp14 <- str_replace_all(jjep.49.3.305.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.305.rp15 <- str_replace_all(jjep.49.3.305.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.305.mod <- rbind(varname,jjep.49.3.305.rp15); write(jjep.49.3.305.mod, file = "./jjep/Mod_49_3_305.txt")
jjep.49.3.314.tx <- readr::read_file(file="./jjep/49_3_314.txt"); jjep.49.3.314.rm00 <- jjep.49.3.314.tx; jjep.49.3.314.rm01 <- str_replace_all(jjep.49.3.314.rm00, pattern = rm.01, replacement = ""); jjep.49.3.314.rm02 <- str_replace_all(jjep.49.3.314.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.314.rm03 <- str_replace_all(jjep.49.3.314.rm02, pattern = rm.03, replacement = ""); jjep.49.3.314.rm04 <- str_replace_all(jjep.49.3.314.rm03, pattern = rm.04, replacement = ""); jjep.49.3.314.rm05 <- str_replace_all(jjep.49.3.314.rm04, pattern = rm.05, replacement = ""); jjep.49.3.314.rm06 <- str_replace_all(jjep.49.3.314.rm05, pattern = rm.06, replacement = ""); jjep.49.3.314.rm07 <- str_replace_all(jjep.49.3.314.rm06, pattern = rm.07, replacement = ""); jjep.49.3.314.rm08 <- str_replace_all(jjep.49.3.314.rm07, pattern = rm.08, replacement = ""); jjep.49.3.314.rm09 <- str_replace_all(jjep.49.3.314.rm08, pattern = rm.09, replacement = ""); jjep.49.3.314.rp10 <- str_replace_all(jjep.49.3.314.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.314.rp11 <- str_replace_all(jjep.49.3.314.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.314.rp12 <- str_replace_all(jjep.49.3.314.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.314.rp13 <- str_replace_all(jjep.49.3.314.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.314.rp14 <- str_replace_all(jjep.49.3.314.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.314.rp15 <- str_replace_all(jjep.49.3.314.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.314.mod <- rbind(varname,jjep.49.3.314.rp15); write(jjep.49.3.314.mod, file = "./jjep/Mod_49_3_314.txt")
jjep.49.3.326.tx <- readr::read_file(file="./jjep/49_3_326.txt"); jjep.49.3.326.rm00 <- jjep.49.3.326.tx; jjep.49.3.326.rm01 <- str_replace_all(jjep.49.3.326.rm00, pattern = rm.01, replacement = ""); jjep.49.3.326.rm02 <- str_replace_all(jjep.49.3.326.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.326.rm03 <- str_replace_all(jjep.49.3.326.rm02, pattern = rm.03, replacement = ""); jjep.49.3.326.rm04 <- str_replace_all(jjep.49.3.326.rm03, pattern = rm.04, replacement = ""); jjep.49.3.326.rm05 <- str_replace_all(jjep.49.3.326.rm04, pattern = rm.05, replacement = ""); jjep.49.3.326.rm06 <- str_replace_all(jjep.49.3.326.rm05, pattern = rm.06, replacement = ""); jjep.49.3.326.rm07 <- str_replace_all(jjep.49.3.326.rm06, pattern = rm.07, replacement = ""); jjep.49.3.326.rm08 <- str_replace_all(jjep.49.3.326.rm07, pattern = rm.08, replacement = ""); jjep.49.3.326.rm09 <- str_replace_all(jjep.49.3.326.rm08, pattern = rm.09, replacement = ""); jjep.49.3.326.rp10 <- str_replace_all(jjep.49.3.326.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.326.rp11 <- str_replace_all(jjep.49.3.326.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.326.rp12 <- str_replace_all(jjep.49.3.326.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.326.rp13 <- str_replace_all(jjep.49.3.326.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.326.rp14 <- str_replace_all(jjep.49.3.326.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.326.rp15 <- str_replace_all(jjep.49.3.326.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.326.mod <- rbind(varname,jjep.49.3.326.rp15); write(jjep.49.3.326.mod, file = "./jjep/Mod_49_3_326.txt")
jjep.49.3.337.tx <- readr::read_file(file="./jjep/49_3_337.txt"); jjep.49.3.337.rm00 <- jjep.49.3.337.tx; jjep.49.3.337.rm01 <- str_replace_all(jjep.49.3.337.rm00, pattern = rm.01, replacement = ""); jjep.49.3.337.rm02 <- str_replace_all(jjep.49.3.337.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.337.rm03 <- str_replace_all(jjep.49.3.337.rm02, pattern = rm.03, replacement = ""); jjep.49.3.337.rm04 <- str_replace_all(jjep.49.3.337.rm03, pattern = rm.04, replacement = ""); jjep.49.3.337.rm05 <- str_replace_all(jjep.49.3.337.rm04, pattern = rm.05, replacement = ""); jjep.49.3.337.rm06 <- str_replace_all(jjep.49.3.337.rm05, pattern = rm.06, replacement = ""); jjep.49.3.337.rm07 <- str_replace_all(jjep.49.3.337.rm06, pattern = rm.07, replacement = ""); jjep.49.3.337.rm08 <- str_replace_all(jjep.49.3.337.rm07, pattern = rm.08, replacement = ""); jjep.49.3.337.rm09 <- str_replace_all(jjep.49.3.337.rm08, pattern = rm.09, replacement = ""); jjep.49.3.337.rp10 <- str_replace_all(jjep.49.3.337.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.337.rp11 <- str_replace_all(jjep.49.3.337.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.337.rp12 <- str_replace_all(jjep.49.3.337.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.337.rp13 <- str_replace_all(jjep.49.3.337.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.337.rp14 <- str_replace_all(jjep.49.3.337.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.337.rp15 <- str_replace_all(jjep.49.3.337.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.337.mod <- rbind(varname,jjep.49.3.337.rp15); write(jjep.49.3.337.mod, file = "./jjep/Mod_49_3_337.txt")
jjep.49.3.347.tx <- readr::read_file(file="./jjep/49_3_347.txt"); jjep.49.3.347.rm00 <- jjep.49.3.347.tx; jjep.49.3.347.rm01 <- str_replace_all(jjep.49.3.347.rm00, pattern = rm.01, replacement = ""); jjep.49.3.347.rm02 <- str_replace_all(jjep.49.3.347.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.347.rm03 <- str_replace_all(jjep.49.3.347.rm02, pattern = rm.03, replacement = ""); jjep.49.3.347.rm04 <- str_replace_all(jjep.49.3.347.rm03, pattern = rm.04, replacement = ""); jjep.49.3.347.rm05 <- str_replace_all(jjep.49.3.347.rm04, pattern = rm.05, replacement = ""); jjep.49.3.347.rm06 <- str_replace_all(jjep.49.3.347.rm05, pattern = rm.06, replacement = ""); jjep.49.3.347.rm07 <- str_replace_all(jjep.49.3.347.rm06, pattern = rm.07, replacement = ""); jjep.49.3.347.rm08 <- str_replace_all(jjep.49.3.347.rm07, pattern = rm.08, replacement = ""); jjep.49.3.347.rm09 <- str_replace_all(jjep.49.3.347.rm08, pattern = rm.09, replacement = ""); jjep.49.3.347.rp10 <- str_replace_all(jjep.49.3.347.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.347.rp11 <- str_replace_all(jjep.49.3.347.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.347.rp12 <- str_replace_all(jjep.49.3.347.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.347.rp13 <- str_replace_all(jjep.49.3.347.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.347.rp14 <- str_replace_all(jjep.49.3.347.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.347.rp15 <- str_replace_all(jjep.49.3.347.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.347.mod <- rbind(varname,jjep.49.3.347.rp15); write(jjep.49.3.347.mod, file = "./jjep/Mod_49_3_347.txt")
jjep.49.3.359.tx <- readr::read_file(file="./jjep/49_3_359.txt"); jjep.49.3.359.rm00 <- jjep.49.3.359.tx; jjep.49.3.359.rm01 <- str_replace_all(jjep.49.3.359.rm00, pattern = rm.01, replacement = ""); jjep.49.3.359.rm02 <- str_replace_all(jjep.49.3.359.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.359.rm03 <- str_replace_all(jjep.49.3.359.rm02, pattern = rm.03, replacement = ""); jjep.49.3.359.rm04 <- str_replace_all(jjep.49.3.359.rm03, pattern = rm.04, replacement = ""); jjep.49.3.359.rm05 <- str_replace_all(jjep.49.3.359.rm04, pattern = rm.05, replacement = ""); jjep.49.3.359.rm06 <- str_replace_all(jjep.49.3.359.rm05, pattern = rm.06, replacement = ""); jjep.49.3.359.rm07 <- str_replace_all(jjep.49.3.359.rm06, pattern = rm.07, replacement = ""); jjep.49.3.359.rm08 <- str_replace_all(jjep.49.3.359.rm07, pattern = rm.08, replacement = ""); jjep.49.3.359.rm09 <- str_replace_all(jjep.49.3.359.rm08, pattern = rm.09, replacement = ""); jjep.49.3.359.rp10 <- str_replace_all(jjep.49.3.359.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.359.rp11 <- str_replace_all(jjep.49.3.359.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.359.rp12 <- str_replace_all(jjep.49.3.359.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.359.rp13 <- str_replace_all(jjep.49.3.359.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.359.rp14 <- str_replace_all(jjep.49.3.359.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.359.rp15 <- str_replace_all(jjep.49.3.359.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.359.mod <- rbind(varname,jjep.49.3.359.rp15); write(jjep.49.3.359.mod, file = "./jjep/Mod_49_3_359.txt")
jjep.49.3.371.tx <- readr::read_file(file="./jjep/49_3_371.txt"); jjep.49.3.371.rm00 <- jjep.49.3.371.tx; jjep.49.3.371.rm01 <- str_replace_all(jjep.49.3.371.rm00, pattern = rm.01, replacement = ""); jjep.49.3.371.rm02 <- str_replace_all(jjep.49.3.371.rm01, pattern = rm.02, replacement = "^"); jjep.49.3.371.rm03 <- str_replace_all(jjep.49.3.371.rm02, pattern = rm.03, replacement = ""); jjep.49.3.371.rm04 <- str_replace_all(jjep.49.3.371.rm03, pattern = rm.04, replacement = ""); jjep.49.3.371.rm05 <- str_replace_all(jjep.49.3.371.rm04, pattern = rm.05, replacement = ""); jjep.49.3.371.rm06 <- str_replace_all(jjep.49.3.371.rm05, pattern = rm.06, replacement = ""); jjep.49.3.371.rm07 <- str_replace_all(jjep.49.3.371.rm06, pattern = rm.07, replacement = ""); jjep.49.3.371.rm08 <- str_replace_all(jjep.49.3.371.rm07, pattern = rm.08, replacement = ""); jjep.49.3.371.rm09 <- str_replace_all(jjep.49.3.371.rm08, pattern = rm.09, replacement = ""); jjep.49.3.371.rp10 <- str_replace_all(jjep.49.3.371.rm09, pattern = rp.01, replacement = "・"); jjep.49.3.371.rp11 <- str_replace_all(jjep.49.3.371.rp10, pattern = rp.02, replacement = "^"); jjep.49.3.371.rp12 <- str_replace_all(jjep.49.3.371.rp11, pattern = rp.03, replacement = "^"); jjep.49.3.371.rp13 <- str_replace_all(jjep.49.3.371.rp12, pattern = rp.04, replacement = "^"); jjep.49.3.371.rp14 <- str_replace_all(jjep.49.3.371.rp13, pattern = rp.05, replacement = "^"); jjep.49.3.371.rp15 <- str_replace_all(jjep.49.3.371.rp14, pattern = rp.06, replacement = "^"); jjep.49.3.371.mod <- rbind(varname,jjep.49.3.371.rp15); write(jjep.49.3.371.mod, file = "./jjep/Mod_49_3_371.txt")
jjep.49.2.129.tx <- readr::read_file(file="./jjep/49_2_129.txt"); jjep.49.2.129.rm00 <- jjep.49.2.129.tx; jjep.49.2.129.rm01 <- str_replace_all(jjep.49.2.129.rm00, pattern = rm.01, replacement = ""); jjep.49.2.129.rm02 <- str_replace_all(jjep.49.2.129.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.129.rm03 <- str_replace_all(jjep.49.2.129.rm02, pattern = rm.03, replacement = ""); jjep.49.2.129.rm04 <- str_replace_all(jjep.49.2.129.rm03, pattern = rm.04, replacement = ""); jjep.49.2.129.rm05 <- str_replace_all(jjep.49.2.129.rm04, pattern = rm.05, replacement = ""); jjep.49.2.129.rm06 <- str_replace_all(jjep.49.2.129.rm05, pattern = rm.06, replacement = ""); jjep.49.2.129.rm07 <- str_replace_all(jjep.49.2.129.rm06, pattern = rm.07, replacement = ""); jjep.49.2.129.rm08 <- str_replace_all(jjep.49.2.129.rm07, pattern = rm.08, replacement = ""); jjep.49.2.129.rm09 <- str_replace_all(jjep.49.2.129.rm08, pattern = rm.09, replacement = ""); jjep.49.2.129.rp10 <- str_replace_all(jjep.49.2.129.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.129.rp11 <- str_replace_all(jjep.49.2.129.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.129.rp12 <- str_replace_all(jjep.49.2.129.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.129.rp13 <- str_replace_all(jjep.49.2.129.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.129.rp14 <- str_replace_all(jjep.49.2.129.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.129.rp15 <- str_replace_all(jjep.49.2.129.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.129.mod <- rbind(varname,jjep.49.2.129.rp15); write(jjep.49.2.129.mod, file = "./jjep/Mod_49_2_129.txt")
jjep.49.2.137.tx <- readr::read_file(file="./jjep/49_2_137.txt"); jjep.49.2.137.rm00 <- jjep.49.2.137.tx; jjep.49.2.137.rm01 <- str_replace_all(jjep.49.2.137.rm00, pattern = rm.01, replacement = ""); jjep.49.2.137.rm02 <- str_replace_all(jjep.49.2.137.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.137.rm03 <- str_replace_all(jjep.49.2.137.rm02, pattern = rm.03, replacement = ""); jjep.49.2.137.rm04 <- str_replace_all(jjep.49.2.137.rm03, pattern = rm.04, replacement = ""); jjep.49.2.137.rm05 <- str_replace_all(jjep.49.2.137.rm04, pattern = rm.05, replacement = ""); jjep.49.2.137.rm06 <- str_replace_all(jjep.49.2.137.rm05, pattern = rm.06, replacement = ""); jjep.49.2.137.rm07 <- str_replace_all(jjep.49.2.137.rm06, pattern = rm.07, replacement = ""); jjep.49.2.137.rm08 <- str_replace_all(jjep.49.2.137.rm07, pattern = rm.08, replacement = ""); jjep.49.2.137.rm09 <- str_replace_all(jjep.49.2.137.rm08, pattern = rm.09, replacement = ""); jjep.49.2.137.rp10 <- str_replace_all(jjep.49.2.137.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.137.rp11 <- str_replace_all(jjep.49.2.137.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.137.rp12 <- str_replace_all(jjep.49.2.137.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.137.rp13 <- str_replace_all(jjep.49.2.137.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.137.rp14 <- str_replace_all(jjep.49.2.137.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.137.rp15 <- str_replace_all(jjep.49.2.137.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.137.mod <- rbind(varname,jjep.49.2.137.rp15); write(jjep.49.2.137.mod, file = "./jjep/Mod_49_2_137.txt")
jjep.49.2.146.tx <- readr::read_file(file="./jjep/49_2_146.txt"); jjep.49.2.146.rm00 <- jjep.49.2.146.tx; jjep.49.2.146.rm01 <- str_replace_all(jjep.49.2.146.rm00, pattern = rm.01, replacement = ""); jjep.49.2.146.rm02 <- str_replace_all(jjep.49.2.146.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.146.rm03 <- str_replace_all(jjep.49.2.146.rm02, pattern = rm.03, replacement = ""); jjep.49.2.146.rm04 <- str_replace_all(jjep.49.2.146.rm03, pattern = rm.04, replacement = ""); jjep.49.2.146.rm05 <- str_replace_all(jjep.49.2.146.rm04, pattern = rm.05, replacement = ""); jjep.49.2.146.rm06 <- str_replace_all(jjep.49.2.146.rm05, pattern = rm.06, replacement = ""); jjep.49.2.146.rm07 <- str_replace_all(jjep.49.2.146.rm06, pattern = rm.07, replacement = ""); jjep.49.2.146.rm08 <- str_replace_all(jjep.49.2.146.rm07, pattern = rm.08, replacement = ""); jjep.49.2.146.rm09 <- str_replace_all(jjep.49.2.146.rm08, pattern = rm.09, replacement = ""); jjep.49.2.146.rp10 <- str_replace_all(jjep.49.2.146.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.146.rp11 <- str_replace_all(jjep.49.2.146.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.146.rp12 <- str_replace_all(jjep.49.2.146.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.146.rp13 <- str_replace_all(jjep.49.2.146.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.146.rp14 <- str_replace_all(jjep.49.2.146.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.146.rp15 <- str_replace_all(jjep.49.2.146.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.146.mod <- rbind(varname,jjep.49.2.146.rp15); write(jjep.49.2.146.mod, file = "./jjep/Mod_49_2_146.txt")
jjep.49.2.156.tx <- readr::read_file(file="./jjep/49_2_156.txt"); jjep.49.2.156.rm00 <- jjep.49.2.156.tx; jjep.49.2.156.rm01 <- str_replace_all(jjep.49.2.156.rm00, pattern = rm.01, replacement = ""); jjep.49.2.156.rm02 <- str_replace_all(jjep.49.2.156.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.156.rm03 <- str_replace_all(jjep.49.2.156.rm02, pattern = rm.03, replacement = ""); jjep.49.2.156.rm04 <- str_replace_all(jjep.49.2.156.rm03, pattern = rm.04, replacement = ""); jjep.49.2.156.rm05 <- str_replace_all(jjep.49.2.156.rm04, pattern = rm.05, replacement = ""); jjep.49.2.156.rm06 <- str_replace_all(jjep.49.2.156.rm05, pattern = rm.06, replacement = ""); jjep.49.2.156.rm07 <- str_replace_all(jjep.49.2.156.rm06, pattern = rm.07, replacement = ""); jjep.49.2.156.rm08 <- str_replace_all(jjep.49.2.156.rm07, pattern = rm.08, replacement = ""); jjep.49.2.156.rm09 <- str_replace_all(jjep.49.2.156.rm08, pattern = rm.09, replacement = ""); jjep.49.2.156.rp10 <- str_replace_all(jjep.49.2.156.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.156.rp11 <- str_replace_all(jjep.49.2.156.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.156.rp12 <- str_replace_all(jjep.49.2.156.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.156.rp13 <- str_replace_all(jjep.49.2.156.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.156.rp14 <- str_replace_all(jjep.49.2.156.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.156.rp15 <- str_replace_all(jjep.49.2.156.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.156.mod <- rbind(varname,jjep.49.2.156.rp15); write(jjep.49.2.156.mod, file = "./jjep/Mod_49_2_156.txt")
jjep.49.2.167.tx <- readr::read_file(file="./jjep/49_2_167.txt"); jjep.49.2.167.rm00 <- jjep.49.2.167.tx; jjep.49.2.167.rm01 <- str_replace_all(jjep.49.2.167.rm00, pattern = rm.01, replacement = ""); jjep.49.2.167.rm02 <- str_replace_all(jjep.49.2.167.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.167.rm03 <- str_replace_all(jjep.49.2.167.rm02, pattern = rm.03, replacement = ""); jjep.49.2.167.rm04 <- str_replace_all(jjep.49.2.167.rm03, pattern = rm.04, replacement = ""); jjep.49.2.167.rm05 <- str_replace_all(jjep.49.2.167.rm04, pattern = rm.05, replacement = ""); jjep.49.2.167.rm06 <- str_replace_all(jjep.49.2.167.rm05, pattern = rm.06, replacement = ""); jjep.49.2.167.rm07 <- str_replace_all(jjep.49.2.167.rm06, pattern = rm.07, replacement = ""); jjep.49.2.167.rm08 <- str_replace_all(jjep.49.2.167.rm07, pattern = rm.08, replacement = ""); jjep.49.2.167.rm09 <- str_replace_all(jjep.49.2.167.rm08, pattern = rm.09, replacement = ""); jjep.49.2.167.rp10 <- str_replace_all(jjep.49.2.167.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.167.rp11 <- str_replace_all(jjep.49.2.167.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.167.rp12 <- str_replace_all(jjep.49.2.167.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.167.rp13 <- str_replace_all(jjep.49.2.167.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.167.rp14 <- str_replace_all(jjep.49.2.167.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.167.rp15 <- str_replace_all(jjep.49.2.167.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.167.mod <- rbind(varname,jjep.49.2.167.rp15); write(jjep.49.2.167.mod, file = "./jjep/Mod_49_2_167.txt")
jjep.49.2.175.tx <- readr::read_file(file="./jjep/49_2_175.txt"); jjep.49.2.175.rm00 <- jjep.49.2.175.tx; jjep.49.2.175.rm01 <- str_replace_all(jjep.49.2.175.rm00, pattern = rm.01, replacement = ""); jjep.49.2.175.rm02 <- str_replace_all(jjep.49.2.175.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.175.rm03 <- str_replace_all(jjep.49.2.175.rm02, pattern = rm.03, replacement = ""); jjep.49.2.175.rm04 <- str_replace_all(jjep.49.2.175.rm03, pattern = rm.04, replacement = ""); jjep.49.2.175.rm05 <- str_replace_all(jjep.49.2.175.rm04, pattern = rm.05, replacement = ""); jjep.49.2.175.rm06 <- str_replace_all(jjep.49.2.175.rm05, pattern = rm.06, replacement = ""); jjep.49.2.175.rm07 <- str_replace_all(jjep.49.2.175.rm06, pattern = rm.07, replacement = ""); jjep.49.2.175.rm08 <- str_replace_all(jjep.49.2.175.rm07, pattern = rm.08, replacement = ""); jjep.49.2.175.rm09 <- str_replace_all(jjep.49.2.175.rm08, pattern = rm.09, replacement = ""); jjep.49.2.175.rp10 <- str_replace_all(jjep.49.2.175.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.175.rp11 <- str_replace_all(jjep.49.2.175.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.175.rp12 <- str_replace_all(jjep.49.2.175.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.175.rp13 <- str_replace_all(jjep.49.2.175.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.175.rp14 <- str_replace_all(jjep.49.2.175.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.175.rp15 <- str_replace_all(jjep.49.2.175.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.175.mod <- rbind(varname,jjep.49.2.175.rp15); write(jjep.49.2.175.mod, file = "./jjep/Mod_49_2_175.txt")
jjep.49.2.186.tx <- readr::read_file(file="./jjep/49_2_186.txt"); jjep.49.2.186.rm00 <- jjep.49.2.186.tx; jjep.49.2.186.rm01 <- str_replace_all(jjep.49.2.186.rm00, pattern = rm.01, replacement = ""); jjep.49.2.186.rm02 <- str_replace_all(jjep.49.2.186.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.186.rm03 <- str_replace_all(jjep.49.2.186.rm02, pattern = rm.03, replacement = ""); jjep.49.2.186.rm04 <- str_replace_all(jjep.49.2.186.rm03, pattern = rm.04, replacement = ""); jjep.49.2.186.rm05 <- str_replace_all(jjep.49.2.186.rm04, pattern = rm.05, replacement = ""); jjep.49.2.186.rm06 <- str_replace_all(jjep.49.2.186.rm05, pattern = rm.06, replacement = ""); jjep.49.2.186.rm07 <- str_replace_all(jjep.49.2.186.rm06, pattern = rm.07, replacement = ""); jjep.49.2.186.rm08 <- str_replace_all(jjep.49.2.186.rm07, pattern = rm.08, replacement = ""); jjep.49.2.186.rm09 <- str_replace_all(jjep.49.2.186.rm08, pattern = rm.09, replacement = ""); jjep.49.2.186.rp10 <- str_replace_all(jjep.49.2.186.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.186.rp11 <- str_replace_all(jjep.49.2.186.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.186.rp12 <- str_replace_all(jjep.49.2.186.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.186.rp13 <- str_replace_all(jjep.49.2.186.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.186.rp14 <- str_replace_all(jjep.49.2.186.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.186.rp15 <- str_replace_all(jjep.49.2.186.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.186.mod <- rbind(varname,jjep.49.2.186.rp15); write(jjep.49.2.186.mod, file = "./jjep/Mod_49_2_186.txt")
jjep.49.2.198.tx <- readr::read_file(file="./jjep/49_2_198.txt"); jjep.49.2.198.rm00 <- jjep.49.2.198.tx; jjep.49.2.198.rm01 <- str_replace_all(jjep.49.2.198.rm00, pattern = rm.01, replacement = ""); jjep.49.2.198.rm02 <- str_replace_all(jjep.49.2.198.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.198.rm03 <- str_replace_all(jjep.49.2.198.rm02, pattern = rm.03, replacement = ""); jjep.49.2.198.rm04 <- str_replace_all(jjep.49.2.198.rm03, pattern = rm.04, replacement = ""); jjep.49.2.198.rm05 <- str_replace_all(jjep.49.2.198.rm04, pattern = rm.05, replacement = ""); jjep.49.2.198.rm06 <- str_replace_all(jjep.49.2.198.rm05, pattern = rm.06, replacement = ""); jjep.49.2.198.rm07 <- str_replace_all(jjep.49.2.198.rm06, pattern = rm.07, replacement = ""); jjep.49.2.198.rm08 <- str_replace_all(jjep.49.2.198.rm07, pattern = rm.08, replacement = ""); jjep.49.2.198.rm09 <- str_replace_all(jjep.49.2.198.rm08, pattern = rm.09, replacement = ""); jjep.49.2.198.rp10 <- str_replace_all(jjep.49.2.198.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.198.rp11 <- str_replace_all(jjep.49.2.198.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.198.rp12 <- str_replace_all(jjep.49.2.198.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.198.rp13 <- str_replace_all(jjep.49.2.198.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.198.rp14 <- str_replace_all(jjep.49.2.198.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.198.rp15 <- str_replace_all(jjep.49.2.198.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.198.mod <- rbind(varname,jjep.49.2.198.rp15); write(jjep.49.2.198.mod, file = "./jjep/Mod_49_2_198.txt")
jjep.49.2.209.tx <- readr::read_file(file="./jjep/49_2_209.txt"); jjep.49.2.209.rm00 <- jjep.49.2.209.tx; jjep.49.2.209.rm01 <- str_replace_all(jjep.49.2.209.rm00, pattern = rm.01, replacement = ""); jjep.49.2.209.rm02 <- str_replace_all(jjep.49.2.209.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.209.rm03 <- str_replace_all(jjep.49.2.209.rm02, pattern = rm.03, replacement = ""); jjep.49.2.209.rm04 <- str_replace_all(jjep.49.2.209.rm03, pattern = rm.04, replacement = ""); jjep.49.2.209.rm05 <- str_replace_all(jjep.49.2.209.rm04, pattern = rm.05, replacement = ""); jjep.49.2.209.rm06 <- str_replace_all(jjep.49.2.209.rm05, pattern = rm.06, replacement = ""); jjep.49.2.209.rm07 <- str_replace_all(jjep.49.2.209.rm06, pattern = rm.07, replacement = ""); jjep.49.2.209.rm08 <- str_replace_all(jjep.49.2.209.rm07, pattern = rm.08, replacement = ""); jjep.49.2.209.rm09 <- str_replace_all(jjep.49.2.209.rm08, pattern = rm.09, replacement = ""); jjep.49.2.209.rp10 <- str_replace_all(jjep.49.2.209.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.209.rp11 <- str_replace_all(jjep.49.2.209.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.209.rp12 <- str_replace_all(jjep.49.2.209.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.209.rp13 <- str_replace_all(jjep.49.2.209.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.209.rp14 <- str_replace_all(jjep.49.2.209.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.209.rp15 <- str_replace_all(jjep.49.2.209.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.209.mod <- rbind(varname,jjep.49.2.209.rp15); write(jjep.49.2.209.mod, file = "./jjep/Mod_49_2_209.txt")
jjep.49.2.219.tx <- readr::read_file(file="./jjep/49_2_219.txt"); jjep.49.2.219.rm00 <- jjep.49.2.219.tx; jjep.49.2.219.rm01 <- str_replace_all(jjep.49.2.219.rm00, pattern = rm.01, replacement = ""); jjep.49.2.219.rm02 <- str_replace_all(jjep.49.2.219.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.219.rm03 <- str_replace_all(jjep.49.2.219.rm02, pattern = rm.03, replacement = ""); jjep.49.2.219.rm04 <- str_replace_all(jjep.49.2.219.rm03, pattern = rm.04, replacement = ""); jjep.49.2.219.rm05 <- str_replace_all(jjep.49.2.219.rm04, pattern = rm.05, replacement = ""); jjep.49.2.219.rm06 <- str_replace_all(jjep.49.2.219.rm05, pattern = rm.06, replacement = ""); jjep.49.2.219.rm07 <- str_replace_all(jjep.49.2.219.rm06, pattern = rm.07, replacement = ""); jjep.49.2.219.rm08 <- str_replace_all(jjep.49.2.219.rm07, pattern = rm.08, replacement = ""); jjep.49.2.219.rm09 <- str_replace_all(jjep.49.2.219.rm08, pattern = rm.09, replacement = ""); jjep.49.2.219.rp10 <- str_replace_all(jjep.49.2.219.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.219.rp11 <- str_replace_all(jjep.49.2.219.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.219.rp12 <- str_replace_all(jjep.49.2.219.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.219.rp13 <- str_replace_all(jjep.49.2.219.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.219.rp14 <- str_replace_all(jjep.49.2.219.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.219.rp15 <- str_replace_all(jjep.49.2.219.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.219.mod <- rbind(varname,jjep.49.2.219.rp15); write(jjep.49.2.219.mod, file = "./jjep/Mod_49_2_219.txt")
jjep.49.2.230.tx <- readr::read_file(file="./jjep/49_2_230.txt"); jjep.49.2.230.rm00 <- jjep.49.2.230.tx; jjep.49.2.230.rm01 <- str_replace_all(jjep.49.2.230.rm00, pattern = rm.01, replacement = ""); jjep.49.2.230.rm02 <- str_replace_all(jjep.49.2.230.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.230.rm03 <- str_replace_all(jjep.49.2.230.rm02, pattern = rm.03, replacement = ""); jjep.49.2.230.rm04 <- str_replace_all(jjep.49.2.230.rm03, pattern = rm.04, replacement = ""); jjep.49.2.230.rm05 <- str_replace_all(jjep.49.2.230.rm04, pattern = rm.05, replacement = ""); jjep.49.2.230.rm06 <- str_replace_all(jjep.49.2.230.rm05, pattern = rm.06, replacement = ""); jjep.49.2.230.rm07 <- str_replace_all(jjep.49.2.230.rm06, pattern = rm.07, replacement = ""); jjep.49.2.230.rm08 <- str_replace_all(jjep.49.2.230.rm07, pattern = rm.08, replacement = ""); jjep.49.2.230.rm09 <- str_replace_all(jjep.49.2.230.rm08, pattern = rm.09, replacement = ""); jjep.49.2.230.rp10 <- str_replace_all(jjep.49.2.230.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.230.rp11 <- str_replace_all(jjep.49.2.230.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.230.rp12 <- str_replace_all(jjep.49.2.230.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.230.rp13 <- str_replace_all(jjep.49.2.230.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.230.rp14 <- str_replace_all(jjep.49.2.230.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.230.rp15 <- str_replace_all(jjep.49.2.230.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.230.mod <- rbind(varname,jjep.49.2.230.rp15); write(jjep.49.2.230.mod, file = "./jjep/Mod_49_2_230.txt")
jjep.49.2.240.tx <- readr::read_file(file="./jjep/49_2_240.txt"); jjep.49.2.240.rm00 <- jjep.49.2.240.tx; jjep.49.2.240.rm01 <- str_replace_all(jjep.49.2.240.rm00, pattern = rm.01, replacement = ""); jjep.49.2.240.rm02 <- str_replace_all(jjep.49.2.240.rm01, pattern = rm.02, replacement = "^"); jjep.49.2.240.rm03 <- str_replace_all(jjep.49.2.240.rm02, pattern = rm.03, replacement = ""); jjep.49.2.240.rm04 <- str_replace_all(jjep.49.2.240.rm03, pattern = rm.04, replacement = ""); jjep.49.2.240.rm05 <- str_replace_all(jjep.49.2.240.rm04, pattern = rm.05, replacement = ""); jjep.49.2.240.rm06 <- str_replace_all(jjep.49.2.240.rm05, pattern = rm.06, replacement = ""); jjep.49.2.240.rm07 <- str_replace_all(jjep.49.2.240.rm06, pattern = rm.07, replacement = ""); jjep.49.2.240.rm08 <- str_replace_all(jjep.49.2.240.rm07, pattern = rm.08, replacement = ""); jjep.49.2.240.rm09 <- str_replace_all(jjep.49.2.240.rm08, pattern = rm.09, replacement = ""); jjep.49.2.240.rp10 <- str_replace_all(jjep.49.2.240.rm09, pattern = rp.01, replacement = "・"); jjep.49.2.240.rp11 <- str_replace_all(jjep.49.2.240.rp10, pattern = rp.02, replacement = "^"); jjep.49.2.240.rp12 <- str_replace_all(jjep.49.2.240.rp11, pattern = rp.03, replacement = "^"); jjep.49.2.240.rp13 <- str_replace_all(jjep.49.2.240.rp12, pattern = rp.04, replacement = "^"); jjep.49.2.240.rp14 <- str_replace_all(jjep.49.2.240.rp13, pattern = rp.05, replacement = "^"); jjep.49.2.240.rp15 <- str_replace_all(jjep.49.2.240.rp14, pattern = rp.06, replacement = "^"); jjep.49.2.240.mod <- rbind(varname,jjep.49.2.240.rp15); write(jjep.49.2.240.mod, file = "./jjep/Mod_49_2_240.txt")
jjep.49.1.1.tx <- readr::read_file(file="./jjep/49_1_1.txt"); jjep.49.1.1.rm00 <- jjep.49.1.1.tx; jjep.49.1.1.rm01 <- str_replace_all(jjep.49.1.1.rm00, pattern = rm.01, replacement = ""); jjep.49.1.1.rm02 <- str_replace_all(jjep.49.1.1.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.1.rm03 <- str_replace_all(jjep.49.1.1.rm02, pattern = rm.03, replacement = ""); jjep.49.1.1.rm04 <- str_replace_all(jjep.49.1.1.rm03, pattern = rm.04, replacement = ""); jjep.49.1.1.rm05 <- str_replace_all(jjep.49.1.1.rm04, pattern = rm.05, replacement = ""); jjep.49.1.1.rm06 <- str_replace_all(jjep.49.1.1.rm05, pattern = rm.06, replacement = ""); jjep.49.1.1.rm07 <- str_replace_all(jjep.49.1.1.rm06, pattern = rm.07, replacement = ""); jjep.49.1.1.rm08 <- str_replace_all(jjep.49.1.1.rm07, pattern = rm.08, replacement = ""); jjep.49.1.1.rm09 <- str_replace_all(jjep.49.1.1.rm08, pattern = rm.09, replacement = ""); jjep.49.1.1.rp10 <- str_replace_all(jjep.49.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.1.rp11 <- str_replace_all(jjep.49.1.1.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.1.rp12 <- str_replace_all(jjep.49.1.1.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.1.rp13 <- str_replace_all(jjep.49.1.1.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.1.rp14 <- str_replace_all(jjep.49.1.1.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.1.rp15 <- str_replace_all(jjep.49.1.1.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.1.mod <- rbind(varname,jjep.49.1.1.rp15); write(jjep.49.1.1.mod, file = "./jjep/Mod_49_1_1.txt")
jjep.49.1.11.tx <- readr::read_file(file="./jjep/49_1_11.txt"); jjep.49.1.11.rm00 <- jjep.49.1.11.tx; jjep.49.1.11.rm01 <- str_replace_all(jjep.49.1.11.rm00, pattern = rm.01, replacement = ""); jjep.49.1.11.rm02 <- str_replace_all(jjep.49.1.11.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.11.rm03 <- str_replace_all(jjep.49.1.11.rm02, pattern = rm.03, replacement = ""); jjep.49.1.11.rm04 <- str_replace_all(jjep.49.1.11.rm03, pattern = rm.04, replacement = ""); jjep.49.1.11.rm05 <- str_replace_all(jjep.49.1.11.rm04, pattern = rm.05, replacement = ""); jjep.49.1.11.rm06 <- str_replace_all(jjep.49.1.11.rm05, pattern = rm.06, replacement = ""); jjep.49.1.11.rm07 <- str_replace_all(jjep.49.1.11.rm06, pattern = rm.07, replacement = ""); jjep.49.1.11.rm08 <- str_replace_all(jjep.49.1.11.rm07, pattern = rm.08, replacement = ""); jjep.49.1.11.rm09 <- str_replace_all(jjep.49.1.11.rm08, pattern = rm.09, replacement = ""); jjep.49.1.11.rp10 <- str_replace_all(jjep.49.1.11.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.11.rp11 <- str_replace_all(jjep.49.1.11.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.11.rp12 <- str_replace_all(jjep.49.1.11.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.11.rp13 <- str_replace_all(jjep.49.1.11.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.11.rp14 <- str_replace_all(jjep.49.1.11.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.11.rp15 <- str_replace_all(jjep.49.1.11.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.11.mod <- rbind(varname,jjep.49.1.11.rp15); write(jjep.49.1.11.mod, file = "./jjep/Mod_49_1_11.txt")
jjep.49.1.21.tx <- readr::read_file(file="./jjep/49_1_21.txt"); jjep.49.1.21.rm00 <- jjep.49.1.21.tx; jjep.49.1.21.rm01 <- str_replace_all(jjep.49.1.21.rm00, pattern = rm.01, replacement = ""); jjep.49.1.21.rm02 <- str_replace_all(jjep.49.1.21.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.21.rm03 <- str_replace_all(jjep.49.1.21.rm02, pattern = rm.03, replacement = ""); jjep.49.1.21.rm04 <- str_replace_all(jjep.49.1.21.rm03, pattern = rm.04, replacement = ""); jjep.49.1.21.rm05 <- str_replace_all(jjep.49.1.21.rm04, pattern = rm.05, replacement = ""); jjep.49.1.21.rm06 <- str_replace_all(jjep.49.1.21.rm05, pattern = rm.06, replacement = ""); jjep.49.1.21.rm07 <- str_replace_all(jjep.49.1.21.rm06, pattern = rm.07, replacement = ""); jjep.49.1.21.rm08 <- str_replace_all(jjep.49.1.21.rm07, pattern = rm.08, replacement = ""); jjep.49.1.21.rm09 <- str_replace_all(jjep.49.1.21.rm08, pattern = rm.09, replacement = ""); jjep.49.1.21.rp10 <- str_replace_all(jjep.49.1.21.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.21.rp11 <- str_replace_all(jjep.49.1.21.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.21.rp12 <- str_replace_all(jjep.49.1.21.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.21.rp13 <- str_replace_all(jjep.49.1.21.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.21.rp14 <- str_replace_all(jjep.49.1.21.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.21.rp15 <- str_replace_all(jjep.49.1.21.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.21.mod <- rbind(varname,jjep.49.1.21.rp15); write(jjep.49.1.21.mod, file = "./jjep/Mod_49_1_21.txt")
jjep.49.1.31.tx <- readr::read_file(file="./jjep/49_1_31.txt"); jjep.49.1.31.rm00 <- jjep.49.1.31.tx; jjep.49.1.31.rm01 <- str_replace_all(jjep.49.1.31.rm00, pattern = rm.01, replacement = ""); jjep.49.1.31.rm02 <- str_replace_all(jjep.49.1.31.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.31.rm03 <- str_replace_all(jjep.49.1.31.rm02, pattern = rm.03, replacement = ""); jjep.49.1.31.rm04 <- str_replace_all(jjep.49.1.31.rm03, pattern = rm.04, replacement = ""); jjep.49.1.31.rm05 <- str_replace_all(jjep.49.1.31.rm04, pattern = rm.05, replacement = ""); jjep.49.1.31.rm06 <- str_replace_all(jjep.49.1.31.rm05, pattern = rm.06, replacement = ""); jjep.49.1.31.rm07 <- str_replace_all(jjep.49.1.31.rm06, pattern = rm.07, replacement = ""); jjep.49.1.31.rm08 <- str_replace_all(jjep.49.1.31.rm07, pattern = rm.08, replacement = ""); jjep.49.1.31.rm09 <- str_replace_all(jjep.49.1.31.rm08, pattern = rm.09, replacement = ""); jjep.49.1.31.rp10 <- str_replace_all(jjep.49.1.31.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.31.rp11 <- str_replace_all(jjep.49.1.31.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.31.rp12 <- str_replace_all(jjep.49.1.31.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.31.rp13 <- str_replace_all(jjep.49.1.31.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.31.rp14 <- str_replace_all(jjep.49.1.31.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.31.rp15 <- str_replace_all(jjep.49.1.31.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.31.mod <- rbind(varname,jjep.49.1.31.rp15); write(jjep.49.1.31.mod, file = "./jjep/Mod_49_1_31.txt")
jjep.49.1.41.tx <- readr::read_file(file="./jjep/49_1_41.txt"); jjep.49.1.41.rm00 <- jjep.49.1.41.tx; jjep.49.1.41.rm01 <- str_replace_all(jjep.49.1.41.rm00, pattern = rm.01, replacement = ""); jjep.49.1.41.rm02 <- str_replace_all(jjep.49.1.41.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.41.rm03 <- str_replace_all(jjep.49.1.41.rm02, pattern = rm.03, replacement = ""); jjep.49.1.41.rm04 <- str_replace_all(jjep.49.1.41.rm03, pattern = rm.04, replacement = ""); jjep.49.1.41.rm05 <- str_replace_all(jjep.49.1.41.rm04, pattern = rm.05, replacement = ""); jjep.49.1.41.rm06 <- str_replace_all(jjep.49.1.41.rm05, pattern = rm.06, replacement = ""); jjep.49.1.41.rm07 <- str_replace_all(jjep.49.1.41.rm06, pattern = rm.07, replacement = ""); jjep.49.1.41.rm08 <- str_replace_all(jjep.49.1.41.rm07, pattern = rm.08, replacement = ""); jjep.49.1.41.rm09 <- str_replace_all(jjep.49.1.41.rm08, pattern = rm.09, replacement = ""); jjep.49.1.41.rp10 <- str_replace_all(jjep.49.1.41.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.41.rp11 <- str_replace_all(jjep.49.1.41.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.41.rp12 <- str_replace_all(jjep.49.1.41.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.41.rp13 <- str_replace_all(jjep.49.1.41.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.41.rp14 <- str_replace_all(jjep.49.1.41.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.41.rp15 <- str_replace_all(jjep.49.1.41.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.41.mod <- rbind(varname,jjep.49.1.41.rp15); write(jjep.49.1.41.mod, file = "./jjep/Mod_49_1_41.txt")
jjep.49.1.50.tx <- readr::read_file(file="./jjep/49_1_50.txt"); jjep.49.1.50.rm00 <- jjep.49.1.50.tx; jjep.49.1.50.rm01 <- str_replace_all(jjep.49.1.50.rm00, pattern = rm.01, replacement = ""); jjep.49.1.50.rm02 <- str_replace_all(jjep.49.1.50.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.50.rm03 <- str_replace_all(jjep.49.1.50.rm02, pattern = rm.03, replacement = ""); jjep.49.1.50.rm04 <- str_replace_all(jjep.49.1.50.rm03, pattern = rm.04, replacement = ""); jjep.49.1.50.rm05 <- str_replace_all(jjep.49.1.50.rm04, pattern = rm.05, replacement = ""); jjep.49.1.50.rm06 <- str_replace_all(jjep.49.1.50.rm05, pattern = rm.06, replacement = ""); jjep.49.1.50.rm07 <- str_replace_all(jjep.49.1.50.rm06, pattern = rm.07, replacement = ""); jjep.49.1.50.rm08 <- str_replace_all(jjep.49.1.50.rm07, pattern = rm.08, replacement = ""); jjep.49.1.50.rm09 <- str_replace_all(jjep.49.1.50.rm08, pattern = rm.09, replacement = ""); jjep.49.1.50.rp10 <- str_replace_all(jjep.49.1.50.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.50.rp11 <- str_replace_all(jjep.49.1.50.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.50.rp12 <- str_replace_all(jjep.49.1.50.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.50.rp13 <- str_replace_all(jjep.49.1.50.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.50.rp14 <- str_replace_all(jjep.49.1.50.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.50.rp15 <- str_replace_all(jjep.49.1.50.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.50.mod <- rbind(varname,jjep.49.1.50.rp15); write(jjep.49.1.50.mod, file = "./jjep/Mod_49_1_50.txt")
jjep.49.1.60.tx <- readr::read_file(file="./jjep/49_1_60.txt"); jjep.49.1.60.rm00 <- jjep.49.1.60.tx; jjep.49.1.60.rm01 <- str_replace_all(jjep.49.1.60.rm00, pattern = rm.01, replacement = ""); jjep.49.1.60.rm02 <- str_replace_all(jjep.49.1.60.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.60.rm03 <- str_replace_all(jjep.49.1.60.rm02, pattern = rm.03, replacement = ""); jjep.49.1.60.rm04 <- str_replace_all(jjep.49.1.60.rm03, pattern = rm.04, replacement = ""); jjep.49.1.60.rm05 <- str_replace_all(jjep.49.1.60.rm04, pattern = rm.05, replacement = ""); jjep.49.1.60.rm06 <- str_replace_all(jjep.49.1.60.rm05, pattern = rm.06, replacement = ""); jjep.49.1.60.rm07 <- str_replace_all(jjep.49.1.60.rm06, pattern = rm.07, replacement = ""); jjep.49.1.60.rm08 <- str_replace_all(jjep.49.1.60.rm07, pattern = rm.08, replacement = ""); jjep.49.1.60.rm09 <- str_replace_all(jjep.49.1.60.rm08, pattern = rm.09, replacement = ""); jjep.49.1.60.rp10 <- str_replace_all(jjep.49.1.60.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.60.rp11 <- str_replace_all(jjep.49.1.60.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.60.rp12 <- str_replace_all(jjep.49.1.60.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.60.rp13 <- str_replace_all(jjep.49.1.60.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.60.rp14 <- str_replace_all(jjep.49.1.60.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.60.rp15 <- str_replace_all(jjep.49.1.60.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.60.mod <- rbind(varname,jjep.49.1.60.rp15); write(jjep.49.1.60.mod, file = "./jjep/Mod_49_1_60.txt")
jjep.49.1.69.tx <- readr::read_file(file="./jjep/49_1_69.txt"); jjep.49.1.69.rm00 <- jjep.49.1.69.tx; jjep.49.1.69.rm01 <- str_replace_all(jjep.49.1.69.rm00, pattern = rm.01, replacement = ""); jjep.49.1.69.rm02 <- str_replace_all(jjep.49.1.69.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.69.rm03 <- str_replace_all(jjep.49.1.69.rm02, pattern = rm.03, replacement = ""); jjep.49.1.69.rm04 <- str_replace_all(jjep.49.1.69.rm03, pattern = rm.04, replacement = ""); jjep.49.1.69.rm05 <- str_replace_all(jjep.49.1.69.rm04, pattern = rm.05, replacement = ""); jjep.49.1.69.rm06 <- str_replace_all(jjep.49.1.69.rm05, pattern = rm.06, replacement = ""); jjep.49.1.69.rm07 <- str_replace_all(jjep.49.1.69.rm06, pattern = rm.07, replacement = ""); jjep.49.1.69.rm08 <- str_replace_all(jjep.49.1.69.rm07, pattern = rm.08, replacement = ""); jjep.49.1.69.rm09 <- str_replace_all(jjep.49.1.69.rm08, pattern = rm.09, replacement = ""); jjep.49.1.69.rp10 <- str_replace_all(jjep.49.1.69.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.69.rp11 <- str_replace_all(jjep.49.1.69.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.69.rp12 <- str_replace_all(jjep.49.1.69.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.69.rp13 <- str_replace_all(jjep.49.1.69.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.69.rp14 <- str_replace_all(jjep.49.1.69.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.69.rp15 <- str_replace_all(jjep.49.1.69.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.69.mod <- rbind(varname,jjep.49.1.69.rp15); write(jjep.49.1.69.mod, file = "./jjep/Mod_49_1_69.txt")
jjep.49.1.81.tx <- readr::read_file(file="./jjep/49_1_81.txt"); jjep.49.1.81.rm00 <- jjep.49.1.81.tx; jjep.49.1.81.rm01 <- str_replace_all(jjep.49.1.81.rm00, pattern = rm.01, replacement = ""); jjep.49.1.81.rm02 <- str_replace_all(jjep.49.1.81.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.81.rm03 <- str_replace_all(jjep.49.1.81.rm02, pattern = rm.03, replacement = ""); jjep.49.1.81.rm04 <- str_replace_all(jjep.49.1.81.rm03, pattern = rm.04, replacement = ""); jjep.49.1.81.rm05 <- str_replace_all(jjep.49.1.81.rm04, pattern = rm.05, replacement = ""); jjep.49.1.81.rm06 <- str_replace_all(jjep.49.1.81.rm05, pattern = rm.06, replacement = ""); jjep.49.1.81.rm07 <- str_replace_all(jjep.49.1.81.rm06, pattern = rm.07, replacement = ""); jjep.49.1.81.rm08 <- str_replace_all(jjep.49.1.81.rm07, pattern = rm.08, replacement = ""); jjep.49.1.81.rm09 <- str_replace_all(jjep.49.1.81.rm08, pattern = rm.09, replacement = ""); jjep.49.1.81.rp10 <- str_replace_all(jjep.49.1.81.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.81.rp11 <- str_replace_all(jjep.49.1.81.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.81.rp12 <- str_replace_all(jjep.49.1.81.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.81.rp13 <- str_replace_all(jjep.49.1.81.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.81.rp14 <- str_replace_all(jjep.49.1.81.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.81.rp15 <- str_replace_all(jjep.49.1.81.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.81.mod <- rbind(varname,jjep.49.1.81.rp15); write(jjep.49.1.81.mod, file = "./jjep/Mod_49_1_81.txt")
jjep.49.1.91.tx <- readr::read_file(file="./jjep/49_1_91.txt"); jjep.49.1.91.rm00 <- jjep.49.1.91.tx; jjep.49.1.91.rm01 <- str_replace_all(jjep.49.1.91.rm00, pattern = rm.01, replacement = ""); jjep.49.1.91.rm02 <- str_replace_all(jjep.49.1.91.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.91.rm03 <- str_replace_all(jjep.49.1.91.rm02, pattern = rm.03, replacement = ""); jjep.49.1.91.rm04 <- str_replace_all(jjep.49.1.91.rm03, pattern = rm.04, replacement = ""); jjep.49.1.91.rm05 <- str_replace_all(jjep.49.1.91.rm04, pattern = rm.05, replacement = ""); jjep.49.1.91.rm06 <- str_replace_all(jjep.49.1.91.rm05, pattern = rm.06, replacement = ""); jjep.49.1.91.rm07 <- str_replace_all(jjep.49.1.91.rm06, pattern = rm.07, replacement = ""); jjep.49.1.91.rm08 <- str_replace_all(jjep.49.1.91.rm07, pattern = rm.08, replacement = ""); jjep.49.1.91.rm09 <- str_replace_all(jjep.49.1.91.rm08, pattern = rm.09, replacement = ""); jjep.49.1.91.rp10 <- str_replace_all(jjep.49.1.91.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.91.rp11 <- str_replace_all(jjep.49.1.91.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.91.rp12 <- str_replace_all(jjep.49.1.91.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.91.rp13 <- str_replace_all(jjep.49.1.91.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.91.rp14 <- str_replace_all(jjep.49.1.91.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.91.rp15 <- str_replace_all(jjep.49.1.91.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.91.mod <- rbind(varname,jjep.49.1.91.rp15); write(jjep.49.1.91.mod, file = "./jjep/Mod_49_1_91.txt")
jjep.49.1.102.tx <- readr::read_file(file="./jjep/49_1_102.txt"); jjep.49.1.102.rm00 <- jjep.49.1.102.tx; jjep.49.1.102.rm01 <- str_replace_all(jjep.49.1.102.rm00, pattern = rm.01, replacement = ""); jjep.49.1.102.rm02 <- str_replace_all(jjep.49.1.102.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.102.rm03 <- str_replace_all(jjep.49.1.102.rm02, pattern = rm.03, replacement = ""); jjep.49.1.102.rm04 <- str_replace_all(jjep.49.1.102.rm03, pattern = rm.04, replacement = ""); jjep.49.1.102.rm05 <- str_replace_all(jjep.49.1.102.rm04, pattern = rm.05, replacement = ""); jjep.49.1.102.rm06 <- str_replace_all(jjep.49.1.102.rm05, pattern = rm.06, replacement = ""); jjep.49.1.102.rm07 <- str_replace_all(jjep.49.1.102.rm06, pattern = rm.07, replacement = ""); jjep.49.1.102.rm08 <- str_replace_all(jjep.49.1.102.rm07, pattern = rm.08, replacement = ""); jjep.49.1.102.rm09 <- str_replace_all(jjep.49.1.102.rm08, pattern = rm.09, replacement = ""); jjep.49.1.102.rp10 <- str_replace_all(jjep.49.1.102.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.102.rp11 <- str_replace_all(jjep.49.1.102.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.102.rp12 <- str_replace_all(jjep.49.1.102.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.102.rp13 <- str_replace_all(jjep.49.1.102.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.102.rp14 <- str_replace_all(jjep.49.1.102.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.102.rp15 <- str_replace_all(jjep.49.1.102.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.102.mod <- rbind(varname,jjep.49.1.102.rp15); write(jjep.49.1.102.mod, file = "./jjep/Mod_49_1_102.txt")
jjep.49.1.112.tx <- readr::read_file(file="./jjep/49_1_112.txt"); jjep.49.1.112.rm00 <- jjep.49.1.112.tx; jjep.49.1.112.rm01 <- str_replace_all(jjep.49.1.112.rm00, pattern = rm.01, replacement = ""); jjep.49.1.112.rm02 <- str_replace_all(jjep.49.1.112.rm01, pattern = rm.02, replacement = "^"); jjep.49.1.112.rm03 <- str_replace_all(jjep.49.1.112.rm02, pattern = rm.03, replacement = ""); jjep.49.1.112.rm04 <- str_replace_all(jjep.49.1.112.rm03, pattern = rm.04, replacement = ""); jjep.49.1.112.rm05 <- str_replace_all(jjep.49.1.112.rm04, pattern = rm.05, replacement = ""); jjep.49.1.112.rm06 <- str_replace_all(jjep.49.1.112.rm05, pattern = rm.06, replacement = ""); jjep.49.1.112.rm07 <- str_replace_all(jjep.49.1.112.rm06, pattern = rm.07, replacement = ""); jjep.49.1.112.rm08 <- str_replace_all(jjep.49.1.112.rm07, pattern = rm.08, replacement = ""); jjep.49.1.112.rm09 <- str_replace_all(jjep.49.1.112.rm08, pattern = rm.09, replacement = ""); jjep.49.1.112.rp10 <- str_replace_all(jjep.49.1.112.rm09, pattern = rp.01, replacement = "・"); jjep.49.1.112.rp11 <- str_replace_all(jjep.49.1.112.rp10, pattern = rp.02, replacement = "^"); jjep.49.1.112.rp12 <- str_replace_all(jjep.49.1.112.rp11, pattern = rp.03, replacement = "^"); jjep.49.1.112.rp13 <- str_replace_all(jjep.49.1.112.rp12, pattern = rp.04, replacement = "^"); jjep.49.1.112.rp14 <- str_replace_all(jjep.49.1.112.rp13, pattern = rp.05, replacement = "^"); jjep.49.1.112.rp15 <- str_replace_all(jjep.49.1.112.rp14, pattern = rp.06, replacement = "^"); jjep.49.1.112.mod <- rbind(varname,jjep.49.1.112.rp15); write(jjep.49.1.112.mod, file = "./jjep/Mod_49_1_112.txt")

1.7 データになっているか確認

1.7.1 2017

jjep.65.1.1 <- read_delim("./JJEP/Mod_65_1_1.txt", delim = '^'); jjep.65.1.1

## # A tibble: 1 × 13
##   au        ti    jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>     <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 外山 美樹 楽観… 教育…  2017    65     1 1-11  2017-04-21 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

jjep.65.4.433 <- read_delim("./JJEP/Mod_65_4_433.txt", delim = '^'); jjep.65.4.433

## # A tibble: 1 × 13
##   au       ti    jo       py    vl    is page   date       ol.issn pr.issn do   
##   <chr>    <chr> <chr> <dbl> <dbl> <dbl> <chr>  <date>     <chr>   <chr>   <chr>
## 1 小野田 … アー… 教育…  2017    65     4 433-4… 2018-02-21 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.2 2016

jjep.64.1.1 <- read_delim("./JJEP/Mod_64_1_1.txt", delim = '^'); jjep.64.1.1

## # A tibble: 1 × 13
##   au       ti    jo       py    vl    is page  date       ol.issn  pr.issn do   
##   <chr>    <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>    <chr>   <chr>
## 1 千島 雄… 友人… 教育…  2016    64     1 1-12  2016-04-11 2186-30… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.3 2015

jjep.63.1.1 <- read_delim("./JJEP/Mod_63_1_1.txt", delim = '^'); jjep.63.1.1

## # A tibble: 1 × 13
##   au        ti    jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>     <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 外山 美樹 認知… 教育…  2015    63     1 1-12  2015-08-22 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.4 2014

jjep.62.1.1 <- read_delim("./JJEP/Mod_62_1_1.txt", delim = '^'); jjep.62.1.1

## # A tibble: 1 × 13
##   au        ti    jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>     <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 後藤 由佳 英語… 教育…  2014    62     1 1-12  2014-07-16 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.5 2013

jjep.61.1.1 <- read_delim("./JJEP/Mod_61_1_1.txt", delim = '^'); jjep.61.1.1

## # A tibble: 1 × 13
##   au        ti    jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>     <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 小田切 歩 高校… 教育…  2013    61     1 1-16  2013-09-18 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.6 2012

jjep.60.1.1 <- read_delim("./JJEP/Mod_60_1_1.txt", delim = '^'); jjep.60.1.1

## # A tibble: 1 × 13
##   au        ti    jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>     <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 山田 嘉徳 ペア… 教育…  2012    60     1 1-14  2013-01-16 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.7 2011

jjep.59.1.1 <- read_delim("./JJEP/Mod_59_1_1.txt", delim = '^'); jjep.59.1.1

## # A tibble: 1 × 13
##   au       ti    jo       py    vl    is page  date       ol.issn  pr.issn do   
##   <chr>    <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>    <chr>   <chr>
## 1 麻柄 啓… ルー… 教育…  2011    59     1 1-12  2011-09-07 2186-30… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.8 2010

jjep.58.1.1 <- read_delim("./JJEP/Mod_58_1_1.txt", delim = '^'); jjep.58.1.1

## # A tibble: 1 × 13
##   au       ti    jo       py    vl    is page  date       ol.issn  pr.issn do   
##   <chr>    <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>    <chr>   <chr>
## 1 橘 春菜… 高校… 教育…  2010    58     1 1-11  2012-03-27 2186-30… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.9 2009

jjep.57.1.1 <- read_delim("./JJEP/Mod_57_1_1.txt", delim = '^'); jjep.57.1.1

## # A tibble: 1 × 13
##   au        ti    jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>     <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 高坂 康雅 青年… 教育…  2009    57     1 1-12  2012-02-22 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.10 2008

jjep.56.1.1 <- read_delim("./JJEP/Mod_56_1_1.txt", delim = '^'); jjep.56.1.1

## # A tibble: 1 × 13
##   au       ti     jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>    <chr>  <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 萩原 俊… “やり… 教育…  2008    56     1 1-13  2013-02-19 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.11 2007

jjep.55.1.1 <- read_delim("./JJEP/Mod_55_1_1.txt", delim = '^'); jjep.55.1.1

## # A tibble: 1 × 13
##   au       ti    jo       py    vl    is page  date       ol.issn  pr.issn do   
##   <chr>    <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>    <chr>   <chr>
## 1 竹村 明… 高校… 教育…  2007    55     1 1-10  2013-02-19 2186-30… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.12 2006

jjep.54.1.1 <- read_delim("./JJEP/Mod_54_1_1.txt", delim = '^'); jjep.54.1.1

## # A tibble: 1 × 13
##   au       ti    jo       py    vl    is page  date       ol.issn  pr.issn do   
##   <chr>    <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>    <chr>   <chr>
## 1 岡田 涼… 動機… 教育…  2006    54     1 1-11  2013-02-19 2186-30… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.13 2005

jjep.53.1.1 <- read_delim("./JJEP/Mod_53_1_1.txt", delim = '^'); jjep.53.1.1

## # A tibble: 1 × 13
##   au        ti    jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>     <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 内田 照久 音声… 教育…  2005    53     1 1-13  2013-02-19 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.14 2004

jjep.52.1.1 <- read_delim("./JJEP/Mod_52_1_1.txt", delim = '^'); jjep.52.1.1

## # A tibble: 1 × 13
##   au       ti    jo       py    vl    is page  date       ol.issn  pr.issn do   
##   <chr>    <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>    <chr>   <chr>
## 1 河村 夏… 教師… 教育…  2004    52     1 1-11  2013-02-19 2186-30… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.15 2003

jjep.51.1.1 <- read_delim("./JJEP/Mod_51_1_1.txt", delim = '^'); jjep.51.1.1

## # A tibble: 1 × 13
##   au      ti      jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>   <chr>   <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 村山 航 テスト… 教育…  2003    51     1 1-12  2013-02-19 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.16 2002

jjep.50.1.1 <- read_delim("./JJEP/Mod_50_1_1.txt", delim = '^'); jjep.50.1.1

## # A tibble: 1 × 13
##   au       ti    jo       py    vl    is page  date       ol.issn  pr.issn do   
##   <chr>    <chr> <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>    <chr>   <chr>
## 1 内田 照… 英語… 教育…  2002    50     1 1-11  2013-02-19 2186-30… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

1.7.17 2001

jjep.49.1.1 <- read_delim("./JJEP/Mod_49_1_1.txt", delim = '^'); jjep.49.1.1

## # A tibble: 1 × 13
##   au      ti      jo       py    vl    is page  date       ol.issn pr.issn do   
##   <chr>   <chr>   <chr> <dbl> <dbl> <dbl> <chr> <date>     <chr>   <chr>   <chr>
## 1 高橋 登 学童期… 教育…  2001    49     1 1-10  2013-02-19 2186-3… 0021-5… http…
## # ℹ 2 more variables: link <chr>, ab <chr>

データになった。やれやれ。

1.8 データ化する

jjep.65.4.433 <- read_delim("./jjep/Mod_65_4_433.txt", delim = '^')
jjep.65.4.451 <- read_delim("./jjep/Mod_65_4_451.txt", delim = '^')
jjep.65.4.466 <- read_delim("./jjep/Mod_65_4_466.txt", delim = '^')
jjep.65.4.477 <- read_delim("./jjep/Mod_65_4_477.txt", delim = '^')
jjep.65.4.489 <- read_delim("./jjep/Mod_65_4_489.txt", delim = '^')
jjep.65.4.501 <- read_delim("./jjep/Mod_65_4_501.txt", delim = '^')
jjep.65.4.512 <- read_delim("./jjep/Mod_65_4_512.txt", delim = '^')
jjep.65.4.526 <- read_delim("./jjep/Mod_65_4_526.txt", delim = '^')
jjep.65.3.321 <- read_delim("./jjep/Mod_65_3_321.txt", delim = '^')
jjep.65.3.333 <- read_delim("./jjep/Mod_65_3_333.txt", delim = '^')
jjep.65.3.346 <- read_delim("./jjep/Mod_65_3_346.txt", delim = '^')
jjep.65.3.361 <- read_delim("./jjep/Mod_65_3_361.txt", delim = '^')
jjep.65.3.375 <- read_delim("./jjep/Mod_65_3_375.txt", delim = '^')
jjep.65.3.388 <- read_delim("./jjep/Mod_65_3_388.txt", delim = '^')
jjep.65.3.401 <- read_delim("./jjep/Mod_65_3_401.txt", delim = '^')
jjep.65.3.414 <- read_delim("./jjep/Mod_65_3_414.txt", delim = '^')
jjep.65.2.167 <- read_delim("./jjep/Mod_65_2_167.txt", delim = '^')
jjep.65.2.183 <- read_delim("./jjep/Mod_65_2_183.txt", delim = '^')
jjep.65.2.197 <- read_delim("./jjep/Mod_65_2_197.txt", delim = '^')
jjep.65.2.211 <- read_delim("./jjep/Mod_65_2_211.txt", delim = '^')
jjep.65.2.225 <- read_delim("./jjep/Mod_65_2_225.txt", delim = '^')
jjep.65.2.239 <- read_delim("./jjep/Mod_65_2_239.txt", delim = '^')
jjep.65.2.248 <- read_delim("./jjep/Mod_65_2_248.txt", delim = '^')
jjep.65.2.265 <- read_delim("./jjep/Mod_65_2_265.txt", delim = '^')
jjep.65.2.281 <- read_delim("./jjep/Mod_65_2_281.txt", delim = '^')
jjep.65.2.295 <- read_delim("./jjep/Mod_65_2_295.txt", delim = '^')
jjep.65.2.305 <- read_delim("./jjep/Mod_65_2_305.txt", delim = '^')
jjep.65.1.1 <- read_delim("./jjep/Mod_65_1_1.txt", delim = '^')
jjep.65.1.12 <- read_delim("./jjep/Mod_65_1_12.txt", delim = '^')
jjep.65.1.26 <- read_delim("./jjep/Mod_65_1_26.txt", delim = '^')
jjep.65.1.37 <- read_delim("./jjep/Mod_65_1_37.txt", delim = '^')
jjep.65.1.52 <- read_delim("./jjep/Mod_65_1_52.txt", delim = '^')
jjep.65.1.64 <- read_delim("./jjep/Mod_65_1_64.txt", delim = '^')
jjep.65.1.77 <- read_delim("./jjep/Mod_65_1_77.txt", delim = '^')
jjep.65.1.91 <- read_delim("./jjep/Mod_65_1_91.txt", delim = '^')
jjep.65.1.106 <- read_delim("./jjep/Mod_65_1_106.txt", delim = '^')
jjep.65.1.120 <- read_delim("./jjep/Mod_65_1_120.txt", delim = '^')
jjep.65.1.132 <- read_delim("./jjep/Mod_65_1_132.txt", delim = '^')
jjep.65.1.145 <- read_delim("./jjep/Mod_65_1_145.txt", delim = '^')
jjep.64.4.445 <- read_delim("./jjep/Mod_64_4_445.txt", delim = '^')
jjep.64.4.456 <- read_delim("./jjep/Mod_64_4_456.txt", delim = '^')
jjep.64.4.477 <- read_delim("./jjep/Mod_64_4_477.txt", delim = '^')
jjep.64.4.492 <- read_delim("./jjep/Mod_64_4_492.txt", delim = '^')
jjep.64.4.505 <- read_delim("./jjep/Mod_64_4_505.txt", delim = '^')
jjep.64.4.518 <- read_delim("./jjep/Mod_64_4_518.txt", delim = '^')
jjep.64.4.531 <- read_delim("./jjep/Mod_64_4_531.txt", delim = '^')
jjep.64.4.544 <- read_delim("./jjep/Mod_64_4_544.txt", delim = '^')
jjep.64.4.555 <- read_delim("./jjep/Mod_64_4_555.txt", delim = '^')
jjep.64.4.569 <- read_delim("./jjep/Mod_64_4_569.txt", delim = '^')
jjep.64.4.583 <- read_delim("./jjep/Mod_64_4_583.txt", delim = '^')
jjep.64.4.598 <- read_delim("./jjep/Mod_64_4_598.txt", delim = '^')
jjep.64.3.285 <- read_delim("./jjep/Mod_64_3_285.txt", delim = '^')
jjep.64.3.296 <- read_delim("./jjep/Mod_64_3_296.txt", delim = '^')
jjep.64.3.307 <- read_delim("./jjep/Mod_64_3_307.txt", delim = '^')
jjep.64.3.317 <- read_delim("./jjep/Mod_64_3_317.txt", delim = '^')
jjep.64.3.327 <- read_delim("./jjep/Mod_64_3_327.txt", delim = '^')
jjep.64.3.340 <- read_delim("./jjep/Mod_64_3_340.txt", delim = '^')
jjep.64.3.352 <- read_delim("./jjep/Mod_64_3_352.txt", delim = '^')
jjep.64.3.364 <- read_delim("./jjep/Mod_64_3_364.txt", delim = '^')
jjep.64.3.376 <- read_delim("./jjep/Mod_64_3_376.txt", delim = '^')
jjep.64.3.395 <- read_delim("./jjep/Mod_64_3_395.txt", delim = '^')
jjep.64.3.407 <- read_delim("./jjep/Mod_64_3_407.txt", delim = '^')
jjep.64.3.423 <- read_delim("./jjep/Mod_64_3_423.txt", delim = '^')
jjep.64.2.147 <- read_delim("./jjep/Mod_64_2_147.txt", delim = '^')
jjep.64.2.156 <- read_delim("./jjep/Mod_64_2_156.txt", delim = '^')
jjep.64.2.170 <- read_delim("./jjep/Mod_64_2_170.txt", delim = '^')
jjep.64.2.184 <- read_delim("./jjep/Mod_64_2_184.txt", delim = '^')
jjep.64.2.199 <- read_delim("./jjep/Mod_64_2_199.txt", delim = '^')
jjep.64.2.212 <- read_delim("./jjep/Mod_64_2_212.txt", delim = '^')
jjep.64.2.228 <- read_delim("./jjep/Mod_64_2_228.txt", delim = '^')
jjep.64.2.241 <- read_delim("./jjep/Mod_64_2_241.txt", delim = '^')
jjep.64.2.256 <- read_delim("./jjep/Mod_64_2_256.txt", delim = '^')
jjep.64.2.268 <- read_delim("./jjep/Mod_64_2_268.txt", delim = '^')
jjep.64.1.1 <- read_delim("./jjep/Mod_64_1_1.txt", delim = '^')
jjep.64.1.13 <- read_delim("./jjep/Mod_64_1_13.txt", delim = '^')
jjep.64.1.26 <- read_delim("./jjep/Mod_64_1_26.txt", delim = '^')
jjep.64.1.41 <- read_delim("./jjep/Mod_64_1_41.txt", delim = '^')
jjep.64.1.59 <- read_delim("./jjep/Mod_64_1_59.txt", delim = '^')
jjep.64.1.76 <- read_delim("./jjep/Mod_64_1_76.txt", delim = '^')
jjep.64.1.88 <- read_delim("./jjep/Mod_64_1_88.txt", delim = '^')
jjep.64.1.105 <- read_delim("./jjep/Mod_64_1_105.txt", delim = '^')
jjep.64.1.118 <- read_delim("./jjep/Mod_64_1_118.txt", delim = '^')
jjep.64.1.131 <- read_delim("./jjep/Mod_64_1_131.txt", delim = '^')
jjep.63.4.345 <- read_delim("./jjep/Mod_63_4_345.txt", delim = '^')
jjep.63.4.359 <- read_delim("./jjep/Mod_63_4_359.txt", delim = '^')
jjep.63.4.372 <- read_delim("./jjep/Mod_63_4_372.txt", delim = '^')
jjep.63.4.386 <- read_delim("./jjep/Mod_63_4_386.txt", delim = '^')
jjep.63.4.401 <- read_delim("./jjep/Mod_63_4_401.txt", delim = '^')
jjep.63.4.412 <- read_delim("./jjep/Mod_63_4_412.txt", delim = '^')
jjep.63.4.426 <- read_delim("./jjep/Mod_63_4_426.txt", delim = '^')
jjep.63.4.438 <- read_delim("./jjep/Mod_63_4_438.txt", delim = '^')
jjep.63.4.453 <- read_delim("./jjep/Mod_63_4_453.txt", delim = '^')
jjep.63.4.467 <- read_delim("./jjep/Mod_63_4_467.txt", delim = '^')
jjep.63.3.199 <- read_delim("./jjep/Mod_63_3_199.txt", delim = '^')
jjep.63.3.217 <- read_delim("./jjep/Mod_63_3_217.txt", delim = '^')
jjep.63.3.228 <- read_delim("./jjep/Mod_63_3_228.txt", delim = '^')
jjep.63.3.242 <- read_delim("./jjep/Mod_63_3_242.txt", delim = '^')
jjep.63.3.254 <- read_delim("./jjep/Mod_63_3_254.txt", delim = '^')
jjep.63.3.267 <- read_delim("./jjep/Mod_63_3_267.txt", delim = '^')
jjep.63.3.279 <- read_delim("./jjep/Mod_63_3_279.txt", delim = '^')
jjep.63.3.295 <- read_delim("./jjep/Mod_63_3_295.txt", delim = '^')
jjep.63.3.309 <- read_delim("./jjep/Mod_63_3_309.txt", delim = '^')
jjep.63.3.323 <- read_delim("./jjep/Mod_63_3_323.txt", delim = '^')
jjep.63.2.85 <- read_delim("./jjep/Mod_63_2_85.txt", delim = '^')
jjep.63.2.102 <- read_delim("./jjep/Mod_63_2_102.txt", delim = '^')
jjep.63.2.111 <- read_delim("./jjep/Mod_63_2_111.txt", delim = '^')
jjep.63.2.121 <- read_delim("./jjep/Mod_63_2_121.txt", delim = '^')
jjep.63.2.138 <- read_delim("./jjep/Mod_63_2_138.txt", delim = '^')
jjep.63.2.151 <- read_delim("./jjep/Mod_63_2_151.txt", delim = '^')
jjep.63.2.162 <- read_delim("./jjep/Mod_63_2_162.txt", delim = '^')
jjep.63.2.181 <- read_delim("./jjep/Mod_63_2_181.txt", delim = '^')
jjep.63.1.1 <- read_delim("./jjep/Mod_63_1_1.txt", delim = '^')
jjep.63.1.13 <- read_delim("./jjep/Mod_63_1_13.txt", delim = '^')
jjep.63.1.23 <- read_delim("./jjep/Mod_63_1_23.txt", delim = '^')
jjep.63.1.37 <- read_delim("./jjep/Mod_63_1_37.txt", delim = '^')
jjep.63.1.48 <- read_delim("./jjep/Mod_63_1_48.txt", delim = '^')
jjep.63.1.63 <- read_delim("./jjep/Mod_63_1_63.txt", delim = '^')
jjep.63.1.83 <- read_delim("./jjep/Mod_63_1_83.txt", delim = '^')
jjep.62.4.257 <- read_delim("./jjep/Mod_62_4_257.txt", delim = '^')
jjep.62.4.273 <- read_delim("./jjep/Mod_62_4_273.txt", delim = '^')
jjep.62.4.283 <- read_delim("./jjep/Mod_62_4_283.txt", delim = '^')
jjep.62.4.294 <- read_delim("./jjep/Mod_62_4_294.txt", delim = '^')
jjep.62.4.305 <- read_delim("./jjep/Mod_62_4_305.txt", delim = '^')
jjep.62.4.322 <- read_delim("./jjep/Mod_62_4_322.txt", delim = '^')
jjep.62.3.173 <- read_delim("./jjep/Mod_62_3_173.txt", delim = '^')
jjep.62.3.187 <- read_delim("./jjep/Mod_62_3_187.txt", delim = '^')
jjep.62.3.197 <- read_delim("./jjep/Mod_62_3_197.txt", delim = '^')
jjep.62.3.209 <- read_delim("./jjep/Mod_62_3_209.txt", delim = '^')
jjep.62.3.226 <- read_delim("./jjep/Mod_62_3_226.txt", delim = '^')
jjep.62.3.240 <- read_delim("./jjep/Mod_62_3_240.txt", delim = '^')
jjep.62.2.87 <- read_delim("./jjep/Mod_62_2_87.txt", delim = '^')
jjep.62.2.101 <- read_delim("./jjep/Mod_62_2_101.txt", delim = '^')
jjep.62.2.115 <- read_delim("./jjep/Mod_62_2_115.txt", delim = '^')
jjep.62.2.129 <- read_delim("./jjep/Mod_62_2_129.txt", delim = '^')
jjep.62.2.143 <- read_delim("./jjep/Mod_62_2_143.txt", delim = '^')
jjep.62.2.156 <- read_delim("./jjep/Mod_62_2_156.txt", delim = '^')
jjep.62.1.1 <- read_delim("./jjep/Mod_62_1_1.txt", delim = '^')
jjep.62.1.13 <- read_delim("./jjep/Mod_62_1_13.txt", delim = '^')
jjep.62.1.24 <- read_delim("./jjep/Mod_62_1_24.txt", delim = '^')
jjep.62.1.38 <- read_delim("./jjep/Mod_62_1_38.txt", delim = '^')
jjep.62.1.50 <- read_delim("./jjep/Mod_62_1_50.txt", delim = '^')
jjep.62.1.64 <- read_delim("./jjep/Mod_62_1_64.txt", delim = '^')
jjep.61.4.351 <- read_delim("./jjep/Mod_61_4_351.txt", delim = '^')
jjep.61.4.362 <- read_delim("./jjep/Mod_61_4_362.txt", delim = '^')
jjep.61.4.374 <- read_delim("./jjep/Mod_61_4_374.txt", delim = '^')
jjep.61.4.387 <- read_delim("./jjep/Mod_61_4_387.txt", delim = '^')
jjep.61.4.398 <- read_delim("./jjep/Mod_61_4_398.txt", delim = '^')
jjep.61.4.412 <- read_delim("./jjep/Mod_61_4_412.txt", delim = '^')
jjep.61.3.229 <- read_delim("./jjep/Mod_61_3_229.txt", delim = '^')
jjep.61.3.239 <- read_delim("./jjep/Mod_61_3_239.txt", delim = '^')
jjep.61.3.251 <- read_delim("./jjep/Mod_61_3_251.txt", delim = '^')
jjep.61.3.265 <- read_delim("./jjep/Mod_61_3_265.txt", delim = '^')
jjep.61.3.277 <- read_delim("./jjep/Mod_61_3_277.txt", delim = '^')
jjep.61.3.290 <- read_delim("./jjep/Mod_61_3_290.txt", delim = '^')
jjep.61.3.311 <- read_delim("./jjep/Mod_61_3_311.txt", delim = '^')
jjep.61.3.323 <- read_delim("./jjep/Mod_61_3_323.txt", delim = '^')
jjep.61.2.121 <- read_delim("./jjep/Mod_61_2_121.txt", delim = '^')
jjep.61.2.133 <- read_delim("./jjep/Mod_61_2_133.txt", delim = '^')
jjep.61.2.146 <- read_delim("./jjep/Mod_61_2_146.txt", delim = '^')
jjep.61.2.158 <- read_delim("./jjep/Mod_61_2_158.txt", delim = '^')
jjep.61.2.169 <- read_delim("./jjep/Mod_61_2_169.txt", delim = '^')
jjep.61.2.181 <- read_delim("./jjep/Mod_61_2_181.txt", delim = '^')
jjep.61.2.193 <- read_delim("./jjep/Mod_61_2_193.txt", delim = '^')
jjep.61.2.206 <- read_delim("./jjep/Mod_61_2_206.txt", delim = '^')
jjep.61.1.1 <- read_delim("./jjep/Mod_61_1_1.txt", delim = '^')
jjep.61.1.17 <- read_delim("./jjep/Mod_61_1_17.txt", delim = '^')
jjep.61.1.32 <- read_delim("./jjep/Mod_61_1_32.txt", delim = '^')
jjep.61.1.44 <- read_delim("./jjep/Mod_61_1_44.txt", delim = '^')
jjep.61.1.56 <- read_delim("./jjep/Mod_61_1_56.txt", delim = '^')
jjep.61.1.67 <- read_delim("./jjep/Mod_61_1_67.txt", delim = '^')
jjep.61.1.79 <- read_delim("./jjep/Mod_61_1_79.txt", delim = '^')
jjep.61.1.95 <- read_delim("./jjep/Mod_61_1_95.txt", delim = '^')
jjep.60.4.343 <- read_delim("./jjep/Mod_60_4_343.txt", delim = '^')
jjep.60.4.355 <- read_delim("./jjep/Mod_60_4_355.txt", delim = '^')
jjep.60.4.367 <- read_delim("./jjep/Mod_60_4_367.txt", delim = '^')
jjep.60.4.380 <- read_delim("./jjep/Mod_60_4_380.txt", delim = '^')
jjep.60.4.392 <- read_delim("./jjep/Mod_60_4_392.txt", delim = '^')
jjep.60.3.235 <- read_delim("./jjep/Mod_60_3_235.txt", delim = '^')
jjep.60.3.249 <- read_delim("./jjep/Mod_60_3_249.txt", delim = '^')
jjep.60.3.261 <- read_delim("./jjep/Mod_60_3_261.txt", delim = '^')
jjep.60.3.272 <- read_delim("./jjep/Mod_60_3_272.txt", delim = '^')
jjep.60.3.285 <- read_delim("./jjep/Mod_60_3_285.txt", delim = '^')
jjep.60.3.296 <- read_delim("./jjep/Mod_60_3_296.txt", delim = '^')
jjep.60.3.310 <- read_delim("./jjep/Mod_60_3_310.txt", delim = '^')
jjep.60.3.324 <- read_delim("./jjep/Mod_60_3_324.txt", delim = '^')
jjep.60.2.117 <- read_delim("./jjep/Mod_60_2_117.txt", delim = '^')
jjep.60.2.127 <- read_delim("./jjep/Mod_60_2_127.txt", delim = '^')
jjep.60.2.137 <- read_delim("./jjep/Mod_60_2_137.txt", delim = '^')
jjep.60.2.153 <- read_delim("./jjep/Mod_60_2_153.txt", delim = '^')
jjep.60.2.167 <- read_delim("./jjep/Mod_60_2_167.txt", delim = '^')
jjep.60.2.186 <- read_delim("./jjep/Mod_60_2_186.txt", delim = '^')
jjep.60.2.199 <- read_delim("./jjep/Mod_60_2_199.txt", delim = '^')
jjep.60.2.211 <- read_delim("./jjep/Mod_60_2_211.txt", delim = '^')
jjep.60.1.1 <- read_delim("./jjep/Mod_60_1_1.txt", delim = '^')
jjep.60.1.15 <- read_delim("./jjep/Mod_60_1_15.txt", delim = '^')
jjep.60.1.28 <- read_delim("./jjep/Mod_60_1_28.txt", delim = '^')
jjep.60.1.48 <- read_delim("./jjep/Mod_60_1_48.txt", delim = '^')
jjep.60.1.60 <- read_delim("./jjep/Mod_60_1_60.txt", delim = '^')
jjep.60.1.70 <- read_delim("./jjep/Mod_60_1_70.txt", delim = '^')
jjep.60.1.82 <- read_delim("./jjep/Mod_60_1_82.txt", delim = '^')
jjep.60.1.92 <- read_delim("./jjep/Mod_60_1_92.txt", delim = '^')
jjep.59.4.385 <- read_delim("./jjep/Mod_59_4_385.txt", delim = '^')
jjep.59.4.402 <- read_delim("./jjep/Mod_59_4_402.txt", delim = '^')
jjep.59.4.414 <- read_delim("./jjep/Mod_59_4_414.txt", delim = '^')
jjep.59.4.427 <- read_delim("./jjep/Mod_59_4_427.txt", delim = '^')
jjep.59.4.441 <- read_delim("./jjep/Mod_59_4_441.txt", delim = '^')
jjep.59.4.450 <- read_delim("./jjep/Mod_59_4_450.txt", delim = '^')
jjep.59.4.462 <- read_delim("./jjep/Mod_59_4_462.txt", delim = '^')
jjep.59.4.474 <- read_delim("./jjep/Mod_59_4_474.txt", delim = '^')
jjep.59.3.267 <- read_delim("./jjep/Mod_59_3_267.txt", delim = '^')
jjep.59.3.278 <- read_delim("./jjep/Mod_59_3_278.txt", delim = '^')
jjep.59.3.295 <- read_delim("./jjep/Mod_59_3_295.txt", delim = '^')
jjep.59.3.306 <- read_delim("./jjep/Mod_59_3_306.txt", delim = '^')
jjep.59.3.320 <- read_delim("./jjep/Mod_59_3_320.txt", delim = '^')
jjep.59.3.330 <- read_delim("./jjep/Mod_59_3_330.txt", delim = '^')
jjep.59.3.342 <- read_delim("./jjep/Mod_59_3_342.txt", delim = '^')
jjep.59.3.355 <- read_delim("./jjep/Mod_59_3_355.txt", delim = '^')
jjep.59.2.131 <- read_delim("./jjep/Mod_59_2_131.txt", delim = '^')
jjep.59.2.144 <- read_delim("./jjep/Mod_59_2_144.txt", delim = '^')
jjep.59.2.155 <- read_delim("./jjep/Mod_59_2_155.txt", delim = '^')
jjep.59.2.168 <- read_delim("./jjep/Mod_59_2_168.txt", delim = '^')
jjep.59.2.179 <- read_delim("./jjep/Mod_59_2_179.txt", delim = '^')
jjep.59.2.193 <- read_delim("./jjep/Mod_59_2_193.txt", delim = '^')
jjep.59.2.206 <- read_delim("./jjep/Mod_59_2_206.txt", delim = '^')
jjep.59.2.219 <- read_delim("./jjep/Mod_59_2_219.txt", delim = '^')
jjep.59.2.231 <- read_delim("./jjep/Mod_59_2_231.txt", delim = '^')
jjep.59.2.244 <- read_delim("./jjep/Mod_59_2_244.txt", delim = '^')
jjep.59.1.1 <- read_delim("./jjep/Mod_59_1_1.txt", delim = '^')
jjep.59.1.13 <- read_delim("./jjep/Mod_59_1_13.txt", delim = '^')
jjep.59.1.27 <- read_delim("./jjep/Mod_59_1_27.txt", delim = '^')
jjep.59.1.39 <- read_delim("./jjep/Mod_59_1_39.txt", delim = '^')
jjep.59.1.51 <- read_delim("./jjep/Mod_59_1_51.txt", delim = '^')
jjep.59.1.64 <- read_delim("./jjep/Mod_59_1_64.txt", delim = '^')
jjep.59.1.77 <- read_delim("./jjep/Mod_59_1_77.txt", delim = '^')
jjep.59.1.88 <- read_delim("./jjep/Mod_59_1_88.txt", delim = '^')
jjep.59.1.100 <- read_delim("./jjep/Mod_59_1_100.txt", delim = '^')
jjep.59.1.111 <- read_delim("./jjep/Mod_59_1_111.txt", delim = '^')
jjep.58.4.393 <- read_delim("./jjep/Mod_58_4_393.txt", delim = '^')
jjep.58.4.404 <- read_delim("./jjep/Mod_58_4_404.txt", delim = '^')
jjep.58.4.414 <- read_delim("./jjep/Mod_58_4_414.txt", delim = '^')
jjep.58.4.426 <- read_delim("./jjep/Mod_58_4_426.txt", delim = '^')
jjep.58.4.438 <- read_delim("./jjep/Mod_58_4_438.txt", delim = '^')
jjep.58.4.452 <- read_delim("./jjep/Mod_58_4_452.txt", delim = '^')
jjep.58.4.464 <- read_delim("./jjep/Mod_58_4_464.txt", delim = '^')
jjep.58.4.480 <- read_delim("./jjep/Mod_58_4_480.txt", delim = '^')
jjep.58.4.491 <- read_delim("./jjep/Mod_58_4_491.txt", delim = '^')
jjep.58.4.503 <- read_delim("./jjep/Mod_58_4_503.txt", delim = '^')
jjep.58.3.263 <- read_delim("./jjep/Mod_58_3_263.txt", delim = '^')
jjep.58.3.275 <- read_delim("./jjep/Mod_58_3_275.txt", delim = '^')
jjep.58.3.285 <- read_delim("./jjep/Mod_58_3_285.txt", delim = '^')
jjep.58.3.298 <- read_delim("./jjep/Mod_58_3_298.txt", delim = '^')
jjep.58.3.313 <- read_delim("./jjep/Mod_58_3_313.txt", delim = '^')
jjep.58.3.325 <- read_delim("./jjep/Mod_58_3_325.txt", delim = '^')
jjep.58.3.338 <- read_delim("./jjep/Mod_58_3_338.txt", delim = '^')
jjep.58.3.348 <- read_delim("./jjep/Mod_58_3_348.txt", delim = '^')
jjep.58.3.361 <- read_delim("./jjep/Mod_58_3_361.txt", delim = '^')
jjep.58.3.372 <- read_delim("./jjep/Mod_58_3_372.txt", delim = '^')
jjep.58.2.129 <- read_delim("./jjep/Mod_58_2_129.txt", delim = '^')
jjep.58.2.140 <- read_delim("./jjep/Mod_58_2_140.txt", delim = '^')
jjep.58.2.151 <- read_delim("./jjep/Mod_58_2_151.txt", delim = '^')
jjep.58.2.163 <- read_delim("./jjep/Mod_58_2_163.txt", delim = '^')
jjep.58.2.176 <- read_delim("./jjep/Mod_58_2_176.txt", delim = '^')
jjep.58.2.186 <- read_delim("./jjep/Mod_58_2_186.txt", delim = '^')
jjep.58.2.198 <- read_delim("./jjep/Mod_58_2_198.txt", delim = '^')
jjep.58.2.212 <- read_delim("./jjep/Mod_58_2_212.txt", delim = '^')
jjep.58.2.224 <- read_delim("./jjep/Mod_58_2_224.txt", delim = '^')
jjep.58.2.236 <- read_delim("./jjep/Mod_58_2_236.txt", delim = '^')
jjep.58.1.1 <- read_delim("./jjep/Mod_58_1_1.txt", delim = '^')
jjep.58.1.12 <- read_delim("./jjep/Mod_58_1_12.txt", delim = '^')
jjep.58.1.23 <- read_delim("./jjep/Mod_58_1_23.txt", delim = '^')
jjep.58.1.34 <- read_delim("./jjep/Mod_58_1_34.txt", delim = '^')
jjep.58.1.46 <- read_delim("./jjep/Mod_58_1_46.txt", delim = '^')
jjep.58.1.57 <- read_delim("./jjep/Mod_58_1_57.txt", delim = '^')
jjep.58.1.69 <- read_delim("./jjep/Mod_58_1_69.txt", delim = '^')
jjep.58.1.80 <- read_delim("./jjep/Mod_58_1_80.txt", delim = '^')
jjep.58.1.95 <- read_delim("./jjep/Mod_58_1_95.txt", delim = '^')
jjep.58.1.108 <- read_delim("./jjep/Mod_58_1_108.txt", delim = '^')
jjep.57.4.393 <- read_delim("./jjep/Mod_57_4_393.txt", delim = '^')
jjep.57.4.407 <- read_delim("./jjep/Mod_57_4_407.txt", delim = '^')
jjep.57.4.419 <- read_delim("./jjep/Mod_57_4_419.txt", delim = '^')
jjep.57.4.432 <- read_delim("./jjep/Mod_57_4_432.txt", delim = '^')
jjep.57.4.442 <- read_delim("./jjep/Mod_57_4_442.txt", delim = '^')
jjep.57.4.454 <- read_delim("./jjep/Mod_57_4_454.txt", delim = '^')
jjep.57.4.466 <- read_delim("./jjep/Mod_57_4_466.txt", delim = '^')
jjep.57.4.478 <- read_delim("./jjep/Mod_57_4_478.txt", delim = '^')
jjep.57.4.491 <- read_delim("./jjep/Mod_57_4_491.txt", delim = '^')
jjep.57.4.503 <- read_delim("./jjep/Mod_57_4_503.txt", delim = '^')
jjep.57.3.263 <- read_delim("./jjep/Mod_57_3_263.txt", delim = '^')
jjep.57.3.274 <- read_delim("./jjep/Mod_57_3_274.txt", delim = '^')
jjep.57.3.284 <- read_delim("./jjep/Mod_57_3_284.txt", delim = '^')
jjep.57.3.295 <- read_delim("./jjep/Mod_57_3_295.txt", delim = '^')
jjep.57.3.309 <- read_delim("./jjep/Mod_57_3_309.txt", delim = '^')
jjep.57.3.324 <- read_delim("./jjep/Mod_57_3_324.txt", delim = '^')
jjep.57.3.336 <- read_delim("./jjep/Mod_57_3_336.txt", delim = '^')
jjep.57.3.349 <- read_delim("./jjep/Mod_57_3_349.txt", delim = '^')
jjep.57.3.361 <- read_delim("./jjep/Mod_57_3_361.txt", delim = '^')
jjep.57.3.373 <- read_delim("./jjep/Mod_57_3_373.txt", delim = '^')
jjep.57.2.131 <- read_delim("./jjep/Mod_57_2_131.txt", delim = '^')
jjep.57.2.143 <- read_delim("./jjep/Mod_57_2_143.txt", delim = '^')
jjep.57.2.158 <- read_delim("./jjep/Mod_57_2_158.txt", delim = '^')
jjep.57.2.168 <- read_delim("./jjep/Mod_57_2_168.txt", delim = '^')
jjep.57.2.180 <- read_delim("./jjep/Mod_57_2_180.txt", delim = '^')
jjep.57.2.192 <- read_delim("./jjep/Mod_57_2_192.txt", delim = '^')
jjep.57.2.201 <- read_delim("./jjep/Mod_57_2_201.txt", delim = '^')
jjep.57.2.212 <- read_delim("./jjep/Mod_57_2_212.txt", delim = '^')
jjep.57.2.223 <- read_delim("./jjep/Mod_57_2_223.txt", delim = '^')
jjep.57.2.237 <- read_delim("./jjep/Mod_57_2_237.txt", delim = '^')
jjep.57.1.1 <- read_delim("./jjep/Mod_57_1_1.txt", delim = '^')
jjep.57.1.13 <- read_delim("./jjep/Mod_57_1_13.txt", delim = '^')
jjep.57.1.24 <- read_delim("./jjep/Mod_57_1_24.txt", delim = '^')
jjep.57.1.38 <- read_delim("./jjep/Mod_57_1_38.txt", delim = '^')
jjep.57.1.49 <- read_delim("./jjep/Mod_57_1_49.txt", delim = '^')
jjep.57.1.62 <- read_delim("./jjep/Mod_57_1_62.txt", delim = '^')
jjep.57.1.73 <- read_delim("./jjep/Mod_57_1_73.txt", delim = '^')
jjep.57.1.86 <- read_delim("./jjep/Mod_57_1_86.txt", delim = '^')
jjep.57.1.99 <- read_delim("./jjep/Mod_57_1_99.txt", delim = '^')
jjep.56.4.463 <- read_delim("./jjep/Mod_56_4_463.txt", delim = '^')
jjep.56.4.474 <- read_delim("./jjep/Mod_56_4_474.txt", delim = '^')
jjep.56.4.487 <- read_delim("./jjep/Mod_56_4_487.txt", delim = '^')
jjep.56.4.498 <- read_delim("./jjep/Mod_56_4_498.txt", delim = '^')
jjep.56.4.510 <- read_delim("./jjep/Mod_56_4_510.txt", delim = '^')
jjep.56.4.523 <- read_delim("./jjep/Mod_56_4_523.txt", delim = '^')
jjep.56.4.534 <- read_delim("./jjep/Mod_56_4_534.txt", delim = '^')
jjep.56.4.548 <- read_delim("./jjep/Mod_56_4_548.txt", delim = '^')
jjep.56.4.560 <- read_delim("./jjep/Mod_56_4_560.txt", delim = '^')
jjep.56.4.575 <- read_delim("./jjep/Mod_56_4_575.txt", delim = '^')
jjep.56.3.303 <- read_delim("./jjep/Mod_56_3_303.txt", delim = '^')
jjep.56.3.318 <- read_delim("./jjep/Mod_56_3_318.txt", delim = '^')
jjep.56.3.330 <- read_delim("./jjep/Mod_56_3_330.txt", delim = '^')
jjep.56.3.341 <- read_delim("./jjep/Mod_56_3_341.txt", delim = '^')
jjep.56.3.353 <- read_delim("./jjep/Mod_56_3_353.txt", delim = '^')
jjep.56.3.364 <- read_delim("./jjep/Mod_56_3_364.txt", delim = '^')
jjep.56.3.376 <- read_delim("./jjep/Mod_56_3_376.txt", delim = '^')
jjep.56.3.389 <- read_delim("./jjep/Mod_56_3_389.txt", delim = '^')
jjep.56.3.403 <- read_delim("./jjep/Mod_56_3_403.txt", delim = '^')
jjep.56.3.414 <- read_delim("./jjep/Mod_56_3_414.txt", delim = '^')
jjep.56.3.426 <- read_delim("./jjep/Mod_56_3_426.txt", delim = '^')
jjep.56.3.440 <- read_delim("./jjep/Mod_56_3_440.txt", delim = '^')
jjep.56.2.149 <- read_delim("./jjep/Mod_56_2_149.txt", delim = '^')
jjep.56.2.160 <- read_delim("./jjep/Mod_56_2_160.txt", delim = '^')
jjep.56.2.171 <- read_delim("./jjep/Mod_56_2_171.txt", delim = '^')
jjep.56.2.182 <- read_delim("./jjep/Mod_56_2_182.txt", delim = '^')
jjep.56.2.193 <- read_delim("./jjep/Mod_56_2_193.txt", delim = '^')
jjep.56.2.206 <- read_delim("./jjep/Mod_56_2_206.txt", delim = '^')
jjep.56.2.218 <- read_delim("./jjep/Mod_56_2_218.txt", delim = '^')
jjep.56.2.230 <- read_delim("./jjep/Mod_56_2_230.txt", delim = '^')
jjep.56.2.243 <- read_delim("./jjep/Mod_56_2_243.txt", delim = '^')
jjep.56.2.256 <- read_delim("./jjep/Mod_56_2_256.txt", delim = '^')
jjep.56.2.268 <- read_delim("./jjep/Mod_56_2_268.txt", delim = '^')
jjep.56.2.278 <- read_delim("./jjep/Mod_56_2_278.txt", delim = '^')
jjep.56.1.1 <- read_delim("./jjep/Mod_56_1_1.txt", delim = '^')
jjep.56.1.14 <- read_delim("./jjep/Mod_56_1_14.txt", delim = '^')
jjep.56.1.23 <- read_delim("./jjep/Mod_56_1_23.txt", delim = '^')
jjep.56.1.32 <- read_delim("./jjep/Mod_56_1_32.txt", delim = '^')
jjep.56.1.44 <- read_delim("./jjep/Mod_56_1_44.txt", delim = '^')
jjep.56.1.57 <- read_delim("./jjep/Mod_56_1_57.txt", delim = '^')
jjep.56.1.72 <- read_delim("./jjep/Mod_56_1_72.txt", delim = '^')
jjep.56.1.81 <- read_delim("./jjep/Mod_56_1_81.txt", delim = '^')
jjep.56.1.93 <- read_delim("./jjep/Mod_56_1_93.txt", delim = '^')
jjep.56.1.104 <- read_delim("./jjep/Mod_56_1_104.txt", delim = '^')
jjep.56.1.116 <- read_delim("./jjep/Mod_56_1_116.txt", delim = '^')
jjep.56.1.127 <- read_delim("./jjep/Mod_56_1_127.txt", delim = '^')
jjep.55.4.457 <- read_delim("./jjep/Mod_55_4_457.txt", delim = '^')
jjep.55.4.469 <- read_delim("./jjep/Mod_55_4_469.txt", delim = '^')
jjep.55.4.480 <- read_delim("./jjep/Mod_55_4_480.txt", delim = '^')
jjep.55.4.491 <- read_delim("./jjep/Mod_55_4_491.txt", delim = '^')
jjep.55.4.501 <- read_delim("./jjep/Mod_55_4_501.txt", delim = '^')
jjep.55.4.514 <- read_delim("./jjep/Mod_55_4_514.txt", delim = '^')
jjep.55.4.526 <- read_delim("./jjep/Mod_55_4_526.txt", delim = '^')
jjep.55.4.538 <- read_delim("./jjep/Mod_55_4_538.txt", delim = '^')
jjep.55.4.550 <- read_delim("./jjep/Mod_55_4_550.txt", delim = '^')
jjep.55.4.560 <- read_delim("./jjep/Mod_55_4_560.txt", delim = '^')
jjep.55.4.573 <- read_delim("./jjep/Mod_55_4_573.txt", delim = '^')
jjep.55.4.584 <- read_delim("./jjep/Mod_55_4_584.txt", delim = '^')
jjep.55.3.313 <- read_delim("./jjep/Mod_55_3_313.txt", delim = '^')
jjep.55.3.325 <- read_delim("./jjep/Mod_55_3_325.txt", delim = '^')
jjep.55.3.335 <- read_delim("./jjep/Mod_55_3_335.txt", delim = '^')
jjep.55.3.347 <- read_delim("./jjep/Mod_55_3_347.txt", delim = '^')
jjep.55.3.359 <- read_delim("./jjep/Mod_55_3_359.txt", delim = '^')
jjep.55.3.370 <- read_delim("./jjep/Mod_55_3_370.txt", delim = '^')
jjep.55.3.382 <- read_delim("./jjep/Mod_55_3_382.txt", delim = '^')
jjep.55.3.393 <- read_delim("./jjep/Mod_55_3_393.txt", delim = '^')
jjep.55.3.403 <- read_delim("./jjep/Mod_55_3_403.txt", delim = '^')
jjep.55.3.414 <- read_delim("./jjep/Mod_55_3_414.txt", delim = '^')
jjep.55.3.426 <- read_delim("./jjep/Mod_55_3_426.txt", delim = '^')
jjep.55.3.438 <- read_delim("./jjep/Mod_55_3_438.txt", delim = '^')
jjep.55.2.161 <- read_delim("./jjep/Mod_55_2_161.txt", delim = '^')
jjep.55.2.170 <- read_delim("./jjep/Mod_55_2_170.txt", delim = '^')
jjep.55.2.184 <- read_delim("./jjep/Mod_55_2_184.txt", delim = '^')
jjep.55.2.197 <- read_delim("./jjep/Mod_55_2_197.txt", delim = '^')
jjep.55.2.208 <- read_delim("./jjep/Mod_55_2_208.txt", delim = '^')
jjep.55.2.219 <- read_delim("./jjep/Mod_55_2_219.txt", delim = '^')
jjep.55.2.231 <- read_delim("./jjep/Mod_55_2_231.txt", delim = '^')
jjep.55.2.244 <- read_delim("./jjep/Mod_55_2_244.txt", delim = '^')
jjep.55.2.255 <- read_delim("./jjep/Mod_55_2_255.txt", delim = '^')
jjep.55.2.266 <- read_delim("./jjep/Mod_55_2_266.txt", delim = '^')
jjep.55.2.276 <- read_delim("./jjep/Mod_55_2_276.txt", delim = '^')
jjep.55.2.287 <- read_delim("./jjep/Mod_55_2_287.txt", delim = '^')
jjep.55.1.1 <- read_delim("./jjep/Mod_55_1_1.txt", delim = '^')
jjep.55.1.11 <- read_delim("./jjep/Mod_55_1_11.txt", delim = '^')
jjep.55.1.21 <- read_delim("./jjep/Mod_55_1_21.txt", delim = '^')
jjep.55.1.34 <- read_delim("./jjep/Mod_55_1_34.txt", delim = '^')
jjep.55.1.48 <- read_delim("./jjep/Mod_55_1_48.txt", delim = '^')
jjep.55.1.60 <- read_delim("./jjep/Mod_55_1_60.txt", delim = '^')
jjep.55.1.72 <- read_delim("./jjep/Mod_55_1_72.txt", delim = '^')
jjep.55.1.82 <- read_delim("./jjep/Mod_55_1_82.txt", delim = '^')
jjep.55.1.93 <- read_delim("./jjep/Mod_55_1_93.txt", delim = '^')
jjep.55.1.106 <- read_delim("./jjep/Mod_55_1_106.txt", delim = '^')
jjep.55.1.120 <- read_delim("./jjep/Mod_55_1_120.txt", delim = '^')
jjep.55.1.135 <- read_delim("./jjep/Mod_55_1_135.txt", delim = '^')
jjep.54.4.441 <- read_delim("./jjep/Mod_54_4_441.txt", delim = '^')
jjep.54.4.453 <- read_delim("./jjep/Mod_54_4_453.txt", delim = '^')
jjep.54.4.464 <- read_delim("./jjep/Mod_54_4_464.txt", delim = '^')
jjep.54.4.476 <- read_delim("./jjep/Mod_54_4_476.txt", delim = '^')
jjep.54.4.487 <- read_delim("./jjep/Mod_54_4_487.txt", delim = '^')
jjep.54.4.498 <- read_delim("./jjep/Mod_54_4_498.txt", delim = '^')
jjep.54.4.509 <- read_delim("./jjep/Mod_54_4_509.txt", delim = '^')
jjep.54.4.522 <- read_delim("./jjep/Mod_54_4_522.txt", delim = '^')
jjep.54.4.534 <- read_delim("./jjep/Mod_54_4_534.txt", delim = '^')
jjep.54.4.546 <- read_delim("./jjep/Mod_54_4_546.txt", delim = '^')
jjep.54.4.558 <- read_delim("./jjep/Mod_54_4_558.txt", delim = '^')
jjep.54.4.572 <- read_delim("./jjep/Mod_54_4_572.txt", delim = '^')
jjep.54.3.289 <- read_delim("./jjep/Mod_54_3_289.txt", delim = '^')
jjep.54.3.300 <- read_delim("./jjep/Mod_54_3_300.txt", delim = '^')
jjep.54.3.312 <- read_delim("./jjep/Mod_54_3_312.txt", delim = '^')
jjep.54.3.322 <- read_delim("./jjep/Mod_54_3_322.txt", delim = '^')
jjep.54.3.334 <- read_delim("./jjep/Mod_54_3_334.txt", delim = '^')
jjep.54.3.346 <- read_delim("./jjep/Mod_54_3_346.txt", delim = '^')
jjep.54.3.361 <- read_delim("./jjep/Mod_54_3_361.txt", delim = '^')
jjep.54.3.371 <- read_delim("./jjep/Mod_54_3_371.txt", delim = '^')
jjep.54.3.384 <- read_delim("./jjep/Mod_54_3_384.txt", delim = '^')
jjep.54.3.395 <- read_delim("./jjep/Mod_54_3_395.txt", delim = '^')
jjep.54.3.408 <- read_delim("./jjep/Mod_54_3_408.txt", delim = '^')
jjep.54.3.420 <- read_delim("./jjep/Mod_54_3_420.txt", delim = '^')
jjep.54.2.141 <- read_delim("./jjep/Mod_54_2_141.txt", delim = '^')
jjep.54.2.151 <- read_delim("./jjep/Mod_54_2_151.txt", delim = '^')
jjep.54.2.162 <- read_delim("./jjep/Mod_54_2_162.txt", delim = '^')
jjep.54.2.174 <- read_delim("./jjep/Mod_54_2_174.txt", delim = '^')
jjep.54.2.188 <- read_delim("./jjep/Mod_54_2_188.txt", delim = '^')
jjep.54.2.199 <- read_delim("./jjep/Mod_54_2_199.txt", delim = '^')
jjep.54.2.211 <- read_delim("./jjep/Mod_54_2_211.txt", delim = '^')
jjep.54.2.222 <- read_delim("./jjep/Mod_54_2_222.txt", delim = '^')
jjep.54.2.233 <- read_delim("./jjep/Mod_54_2_233.txt", delim = '^')
jjep.54.2.243 <- read_delim("./jjep/Mod_54_2_243.txt", delim = '^')
jjep.54.2.254 <- read_delim("./jjep/Mod_54_2_254.txt", delim = '^')
jjep.54.2.265 <- read_delim("./jjep/Mod_54_2_265.txt", delim = '^')
jjep.54.1.1 <- read_delim("./jjep/Mod_54_1_1.txt", delim = '^')
jjep.54.1.12 <- read_delim("./jjep/Mod_54_1_12.txt", delim = '^')
jjep.54.1.25 <- read_delim("./jjep/Mod_54_1_25.txt", delim = '^')
jjep.54.1.34 <- read_delim("./jjep/Mod_54_1_34.txt", delim = '^')
jjep.54.1.45 <- read_delim("./jjep/Mod_54_1_45.txt", delim = '^')
jjep.54.1.55 <- read_delim("./jjep/Mod_54_1_55.txt", delim = '^')
jjep.54.1.63 <- read_delim("./jjep/Mod_54_1_63.txt", delim = '^')
jjep.54.1.75 <- read_delim("./jjep/Mod_54_1_75.txt", delim = '^')
jjep.54.1.90 <- read_delim("./jjep/Mod_54_1_90.txt", delim = '^')
jjep.54.1.101 <- read_delim("./jjep/Mod_54_1_101.txt", delim = '^')
jjep.54.1.112 <- read_delim("./jjep/Mod_54_1_112.txt", delim = '^')
jjep.54.1.124 <- read_delim("./jjep/Mod_54_1_124.txt", delim = '^')
jjep.53.4.441 <- read_delim("./jjep/Mod_53_4_441.txt", delim = '^')
jjep.53.4.456 <- read_delim("./jjep/Mod_53_4_456.txt", delim = '^')
jjep.53.4.467 <- read_delim("./jjep/Mod_53_4_467.txt", delim = '^')
jjep.53.4.479 <- read_delim("./jjep/Mod_53_4_479.txt", delim = '^')
jjep.53.4.491 <- read_delim("./jjep/Mod_53_4_491.txt", delim = '^')
jjep.53.4.504 <- read_delim("./jjep/Mod_53_4_504.txt", delim = '^')
jjep.53.4.516 <- read_delim("./jjep/Mod_53_4_516.txt", delim = '^')
jjep.53.4.529 <- read_delim("./jjep/Mod_53_4_529.txt", delim = '^')
jjep.53.4.541 <- read_delim("./jjep/Mod_53_4_541.txt", delim = '^')
jjep.53.4.551 <- read_delim("./jjep/Mod_53_4_551.txt", delim = '^')
jjep.53.4.565 <- read_delim("./jjep/Mod_53_4_565.txt", delim = '^')
jjep.53.4.579 <- read_delim("./jjep/Mod_53_4_579.txt", delim = '^')
jjep.53.3.297 <- read_delim("./jjep/Mod_53_3_297.txt", delim = '^')
jjep.53.3.307 <- read_delim("./jjep/Mod_53_3_307.txt", delim = '^')
jjep.53.3.320 <- read_delim("./jjep/Mod_53_3_320.txt", delim = '^')
jjep.53.3.331 <- read_delim("./jjep/Mod_53_3_331.txt", delim = '^')
jjep.53.3.344 <- read_delim("./jjep/Mod_53_3_344.txt", delim = '^')
jjep.53.3.356 <- read_delim("./jjep/Mod_53_3_356.txt", delim = '^')
jjep.53.3.368 <- read_delim("./jjep/Mod_53_3_368.txt", delim = '^')
jjep.53.3.381 <- read_delim("./jjep/Mod_53_3_381.txt", delim = '^')
jjep.53.3.393 <- read_delim("./jjep/Mod_53_3_393.txt", delim = '^')
jjep.53.3.405 <- read_delim("./jjep/Mod_53_3_405.txt", delim = '^')
jjep.53.3.414 <- read_delim("./jjep/Mod_53_3_414.txt", delim = '^')
jjep.53.3.427 <- read_delim("./jjep/Mod_53_3_427.txt", delim = '^')
jjep.53.2.151 <- read_delim("./jjep/Mod_53_2_151.txt", delim = '^')
jjep.53.2.162 <- read_delim("./jjep/Mod_53_2_162.txt", delim = '^')
jjep.53.2.172 <- read_delim("./jjep/Mod_53_2_172.txt", delim = '^')
jjep.53.2.185 <- read_delim("./jjep/Mod_53_2_185.txt", delim = '^')
jjep.53.2.196 <- read_delim("./jjep/Mod_53_2_196.txt", delim = '^')
jjep.53.2.209 <- read_delim("./jjep/Mod_53_2_209.txt", delim = '^')
jjep.53.2.220 <- read_delim("./jjep/Mod_53_2_220.txt", delim = '^')
jjep.53.2.230 <- read_delim("./jjep/Mod_53_2_230.txt", delim = '^')
jjep.53.2.241 <- read_delim("./jjep/Mod_53_2_241.txt", delim = '^')
jjep.53.2.252 <- read_delim("./jjep/Mod_53_2_252.txt", delim = '^')
jjep.53.2.263 <- read_delim("./jjep/Mod_53_2_263.txt", delim = '^')
jjep.53.2.273 <- read_delim("./jjep/Mod_53_2_273.txt", delim = '^')
jjep.53.1.1 <- read_delim("./jjep/Mod_53_1_1.txt", delim = '^')
jjep.53.1.14 <- read_delim("./jjep/Mod_53_1_14.txt", delim = '^')
jjep.53.1.26 <- read_delim("./jjep/Mod_53_1_26.txt", delim = '^')
jjep.53.1.37 <- read_delim("./jjep/Mod_53_1_37.txt", delim = '^')
jjep.53.1.49 <- read_delim("./jjep/Mod_53_1_49.txt", delim = '^')
jjep.53.1.62 <- read_delim("./jjep/Mod_53_1_62.txt", delim = '^')
jjep.53.1.74 <- read_delim("./jjep/Mod_53_1_74.txt", delim = '^')
jjep.53.1.86 <- read_delim("./jjep/Mod_53_1_86.txt", delim = '^')
jjep.53.1.98 <- read_delim("./jjep/Mod_53_1_98.txt", delim = '^')
jjep.53.1.110 <- read_delim("./jjep/Mod_53_1_110.txt", delim = '^')
jjep.53.1.122 <- read_delim("./jjep/Mod_53_1_122.txt", delim = '^')
jjep.53.1.133 <- read_delim("./jjep/Mod_53_1_133.txt", delim = '^')
jjep.52.4.359 <- read_delim("./jjep/Mod_52_4_359.txt", delim = '^')
jjep.52.4.370 <- read_delim("./jjep/Mod_52_4_370.txt", delim = '^')
jjep.52.4.382 <- read_delim("./jjep/Mod_52_4_382.txt", delim = '^')
jjep.52.4.392 <- read_delim("./jjep/Mod_52_4_392.txt", delim = '^')
jjep.52.4.402 <- read_delim("./jjep/Mod_52_4_402.txt", delim = '^')
jjep.52.4.414 <- read_delim("./jjep/Mod_52_4_414.txt", delim = '^')
jjep.52.4.426 <- read_delim("./jjep/Mod_52_4_426.txt", delim = '^')
jjep.52.4.437 <- read_delim("./jjep/Mod_52_4_437.txt", delim = '^')
jjep.52.4.448 <- read_delim("./jjep/Mod_52_4_448.txt", delim = '^')
jjep.52.4.458 <- read_delim("./jjep/Mod_52_4_458.txt", delim = '^')
jjep.52.4.472 <- read_delim("./jjep/Mod_52_4_472.txt", delim = '^')
jjep.52.4.485 <- read_delim("./jjep/Mod_52_4_485.txt", delim = '^')
jjep.52.3.219 <- read_delim("./jjep/Mod_52_3_219.txt", delim = '^')
jjep.52.3.231 <- read_delim("./jjep/Mod_52_3_231.txt", delim = '^')
jjep.52.3.241 <- read_delim("./jjep/Mod_52_3_241.txt", delim = '^')
jjep.52.3.255 <- read_delim("./jjep/Mod_52_3_255.txt", delim = '^')
jjep.52.3.264 <- read_delim("./jjep/Mod_52_3_264.txt", delim = '^')
jjep.52.3.277 <- read_delim("./jjep/Mod_52_3_277.txt", delim = '^')
jjep.52.3.287 <- read_delim("./jjep/Mod_52_3_287.txt", delim = '^')
jjep.52.3.298 <- read_delim("./jjep/Mod_52_3_298.txt", delim = '^')
jjep.52.3.310 <- read_delim("./jjep/Mod_52_3_310.txt", delim = '^')
jjep.52.3.320 <- read_delim("./jjep/Mod_52_3_320.txt", delim = '^')
jjep.52.3.331 <- read_delim("./jjep/Mod_52_3_331.txt", delim = '^')
jjep.52.3.344 <- read_delim("./jjep/Mod_52_3_344.txt", delim = '^')
jjep.52.2.93 <- read_delim("./jjep/Mod_52_2_93.txt", delim = '^')
jjep.52.2.107 <- read_delim("./jjep/Mod_52_2_107.txt", delim = '^')
jjep.52.2.115 <- read_delim("./jjep/Mod_52_2_115.txt", delim = '^')
jjep.52.2.127 <- read_delim("./jjep/Mod_52_2_127.txt", delim = '^')
jjep.52.2.139 <- read_delim("./jjep/Mod_52_2_139.txt", delim = '^')
jjep.52.2.148 <- read_delim("./jjep/Mod_52_2_148.txt", delim = '^')
jjep.52.2.159 <- read_delim("./jjep/Mod_52_2_159.txt", delim = '^')
jjep.52.2.170 <- read_delim("./jjep/Mod_52_2_170.txt", delim = '^')
jjep.52.2.186 <- read_delim("./jjep/Mod_52_2_186.txt", delim = '^')
jjep.52.2.199 <- read_delim("./jjep/Mod_52_2_199.txt", delim = '^')
jjep.52.1.1 <- read_delim("./jjep/Mod_52_1_1.txt", delim = '^')
jjep.52.1.12 <- read_delim("./jjep/Mod_52_1_12.txt", delim = '^')
jjep.52.1.24 <- read_delim("./jjep/Mod_52_1_24.txt", delim = '^')
jjep.52.1.33 <- read_delim("./jjep/Mod_52_1_33.txt", delim = '^')
jjep.52.1.44 <- read_delim("./jjep/Mod_52_1_44.txt", delim = '^')
jjep.52.1.52 <- read_delim("./jjep/Mod_52_1_52.txt", delim = '^')
jjep.52.1.61 <- read_delim("./jjep/Mod_52_1_61.txt", delim = '^')
jjep.52.1.71 <- read_delim("./jjep/Mod_52_1_71.txt", delim = '^')
jjep.51.4.367 <- read_delim("./jjep/Mod_51_4_367.txt", delim = '^')
jjep.51.4.378 <- read_delim("./jjep/Mod_51_4_378.txt", delim = '^')
jjep.51.4.390 <- read_delim("./jjep/Mod_51_4_390.txt", delim = '^')
jjep.51.4.401 <- read_delim("./jjep/Mod_51_4_401.txt", delim = '^')
jjep.51.4.413 <- read_delim("./jjep/Mod_51_4_413.txt", delim = '^')
jjep.51.4.425 <- read_delim("./jjep/Mod_51_4_425.txt", delim = '^')
jjep.51.4.431 <- read_delim("./jjep/Mod_51_4_431.txt", delim = '^')
jjep.51.4.443 <- read_delim("./jjep/Mod_51_4_443.txt", delim = '^')
jjep.51.3.251 <- read_delim("./jjep/Mod_51_3_251.txt", delim = '^')
jjep.51.3.261 <- read_delim("./jjep/Mod_51_3_261.txt", delim = '^')
jjep.51.3.273 <- read_delim("./jjep/Mod_51_3_273.txt", delim = '^')
jjep.51.3.281 <- read_delim("./jjep/Mod_51_3_281.txt", delim = '^')
jjep.51.3.288 <- read_delim("./jjep/Mod_51_3_288.txt", delim = '^')
jjep.51.3.298 <- read_delim("./jjep/Mod_51_3_298.txt", delim = '^')
jjep.51.3.308 <- read_delim("./jjep/Mod_51_3_308.txt", delim = '^')
jjep.51.3.319 <- read_delim("./jjep/Mod_51_3_319.txt", delim = '^')
jjep.51.3.328 <- read_delim("./jjep/Mod_51_3_328.txt", delim = '^')
jjep.51.3.339 <- read_delim("./jjep/Mod_51_3_339.txt", delim = '^')
jjep.51.3.351 <- read_delim("./jjep/Mod_51_3_351.txt", delim = '^')
jjep.51.2.121 <- read_delim("./jjep/Mod_51_2_121.txt", delim = '^')
jjep.51.2.130 <- read_delim("./jjep/Mod_51_2_130.txt", delim = '^')
jjep.51.2.141 <- read_delim("./jjep/Mod_51_2_141.txt", delim = '^')
jjep.51.2.154 <- read_delim("./jjep/Mod_51_2_154.txt", delim = '^')
jjep.51.2.165 <- read_delim("./jjep/Mod_51_2_165.txt", delim = '^')
jjep.51.2.175 <- read_delim("./jjep/Mod_51_2_175.txt", delim = '^')
jjep.51.2.187 <- read_delim("./jjep/Mod_51_2_187.txt", delim = '^')
jjep.51.2.195 <- read_delim("./jjep/Mod_51_2_195.txt", delim = '^')
jjep.51.2.205 <- read_delim("./jjep/Mod_51_2_205.txt", delim = '^')
jjep.51.2.218 <- read_delim("./jjep/Mod_51_2_218.txt", delim = '^')
jjep.51.2.230 <- read_delim("./jjep/Mod_51_2_230.txt", delim = '^')
jjep.51.1.1 <- read_delim("./jjep/Mod_51_1_1.txt", delim = '^')
jjep.51.1.13 <- read_delim("./jjep/Mod_51_1_13.txt", delim = '^')
jjep.51.1.22 <- read_delim("./jjep/Mod_51_1_22.txt", delim = '^')
jjep.51.1.33 <- read_delim("./jjep/Mod_51_1_33.txt", delim = '^')
jjep.51.1.43 <- read_delim("./jjep/Mod_51_1_43.txt", delim = '^')
jjep.51.1.54 <- read_delim("./jjep/Mod_51_1_54.txt", delim = '^')
jjep.51.1.65 <- read_delim("./jjep/Mod_51_1_65.txt", delim = '^')
jjep.51.1.76 <- read_delim("./jjep/Mod_51_1_76.txt", delim = '^')
jjep.51.1.86 <- read_delim("./jjep/Mod_51_1_86.txt", delim = '^')
jjep.51.1.96 <- read_delim("./jjep/Mod_51_1_96.txt", delim = '^')
jjep.51.1.105 <- read_delim("./jjep/Mod_51_1_105.txt", delim = '^')
jjep.50.4.393 <- read_delim("./jjep/Mod_50_4_393.txt", delim = '^')
jjep.50.4.403 <- read_delim("./jjep/Mod_50_4_403.txt", delim = '^')
jjep.50.4.412 <- read_delim("./jjep/Mod_50_4_412.txt", delim = '^')
jjep.50.4.421 <- read_delim("./jjep/Mod_50_4_421.txt", delim = '^')
jjep.50.4.427 <- read_delim("./jjep/Mod_50_4_427.txt", delim = '^')
jjep.50.4.436 <- read_delim("./jjep/Mod_50_4_436.txt", delim = '^')
jjep.50.4.446 <- read_delim("./jjep/Mod_50_4_446.txt", delim = '^')
jjep.50.4.456 <- read_delim("./jjep/Mod_50_4_456.txt", delim = '^')
jjep.50.4.465 <- read_delim("./jjep/Mod_50_4_465.txt", delim = '^')
jjep.50.4.476 <- read_delim("./jjep/Mod_50_4_476.txt", delim = '^')
jjep.50.4.487 <- read_delim("./jjep/Mod_50_4_487.txt", delim = '^')
jjep.50.3.261 <- read_delim("./jjep/Mod_50_3_261.txt", delim = '^')
jjep.50.3.271 <- read_delim("./jjep/Mod_50_3_271.txt", delim = '^')
jjep.50.3.283 <- read_delim("./jjep/Mod_50_3_283.txt", delim = '^')
jjep.50.3.291 <- read_delim("./jjep/Mod_50_3_291.txt", delim = '^')
jjep.50.3.301 <- read_delim("./jjep/Mod_50_3_301.txt", delim = '^')
jjep.50.3.311 <- read_delim("./jjep/Mod_50_3_311.txt", delim = '^')
jjep.50.3.323 <- read_delim("./jjep/Mod_50_3_323.txt", delim = '^')
jjep.50.3.334 <- read_delim("./jjep/Mod_50_3_334.txt", delim = '^')
jjep.50.3.345 <- read_delim("./jjep/Mod_50_3_345.txt", delim = '^')
jjep.50.3.355 <- read_delim("./jjep/Mod_50_3_355.txt", delim = '^')
jjep.50.3.367 <- read_delim("./jjep/Mod_50_3_367.txt", delim = '^')
jjep.50.3.377 <- read_delim("./jjep/Mod_50_3_377.txt", delim = '^')
jjep.50.2.129 <- read_delim("./jjep/Mod_50_2_129.txt", delim = '^')
jjep.50.2.141 <- read_delim("./jjep/Mod_50_2_141.txt", delim = '^')
jjep.50.2.152 <- read_delim("./jjep/Mod_50_2_152.txt", delim = '^')
jjep.50.2.163 <- read_delim("./jjep/Mod_50_2_163.txt", delim = '^')
jjep.50.2.175 <- read_delim("./jjep/Mod_50_2_175.txt", delim = '^')
jjep.50.2.185 <- read_delim("./jjep/Mod_50_2_185.txt", delim = '^')
jjep.50.2.193 <- read_delim("./jjep/Mod_50_2_193.txt", delim = '^')
jjep.50.2.204 <- read_delim("./jjep/Mod_50_2_204.txt", delim = '^')
jjep.50.2.215 <- read_delim("./jjep/Mod_50_2_215.txt", delim = '^')
jjep.50.2.225 <- read_delim("./jjep/Mod_50_2_225.txt", delim = '^')
jjep.50.2.237 <- read_delim("./jjep/Mod_50_2_237.txt", delim = '^')
jjep.50.2.246 <- read_delim("./jjep/Mod_50_2_246.txt", delim = '^')
jjep.50.1.1 <- read_delim("./jjep/Mod_50_1_1.txt", delim = '^')
jjep.50.1.12 <- read_delim("./jjep/Mod_50_1_12.txt", delim = '^')
jjep.50.1.23 <- read_delim("./jjep/Mod_50_1_23.txt", delim = '^')
jjep.50.1.33 <- read_delim("./jjep/Mod_50_1_33.txt", delim = '^')
jjep.50.1.43 <- read_delim("./jjep/Mod_50_1_43.txt", delim = '^')
jjep.50.1.54 <- read_delim("./jjep/Mod_50_1_54.txt", delim = '^')
jjep.50.1.65 <- read_delim("./jjep/Mod_50_1_65.txt", delim = '^')
jjep.50.1.73 <- read_delim("./jjep/Mod_50_1_73.txt", delim = '^')
jjep.50.1.81 <- read_delim("./jjep/Mod_50_1_81.txt", delim = '^')
jjep.50.1.92 <- read_delim("./jjep/Mod_50_1_92.txt", delim = '^')
jjep.50.1.103 <- read_delim("./jjep/Mod_50_1_103.txt", delim = '^')
jjep.50.1.113 <- read_delim("./jjep/Mod_50_1_113.txt", delim = '^')
jjep.49.4.401 <- read_delim("./jjep/Mod_49_4_401.txt", delim = '^')
jjep.49.4.409 <- read_delim("./jjep/Mod_49_4_409.txt", delim = '^')
jjep.49.4.417 <- read_delim("./jjep/Mod_49_4_417.txt", delim = '^')
jjep.49.4.427 <- read_delim("./jjep/Mod_49_4_427.txt", delim = '^')
jjep.49.4.438 <- read_delim("./jjep/Mod_49_4_438.txt", delim = '^')
jjep.49.4.449 <- read_delim("./jjep/Mod_49_4_449.txt", delim = '^')
jjep.49.4.458 <- read_delim("./jjep/Mod_49_4_458.txt", delim = '^')
jjep.49.4.469 <- read_delim("./jjep/Mod_49_4_469.txt", delim = '^')
jjep.49.4.480 <- read_delim("./jjep/Mod_49_4_480.txt", delim = '^')
jjep.49.4.491 <- read_delim("./jjep/Mod_49_4_491.txt", delim = '^')
jjep.49.4.500 <- read_delim("./jjep/Mod_49_4_500.txt", delim = '^')
jjep.49.3.265 <- read_delim("./jjep/Mod_49_3_265.txt", delim = '^')
jjep.49.3.274 <- read_delim("./jjep/Mod_49_3_274.txt", delim = '^')
jjep.49.3.285 <- read_delim("./jjep/Mod_49_3_285.txt", delim = '^')
jjep.49.3.295 <- read_delim("./jjep/Mod_49_3_295.txt", delim = '^')
jjep.49.3.305 <- read_delim("./jjep/Mod_49_3_305.txt", delim = '^')
jjep.49.3.314 <- read_delim("./jjep/Mod_49_3_314.txt", delim = '^')
jjep.49.3.326 <- read_delim("./jjep/Mod_49_3_326.txt", delim = '^')
jjep.49.3.337 <- read_delim("./jjep/Mod_49_3_337.txt", delim = '^')
jjep.49.3.347 <- read_delim("./jjep/Mod_49_3_347.txt", delim = '^')
jjep.49.3.359 <- read_delim("./jjep/Mod_49_3_359.txt", delim = '^')
jjep.49.3.371 <- read_delim("./jjep/Mod_49_3_371.txt", delim = '^')
jjep.49.2.129 <- read_delim("./jjep/Mod_49_2_129.txt", delim = '^')
jjep.49.2.137 <- read_delim("./jjep/Mod_49_2_137.txt", delim = '^')
jjep.49.2.146 <- read_delim("./jjep/Mod_49_2_146.txt", delim = '^')
jjep.49.2.156 <- read_delim("./jjep/Mod_49_2_156.txt", delim = '^')
jjep.49.2.167 <- read_delim("./jjep/Mod_49_2_167.txt", delim = '^')
jjep.49.2.175 <- read_delim("./jjep/Mod_49_2_175.txt", delim = '^')
jjep.49.2.186 <- read_delim("./jjep/Mod_49_2_186.txt", delim = '^')
jjep.49.2.198 <- read_delim("./jjep/Mod_49_2_198.txt", delim = '^')
jjep.49.2.209 <- read_delim("./jjep/Mod_49_2_209.txt", delim = '^')
jjep.49.2.219 <- read_delim("./jjep/Mod_49_2_219.txt", delim = '^')
jjep.49.2.230 <- read_delim("./jjep/Mod_49_2_230.txt", delim = '^')
jjep.49.2.240 <- read_delim("./jjep/Mod_49_2_240.txt", delim = '^')
jjep.49.1.1 <- read_delim("./jjep/Mod_49_1_1.txt", delim = '^')
jjep.49.1.11 <- read_delim("./jjep/Mod_49_1_11.txt", delim = '^')
jjep.49.1.21 <- read_delim("./jjep/Mod_49_1_21.txt", delim = '^')
jjep.49.1.31 <- read_delim("./jjep/Mod_49_1_31.txt", delim = '^')
jjep.49.1.41 <- read_delim("./jjep/Mod_49_1_41.txt", delim = '^')
jjep.49.1.50 <- read_delim("./jjep/Mod_49_1_50.txt", delim = '^')
jjep.49.1.60 <- read_delim("./jjep/Mod_49_1_60.txt", delim = '^')
jjep.49.1.69 <- read_delim("./jjep/Mod_49_1_69.txt", delim = '^')
jjep.49.1.81 <- read_delim("./jjep/Mod_49_1_81.txt", delim = '^')
jjep.49.1.91 <- read_delim("./jjep/Mod_49_1_91.txt", delim = '^')
jjep.49.1.102 <- read_delim("./jjep/Mod_49_1_102.txt", delim = '^')
jjep.49.1.112 <- read_delim("./jjep/Mod_49_1_112.txt", delim = '^')

1.9 データを列結合する

#library(dplyr)
jjep.49.65 <- rbind(
jjep.65.4.433[1,], 
jjep.65.4.451[1,], 
jjep.65.4.466[1,], 
jjep.65.4.477[1,], 
jjep.65.4.489[1,], 
jjep.65.4.501[1,], 
jjep.65.4.512[1,], 
jjep.65.4.526[1,], 
jjep.65.3.321[1,], 
jjep.65.3.333[1,], 
jjep.65.3.346[1,], 
jjep.65.3.361[1,], 
jjep.65.3.375[1,], 
jjep.65.3.388[1,], 
jjep.65.3.401[1,], 
jjep.65.3.414[1,], 
jjep.65.2.167[1,], 
jjep.65.2.183[1,], 
jjep.65.2.197[1,], 
jjep.65.2.211[1,], 
jjep.65.2.225[1,], 
jjep.65.2.239[1,], 
jjep.65.2.248[1,], 
jjep.65.2.265[1,], 
jjep.65.2.281[1,], 
jjep.65.2.295[1,], 
jjep.65.2.305[1,], 
jjep.65.1.1[1,], 
jjep.65.1.12[1,], 
jjep.65.1.26[1,], 
jjep.65.1.37[1,], 
jjep.65.1.52[1,], 
jjep.65.1.64[1,], 
jjep.65.1.77[1,], 
jjep.65.1.91[1,], 
jjep.65.1.106[1,], 
jjep.65.1.120[1,], 
jjep.65.1.132[1,], 
jjep.65.1.145[1,], 
jjep.64.4.445[1,], 
jjep.64.4.456[1,], 
jjep.64.4.477[1,], 
jjep.64.4.492[1,], 
jjep.64.4.505[1,], 
jjep.64.4.518[1,], 
jjep.64.4.531[1,], 
jjep.64.4.544[1,], 
jjep.64.4.555[1,], 
jjep.64.4.569[1,], 
jjep.64.4.583[1,], 
jjep.64.4.598[1,], 
jjep.64.3.285[1,], 
jjep.64.3.296[1,], 
jjep.64.3.307[1,], 
jjep.64.3.317[1,], 
jjep.64.3.327[1,], 
jjep.64.3.340[1,], 
jjep.64.3.352[1,], 
jjep.64.3.364[1,], 
jjep.64.3.376[1,], 
jjep.64.3.395[1,], 
jjep.64.3.407[1,], 
jjep.64.3.423[1,], 
jjep.64.2.147[1,], 
jjep.64.2.156[1,], 
jjep.64.2.170[1,], 
jjep.64.2.184[1,], 
jjep.64.2.199[1,], 
jjep.64.2.212[1,], 
jjep.64.2.228[1,], 
jjep.64.2.241[1,], 
jjep.64.2.256[1,], 
jjep.64.2.268[1,], 
jjep.64.1.1[1,], 
jjep.64.1.13[1,], 
jjep.64.1.26[1,], 
jjep.64.1.41[1,], 
jjep.64.1.59[1,], 
jjep.64.1.76[1,], 
jjep.64.1.88[1,], 
jjep.64.1.105[1,], 
jjep.64.1.118[1,], 
jjep.64.1.131[1,], 
jjep.63.4.345[1,], 
jjep.63.4.359[1,], 
jjep.63.4.372[1,], 
jjep.63.4.386[1,], 
jjep.63.4.401[1,], 
jjep.63.4.412[1,], 
jjep.63.4.426[1,], 
jjep.63.4.438[1,], 
jjep.63.4.453[1,], 
jjep.63.4.467[1,], 
jjep.63.3.199[1,], 
jjep.63.3.217[1,], 
jjep.63.3.228[1,], 
jjep.63.3.242[1,], 
jjep.63.3.254[1,], 
jjep.63.3.267[1,], 
jjep.63.3.279[1,], 
jjep.63.3.295[1,], 
jjep.63.3.309[1,], 
jjep.63.3.323[1,], 
jjep.63.2.85[1,], 
jjep.63.2.102[1,], 
jjep.63.2.111[1,], 
jjep.63.2.121[1,], 
jjep.63.2.138[1,], 
jjep.63.2.151[1,], 
jjep.63.2.162[1,], 
jjep.63.2.181[1,], 
jjep.63.1.1[1,], 
jjep.63.1.13[1,], 
jjep.63.1.23[1,], 
jjep.63.1.37[1,], 
jjep.63.1.48[1,], 
jjep.63.1.63[1,], 
jjep.63.1.83[1,], 
jjep.62.4.257[1,], 
jjep.62.4.273[1,], 
jjep.62.4.283[1,], 
jjep.62.4.294[1,], 
jjep.62.4.305[1,], 
jjep.62.4.322[1,], 
jjep.62.3.173[1,], 
jjep.62.3.187[1,], 
jjep.62.3.197[1,], 
jjep.62.3.209[1,], 
jjep.62.3.226[1,], 
jjep.62.3.240[1,], 
jjep.62.2.87[1,], 
jjep.62.2.101[1,], 
jjep.62.2.115[1,], 
jjep.62.2.129[1,], 
jjep.62.2.143[1,], 
jjep.62.2.156[1,], 
jjep.62.1.1[1,], 
jjep.62.1.13[1,], 
jjep.62.1.24[1,], 
jjep.62.1.38[1,], 
jjep.62.1.50[1,], 
jjep.62.1.64[1,], 
jjep.61.4.351[1,], 
jjep.61.4.362[1,], 
jjep.61.4.374[1,], 
jjep.61.4.387[1,], 
jjep.61.4.398[1,], 
jjep.61.4.412[1,], 
jjep.61.3.229[1,], 
jjep.61.3.239[1,], 
jjep.61.3.251[1,], 
jjep.61.3.265[1,], 
jjep.61.3.277[1,], 
jjep.61.3.290[1,], 
jjep.61.3.311[1,], 
jjep.61.3.323[1,], 
jjep.61.2.121[1,], 
jjep.61.2.133[1,], 
jjep.61.2.146[1,], 
jjep.61.2.158[1,], 
jjep.61.2.169[1,], 
jjep.61.2.181[1,], 
jjep.61.2.193[1,], 
jjep.61.2.206[1,], 
jjep.61.1.1[1,], 
jjep.61.1.17[1,], 
jjep.61.1.32[1,], 
jjep.61.1.44[1,], 
jjep.61.1.56[1,], 
jjep.61.1.67[1,], 
jjep.61.1.79[1,], 
jjep.61.1.95[1,], 
jjep.60.4.343[1,], 
jjep.60.4.355[1,], 
jjep.60.4.367[1,], 
jjep.60.4.380[1,], 
jjep.60.4.392[1,], 
jjep.60.3.235[1,], 
jjep.60.3.249[1,], 
jjep.60.3.261[1,], 
jjep.60.3.272[1,], 
jjep.60.3.285[1,], 
jjep.60.3.296[1,], 
jjep.60.3.310[1,], 
jjep.60.3.324[1,], 
jjep.60.2.117[1,], 
jjep.60.2.127[1,], 
jjep.60.2.137[1,], 
jjep.60.2.153[1,], 
jjep.60.2.167[1,], 
jjep.60.2.186[1,], 
jjep.60.2.199[1,], 
jjep.60.2.211[1,], 
jjep.60.1.1[1,], 
jjep.60.1.15[1,], 
jjep.60.1.28[1,], 
jjep.60.1.48[1,], 
jjep.60.1.60[1,], 
jjep.60.1.70[1,], 
jjep.60.1.82[1,], 
jjep.60.1.92[1,], 
jjep.59.4.385[1,], 
jjep.59.4.402[1,], 
jjep.59.4.414[1,], 
jjep.59.4.427[1,], 
jjep.59.4.441[1,], 
jjep.59.4.450[1,], 
jjep.59.4.462[1,], 
jjep.59.4.474[1,], 
jjep.59.3.267[1,], 
jjep.59.3.278[1,], 
jjep.59.3.295[1,], 
jjep.59.3.306[1,], 
jjep.59.3.320[1,], 
jjep.59.3.330[1,], 
jjep.59.3.342[1,], 
jjep.59.3.355[1,], 
jjep.59.2.131[1,], 
jjep.59.2.144[1,], 
jjep.59.2.155[1,], 
jjep.59.2.168[1,], 
jjep.59.2.179[1,], 
jjep.59.2.193[1,], 
jjep.59.2.206[1,], 
jjep.59.2.219[1,], 
jjep.59.2.231[1,], 
jjep.59.2.244[1,], 
jjep.59.1.1[1,], 
jjep.59.1.13[1,], 
jjep.59.1.27[1,], 
jjep.59.1.39[1,], 
jjep.59.1.51[1,], 
jjep.59.1.64[1,], 
jjep.59.1.77[1,], 
jjep.59.1.88[1,], 
jjep.59.1.100[1,], 
jjep.59.1.111[1,], 
jjep.58.4.393[1,], 
jjep.58.4.404[1,], 
jjep.58.4.414[1,], 
jjep.58.4.426[1,], 
jjep.58.4.438[1,], 
jjep.58.4.452[1,], 
jjep.58.4.464[1,], 
jjep.58.4.480[1,], 
jjep.58.4.491[1,], 
jjep.58.4.503[1,], 
jjep.58.3.263[1,], 
jjep.58.3.275[1,], 
jjep.58.3.285[1,], 
jjep.58.3.298[1,], 
jjep.58.3.313[1,], 
jjep.58.3.325[1,], 
jjep.58.3.338[1,], 
jjep.58.3.348[1,], 
jjep.58.3.361[1,], 
jjep.58.3.372[1,], 
jjep.58.2.129[1,], 
jjep.58.2.140[1,], 
jjep.58.2.151[1,], 
jjep.58.2.163[1,], 
jjep.58.2.176[1,], 
jjep.58.2.186[1,], 
jjep.58.2.198[1,], 
jjep.58.2.212[1,], 
jjep.58.2.224[1,], 
jjep.58.2.236[1,], 
jjep.58.1.1[1,], 
jjep.58.1.12[1,], 
jjep.58.1.23[1,], 
jjep.58.1.34[1,], 
jjep.58.1.46[1,], 
jjep.58.1.57[1,], 
jjep.58.1.69[1,], 
jjep.58.1.80[1,], 
jjep.58.1.95[1,], 
jjep.58.1.108[1,], 
jjep.57.4.393[1,], 
jjep.57.4.407[1,], 
jjep.57.4.419[1,], 
jjep.57.4.432[1,], 
jjep.57.4.442[1,], 
jjep.57.4.454[1,], 
jjep.57.4.466[1,], 
jjep.57.4.478[1,], 
jjep.57.4.491[1,], 
jjep.57.4.503[1,], 
jjep.57.3.263[1,], 
jjep.57.3.274[1,], 
jjep.57.3.284[1,], 
jjep.57.3.295[1,], 
jjep.57.3.309[1,], 
jjep.57.3.324[1,], 
jjep.57.3.336[1,], 
jjep.57.3.349[1,], 
jjep.57.3.361[1,], 
jjep.57.3.373[1,], 
jjep.57.2.131[1,], 
jjep.57.2.143[1,], 
jjep.57.2.158[1,], 
jjep.57.2.168[1,], 
jjep.57.2.180[1,], 
jjep.57.2.192[1,], 
jjep.57.2.201[1,], 
jjep.57.2.212[1,], 
jjep.57.2.223[1,], 
jjep.57.2.237[1,], 
jjep.57.1.1[1,], 
jjep.57.1.13[1,], 
jjep.57.1.24[1,], 
jjep.57.1.38[1,], 
jjep.57.1.49[1,], 
jjep.57.1.62[1,], 
jjep.57.1.73[1,], 
jjep.57.1.86[1,], 
jjep.57.1.99[1,], 
jjep.56.4.463[1,], 
jjep.56.4.474[1,], 
jjep.56.4.487[1,], 
jjep.56.4.498[1,], 
jjep.56.4.510[1,], 
jjep.56.4.523[1,], 
jjep.56.4.534[1,], 
jjep.56.4.548[1,], 
jjep.56.4.560[1,], 
jjep.56.4.575[1,], 
jjep.56.3.303[1,], 
jjep.56.3.318[1,], 
jjep.56.3.330[1,], 
jjep.56.3.341[1,], 
jjep.56.3.353[1,], 
jjep.56.3.364[1,], 
jjep.56.3.376[1,], 
jjep.56.3.389[1,], 
jjep.56.3.403[1,], 
jjep.56.3.414[1,], 
jjep.56.3.426[1,], 
jjep.56.3.440[1,], 
jjep.56.2.149[1,], 
jjep.56.2.160[1,], 
jjep.56.2.171[1,], 
jjep.56.2.182[1,], 
jjep.56.2.193[1,], 
jjep.56.2.206[1,], 
jjep.56.2.218[1,], 
jjep.56.2.230[1,], 
jjep.56.2.243[1,], 
jjep.56.2.256[1,], 
jjep.56.2.268[1,], 
jjep.56.2.278[1,], 
jjep.56.1.1[1,], 
jjep.56.1.14[1,], 
jjep.56.1.23[1,], 
jjep.56.1.32[1,], 
jjep.56.1.44[1,], 
jjep.56.1.57[1,], 
jjep.56.1.72[1,], 
jjep.56.1.81[1,], 
jjep.56.1.93[1,], 
jjep.56.1.104[1,], 
jjep.56.1.116[1,], 
jjep.56.1.127[1,], 
jjep.55.4.457[1,], 
jjep.55.4.469[1,], 
jjep.55.4.480[1,], 
jjep.55.4.491[1,], 
jjep.55.4.501[1,], 
jjep.55.4.514[1,], 
jjep.55.4.526[1,], 
jjep.55.4.538[1,], 
jjep.55.4.550[1,], 
jjep.55.4.560[1,], 
jjep.55.4.573[1,], 
jjep.55.4.584[1,], 
jjep.55.3.313[1,], 
jjep.55.3.325[1,], 
jjep.55.3.335[1,], 
jjep.55.3.347[1,], 
jjep.55.3.359[1,], 
jjep.55.3.370[1,], 
jjep.55.3.382[1,], 
jjep.55.3.393[1,], 
jjep.55.3.403[1,], 
jjep.55.3.414[1,], 
jjep.55.3.426[1,], 
jjep.55.3.438[1,], 
jjep.55.2.161[1,], 
jjep.55.2.170[1,], 
jjep.55.2.184[1,], 
jjep.55.2.197[1,], 
jjep.55.2.208[1,], 
jjep.55.2.219[1,], 
jjep.55.2.231[1,], 
jjep.55.2.244[1,], 
jjep.55.2.255[1,], 
jjep.55.2.266[1,], 
jjep.55.2.276[1,], 
jjep.55.2.287[1,], 
jjep.55.1.1[1,], 
jjep.55.1.11[1,], 
jjep.55.1.21[1,], 
jjep.55.1.34[1,], 
jjep.55.1.48[1,], 
jjep.55.1.60[1,], 
jjep.55.1.72[1,], 
jjep.55.1.82[1,], 
jjep.55.1.93[1,], 
jjep.55.1.106[1,], 
jjep.55.1.120[1,], 
jjep.55.1.135[1,], 
jjep.54.4.441[1,], 
jjep.54.4.453[1,], 
jjep.54.4.464[1,], 
jjep.54.4.476[1,], 
jjep.54.4.487[1,], 
jjep.54.4.498[1,], 
jjep.54.4.509[1,], 
jjep.54.4.522[1,], 
jjep.54.4.534[1,], 
jjep.54.4.546[1,], 
jjep.54.4.558[1,], 
jjep.54.4.572[1,], 
jjep.54.3.289[1,], 
jjep.54.3.300[1,], 
jjep.54.3.312[1,], 
jjep.54.3.322[1,], 
jjep.54.3.334[1,], 
jjep.54.3.346[1,], 
jjep.54.3.361[1,], 
jjep.54.3.371[1,], 
jjep.54.3.384[1,], 
jjep.54.3.395[1,], 
jjep.54.3.408[1,], 
jjep.54.3.420[1,], 
jjep.54.2.141[1,], 
jjep.54.2.151[1,], 
jjep.54.2.162[1,], 
jjep.54.2.174[1,], 
jjep.54.2.188[1,], 
jjep.54.2.199[1,], 
jjep.54.2.211[1,], 
jjep.54.2.222[1,], 
jjep.54.2.233[1,], 
jjep.54.2.243[1,], 
jjep.54.2.254[1,], 
jjep.54.2.265[1,], 
jjep.54.1.1[1,], 
jjep.54.1.12[1,], 
jjep.54.1.25[1,], 
jjep.54.1.34[1,], 
jjep.54.1.45[1,], 
jjep.54.1.55[1,], 
jjep.54.1.63[1,], 
jjep.54.1.75[1,], 
jjep.54.1.90[1,], 
jjep.54.1.101[1,], 
jjep.54.1.112[1,], 
jjep.54.1.124[1,], 
jjep.53.4.441[1,], 
jjep.53.4.456[1,], 
jjep.53.4.467[1,], 
jjep.53.4.479[1,], 
jjep.53.4.491[1,], 
jjep.53.4.504[1,], 
jjep.53.4.516[1,], 
jjep.53.4.529[1,], 
jjep.53.4.541[1,], 
jjep.53.4.551[1,], 
jjep.53.4.565[1,], 
jjep.53.4.579[1,], 
jjep.53.3.297[1,], 
jjep.53.3.307[1,], 
jjep.53.3.320[1,], 
jjep.53.3.331[1,], 
jjep.53.3.344[1,], 
jjep.53.3.356[1,], 
jjep.53.3.368[1,], 
jjep.53.3.381[1,], 
jjep.53.3.393[1,], 
jjep.53.3.405[1,], 
jjep.53.3.414[1,], 
jjep.53.3.427[1,], 
jjep.53.2.151[1,], 
jjep.53.2.162[1,], 
jjep.53.2.172[1,], 
jjep.53.2.185[1,], 
jjep.53.2.196[1,], 
jjep.53.2.209[1,], 
jjep.53.2.220[1,], 
jjep.53.2.230[1,], 
jjep.53.2.241[1,], 
jjep.53.2.252[1,], 
jjep.53.2.263[1,], 
jjep.53.2.273[1,], 
jjep.53.1.1[1,], 
jjep.53.1.14[1,], 
jjep.53.1.26[1,], 
jjep.53.1.37[1,], 
jjep.53.1.49[1,], 
jjep.53.1.62[1,], 
jjep.53.1.74[1,], 
jjep.53.1.86[1,], 
jjep.53.1.98[1,], 
jjep.53.1.110[1,], 
jjep.53.1.122[1,], 
jjep.53.1.133[1,], 
jjep.52.4.359[1,], 
jjep.52.4.370[1,], 
jjep.52.4.382[1,], 
jjep.52.4.392[1,], 
jjep.52.4.402[1,], 
jjep.52.4.414[1,], 
jjep.52.4.426[1,], 
jjep.52.4.437[1,], 
jjep.52.4.448[1,], 
jjep.52.4.458[1,], 
jjep.52.4.472[1,], 
jjep.52.4.485[1,], 
jjep.52.3.219[1,], 
jjep.52.3.231[1,], 
jjep.52.3.241[1,], 
jjep.52.3.255[1,], 
jjep.52.3.264[1,], 
jjep.52.3.277[1,], 
jjep.52.3.287[1,], 
jjep.52.3.298[1,], 
jjep.52.3.310[1,], 
jjep.52.3.320[1,], 
jjep.52.3.331[1,], 
jjep.52.3.344[1,], 
jjep.52.2.93[1,], 
jjep.52.2.107[1,], 
jjep.52.2.115[1,], 
jjep.52.2.127[1,], 
jjep.52.2.139[1,], 
jjep.52.2.148[1,], 
jjep.52.2.159[1,], 
jjep.52.2.170[1,], 
jjep.52.2.186[1,], 
jjep.52.2.199[1,], 
jjep.52.1.1[1,], 
jjep.52.1.12[1,], 
jjep.52.1.24[1,], 
jjep.52.1.33[1,], 
jjep.52.1.44[1,], 
jjep.52.1.52[1,], 
jjep.52.1.61[1,], 
jjep.52.1.71[1,], 
jjep.51.4.367[1,], 
jjep.51.4.378[1,], 
jjep.51.4.390[1,], 
jjep.51.4.401[1,], 
jjep.51.4.413[1,], 
jjep.51.4.425[1,], 
jjep.51.4.431[1,], 
jjep.51.4.443[1,], 
jjep.51.3.251[1,], 
jjep.51.3.261[1,], 
jjep.51.3.273[1,], 
jjep.51.3.281[1,], 
jjep.51.3.288[1,], 
jjep.51.3.298[1,], 
jjep.51.3.308[1,], 
jjep.51.3.319[1,], 
jjep.51.3.328[1,], 
jjep.51.3.339[1,], 
jjep.51.3.351[1,], 
jjep.51.2.121[1,], 
jjep.51.2.130[1,], 
jjep.51.2.141[1,], 
jjep.51.2.154[1,], 
jjep.51.2.165[1,], 
jjep.51.2.175[1,], 
jjep.51.2.187[1,], 
jjep.51.2.195[1,], 
jjep.51.2.205[1,], 
jjep.51.2.218[1,], 
jjep.51.2.230[1,], 
jjep.51.1.1[1,], 
jjep.51.1.13[1,], 
jjep.51.1.22[1,], 
jjep.51.1.33[1,], 
jjep.51.1.43[1,], 
jjep.51.1.54[1,], 
jjep.51.1.65[1,], 
jjep.51.1.76[1,], 
jjep.51.1.86[1,], 
jjep.51.1.96[1,], 
jjep.51.1.105[1,], 
jjep.50.4.393[1,], 
jjep.50.4.403[1,], 
jjep.50.4.412[1,], 
jjep.50.4.421[1,], 
jjep.50.4.427[1,], 
jjep.50.4.436[1,], 
jjep.50.4.446[1,], 
jjep.50.4.456[1,], 
jjep.50.4.465[1,], 
jjep.50.4.476[1,], 
jjep.50.4.487[1,], 
jjep.50.3.261[1,], 
jjep.50.3.271[1,], 
jjep.50.3.283[1,], 
jjep.50.3.291[1,], 
jjep.50.3.301[1,], 
jjep.50.3.311[1,], 
jjep.50.3.323[1,], 
jjep.50.3.334[1,], 
jjep.50.3.345[1,], 
jjep.50.3.355[1,], 
jjep.50.3.367[1,], 
jjep.50.3.377[1,], 
jjep.50.2.129[1,], 
jjep.50.2.141[1,], 
jjep.50.2.152[1,], 
jjep.50.2.163[1,], 
jjep.50.2.175[1,], 
jjep.50.2.185[1,], 
jjep.50.2.193[1,], 
jjep.50.2.204[1,], 
jjep.50.2.215[1,], 
jjep.50.2.225[1,], 
jjep.50.2.237[1,], 
jjep.50.2.246[1,], 
jjep.50.1.1[1,], 
jjep.50.1.12[1,], 
jjep.50.1.23[1,], 
jjep.50.1.33[1,], 
jjep.50.1.43[1,], 
jjep.50.1.54[1,], 
jjep.50.1.65[1,], 
jjep.50.1.73[1,], 
jjep.50.1.81[1,], 
jjep.50.1.92[1,], 
jjep.50.1.103[1,], 
jjep.50.1.113[1,], 
jjep.49.4.401[1,], 
jjep.49.4.409[1,], 
jjep.49.4.417[1,], 
jjep.49.4.427[1,], 
jjep.49.4.438[1,], 
jjep.49.4.449[1,], 
jjep.49.4.458[1,], 
jjep.49.4.469[1,], 
jjep.49.4.480[1,], 
jjep.49.4.491[1,], 
jjep.49.4.500[1,], 
jjep.49.3.265[1,], 
jjep.49.3.274[1,], 
jjep.49.3.285[1,], 
jjep.49.3.295[1,], 
jjep.49.3.305[1,], 
jjep.49.3.314[1,], 
jjep.49.3.326[1,], 
jjep.49.3.337[1,], 
jjep.49.3.347[1,], 
jjep.49.3.359[1,], 
jjep.49.3.371[1,], 
jjep.49.2.129[1,], 
jjep.49.2.137[1,], 
jjep.49.2.146[1,], 
jjep.49.2.156[1,], 
jjep.49.2.167[1,], 
jjep.49.2.175[1,], 
jjep.49.2.186[1,], 
jjep.49.2.198[1,], 
jjep.49.2.209[1,], 
jjep.49.2.219[1,], 
jjep.49.2.230[1,], 
jjep.49.2.240[1,], 
jjep.49.1.1[1,], 
jjep.49.1.11[1,], 
jjep.49.1.21[1,], 
jjep.49.1.31[1,], 
jjep.49.1.41[1,], 
jjep.49.1.50[1,], 
jjep.49.1.60[1,], 
jjep.49.1.69[1,], 
jjep.49.1.81[1,], 
jjep.49.1.91[1,], 
jjep.49.1.102[1,], 
jjep.49.1.112[1,])
# これは保存
write_csv(jjep.49.65, './JJEP/49_65.csv')

2 アブストを形態素分析してみよう

2.1 20年分のアブスト

https://rpubs.com/koyobib/bm03 で作ったデータもくっつけてみる

jjep.49.65 <- read.csv('./JJEP/49_65.csv')
jjep.66.70 <- read.csv('./JJEP/66_70.csv')
jjep.49.70 <- dplyr::bind_rows(jjep.49.65, jjep.66.70)

2.2 アブストだけをテキストファイルにする

write(jjep.49.70$ab, file = "./JJEP/49_70_ab.txt")

2.3 ここからテキストデータの分析

2.3.1 名詞の頻度

library(RMeCab)
# 名詞に限定して頻度を出し
res.1 <- docDF("./JJEP/49_70_ab.txt", type=1, pos = c("名詞"))

## file_name =  ./JJEP/49_70_ab.txt opened
## number of extracted terms = 5608
## now making a data frame. wait a while!

# 降順で表にする
DT::datatable(res.1[order(res.1[,4],decreasing = TRUE),])

2.3.2 共起とかも見てみる

res.cooc.1 <- NgramDF("./JJEP/49_70_ab.txt", type=1, pos = c("名詞"))

## file = ./JJEP/49_70_ab.txt Ngram = 2

res.cooc.2 <- subset(res.cooc.1, Freq > 1)
DT::datatable(res.cooc.2[order(res.cooc.2[,3],decreasing = TRUE),])

2.3.3 ちょっと工夫したネットワーク図

library(igraph)

## 
## Attaching package: 'igraph'

## The following objects are masked from 'package:dplyr':
## 
##     as_data_frame, groups, union

## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum

## The following object is masked from 'package:base':
## 
##     union

stopword <- c(",", "，", ")", "(", "</", "i", ">＝", ",(", "（<", ",「", ">", ":", ".",
              "～", ";", "/", "I",
              "的", "検討", "性", "こと", "明らか", "，", "これら", "結果", "以上",
              "対象", "調査", "者", "感", "記述", "先行", "研究", "面", "群",
              "の", "よう", "・", "0")
res.cooc.21 <- subset(res.cooc.1,!(Ngram1 %in% stopword) & !(Ngram2 %in% stopword))
res.cooc.21 <- subset(res.cooc.21, Freq > 14)
g2 <- graph.data.frame(res.cooc.21, directed = FALSE)
plot(g2, vertex.size = 3, vertex.label.cex = 1.5, 
     vertex.label.family="HiraKakuProN-W3", 
     vertex.label = V(g2)$name, vertex.color = "yellow")