Bibliometrics_03

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

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

1 和文アブストラクトのデータを作ってみる

1.1 まずは，教育心理学研究から

発行年によってhtmlの構造が違うようだ。困る

ris，bibにアブストが入っていないのが，本当に困る。

2017年(65巻)以前は，またデータの形式の確認からやらないといけないのか…

1.1.1 2018年(66巻)から2022年(70巻)まで

1.1.1.1 データの取得

download.file("https://www.jstage.jst.go.jp/article/jjep/70/4/70_333/_article/download/-char/ja", "./jjep/70_4_333.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/4/70_347/_article/download/-char/ja", "./jjep/70_4_347.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/4/70_362/_article/download/-char/ja", "./jjep/70_4_362.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/4/70_376/_article/download/-char/ja", "./jjep/70_4_376.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/4/70_389/_article/download/-char/ja", "./jjep/70_4_389.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/4/70_404/_article/download/-char/ja", "./jjep/70_4_404.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/4/70_419/_article/download/-char/ja", "./jjep/70_4_419.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/3/70_231/_article/download/-char/ja", "./jjep/70_3_231.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/3/70_246/_article/download/-char/ja", "./jjep/70_3_246.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/3/70_260/_article/download/-char/ja", "./jjep/70_3_260.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/3/70_276/_article/download/-char/ja", "./jjep/70_3_276.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/3/70_290/_article/download/-char/ja", "./jjep/70_3_290.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/3/70_303/_article/download/-char/ja", "./jjep/70_3_303.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/3/70_313/_article/download/-char/ja", "./jjep/70_3_313.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/2/70_117/_article/download/-char/ja", "./jjep/70_2_117.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/2/70_131/_article/download/-char/ja", "./jjep/70_2_131.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/2/70_146/_article/download/-char/ja", "./jjep/70_2_146.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/2/70_163/_article/download/-char/ja", "./jjep/70_2_163.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/2/70_178/_article/download/-char/ja", "./jjep/70_2_178.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/2/70_192/_article/download/-char/ja", "./jjep/70_2_192.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/2/70_205/_article/download/-char/ja", "./jjep/70_2_205.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/1/70_1/_article/download/-char/ja", "./jjep/70_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/1/70_19/_article/download/-char/ja", "./jjep/70_1_19.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/1/70_35/_article/download/-char/ja", "./jjep/70_1_35.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/1/70_48/_article/download/-char/ja", "./jjep/70_1_48.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/1/70_67/_article/download/-char/ja", "./jjep/70_1_67.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/1/70_87/_article/download/-char/ja", "./jjep/70_1_87.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/70/1/70_100/_article/download/-char/ja", "./jjep/70_1_100.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/4/69_339/_article/download/-char/ja", "./jjep/69_4_339.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/4/69_353/_article/download/-char/ja", "./jjep/69_4_353.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/4/69_366/_article/download/-char/ja", "./jjep/69_4_366.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/4/69_382/_article/download/-char/ja", "./jjep/69_4_382.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/4/69_396/_article/download/-char/ja", "./jjep/69_4_396.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/4/69_410/_article/download/-char/ja", "./jjep/69_4_410.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/4/69_421/_article/download/-char/ja", "./jjep/69_4_421.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/3/69_229/_article/download/-char/ja", "./jjep/69_3_229.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/3/69_241/_article/download/-char/ja", "./jjep/69_3_241.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/3/69_254/_article/download/-char/ja", "./jjep/69_3_254.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/3/69_268/_article/download/-char/ja", "./jjep/69_3_268.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/3/69_281/_article/download/-char/ja", "./jjep/69_3_281.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/3/69_297/_article/download/-char/ja", "./jjep/69_3_297.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/3/69_317/_article/download/-char/ja", "./jjep/69_3_317.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/2/69_99/_article/download/-char/ja", "./jjep/69_2_99.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/2/69_116/_article/download/-char/ja", "./jjep/69_2_116.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/2/69_135/_article/download/-char/ja", "./jjep/69_2_135.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/2/69_149/_article/download/-char/ja", "./jjep/69_2_149.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/2/69_158/_article/download/-char/ja", "./jjep/69_2_158.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/2/69_175/_article/download/-char/ja", "./jjep/69_2_175.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/2/69_187/_article/download/-char/ja", "./jjep/69_2_187.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/2/69_204/_article/download/-char/ja", "./jjep/69_2_204.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/1/69_1/_article/download/-char/ja", "./jjep/69_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/1/69_10/_article/download/-char/ja", "./jjep/69_1_10.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/1/69_26/_article/download/-char/ja", "./jjep/69_1_26.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/1/69_37/_article/download/-char/ja", "./jjep/69_1_37.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/1/69_52/_article/download/-char/ja", "./jjep/69_1_52.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/1/69_64/_article/download/-char/ja", "./jjep/69_1_64.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/69/1/69_79/_article/download/-char/ja", "./jjep/69_1_79.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/4/68_339/_article/download/-char/ja", "./jjep/68_4_339.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/4/68_351/_article/download/-char/ja", "./jjep/68_4_351.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/4/68_360/_article/download/-char/ja", "./jjep/68_4_360.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/4/68_373/_article/download/-char/ja", "./jjep/68_4_373.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/4/68_388/_article/download/-char/ja", "./jjep/68_4_388.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/4/68_401/_article/download/-char/ja", "./jjep/68_4_401.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/3/68_237/_article/download/-char/ja", "./jjep/68_3_237.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/3/68_250/_article/download/-char/ja", "./jjep/68_3_250.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/3/68_266/_article/download/-char/ja", "./jjep/68_3_266.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/3/68_279/_article/download/-char/ja", "./jjep/68_3_279.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/3/68_295/_article/download/-char/ja", "./jjep/68_3_295.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/3/68_311/_article/download/-char/ja", "./jjep/68_3_311.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/3/68_322/_article/download/-char/ja", "./jjep/68_3_322.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_111/_article/download/-char/ja", "./jjep/68_2_111.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_122/_article/download/-char/ja", "./jjep/68_2_122.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_134/_article/download/-char/ja", "./jjep/68_2_134.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_147/_article/download/-char/ja", "./jjep/68_2_147.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_160/_article/download/-char/ja", "./jjep/68_2_160.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_174/_article/download/-char/ja", "./jjep/68_2_174.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_185/_article/download/-char/ja", "./jjep/68_2_185.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_202/_article/download/-char/ja", "./jjep/68_2_202.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/2/68_216/_article/download/-char/ja", "./jjep/68_2_216.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/1/68_1/_article/download/-char/ja", "./jjep/68_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/1/68_11/_article/download/-char/ja", "./jjep/68_1_11.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/1/68_23/_article/download/-char/ja", "./jjep/68_1_23.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/1/68_33/_article/download/-char/ja", "./jjep/68_1_33.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/1/68_50/_article/download/-char/ja", "./jjep/68_1_50.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/1/68_66/_article/download/-char/ja", "./jjep/68_1_66.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/1/68_79/_article/download/-char/ja", "./jjep/68_1_79.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/68/1/68_94/_article/download/-char/ja", "./jjep/68_1_94.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/4/67_223/_article/download/-char/ja", "./jjep/67_4_223.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/4/67_236/_article/download/-char/ja", "./jjep/67_4_236.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/4/67_252/_article/download/-char/ja", "./jjep/67_4_252.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/4/67_265/_article/download/-char/ja", "./jjep/67_4_265.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/4/67_278/_article/download/-char/ja", "./jjep/67_4_278.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/4/67_304/_article/download/-char/ja", "./jjep/67_4_304.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/4/67_317/_article/download/-char/ja", "./jjep/67_4_317.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/4/67_330/_article/download/-char/ja", "./jjep/67_4_330.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/3/67_149/_article/download/-char/ja", "./jjep/67_3_149.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/3/67_162/_article/download/-char/ja", "./jjep/67_3_162.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/3/67_175/_article/download/-char/ja", "./jjep/67_3_175.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/3/67_190/_article/download/-char/ja", "./jjep/67_3_190.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/3/67_203/_article/download/-char/ja", "./jjep/67_3_203.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/2/67_73/_article/download/-char/ja", "./jjep/67_2_73.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/2/67_87/_article/download/-char/ja", "./jjep/67_2_87.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/2/67_103/_article/download/-char/ja", "./jjep/67_2_103.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/2/67_118/_article/download/-char/ja", "./jjep/67_2_118.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/2/67_132/_article/download/-char/ja", "./jjep/67_2_132.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/1/67_1/_article/download/-char/ja", "./jjep/67_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/1/67_12/_article/download/-char/ja", "./jjep/67_1_12.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/1/67_26/_article/download/-char/ja", "./jjep/67_1_26.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/1/67_40/_article/download/-char/ja", "./jjep/67_1_40.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/67/1/67_54/_article/download/-char/ja", "./jjep/67_1_54.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/4/66_263/_article/download/-char/ja", "./jjep/66_4_263.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/4/66_276/_article/download/-char/ja", "./jjep/66_4_276.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/4/66_287/_article/download/-char/ja", "./jjep/66_4_287.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/4/66_300/_article/download/-char/ja", "./jjep/66_4_300.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/4/66_313/_article/download/-char/ja", "./jjep/66_4_313.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/3/66_185/_article/download/-char/ja", "./jjep/66_3_185.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/3/66_199/_article/download/-char/ja", "./jjep/66_3_199.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/3/66_212/_article/download/-char/ja", "./jjep/66_3_212.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/3/66_225/_article/download/-char/ja", "./jjep/66_3_225.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/3/66_241/_article/download/-char/ja", "./jjep/66_3_241.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/2/66_111/_article/download/-char/ja", "./jjep/66_2_111.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/2/66_127/_article/download/-char/ja", "./jjep/66_2_127.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/2/66_136/_article/download/-char/ja", "./jjep/66_2_136.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/2/66_150/_article/download/-char/ja", "./jjep/66_2_150.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/2/66_162/_article/download/-char/ja", "./jjep/66_2_162.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/1/66_1/_article/download/-char/ja", "./jjep/66_1_1.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/1/66_14/_article/download/-char/ja", "./jjep/66_1_14.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/1/66_28/_article/download/-char/ja", "./jjep/66_1_28.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/1/66_42/_article/download/-char/ja", "./jjep/66_1_42.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/1/66_54/_article/download/-char/ja", "./jjep/66_1_54.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/1/66_67/_article/download/-char/ja", "./jjep/66_1_67.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/1/66_81/_article/download/-char/ja", "./jjep/66_1_81.txt")
download.file("https://www.jstage.jst.go.jp/article/jjep/66/1/66_95/_article/download/-char/ja", "./jjep/66_1_95.txt")

1.1.1.2 データの整形

1.1.1.2.1 変数名を付ける

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

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

# 著者名の前: 削除
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.03 <- c("</p><!---->\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.1.1.2.3 整形する

jjep.70.4.333.tx <- readr::read_file(file="./jjep/70_4_333.txt"); jjep.70.4.333.rm00 <- jjep.70.4.333.tx; jjep.70.4.333.rm01 <- str_replace_all(jjep.70.4.333.rm00, pattern = rm.01, replacement = ""); jjep.70.4.333.rm02 <- str_replace_all(jjep.70.4.333.rm01, pattern = rm.02, replacement = ""); jjep.70.4.333.rm03 <- str_replace_all(jjep.70.4.333.rm02, pattern = rm.03, replacement = ""); jjep.70.4.333.rm04 <- str_replace_all(jjep.70.4.333.rm03, pattern = rm.04, replacement = ""); jjep.70.4.333.rm05 <- str_replace_all(jjep.70.4.333.rm04, pattern = rm.05, replacement = ""); jjep.70.4.333.rm06 <- str_replace_all(jjep.70.4.333.rm05, pattern = rm.06, replacement = ""); jjep.70.4.333.rm07 <- str_replace_all(jjep.70.4.333.rm06, pattern = rm.07, replacement = ""); jjep.70.4.333.rm08 <- str_replace_all(jjep.70.4.333.rm07, pattern = rm.08, replacement = ""); jjep.70.4.333.rm09 <- str_replace_all(jjep.70.4.333.rm08, pattern = rm.09, replacement = ""); jjep.70.4.333.rp10 <- str_replace_all(jjep.70.4.333.rm09, pattern = rp.01, replacement = "・"); jjep.70.4.333.rp11 <- str_replace_all(jjep.70.4.333.rp10, pattern = rp.02, replacement = ","); jjep.70.4.333.rp12 <- str_replace_all(jjep.70.4.333.rp11, pattern = rp.03, replacement = ","); jjep.70.4.333.rp13 <- str_replace_all(jjep.70.4.333.rp12, pattern = rp.04, replacement = ","); jjep.70.4.333.rp14 <- str_replace_all(jjep.70.4.333.rp13, pattern = rp.05, replacement = ","); jjep.70.4.333.rp15 <- str_replace_all(jjep.70.4.333.rp14, pattern = rp.06, replacement = ","); jjep.70.4.333.mod <- rbind(varname,jjep.70.4.333.rp15); write(jjep.70.4.333.mod, file = "./jjep/Mod_70_4_333.txt")
jjep.70.4.347.tx <- readr::read_file(file="./jjep/70_4_347.txt"); jjep.70.4.347.rm00 <- jjep.70.4.347.tx; jjep.70.4.347.rm01 <- str_replace_all(jjep.70.4.347.rm00, pattern = rm.01, replacement = ""); jjep.70.4.347.rm02 <- str_replace_all(jjep.70.4.347.rm01, pattern = rm.02, replacement = ""); jjep.70.4.347.rm03 <- str_replace_all(jjep.70.4.347.rm02, pattern = rm.03, replacement = ""); jjep.70.4.347.rm04 <- str_replace_all(jjep.70.4.347.rm03, pattern = rm.04, replacement = ""); jjep.70.4.347.rm05 <- str_replace_all(jjep.70.4.347.rm04, pattern = rm.05, replacement = ""); jjep.70.4.347.rm06 <- str_replace_all(jjep.70.4.347.rm05, pattern = rm.06, replacement = ""); jjep.70.4.347.rm07 <- str_replace_all(jjep.70.4.347.rm06, pattern = rm.07, replacement = ""); jjep.70.4.347.rm08 <- str_replace_all(jjep.70.4.347.rm07, pattern = rm.08, replacement = ""); jjep.70.4.347.rm09 <- str_replace_all(jjep.70.4.347.rm08, pattern = rm.09, replacement = ""); jjep.70.4.347.rp10 <- str_replace_all(jjep.70.4.347.rm09, pattern = rp.01, replacement = "・"); jjep.70.4.347.rp11 <- str_replace_all(jjep.70.4.347.rp10, pattern = rp.02, replacement = ","); jjep.70.4.347.rp12 <- str_replace_all(jjep.70.4.347.rp11, pattern = rp.03, replacement = ","); jjep.70.4.347.rp13 <- str_replace_all(jjep.70.4.347.rp12, pattern = rp.04, replacement = ","); jjep.70.4.347.rp14 <- str_replace_all(jjep.70.4.347.rp13, pattern = rp.05, replacement = ","); jjep.70.4.347.rp15 <- str_replace_all(jjep.70.4.347.rp14, pattern = rp.06, replacement = ","); jjep.70.4.347.mod <- rbind(varname,jjep.70.4.347.rp15); write(jjep.70.4.347.mod, file = "./jjep/Mod_70_4_347.txt")
jjep.70.4.362.tx <- readr::read_file(file="./jjep/70_4_362.txt"); jjep.70.4.362.rm00 <- jjep.70.4.362.tx; jjep.70.4.362.rm01 <- str_replace_all(jjep.70.4.362.rm00, pattern = rm.01, replacement = ""); jjep.70.4.362.rm02 <- str_replace_all(jjep.70.4.362.rm01, pattern = rm.02, replacement = ""); jjep.70.4.362.rm03 <- str_replace_all(jjep.70.4.362.rm02, pattern = rm.03, replacement = ""); jjep.70.4.362.rm04 <- str_replace_all(jjep.70.4.362.rm03, pattern = rm.04, replacement = ""); jjep.70.4.362.rm05 <- str_replace_all(jjep.70.4.362.rm04, pattern = rm.05, replacement = ""); jjep.70.4.362.rm06 <- str_replace_all(jjep.70.4.362.rm05, pattern = rm.06, replacement = ""); jjep.70.4.362.rm07 <- str_replace_all(jjep.70.4.362.rm06, pattern = rm.07, replacement = ""); jjep.70.4.362.rm08 <- str_replace_all(jjep.70.4.362.rm07, pattern = rm.08, replacement = ""); jjep.70.4.362.rm09 <- str_replace_all(jjep.70.4.362.rm08, pattern = rm.09, replacement = ""); jjep.70.4.362.rp10 <- str_replace_all(jjep.70.4.362.rm09, pattern = rp.01, replacement = "・"); jjep.70.4.362.rp11 <- str_replace_all(jjep.70.4.362.rp10, pattern = rp.02, replacement = ","); jjep.70.4.362.rp12 <- str_replace_all(jjep.70.4.362.rp11, pattern = rp.03, replacement = ","); jjep.70.4.362.rp13 <- str_replace_all(jjep.70.4.362.rp12, pattern = rp.04, replacement = ","); jjep.70.4.362.rp14 <- str_replace_all(jjep.70.4.362.rp13, pattern = rp.05, replacement = ","); jjep.70.4.362.rp15 <- str_replace_all(jjep.70.4.362.rp14, pattern = rp.06, replacement = ","); jjep.70.4.362.mod <- rbind(varname,jjep.70.4.362.rp15); write(jjep.70.4.362.mod, file = "./jjep/Mod_70_4_362.txt")
jjep.70.4.376.tx <- readr::read_file(file="./jjep/70_4_376.txt"); jjep.70.4.376.rm00 <- jjep.70.4.376.tx; jjep.70.4.376.rm01 <- str_replace_all(jjep.70.4.376.rm00, pattern = rm.01, replacement = ""); jjep.70.4.376.rm02 <- str_replace_all(jjep.70.4.376.rm01, pattern = rm.02, replacement = ""); jjep.70.4.376.rm03 <- str_replace_all(jjep.70.4.376.rm02, pattern = rm.03, replacement = ""); jjep.70.4.376.rm04 <- str_replace_all(jjep.70.4.376.rm03, pattern = rm.04, replacement = ""); jjep.70.4.376.rm05 <- str_replace_all(jjep.70.4.376.rm04, pattern = rm.05, replacement = ""); jjep.70.4.376.rm06 <- str_replace_all(jjep.70.4.376.rm05, pattern = rm.06, replacement = ""); jjep.70.4.376.rm07 <- str_replace_all(jjep.70.4.376.rm06, pattern = rm.07, replacement = ""); jjep.70.4.376.rm08 <- str_replace_all(jjep.70.4.376.rm07, pattern = rm.08, replacement = ""); jjep.70.4.376.rm09 <- str_replace_all(jjep.70.4.376.rm08, pattern = rm.09, replacement = ""); jjep.70.4.376.rp10 <- str_replace_all(jjep.70.4.376.rm09, pattern = rp.01, replacement = "・"); jjep.70.4.376.rp11 <- str_replace_all(jjep.70.4.376.rp10, pattern = rp.02, replacement = ","); jjep.70.4.376.rp12 <- str_replace_all(jjep.70.4.376.rp11, pattern = rp.03, replacement = ","); jjep.70.4.376.rp13 <- str_replace_all(jjep.70.4.376.rp12, pattern = rp.04, replacement = ","); jjep.70.4.376.rp14 <- str_replace_all(jjep.70.4.376.rp13, pattern = rp.05, replacement = ","); jjep.70.4.376.rp15 <- str_replace_all(jjep.70.4.376.rp14, pattern = rp.06, replacement = ","); jjep.70.4.376.mod <- rbind(varname,jjep.70.4.376.rp15); write(jjep.70.4.376.mod, file = "./jjep/Mod_70_4_376.txt")
jjep.70.4.389.tx <- readr::read_file(file="./jjep/70_4_389.txt"); jjep.70.4.389.rm00 <- jjep.70.4.389.tx; jjep.70.4.389.rm01 <- str_replace_all(jjep.70.4.389.rm00, pattern = rm.01, replacement = ""); jjep.70.4.389.rm02 <- str_replace_all(jjep.70.4.389.rm01, pattern = rm.02, replacement = ""); jjep.70.4.389.rm03 <- str_replace_all(jjep.70.4.389.rm02, pattern = rm.03, replacement = ""); jjep.70.4.389.rm04 <- str_replace_all(jjep.70.4.389.rm03, pattern = rm.04, replacement = ""); jjep.70.4.389.rm05 <- str_replace_all(jjep.70.4.389.rm04, pattern = rm.05, replacement = ""); jjep.70.4.389.rm06 <- str_replace_all(jjep.70.4.389.rm05, pattern = rm.06, replacement = ""); jjep.70.4.389.rm07 <- str_replace_all(jjep.70.4.389.rm06, pattern = rm.07, replacement = ""); jjep.70.4.389.rm08 <- str_replace_all(jjep.70.4.389.rm07, pattern = rm.08, replacement = ""); jjep.70.4.389.rm09 <- str_replace_all(jjep.70.4.389.rm08, pattern = rm.09, replacement = ""); jjep.70.4.389.rp10 <- str_replace_all(jjep.70.4.389.rm09, pattern = rp.01, replacement = "・"); jjep.70.4.389.rp11 <- str_replace_all(jjep.70.4.389.rp10, pattern = rp.02, replacement = ","); jjep.70.4.389.rp12 <- str_replace_all(jjep.70.4.389.rp11, pattern = rp.03, replacement = ","); jjep.70.4.389.rp13 <- str_replace_all(jjep.70.4.389.rp12, pattern = rp.04, replacement = ","); jjep.70.4.389.rp14 <- str_replace_all(jjep.70.4.389.rp13, pattern = rp.05, replacement = ","); jjep.70.4.389.rp15 <- str_replace_all(jjep.70.4.389.rp14, pattern = rp.06, replacement = ","); jjep.70.4.389.mod <- rbind(varname,jjep.70.4.389.rp15); write(jjep.70.4.389.mod, file = "./jjep/Mod_70_4_389.txt")
jjep.70.4.404.tx <- readr::read_file(file="./jjep/70_4_404.txt"); jjep.70.4.404.rm00 <- jjep.70.4.404.tx; jjep.70.4.404.rm01 <- str_replace_all(jjep.70.4.404.rm00, pattern = rm.01, replacement = ""); jjep.70.4.404.rm02 <- str_replace_all(jjep.70.4.404.rm01, pattern = rm.02, replacement = ""); jjep.70.4.404.rm03 <- str_replace_all(jjep.70.4.404.rm02, pattern = rm.03, replacement = ""); jjep.70.4.404.rm04 <- str_replace_all(jjep.70.4.404.rm03, pattern = rm.04, replacement = ""); jjep.70.4.404.rm05 <- str_replace_all(jjep.70.4.404.rm04, pattern = rm.05, replacement = ""); jjep.70.4.404.rm06 <- str_replace_all(jjep.70.4.404.rm05, pattern = rm.06, replacement = ""); jjep.70.4.404.rm07 <- str_replace_all(jjep.70.4.404.rm06, pattern = rm.07, replacement = ""); jjep.70.4.404.rm08 <- str_replace_all(jjep.70.4.404.rm07, pattern = rm.08, replacement = ""); jjep.70.4.404.rm09 <- str_replace_all(jjep.70.4.404.rm08, pattern = rm.09, replacement = ""); jjep.70.4.404.rp10 <- str_replace_all(jjep.70.4.404.rm09, pattern = rp.01, replacement = "・"); jjep.70.4.404.rp11 <- str_replace_all(jjep.70.4.404.rp10, pattern = rp.02, replacement = ","); jjep.70.4.404.rp12 <- str_replace_all(jjep.70.4.404.rp11, pattern = rp.03, replacement = ","); jjep.70.4.404.rp13 <- str_replace_all(jjep.70.4.404.rp12, pattern = rp.04, replacement = ","); jjep.70.4.404.rp14 <- str_replace_all(jjep.70.4.404.rp13, pattern = rp.05, replacement = ","); jjep.70.4.404.rp15 <- str_replace_all(jjep.70.4.404.rp14, pattern = rp.06, replacement = ","); jjep.70.4.404.mod <- rbind(varname,jjep.70.4.404.rp15); write(jjep.70.4.404.mod, file = "./jjep/Mod_70_4_404.txt")
jjep.70.4.419.tx <- readr::read_file(file="./jjep/70_4_419.txt"); jjep.70.4.419.rm00 <- jjep.70.4.419.tx; jjep.70.4.419.rm01 <- str_replace_all(jjep.70.4.419.rm00, pattern = rm.01, replacement = ""); jjep.70.4.419.rm02 <- str_replace_all(jjep.70.4.419.rm01, pattern = rm.02, replacement = ""); jjep.70.4.419.rm03 <- str_replace_all(jjep.70.4.419.rm02, pattern = rm.03, replacement = ""); jjep.70.4.419.rm04 <- str_replace_all(jjep.70.4.419.rm03, pattern = rm.04, replacement = ""); jjep.70.4.419.rm05 <- str_replace_all(jjep.70.4.419.rm04, pattern = rm.05, replacement = ""); jjep.70.4.419.rm06 <- str_replace_all(jjep.70.4.419.rm05, pattern = rm.06, replacement = ""); jjep.70.4.419.rm07 <- str_replace_all(jjep.70.4.419.rm06, pattern = rm.07, replacement = ""); jjep.70.4.419.rm08 <- str_replace_all(jjep.70.4.419.rm07, pattern = rm.08, replacement = ""); jjep.70.4.419.rm09 <- str_replace_all(jjep.70.4.419.rm08, pattern = rm.09, replacement = ""); jjep.70.4.419.rp10 <- str_replace_all(jjep.70.4.419.rm09, pattern = rp.01, replacement = "・"); jjep.70.4.419.rp11 <- str_replace_all(jjep.70.4.419.rp10, pattern = rp.02, replacement = ","); jjep.70.4.419.rp12 <- str_replace_all(jjep.70.4.419.rp11, pattern = rp.03, replacement = ","); jjep.70.4.419.rp13 <- str_replace_all(jjep.70.4.419.rp12, pattern = rp.04, replacement = ","); jjep.70.4.419.rp14 <- str_replace_all(jjep.70.4.419.rp13, pattern = rp.05, replacement = ","); jjep.70.4.419.rp15 <- str_replace_all(jjep.70.4.419.rp14, pattern = rp.06, replacement = ","); jjep.70.4.419.mod <- rbind(varname,jjep.70.4.419.rp15); write(jjep.70.4.419.mod, file = "./jjep/Mod_70_4_419.txt")
jjep.70.3.231.tx <- readr::read_file(file="./jjep/70_3_231.txt"); jjep.70.3.231.rm00 <- jjep.70.3.231.tx; jjep.70.3.231.rm01 <- str_replace_all(jjep.70.3.231.rm00, pattern = rm.01, replacement = ""); jjep.70.3.231.rm02 <- str_replace_all(jjep.70.3.231.rm01, pattern = rm.02, replacement = ""); jjep.70.3.231.rm03 <- str_replace_all(jjep.70.3.231.rm02, pattern = rm.03, replacement = ""); jjep.70.3.231.rm04 <- str_replace_all(jjep.70.3.231.rm03, pattern = rm.04, replacement = ""); jjep.70.3.231.rm05 <- str_replace_all(jjep.70.3.231.rm04, pattern = rm.05, replacement = ""); jjep.70.3.231.rm06 <- str_replace_all(jjep.70.3.231.rm05, pattern = rm.06, replacement = ""); jjep.70.3.231.rm07 <- str_replace_all(jjep.70.3.231.rm06, pattern = rm.07, replacement = ""); jjep.70.3.231.rm08 <- str_replace_all(jjep.70.3.231.rm07, pattern = rm.08, replacement = ""); jjep.70.3.231.rm09 <- str_replace_all(jjep.70.3.231.rm08, pattern = rm.09, replacement = ""); jjep.70.3.231.rp10 <- str_replace_all(jjep.70.3.231.rm09, pattern = rp.01, replacement = "・"); jjep.70.3.231.rp11 <- str_replace_all(jjep.70.3.231.rp10, pattern = rp.02, replacement = ","); jjep.70.3.231.rp12 <- str_replace_all(jjep.70.3.231.rp11, pattern = rp.03, replacement = ","); jjep.70.3.231.rp13 <- str_replace_all(jjep.70.3.231.rp12, pattern = rp.04, replacement = ","); jjep.70.3.231.rp14 <- str_replace_all(jjep.70.3.231.rp13, pattern = rp.05, replacement = ","); jjep.70.3.231.rp15 <- str_replace_all(jjep.70.3.231.rp14, pattern = rp.06, replacement = ","); jjep.70.3.231.mod <- rbind(varname,jjep.70.3.231.rp15); write(jjep.70.3.231.mod, file = "./jjep/Mod_70_3_231.txt")
jjep.70.3.246.tx <- readr::read_file(file="./jjep/70_3_246.txt"); jjep.70.3.246.rm00 <- jjep.70.3.246.tx; jjep.70.3.246.rm01 <- str_replace_all(jjep.70.3.246.rm00, pattern = rm.01, replacement = ""); jjep.70.3.246.rm02 <- str_replace_all(jjep.70.3.246.rm01, pattern = rm.02, replacement = ""); jjep.70.3.246.rm03 <- str_replace_all(jjep.70.3.246.rm02, pattern = rm.03, replacement = ""); jjep.70.3.246.rm04 <- str_replace_all(jjep.70.3.246.rm03, pattern = rm.04, replacement = ""); jjep.70.3.246.rm05 <- str_replace_all(jjep.70.3.246.rm04, pattern = rm.05, replacement = ""); jjep.70.3.246.rm06 <- str_replace_all(jjep.70.3.246.rm05, pattern = rm.06, replacement = ""); jjep.70.3.246.rm07 <- str_replace_all(jjep.70.3.246.rm06, pattern = rm.07, replacement = ""); jjep.70.3.246.rm08 <- str_replace_all(jjep.70.3.246.rm07, pattern = rm.08, replacement = ""); jjep.70.3.246.rm09 <- str_replace_all(jjep.70.3.246.rm08, pattern = rm.09, replacement = ""); jjep.70.3.246.rp10 <- str_replace_all(jjep.70.3.246.rm09, pattern = rp.01, replacement = "・"); jjep.70.3.246.rp11 <- str_replace_all(jjep.70.3.246.rp10, pattern = rp.02, replacement = ","); jjep.70.3.246.rp12 <- str_replace_all(jjep.70.3.246.rp11, pattern = rp.03, replacement = ","); jjep.70.3.246.rp13 <- str_replace_all(jjep.70.3.246.rp12, pattern = rp.04, replacement = ","); jjep.70.3.246.rp14 <- str_replace_all(jjep.70.3.246.rp13, pattern = rp.05, replacement = ","); jjep.70.3.246.rp15 <- str_replace_all(jjep.70.3.246.rp14, pattern = rp.06, replacement = ","); jjep.70.3.246.mod <- rbind(varname,jjep.70.3.246.rp15); write(jjep.70.3.246.mod, file = "./jjep/Mod_70_3_246.txt")
jjep.70.3.260.tx <- readr::read_file(file="./jjep/70_3_260.txt"); jjep.70.3.260.rm00 <- jjep.70.3.260.tx; jjep.70.3.260.rm01 <- str_replace_all(jjep.70.3.260.rm00, pattern = rm.01, replacement = ""); jjep.70.3.260.rm02 <- str_replace_all(jjep.70.3.260.rm01, pattern = rm.02, replacement = ""); jjep.70.3.260.rm03 <- str_replace_all(jjep.70.3.260.rm02, pattern = rm.03, replacement = ""); jjep.70.3.260.rm04 <- str_replace_all(jjep.70.3.260.rm03, pattern = rm.04, replacement = ""); jjep.70.3.260.rm05 <- str_replace_all(jjep.70.3.260.rm04, pattern = rm.05, replacement = ""); jjep.70.3.260.rm06 <- str_replace_all(jjep.70.3.260.rm05, pattern = rm.06, replacement = ""); jjep.70.3.260.rm07 <- str_replace_all(jjep.70.3.260.rm06, pattern = rm.07, replacement = ""); jjep.70.3.260.rm08 <- str_replace_all(jjep.70.3.260.rm07, pattern = rm.08, replacement = ""); jjep.70.3.260.rm09 <- str_replace_all(jjep.70.3.260.rm08, pattern = rm.09, replacement = ""); jjep.70.3.260.rp10 <- str_replace_all(jjep.70.3.260.rm09, pattern = rp.01, replacement = "・"); jjep.70.3.260.rp11 <- str_replace_all(jjep.70.3.260.rp10, pattern = rp.02, replacement = ","); jjep.70.3.260.rp12 <- str_replace_all(jjep.70.3.260.rp11, pattern = rp.03, replacement = ","); jjep.70.3.260.rp13 <- str_replace_all(jjep.70.3.260.rp12, pattern = rp.04, replacement = ","); jjep.70.3.260.rp14 <- str_replace_all(jjep.70.3.260.rp13, pattern = rp.05, replacement = ","); jjep.70.3.260.rp15 <- str_replace_all(jjep.70.3.260.rp14, pattern = rp.06, replacement = ","); jjep.70.3.260.mod <- rbind(varname,jjep.70.3.260.rp15); write(jjep.70.3.260.mod, file = "./jjep/Mod_70_3_260.txt")
jjep.70.3.276.tx <- readr::read_file(file="./jjep/70_3_276.txt"); jjep.70.3.276.rm00 <- jjep.70.3.276.tx; jjep.70.3.276.rm01 <- str_replace_all(jjep.70.3.276.rm00, pattern = rm.01, replacement = ""); jjep.70.3.276.rm02 <- str_replace_all(jjep.70.3.276.rm01, pattern = rm.02, replacement = ""); jjep.70.3.276.rm03 <- str_replace_all(jjep.70.3.276.rm02, pattern = rm.03, replacement = ""); jjep.70.3.276.rm04 <- str_replace_all(jjep.70.3.276.rm03, pattern = rm.04, replacement = ""); jjep.70.3.276.rm05 <- str_replace_all(jjep.70.3.276.rm04, pattern = rm.05, replacement = ""); jjep.70.3.276.rm06 <- str_replace_all(jjep.70.3.276.rm05, pattern = rm.06, replacement = ""); jjep.70.3.276.rm07 <- str_replace_all(jjep.70.3.276.rm06, pattern = rm.07, replacement = ""); jjep.70.3.276.rm08 <- str_replace_all(jjep.70.3.276.rm07, pattern = rm.08, replacement = ""); jjep.70.3.276.rm09 <- str_replace_all(jjep.70.3.276.rm08, pattern = rm.09, replacement = ""); jjep.70.3.276.rp10 <- str_replace_all(jjep.70.3.276.rm09, pattern = rp.01, replacement = "・"); jjep.70.3.276.rp11 <- str_replace_all(jjep.70.3.276.rp10, pattern = rp.02, replacement = ","); jjep.70.3.276.rp12 <- str_replace_all(jjep.70.3.276.rp11, pattern = rp.03, replacement = ","); jjep.70.3.276.rp13 <- str_replace_all(jjep.70.3.276.rp12, pattern = rp.04, replacement = ","); jjep.70.3.276.rp14 <- str_replace_all(jjep.70.3.276.rp13, pattern = rp.05, replacement = ","); jjep.70.3.276.rp15 <- str_replace_all(jjep.70.3.276.rp14, pattern = rp.06, replacement = ","); jjep.70.3.276.mod <- rbind(varname,jjep.70.3.276.rp15); write(jjep.70.3.276.mod, file = "./jjep/Mod_70_3_276.txt")
jjep.70.3.290.tx <- readr::read_file(file="./jjep/70_3_290.txt"); jjep.70.3.290.rm00 <- jjep.70.3.290.tx; jjep.70.3.290.rm01 <- str_replace_all(jjep.70.3.290.rm00, pattern = rm.01, replacement = ""); jjep.70.3.290.rm02 <- str_replace_all(jjep.70.3.290.rm01, pattern = rm.02, replacement = ""); jjep.70.3.290.rm03 <- str_replace_all(jjep.70.3.290.rm02, pattern = rm.03, replacement = ""); jjep.70.3.290.rm04 <- str_replace_all(jjep.70.3.290.rm03, pattern = rm.04, replacement = ""); jjep.70.3.290.rm05 <- str_replace_all(jjep.70.3.290.rm04, pattern = rm.05, replacement = ""); jjep.70.3.290.rm06 <- str_replace_all(jjep.70.3.290.rm05, pattern = rm.06, replacement = ""); jjep.70.3.290.rm07 <- str_replace_all(jjep.70.3.290.rm06, pattern = rm.07, replacement = ""); jjep.70.3.290.rm08 <- str_replace_all(jjep.70.3.290.rm07, pattern = rm.08, replacement = ""); jjep.70.3.290.rm09 <- str_replace_all(jjep.70.3.290.rm08, pattern = rm.09, replacement = ""); jjep.70.3.290.rp10 <- str_replace_all(jjep.70.3.290.rm09, pattern = rp.01, replacement = "・"); jjep.70.3.290.rp11 <- str_replace_all(jjep.70.3.290.rp10, pattern = rp.02, replacement = ","); jjep.70.3.290.rp12 <- str_replace_all(jjep.70.3.290.rp11, pattern = rp.03, replacement = ","); jjep.70.3.290.rp13 <- str_replace_all(jjep.70.3.290.rp12, pattern = rp.04, replacement = ","); jjep.70.3.290.rp14 <- str_replace_all(jjep.70.3.290.rp13, pattern = rp.05, replacement = ","); jjep.70.3.290.rp15 <- str_replace_all(jjep.70.3.290.rp14, pattern = rp.06, replacement = ","); jjep.70.3.290.mod <- rbind(varname,jjep.70.3.290.rp15); write(jjep.70.3.290.mod, file = "./jjep/Mod_70_3_290.txt")
jjep.70.3.303.tx <- readr::read_file(file="./jjep/70_3_303.txt"); jjep.70.3.303.rm00 <- jjep.70.3.303.tx; jjep.70.3.303.rm01 <- str_replace_all(jjep.70.3.303.rm00, pattern = rm.01, replacement = ""); jjep.70.3.303.rm02 <- str_replace_all(jjep.70.3.303.rm01, pattern = rm.02, replacement = ""); jjep.70.3.303.rm03 <- str_replace_all(jjep.70.3.303.rm02, pattern = rm.03, replacement = ""); jjep.70.3.303.rm04 <- str_replace_all(jjep.70.3.303.rm03, pattern = rm.04, replacement = ""); jjep.70.3.303.rm05 <- str_replace_all(jjep.70.3.303.rm04, pattern = rm.05, replacement = ""); jjep.70.3.303.rm06 <- str_replace_all(jjep.70.3.303.rm05, pattern = rm.06, replacement = ""); jjep.70.3.303.rm07 <- str_replace_all(jjep.70.3.303.rm06, pattern = rm.07, replacement = ""); jjep.70.3.303.rm08 <- str_replace_all(jjep.70.3.303.rm07, pattern = rm.08, replacement = ""); jjep.70.3.303.rm09 <- str_replace_all(jjep.70.3.303.rm08, pattern = rm.09, replacement = ""); jjep.70.3.303.rp10 <- str_replace_all(jjep.70.3.303.rm09, pattern = rp.01, replacement = "・"); jjep.70.3.303.rp11 <- str_replace_all(jjep.70.3.303.rp10, pattern = rp.02, replacement = ","); jjep.70.3.303.rp12 <- str_replace_all(jjep.70.3.303.rp11, pattern = rp.03, replacement = ","); jjep.70.3.303.rp13 <- str_replace_all(jjep.70.3.303.rp12, pattern = rp.04, replacement = ","); jjep.70.3.303.rp14 <- str_replace_all(jjep.70.3.303.rp13, pattern = rp.05, replacement = ","); jjep.70.3.303.rp15 <- str_replace_all(jjep.70.3.303.rp14, pattern = rp.06, replacement = ","); jjep.70.3.303.mod <- rbind(varname,jjep.70.3.303.rp15); write(jjep.70.3.303.mod, file = "./jjep/Mod_70_3_303.txt")
jjep.70.3.313.tx <- readr::read_file(file="./jjep/70_3_313.txt"); jjep.70.3.313.rm00 <- jjep.70.3.313.tx; jjep.70.3.313.rm01 <- str_replace_all(jjep.70.3.313.rm00, pattern = rm.01, replacement = ""); jjep.70.3.313.rm02 <- str_replace_all(jjep.70.3.313.rm01, pattern = rm.02, replacement = ""); jjep.70.3.313.rm03 <- str_replace_all(jjep.70.3.313.rm02, pattern = rm.03, replacement = ""); jjep.70.3.313.rm04 <- str_replace_all(jjep.70.3.313.rm03, pattern = rm.04, replacement = ""); jjep.70.3.313.rm05 <- str_replace_all(jjep.70.3.313.rm04, pattern = rm.05, replacement = ""); jjep.70.3.313.rm06 <- str_replace_all(jjep.70.3.313.rm05, pattern = rm.06, replacement = ""); jjep.70.3.313.rm07 <- str_replace_all(jjep.70.3.313.rm06, pattern = rm.07, replacement = ""); jjep.70.3.313.rm08 <- str_replace_all(jjep.70.3.313.rm07, pattern = rm.08, replacement = ""); jjep.70.3.313.rm09 <- str_replace_all(jjep.70.3.313.rm08, pattern = rm.09, replacement = ""); jjep.70.3.313.rp10 <- str_replace_all(jjep.70.3.313.rm09, pattern = rp.01, replacement = "・"); jjep.70.3.313.rp11 <- str_replace_all(jjep.70.3.313.rp10, pattern = rp.02, replacement = ","); jjep.70.3.313.rp12 <- str_replace_all(jjep.70.3.313.rp11, pattern = rp.03, replacement = ","); jjep.70.3.313.rp13 <- str_replace_all(jjep.70.3.313.rp12, pattern = rp.04, replacement = ","); jjep.70.3.313.rp14 <- str_replace_all(jjep.70.3.313.rp13, pattern = rp.05, replacement = ","); jjep.70.3.313.rp15 <- str_replace_all(jjep.70.3.313.rp14, pattern = rp.06, replacement = ","); jjep.70.3.313.mod <- rbind(varname,jjep.70.3.313.rp15); write(jjep.70.3.313.mod, file = "./jjep/Mod_70_3_313.txt")
jjep.70.2.117.tx <- readr::read_file(file="./jjep/70_2_117.txt"); jjep.70.2.117.rm00 <- jjep.70.2.117.tx; jjep.70.2.117.rm01 <- str_replace_all(jjep.70.2.117.rm00, pattern = rm.01, replacement = ""); jjep.70.2.117.rm02 <- str_replace_all(jjep.70.2.117.rm01, pattern = rm.02, replacement = ""); jjep.70.2.117.rm03 <- str_replace_all(jjep.70.2.117.rm02, pattern = rm.03, replacement = ""); jjep.70.2.117.rm04 <- str_replace_all(jjep.70.2.117.rm03, pattern = rm.04, replacement = ""); jjep.70.2.117.rm05 <- str_replace_all(jjep.70.2.117.rm04, pattern = rm.05, replacement = ""); jjep.70.2.117.rm06 <- str_replace_all(jjep.70.2.117.rm05, pattern = rm.06, replacement = ""); jjep.70.2.117.rm07 <- str_replace_all(jjep.70.2.117.rm06, pattern = rm.07, replacement = ""); jjep.70.2.117.rm08 <- str_replace_all(jjep.70.2.117.rm07, pattern = rm.08, replacement = ""); jjep.70.2.117.rm09 <- str_replace_all(jjep.70.2.117.rm08, pattern = rm.09, replacement = ""); jjep.70.2.117.rp10 <- str_replace_all(jjep.70.2.117.rm09, pattern = rp.01, replacement = "・"); jjep.70.2.117.rp11 <- str_replace_all(jjep.70.2.117.rp10, pattern = rp.02, replacement = ","); jjep.70.2.117.rp12 <- str_replace_all(jjep.70.2.117.rp11, pattern = rp.03, replacement = ","); jjep.70.2.117.rp13 <- str_replace_all(jjep.70.2.117.rp12, pattern = rp.04, replacement = ","); jjep.70.2.117.rp14 <- str_replace_all(jjep.70.2.117.rp13, pattern = rp.05, replacement = ","); jjep.70.2.117.rp15 <- str_replace_all(jjep.70.2.117.rp14, pattern = rp.06, replacement = ","); jjep.70.2.117.mod <- rbind(varname,jjep.70.2.117.rp15); write(jjep.70.2.117.mod, file = "./jjep/Mod_70_2_117.txt")
jjep.70.2.131.tx <- readr::read_file(file="./jjep/70_2_131.txt"); jjep.70.2.131.rm00 <- jjep.70.2.131.tx; jjep.70.2.131.rm01 <- str_replace_all(jjep.70.2.131.rm00, pattern = rm.01, replacement = ""); jjep.70.2.131.rm02 <- str_replace_all(jjep.70.2.131.rm01, pattern = rm.02, replacement = ""); jjep.70.2.131.rm03 <- str_replace_all(jjep.70.2.131.rm02, pattern = rm.03, replacement = ""); jjep.70.2.131.rm04 <- str_replace_all(jjep.70.2.131.rm03, pattern = rm.04, replacement = ""); jjep.70.2.131.rm05 <- str_replace_all(jjep.70.2.131.rm04, pattern = rm.05, replacement = ""); jjep.70.2.131.rm06 <- str_replace_all(jjep.70.2.131.rm05, pattern = rm.06, replacement = ""); jjep.70.2.131.rm07 <- str_replace_all(jjep.70.2.131.rm06, pattern = rm.07, replacement = ""); jjep.70.2.131.rm08 <- str_replace_all(jjep.70.2.131.rm07, pattern = rm.08, replacement = ""); jjep.70.2.131.rm09 <- str_replace_all(jjep.70.2.131.rm08, pattern = rm.09, replacement = ""); jjep.70.2.131.rp10 <- str_replace_all(jjep.70.2.131.rm09, pattern = rp.01, replacement = "・"); jjep.70.2.131.rp11 <- str_replace_all(jjep.70.2.131.rp10, pattern = rp.02, replacement = ","); jjep.70.2.131.rp12 <- str_replace_all(jjep.70.2.131.rp11, pattern = rp.03, replacement = ","); jjep.70.2.131.rp13 <- str_replace_all(jjep.70.2.131.rp12, pattern = rp.04, replacement = ","); jjep.70.2.131.rp14 <- str_replace_all(jjep.70.2.131.rp13, pattern = rp.05, replacement = ","); jjep.70.2.131.rp15 <- str_replace_all(jjep.70.2.131.rp14, pattern = rp.06, replacement = ","); jjep.70.2.131.mod <- rbind(varname,jjep.70.2.131.rp15); write(jjep.70.2.131.mod, file = "./jjep/Mod_70_2_131.txt")
jjep.70.2.146.tx <- readr::read_file(file="./jjep/70_2_146.txt"); jjep.70.2.146.rm00 <- jjep.70.2.146.tx; jjep.70.2.146.rm01 <- str_replace_all(jjep.70.2.146.rm00, pattern = rm.01, replacement = ""); jjep.70.2.146.rm02 <- str_replace_all(jjep.70.2.146.rm01, pattern = rm.02, replacement = ""); jjep.70.2.146.rm03 <- str_replace_all(jjep.70.2.146.rm02, pattern = rm.03, replacement = ""); jjep.70.2.146.rm04 <- str_replace_all(jjep.70.2.146.rm03, pattern = rm.04, replacement = ""); jjep.70.2.146.rm05 <- str_replace_all(jjep.70.2.146.rm04, pattern = rm.05, replacement = ""); jjep.70.2.146.rm06 <- str_replace_all(jjep.70.2.146.rm05, pattern = rm.06, replacement = ""); jjep.70.2.146.rm07 <- str_replace_all(jjep.70.2.146.rm06, pattern = rm.07, replacement = ""); jjep.70.2.146.rm08 <- str_replace_all(jjep.70.2.146.rm07, pattern = rm.08, replacement = ""); jjep.70.2.146.rm09 <- str_replace_all(jjep.70.2.146.rm08, pattern = rm.09, replacement = ""); jjep.70.2.146.rp10 <- str_replace_all(jjep.70.2.146.rm09, pattern = rp.01, replacement = "・"); jjep.70.2.146.rp11 <- str_replace_all(jjep.70.2.146.rp10, pattern = rp.02, replacement = ","); jjep.70.2.146.rp12 <- str_replace_all(jjep.70.2.146.rp11, pattern = rp.03, replacement = ","); jjep.70.2.146.rp13 <- str_replace_all(jjep.70.2.146.rp12, pattern = rp.04, replacement = ","); jjep.70.2.146.rp14 <- str_replace_all(jjep.70.2.146.rp13, pattern = rp.05, replacement = ","); jjep.70.2.146.rp15 <- str_replace_all(jjep.70.2.146.rp14, pattern = rp.06, replacement = ","); jjep.70.2.146.mod <- rbind(varname,jjep.70.2.146.rp15); write(jjep.70.2.146.mod, file = "./jjep/Mod_70_2_146.txt")
jjep.70.2.163.tx <- readr::read_file(file="./jjep/70_2_163.txt"); jjep.70.2.163.rm00 <- jjep.70.2.163.tx; jjep.70.2.163.rm01 <- str_replace_all(jjep.70.2.163.rm00, pattern = rm.01, replacement = ""); jjep.70.2.163.rm02 <- str_replace_all(jjep.70.2.163.rm01, pattern = rm.02, replacement = ""); jjep.70.2.163.rm03 <- str_replace_all(jjep.70.2.163.rm02, pattern = rm.03, replacement = ""); jjep.70.2.163.rm04 <- str_replace_all(jjep.70.2.163.rm03, pattern = rm.04, replacement = ""); jjep.70.2.163.rm05 <- str_replace_all(jjep.70.2.163.rm04, pattern = rm.05, replacement = ""); jjep.70.2.163.rm06 <- str_replace_all(jjep.70.2.163.rm05, pattern = rm.06, replacement = ""); jjep.70.2.163.rm07 <- str_replace_all(jjep.70.2.163.rm06, pattern = rm.07, replacement = ""); jjep.70.2.163.rm08 <- str_replace_all(jjep.70.2.163.rm07, pattern = rm.08, replacement = ""); jjep.70.2.163.rm09 <- str_replace_all(jjep.70.2.163.rm08, pattern = rm.09, replacement = ""); jjep.70.2.163.rp10 <- str_replace_all(jjep.70.2.163.rm09, pattern = rp.01, replacement = "・"); jjep.70.2.163.rp11 <- str_replace_all(jjep.70.2.163.rp10, pattern = rp.02, replacement = ","); jjep.70.2.163.rp12 <- str_replace_all(jjep.70.2.163.rp11, pattern = rp.03, replacement = ","); jjep.70.2.163.rp13 <- str_replace_all(jjep.70.2.163.rp12, pattern = rp.04, replacement = ","); jjep.70.2.163.rp14 <- str_replace_all(jjep.70.2.163.rp13, pattern = rp.05, replacement = ","); jjep.70.2.163.rp15 <- str_replace_all(jjep.70.2.163.rp14, pattern = rp.06, replacement = ","); jjep.70.2.163.mod <- rbind(varname,jjep.70.2.163.rp15); write(jjep.70.2.163.mod, file = "./jjep/Mod_70_2_163.txt")
jjep.70.2.178.tx <- readr::read_file(file="./jjep/70_2_178.txt"); jjep.70.2.178.rm00 <- jjep.70.2.178.tx; jjep.70.2.178.rm01 <- str_replace_all(jjep.70.2.178.rm00, pattern = rm.01, replacement = ""); jjep.70.2.178.rm02 <- str_replace_all(jjep.70.2.178.rm01, pattern = rm.02, replacement = ""); jjep.70.2.178.rm03 <- str_replace_all(jjep.70.2.178.rm02, pattern = rm.03, replacement = ""); jjep.70.2.178.rm04 <- str_replace_all(jjep.70.2.178.rm03, pattern = rm.04, replacement = ""); jjep.70.2.178.rm05 <- str_replace_all(jjep.70.2.178.rm04, pattern = rm.05, replacement = ""); jjep.70.2.178.rm06 <- str_replace_all(jjep.70.2.178.rm05, pattern = rm.06, replacement = ""); jjep.70.2.178.rm07 <- str_replace_all(jjep.70.2.178.rm06, pattern = rm.07, replacement = ""); jjep.70.2.178.rm08 <- str_replace_all(jjep.70.2.178.rm07, pattern = rm.08, replacement = ""); jjep.70.2.178.rm09 <- str_replace_all(jjep.70.2.178.rm08, pattern = rm.09, replacement = ""); jjep.70.2.178.rp10 <- str_replace_all(jjep.70.2.178.rm09, pattern = rp.01, replacement = "・"); jjep.70.2.178.rp11 <- str_replace_all(jjep.70.2.178.rp10, pattern = rp.02, replacement = ","); jjep.70.2.178.rp12 <- str_replace_all(jjep.70.2.178.rp11, pattern = rp.03, replacement = ","); jjep.70.2.178.rp13 <- str_replace_all(jjep.70.2.178.rp12, pattern = rp.04, replacement = ","); jjep.70.2.178.rp14 <- str_replace_all(jjep.70.2.178.rp13, pattern = rp.05, replacement = ","); jjep.70.2.178.rp15 <- str_replace_all(jjep.70.2.178.rp14, pattern = rp.06, replacement = ","); jjep.70.2.178.mod <- rbind(varname,jjep.70.2.178.rp15); write(jjep.70.2.178.mod, file = "./jjep/Mod_70_2_178.txt")
jjep.70.2.192.tx <- readr::read_file(file="./jjep/70_2_192.txt"); jjep.70.2.192.rm00 <- jjep.70.2.192.tx; jjep.70.2.192.rm01 <- str_replace_all(jjep.70.2.192.rm00, pattern = rm.01, replacement = ""); jjep.70.2.192.rm02 <- str_replace_all(jjep.70.2.192.rm01, pattern = rm.02, replacement = ""); jjep.70.2.192.rm03 <- str_replace_all(jjep.70.2.192.rm02, pattern = rm.03, replacement = ""); jjep.70.2.192.rm04 <- str_replace_all(jjep.70.2.192.rm03, pattern = rm.04, replacement = ""); jjep.70.2.192.rm05 <- str_replace_all(jjep.70.2.192.rm04, pattern = rm.05, replacement = ""); jjep.70.2.192.rm06 <- str_replace_all(jjep.70.2.192.rm05, pattern = rm.06, replacement = ""); jjep.70.2.192.rm07 <- str_replace_all(jjep.70.2.192.rm06, pattern = rm.07, replacement = ""); jjep.70.2.192.rm08 <- str_replace_all(jjep.70.2.192.rm07, pattern = rm.08, replacement = ""); jjep.70.2.192.rm09 <- str_replace_all(jjep.70.2.192.rm08, pattern = rm.09, replacement = ""); jjep.70.2.192.rp10 <- str_replace_all(jjep.70.2.192.rm09, pattern = rp.01, replacement = "・"); jjep.70.2.192.rp11 <- str_replace_all(jjep.70.2.192.rp10, pattern = rp.02, replacement = ","); jjep.70.2.192.rp12 <- str_replace_all(jjep.70.2.192.rp11, pattern = rp.03, replacement = ","); jjep.70.2.192.rp13 <- str_replace_all(jjep.70.2.192.rp12, pattern = rp.04, replacement = ","); jjep.70.2.192.rp14 <- str_replace_all(jjep.70.2.192.rp13, pattern = rp.05, replacement = ","); jjep.70.2.192.rp15 <- str_replace_all(jjep.70.2.192.rp14, pattern = rp.06, replacement = ","); jjep.70.2.192.mod <- rbind(varname,jjep.70.2.192.rp15); write(jjep.70.2.192.mod, file = "./jjep/Mod_70_2_192.txt")
jjep.70.2.205.tx <- readr::read_file(file="./jjep/70_2_205.txt"); jjep.70.2.205.rm00 <- jjep.70.2.205.tx; jjep.70.2.205.rm01 <- str_replace_all(jjep.70.2.205.rm00, pattern = rm.01, replacement = ""); jjep.70.2.205.rm02 <- str_replace_all(jjep.70.2.205.rm01, pattern = rm.02, replacement = ""); jjep.70.2.205.rm03 <- str_replace_all(jjep.70.2.205.rm02, pattern = rm.03, replacement = ""); jjep.70.2.205.rm04 <- str_replace_all(jjep.70.2.205.rm03, pattern = rm.04, replacement = ""); jjep.70.2.205.rm05 <- str_replace_all(jjep.70.2.205.rm04, pattern = rm.05, replacement = ""); jjep.70.2.205.rm06 <- str_replace_all(jjep.70.2.205.rm05, pattern = rm.06, replacement = ""); jjep.70.2.205.rm07 <- str_replace_all(jjep.70.2.205.rm06, pattern = rm.07, replacement = ""); jjep.70.2.205.rm08 <- str_replace_all(jjep.70.2.205.rm07, pattern = rm.08, replacement = ""); jjep.70.2.205.rm09 <- str_replace_all(jjep.70.2.205.rm08, pattern = rm.09, replacement = ""); jjep.70.2.205.rp10 <- str_replace_all(jjep.70.2.205.rm09, pattern = rp.01, replacement = "・"); jjep.70.2.205.rp11 <- str_replace_all(jjep.70.2.205.rp10, pattern = rp.02, replacement = ","); jjep.70.2.205.rp12 <- str_replace_all(jjep.70.2.205.rp11, pattern = rp.03, replacement = ","); jjep.70.2.205.rp13 <- str_replace_all(jjep.70.2.205.rp12, pattern = rp.04, replacement = ","); jjep.70.2.205.rp14 <- str_replace_all(jjep.70.2.205.rp13, pattern = rp.05, replacement = ","); jjep.70.2.205.rp15 <- str_replace_all(jjep.70.2.205.rp14, pattern = rp.06, replacement = ","); jjep.70.2.205.mod <- rbind(varname,jjep.70.2.205.rp15); write(jjep.70.2.205.mod, file = "./jjep/Mod_70_2_205.txt")
jjep.70.1.1.tx <- readr::read_file(file="./jjep/70_1_1.txt"); jjep.70.1.1.rm00 <- jjep.70.1.1.tx; jjep.70.1.1.rm01 <- str_replace_all(jjep.70.1.1.rm00, pattern = rm.01, replacement = ""); jjep.70.1.1.rm02 <- str_replace_all(jjep.70.1.1.rm01, pattern = rm.02, replacement = ""); jjep.70.1.1.rm03 <- str_replace_all(jjep.70.1.1.rm02, pattern = rm.03, replacement = ""); jjep.70.1.1.rm04 <- str_replace_all(jjep.70.1.1.rm03, pattern = rm.04, replacement = ""); jjep.70.1.1.rm05 <- str_replace_all(jjep.70.1.1.rm04, pattern = rm.05, replacement = ""); jjep.70.1.1.rm06 <- str_replace_all(jjep.70.1.1.rm05, pattern = rm.06, replacement = ""); jjep.70.1.1.rm07 <- str_replace_all(jjep.70.1.1.rm06, pattern = rm.07, replacement = ""); jjep.70.1.1.rm08 <- str_replace_all(jjep.70.1.1.rm07, pattern = rm.08, replacement = ""); jjep.70.1.1.rm09 <- str_replace_all(jjep.70.1.1.rm08, pattern = rm.09, replacement = ""); jjep.70.1.1.rp10 <- str_replace_all(jjep.70.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.70.1.1.rp11 <- str_replace_all(jjep.70.1.1.rp10, pattern = rp.02, replacement = ","); jjep.70.1.1.rp12 <- str_replace_all(jjep.70.1.1.rp11, pattern = rp.03, replacement = ","); jjep.70.1.1.rp13 <- str_replace_all(jjep.70.1.1.rp12, pattern = rp.04, replacement = ","); jjep.70.1.1.rp14 <- str_replace_all(jjep.70.1.1.rp13, pattern = rp.05, replacement = ","); jjep.70.1.1.rp15 <- str_replace_all(jjep.70.1.1.rp14, pattern = rp.06, replacement = ","); jjep.70.1.1.mod <- rbind(varname,jjep.70.1.1.rp15); write(jjep.70.1.1.mod, file = "./jjep/Mod_70_1_1.txt")
jjep.70.1.19.tx <- readr::read_file(file="./jjep/70_1_19.txt"); jjep.70.1.19.rm00 <- jjep.70.1.19.tx; jjep.70.1.19.rm01 <- str_replace_all(jjep.70.1.19.rm00, pattern = rm.01, replacement = ""); jjep.70.1.19.rm02 <- str_replace_all(jjep.70.1.19.rm01, pattern = rm.02, replacement = ""); jjep.70.1.19.rm03 <- str_replace_all(jjep.70.1.19.rm02, pattern = rm.03, replacement = ""); jjep.70.1.19.rm04 <- str_replace_all(jjep.70.1.19.rm03, pattern = rm.04, replacement = ""); jjep.70.1.19.rm05 <- str_replace_all(jjep.70.1.19.rm04, pattern = rm.05, replacement = ""); jjep.70.1.19.rm06 <- str_replace_all(jjep.70.1.19.rm05, pattern = rm.06, replacement = ""); jjep.70.1.19.rm07 <- str_replace_all(jjep.70.1.19.rm06, pattern = rm.07, replacement = ""); jjep.70.1.19.rm08 <- str_replace_all(jjep.70.1.19.rm07, pattern = rm.08, replacement = ""); jjep.70.1.19.rm09 <- str_replace_all(jjep.70.1.19.rm08, pattern = rm.09, replacement = ""); jjep.70.1.19.rp10 <- str_replace_all(jjep.70.1.19.rm09, pattern = rp.01, replacement = "・"); jjep.70.1.19.rp11 <- str_replace_all(jjep.70.1.19.rp10, pattern = rp.02, replacement = ","); jjep.70.1.19.rp12 <- str_replace_all(jjep.70.1.19.rp11, pattern = rp.03, replacement = ","); jjep.70.1.19.rp13 <- str_replace_all(jjep.70.1.19.rp12, pattern = rp.04, replacement = ","); jjep.70.1.19.rp14 <- str_replace_all(jjep.70.1.19.rp13, pattern = rp.05, replacement = ","); jjep.70.1.19.rp15 <- str_replace_all(jjep.70.1.19.rp14, pattern = rp.06, replacement = ","); jjep.70.1.19.mod <- rbind(varname,jjep.70.1.19.rp15); write(jjep.70.1.19.mod, file = "./jjep/Mod_70_1_19.txt")
jjep.70.1.35.tx <- readr::read_file(file="./jjep/70_1_35.txt"); jjep.70.1.35.rm00 <- jjep.70.1.35.tx; jjep.70.1.35.rm01 <- str_replace_all(jjep.70.1.35.rm00, pattern = rm.01, replacement = ""); jjep.70.1.35.rm02 <- str_replace_all(jjep.70.1.35.rm01, pattern = rm.02, replacement = ""); jjep.70.1.35.rm03 <- str_replace_all(jjep.70.1.35.rm02, pattern = rm.03, replacement = ""); jjep.70.1.35.rm04 <- str_replace_all(jjep.70.1.35.rm03, pattern = rm.04, replacement = ""); jjep.70.1.35.rm05 <- str_replace_all(jjep.70.1.35.rm04, pattern = rm.05, replacement = ""); jjep.70.1.35.rm06 <- str_replace_all(jjep.70.1.35.rm05, pattern = rm.06, replacement = ""); jjep.70.1.35.rm07 <- str_replace_all(jjep.70.1.35.rm06, pattern = rm.07, replacement = ""); jjep.70.1.35.rm08 <- str_replace_all(jjep.70.1.35.rm07, pattern = rm.08, replacement = ""); jjep.70.1.35.rm09 <- str_replace_all(jjep.70.1.35.rm08, pattern = rm.09, replacement = ""); jjep.70.1.35.rp10 <- str_replace_all(jjep.70.1.35.rm09, pattern = rp.01, replacement = "・"); jjep.70.1.35.rp11 <- str_replace_all(jjep.70.1.35.rp10, pattern = rp.02, replacement = ","); jjep.70.1.35.rp12 <- str_replace_all(jjep.70.1.35.rp11, pattern = rp.03, replacement = ","); jjep.70.1.35.rp13 <- str_replace_all(jjep.70.1.35.rp12, pattern = rp.04, replacement = ","); jjep.70.1.35.rp14 <- str_replace_all(jjep.70.1.35.rp13, pattern = rp.05, replacement = ","); jjep.70.1.35.rp15 <- str_replace_all(jjep.70.1.35.rp14, pattern = rp.06, replacement = ","); jjep.70.1.35.mod <- rbind(varname,jjep.70.1.35.rp15); write(jjep.70.1.35.mod, file = "./jjep/Mod_70_1_35.txt")
jjep.70.1.48.tx <- readr::read_file(file="./jjep/70_1_48.txt"); jjep.70.1.48.rm00 <- jjep.70.1.48.tx; jjep.70.1.48.rm01 <- str_replace_all(jjep.70.1.48.rm00, pattern = rm.01, replacement = ""); jjep.70.1.48.rm02 <- str_replace_all(jjep.70.1.48.rm01, pattern = rm.02, replacement = ""); jjep.70.1.48.rm03 <- str_replace_all(jjep.70.1.48.rm02, pattern = rm.03, replacement = ""); jjep.70.1.48.rm04 <- str_replace_all(jjep.70.1.48.rm03, pattern = rm.04, replacement = ""); jjep.70.1.48.rm05 <- str_replace_all(jjep.70.1.48.rm04, pattern = rm.05, replacement = ""); jjep.70.1.48.rm06 <- str_replace_all(jjep.70.1.48.rm05, pattern = rm.06, replacement = ""); jjep.70.1.48.rm07 <- str_replace_all(jjep.70.1.48.rm06, pattern = rm.07, replacement = ""); jjep.70.1.48.rm08 <- str_replace_all(jjep.70.1.48.rm07, pattern = rm.08, replacement = ""); jjep.70.1.48.rm09 <- str_replace_all(jjep.70.1.48.rm08, pattern = rm.09, replacement = ""); jjep.70.1.48.rp10 <- str_replace_all(jjep.70.1.48.rm09, pattern = rp.01, replacement = "・"); jjep.70.1.48.rp11 <- str_replace_all(jjep.70.1.48.rp10, pattern = rp.02, replacement = ","); jjep.70.1.48.rp12 <- str_replace_all(jjep.70.1.48.rp11, pattern = rp.03, replacement = ","); jjep.70.1.48.rp13 <- str_replace_all(jjep.70.1.48.rp12, pattern = rp.04, replacement = ","); jjep.70.1.48.rp14 <- str_replace_all(jjep.70.1.48.rp13, pattern = rp.05, replacement = ","); jjep.70.1.48.rp15 <- str_replace_all(jjep.70.1.48.rp14, pattern = rp.06, replacement = ","); jjep.70.1.48.mod <- rbind(varname,jjep.70.1.48.rp15); write(jjep.70.1.48.mod, file = "./jjep/Mod_70_1_48.txt")
jjep.70.1.67.tx <- readr::read_file(file="./jjep/70_1_67.txt"); jjep.70.1.67.rm00 <- jjep.70.1.67.tx; jjep.70.1.67.rm01 <- str_replace_all(jjep.70.1.67.rm00, pattern = rm.01, replacement = ""); jjep.70.1.67.rm02 <- str_replace_all(jjep.70.1.67.rm01, pattern = rm.02, replacement = ""); jjep.70.1.67.rm03 <- str_replace_all(jjep.70.1.67.rm02, pattern = rm.03, replacement = ""); jjep.70.1.67.rm04 <- str_replace_all(jjep.70.1.67.rm03, pattern = rm.04, replacement = ""); jjep.70.1.67.rm05 <- str_replace_all(jjep.70.1.67.rm04, pattern = rm.05, replacement = ""); jjep.70.1.67.rm06 <- str_replace_all(jjep.70.1.67.rm05, pattern = rm.06, replacement = ""); jjep.70.1.67.rm07 <- str_replace_all(jjep.70.1.67.rm06, pattern = rm.07, replacement = ""); jjep.70.1.67.rm08 <- str_replace_all(jjep.70.1.67.rm07, pattern = rm.08, replacement = ""); jjep.70.1.67.rm09 <- str_replace_all(jjep.70.1.67.rm08, pattern = rm.09, replacement = ""); jjep.70.1.67.rp10 <- str_replace_all(jjep.70.1.67.rm09, pattern = rp.01, replacement = "・"); jjep.70.1.67.rp11 <- str_replace_all(jjep.70.1.67.rp10, pattern = rp.02, replacement = ","); jjep.70.1.67.rp12 <- str_replace_all(jjep.70.1.67.rp11, pattern = rp.03, replacement = ","); jjep.70.1.67.rp13 <- str_replace_all(jjep.70.1.67.rp12, pattern = rp.04, replacement = ","); jjep.70.1.67.rp14 <- str_replace_all(jjep.70.1.67.rp13, pattern = rp.05, replacement = ","); jjep.70.1.67.rp15 <- str_replace_all(jjep.70.1.67.rp14, pattern = rp.06, replacement = ","); jjep.70.1.67.mod <- rbind(varname,jjep.70.1.67.rp15); write(jjep.70.1.67.mod, file = "./jjep/Mod_70_1_67.txt")
jjep.70.1.87.tx <- readr::read_file(file="./jjep/70_1_87.txt"); jjep.70.1.87.rm00 <- jjep.70.1.87.tx; jjep.70.1.87.rm01 <- str_replace_all(jjep.70.1.87.rm00, pattern = rm.01, replacement = ""); jjep.70.1.87.rm02 <- str_replace_all(jjep.70.1.87.rm01, pattern = rm.02, replacement = ""); jjep.70.1.87.rm03 <- str_replace_all(jjep.70.1.87.rm02, pattern = rm.03, replacement = ""); jjep.70.1.87.rm04 <- str_replace_all(jjep.70.1.87.rm03, pattern = rm.04, replacement = ""); jjep.70.1.87.rm05 <- str_replace_all(jjep.70.1.87.rm04, pattern = rm.05, replacement = ""); jjep.70.1.87.rm06 <- str_replace_all(jjep.70.1.87.rm05, pattern = rm.06, replacement = ""); jjep.70.1.87.rm07 <- str_replace_all(jjep.70.1.87.rm06, pattern = rm.07, replacement = ""); jjep.70.1.87.rm08 <- str_replace_all(jjep.70.1.87.rm07, pattern = rm.08, replacement = ""); jjep.70.1.87.rm09 <- str_replace_all(jjep.70.1.87.rm08, pattern = rm.09, replacement = ""); jjep.70.1.87.rp10 <- str_replace_all(jjep.70.1.87.rm09, pattern = rp.01, replacement = "・"); jjep.70.1.87.rp11 <- str_replace_all(jjep.70.1.87.rp10, pattern = rp.02, replacement = ","); jjep.70.1.87.rp12 <- str_replace_all(jjep.70.1.87.rp11, pattern = rp.03, replacement = ","); jjep.70.1.87.rp13 <- str_replace_all(jjep.70.1.87.rp12, pattern = rp.04, replacement = ","); jjep.70.1.87.rp14 <- str_replace_all(jjep.70.1.87.rp13, pattern = rp.05, replacement = ","); jjep.70.1.87.rp15 <- str_replace_all(jjep.70.1.87.rp14, pattern = rp.06, replacement = ","); jjep.70.1.87.mod <- rbind(varname,jjep.70.1.87.rp15); write(jjep.70.1.87.mod, file = "./jjep/Mod_70_1_87.txt")
jjep.70.1.100.tx <- readr::read_file(file="./jjep/70_1_100.txt"); jjep.70.1.100.rm00 <- jjep.70.1.100.tx; jjep.70.1.100.rm01 <- str_replace_all(jjep.70.1.100.rm00, pattern = rm.01, replacement = ""); jjep.70.1.100.rm02 <- str_replace_all(jjep.70.1.100.rm01, pattern = rm.02, replacement = ""); jjep.70.1.100.rm03 <- str_replace_all(jjep.70.1.100.rm02, pattern = rm.03, replacement = ""); jjep.70.1.100.rm04 <- str_replace_all(jjep.70.1.100.rm03, pattern = rm.04, replacement = ""); jjep.70.1.100.rm05 <- str_replace_all(jjep.70.1.100.rm04, pattern = rm.05, replacement = ""); jjep.70.1.100.rm06 <- str_replace_all(jjep.70.1.100.rm05, pattern = rm.06, replacement = ""); jjep.70.1.100.rm07 <- str_replace_all(jjep.70.1.100.rm06, pattern = rm.07, replacement = ""); jjep.70.1.100.rm08 <- str_replace_all(jjep.70.1.100.rm07, pattern = rm.08, replacement = ""); jjep.70.1.100.rm09 <- str_replace_all(jjep.70.1.100.rm08, pattern = rm.09, replacement = ""); jjep.70.1.100.rp10 <- str_replace_all(jjep.70.1.100.rm09, pattern = rp.01, replacement = "・"); jjep.70.1.100.rp11 <- str_replace_all(jjep.70.1.100.rp10, pattern = rp.02, replacement = ","); jjep.70.1.100.rp12 <- str_replace_all(jjep.70.1.100.rp11, pattern = rp.03, replacement = ","); jjep.70.1.100.rp13 <- str_replace_all(jjep.70.1.100.rp12, pattern = rp.04, replacement = ","); jjep.70.1.100.rp14 <- str_replace_all(jjep.70.1.100.rp13, pattern = rp.05, replacement = ","); jjep.70.1.100.rp15 <- str_replace_all(jjep.70.1.100.rp14, pattern = rp.06, replacement = ","); jjep.70.1.100.mod <- rbind(varname,jjep.70.1.100.rp15); write(jjep.70.1.100.mod, file = "./jjep/Mod_70_1_100.txt")
jjep.69.4.339.tx <- readr::read_file(file="./jjep/69_4_339.txt"); jjep.69.4.339.rm00 <- jjep.69.4.339.tx; jjep.69.4.339.rm01 <- str_replace_all(jjep.69.4.339.rm00, pattern = rm.01, replacement = ""); jjep.69.4.339.rm02 <- str_replace_all(jjep.69.4.339.rm01, pattern = rm.02, replacement = ""); jjep.69.4.339.rm03 <- str_replace_all(jjep.69.4.339.rm02, pattern = rm.03, replacement = ""); jjep.69.4.339.rm04 <- str_replace_all(jjep.69.4.339.rm03, pattern = rm.04, replacement = ""); jjep.69.4.339.rm05 <- str_replace_all(jjep.69.4.339.rm04, pattern = rm.05, replacement = ""); jjep.69.4.339.rm06 <- str_replace_all(jjep.69.4.339.rm05, pattern = rm.06, replacement = ""); jjep.69.4.339.rm07 <- str_replace_all(jjep.69.4.339.rm06, pattern = rm.07, replacement = ""); jjep.69.4.339.rm08 <- str_replace_all(jjep.69.4.339.rm07, pattern = rm.08, replacement = ""); jjep.69.4.339.rm09 <- str_replace_all(jjep.69.4.339.rm08, pattern = rm.09, replacement = ""); jjep.69.4.339.rp10 <- str_replace_all(jjep.69.4.339.rm09, pattern = rp.01, replacement = "・"); jjep.69.4.339.rp11 <- str_replace_all(jjep.69.4.339.rp10, pattern = rp.02, replacement = ","); jjep.69.4.339.rp12 <- str_replace_all(jjep.69.4.339.rp11, pattern = rp.03, replacement = ","); jjep.69.4.339.rp13 <- str_replace_all(jjep.69.4.339.rp12, pattern = rp.04, replacement = ","); jjep.69.4.339.rp14 <- str_replace_all(jjep.69.4.339.rp13, pattern = rp.05, replacement = ","); jjep.69.4.339.rp15 <- str_replace_all(jjep.69.4.339.rp14, pattern = rp.06, replacement = ","); jjep.69.4.339.mod <- rbind(varname,jjep.69.4.339.rp15); write(jjep.69.4.339.mod, file = "./jjep/Mod_69_4_339.txt")
jjep.69.4.353.tx <- readr::read_file(file="./jjep/69_4_353.txt"); jjep.69.4.353.rm00 <- jjep.69.4.353.tx; jjep.69.4.353.rm01 <- str_replace_all(jjep.69.4.353.rm00, pattern = rm.01, replacement = ""); jjep.69.4.353.rm02 <- str_replace_all(jjep.69.4.353.rm01, pattern = rm.02, replacement = ""); jjep.69.4.353.rm03 <- str_replace_all(jjep.69.4.353.rm02, pattern = rm.03, replacement = ""); jjep.69.4.353.rm04 <- str_replace_all(jjep.69.4.353.rm03, pattern = rm.04, replacement = ""); jjep.69.4.353.rm05 <- str_replace_all(jjep.69.4.353.rm04, pattern = rm.05, replacement = ""); jjep.69.4.353.rm06 <- str_replace_all(jjep.69.4.353.rm05, pattern = rm.06, replacement = ""); jjep.69.4.353.rm07 <- str_replace_all(jjep.69.4.353.rm06, pattern = rm.07, replacement = ""); jjep.69.4.353.rm08 <- str_replace_all(jjep.69.4.353.rm07, pattern = rm.08, replacement = ""); jjep.69.4.353.rm09 <- str_replace_all(jjep.69.4.353.rm08, pattern = rm.09, replacement = ""); jjep.69.4.353.rp10 <- str_replace_all(jjep.69.4.353.rm09, pattern = rp.01, replacement = "・"); jjep.69.4.353.rp11 <- str_replace_all(jjep.69.4.353.rp10, pattern = rp.02, replacement = ","); jjep.69.4.353.rp12 <- str_replace_all(jjep.69.4.353.rp11, pattern = rp.03, replacement = ","); jjep.69.4.353.rp13 <- str_replace_all(jjep.69.4.353.rp12, pattern = rp.04, replacement = ","); jjep.69.4.353.rp14 <- str_replace_all(jjep.69.4.353.rp13, pattern = rp.05, replacement = ","); jjep.69.4.353.rp15 <- str_replace_all(jjep.69.4.353.rp14, pattern = rp.06, replacement = ","); jjep.69.4.353.mod <- rbind(varname,jjep.69.4.353.rp15); write(jjep.69.4.353.mod, file = "./jjep/Mod_69_4_353.txt")
jjep.69.4.366.tx <- readr::read_file(file="./jjep/69_4_366.txt"); jjep.69.4.366.rm00 <- jjep.69.4.366.tx; jjep.69.4.366.rm01 <- str_replace_all(jjep.69.4.366.rm00, pattern = rm.01, replacement = ""); jjep.69.4.366.rm02 <- str_replace_all(jjep.69.4.366.rm01, pattern = rm.02, replacement = ""); jjep.69.4.366.rm03 <- str_replace_all(jjep.69.4.366.rm02, pattern = rm.03, replacement = ""); jjep.69.4.366.rm04 <- str_replace_all(jjep.69.4.366.rm03, pattern = rm.04, replacement = ""); jjep.69.4.366.rm05 <- str_replace_all(jjep.69.4.366.rm04, pattern = rm.05, replacement = ""); jjep.69.4.366.rm06 <- str_replace_all(jjep.69.4.366.rm05, pattern = rm.06, replacement = ""); jjep.69.4.366.rm07 <- str_replace_all(jjep.69.4.366.rm06, pattern = rm.07, replacement = ""); jjep.69.4.366.rm08 <- str_replace_all(jjep.69.4.366.rm07, pattern = rm.08, replacement = ""); jjep.69.4.366.rm09 <- str_replace_all(jjep.69.4.366.rm08, pattern = rm.09, replacement = ""); jjep.69.4.366.rp10 <- str_replace_all(jjep.69.4.366.rm09, pattern = rp.01, replacement = "・"); jjep.69.4.366.rp11 <- str_replace_all(jjep.69.4.366.rp10, pattern = rp.02, replacement = ","); jjep.69.4.366.rp12 <- str_replace_all(jjep.69.4.366.rp11, pattern = rp.03, replacement = ","); jjep.69.4.366.rp13 <- str_replace_all(jjep.69.4.366.rp12, pattern = rp.04, replacement = ","); jjep.69.4.366.rp14 <- str_replace_all(jjep.69.4.366.rp13, pattern = rp.05, replacement = ","); jjep.69.4.366.rp15 <- str_replace_all(jjep.69.4.366.rp14, pattern = rp.06, replacement = ","); jjep.69.4.366.mod <- rbind(varname,jjep.69.4.366.rp15); write(jjep.69.4.366.mod, file = "./jjep/Mod_69_4_366.txt")
jjep.69.4.382.tx <- readr::read_file(file="./jjep/69_4_382.txt"); jjep.69.4.382.rm00 <- jjep.69.4.382.tx; jjep.69.4.382.rm01 <- str_replace_all(jjep.69.4.382.rm00, pattern = rm.01, replacement = ""); jjep.69.4.382.rm02 <- str_replace_all(jjep.69.4.382.rm01, pattern = rm.02, replacement = ""); jjep.69.4.382.rm03 <- str_replace_all(jjep.69.4.382.rm02, pattern = rm.03, replacement = ""); jjep.69.4.382.rm04 <- str_replace_all(jjep.69.4.382.rm03, pattern = rm.04, replacement = ""); jjep.69.4.382.rm05 <- str_replace_all(jjep.69.4.382.rm04, pattern = rm.05, replacement = ""); jjep.69.4.382.rm06 <- str_replace_all(jjep.69.4.382.rm05, pattern = rm.06, replacement = ""); jjep.69.4.382.rm07 <- str_replace_all(jjep.69.4.382.rm06, pattern = rm.07, replacement = ""); jjep.69.4.382.rm08 <- str_replace_all(jjep.69.4.382.rm07, pattern = rm.08, replacement = ""); jjep.69.4.382.rm09 <- str_replace_all(jjep.69.4.382.rm08, pattern = rm.09, replacement = ""); jjep.69.4.382.rp10 <- str_replace_all(jjep.69.4.382.rm09, pattern = rp.01, replacement = "・"); jjep.69.4.382.rp11 <- str_replace_all(jjep.69.4.382.rp10, pattern = rp.02, replacement = ","); jjep.69.4.382.rp12 <- str_replace_all(jjep.69.4.382.rp11, pattern = rp.03, replacement = ","); jjep.69.4.382.rp13 <- str_replace_all(jjep.69.4.382.rp12, pattern = rp.04, replacement = ","); jjep.69.4.382.rp14 <- str_replace_all(jjep.69.4.382.rp13, pattern = rp.05, replacement = ","); jjep.69.4.382.rp15 <- str_replace_all(jjep.69.4.382.rp14, pattern = rp.06, replacement = ","); jjep.69.4.382.mod <- rbind(varname,jjep.69.4.382.rp15); write(jjep.69.4.382.mod, file = "./jjep/Mod_69_4_382.txt")
jjep.69.4.396.tx <- readr::read_file(file="./jjep/69_4_396.txt"); jjep.69.4.396.rm00 <- jjep.69.4.396.tx; jjep.69.4.396.rm01 <- str_replace_all(jjep.69.4.396.rm00, pattern = rm.01, replacement = ""); jjep.69.4.396.rm02 <- str_replace_all(jjep.69.4.396.rm01, pattern = rm.02, replacement = ""); jjep.69.4.396.rm03 <- str_replace_all(jjep.69.4.396.rm02, pattern = rm.03, replacement = ""); jjep.69.4.396.rm04 <- str_replace_all(jjep.69.4.396.rm03, pattern = rm.04, replacement = ""); jjep.69.4.396.rm05 <- str_replace_all(jjep.69.4.396.rm04, pattern = rm.05, replacement = ""); jjep.69.4.396.rm06 <- str_replace_all(jjep.69.4.396.rm05, pattern = rm.06, replacement = ""); jjep.69.4.396.rm07 <- str_replace_all(jjep.69.4.396.rm06, pattern = rm.07, replacement = ""); jjep.69.4.396.rm08 <- str_replace_all(jjep.69.4.396.rm07, pattern = rm.08, replacement = ""); jjep.69.4.396.rm09 <- str_replace_all(jjep.69.4.396.rm08, pattern = rm.09, replacement = ""); jjep.69.4.396.rp10 <- str_replace_all(jjep.69.4.396.rm09, pattern = rp.01, replacement = "・"); jjep.69.4.396.rp11 <- str_replace_all(jjep.69.4.396.rp10, pattern = rp.02, replacement = ","); jjep.69.4.396.rp12 <- str_replace_all(jjep.69.4.396.rp11, pattern = rp.03, replacement = ","); jjep.69.4.396.rp13 <- str_replace_all(jjep.69.4.396.rp12, pattern = rp.04, replacement = ","); jjep.69.4.396.rp14 <- str_replace_all(jjep.69.4.396.rp13, pattern = rp.05, replacement = ","); jjep.69.4.396.rp15 <- str_replace_all(jjep.69.4.396.rp14, pattern = rp.06, replacement = ","); jjep.69.4.396.mod <- rbind(varname,jjep.69.4.396.rp15); write(jjep.69.4.396.mod, file = "./jjep/Mod_69_4_396.txt")
jjep.69.4.410.tx <- readr::read_file(file="./jjep/69_4_410.txt"); jjep.69.4.410.rm00 <- jjep.69.4.410.tx; jjep.69.4.410.rm01 <- str_replace_all(jjep.69.4.410.rm00, pattern = rm.01, replacement = ""); jjep.69.4.410.rm02 <- str_replace_all(jjep.69.4.410.rm01, pattern = rm.02, replacement = ""); jjep.69.4.410.rm03 <- str_replace_all(jjep.69.4.410.rm02, pattern = rm.03, replacement = ""); jjep.69.4.410.rm04 <- str_replace_all(jjep.69.4.410.rm03, pattern = rm.04, replacement = ""); jjep.69.4.410.rm05 <- str_replace_all(jjep.69.4.410.rm04, pattern = rm.05, replacement = ""); jjep.69.4.410.rm06 <- str_replace_all(jjep.69.4.410.rm05, pattern = rm.06, replacement = ""); jjep.69.4.410.rm07 <- str_replace_all(jjep.69.4.410.rm06, pattern = rm.07, replacement = ""); jjep.69.4.410.rm08 <- str_replace_all(jjep.69.4.410.rm07, pattern = rm.08, replacement = ""); jjep.69.4.410.rm09 <- str_replace_all(jjep.69.4.410.rm08, pattern = rm.09, replacement = ""); jjep.69.4.410.rp10 <- str_replace_all(jjep.69.4.410.rm09, pattern = rp.01, replacement = "・"); jjep.69.4.410.rp11 <- str_replace_all(jjep.69.4.410.rp10, pattern = rp.02, replacement = ","); jjep.69.4.410.rp12 <- str_replace_all(jjep.69.4.410.rp11, pattern = rp.03, replacement = ","); jjep.69.4.410.rp13 <- str_replace_all(jjep.69.4.410.rp12, pattern = rp.04, replacement = ","); jjep.69.4.410.rp14 <- str_replace_all(jjep.69.4.410.rp13, pattern = rp.05, replacement = ","); jjep.69.4.410.rp15 <- str_replace_all(jjep.69.4.410.rp14, pattern = rp.06, replacement = ","); jjep.69.4.410.mod <- rbind(varname,jjep.69.4.410.rp15); write(jjep.69.4.410.mod, file = "./jjep/Mod_69_4_410.txt")
jjep.69.4.421.tx <- readr::read_file(file="./jjep/69_4_421.txt"); jjep.69.4.421.rm00 <- jjep.69.4.421.tx; jjep.69.4.421.rm01 <- str_replace_all(jjep.69.4.421.rm00, pattern = rm.01, replacement = ""); jjep.69.4.421.rm02 <- str_replace_all(jjep.69.4.421.rm01, pattern = rm.02, replacement = ""); jjep.69.4.421.rm03 <- str_replace_all(jjep.69.4.421.rm02, pattern = rm.03, replacement = ""); jjep.69.4.421.rm04 <- str_replace_all(jjep.69.4.421.rm03, pattern = rm.04, replacement = ""); jjep.69.4.421.rm05 <- str_replace_all(jjep.69.4.421.rm04, pattern = rm.05, replacement = ""); jjep.69.4.421.rm06 <- str_replace_all(jjep.69.4.421.rm05, pattern = rm.06, replacement = ""); jjep.69.4.421.rm07 <- str_replace_all(jjep.69.4.421.rm06, pattern = rm.07, replacement = ""); jjep.69.4.421.rm08 <- str_replace_all(jjep.69.4.421.rm07, pattern = rm.08, replacement = ""); jjep.69.4.421.rm09 <- str_replace_all(jjep.69.4.421.rm08, pattern = rm.09, replacement = ""); jjep.69.4.421.rp10 <- str_replace_all(jjep.69.4.421.rm09, pattern = rp.01, replacement = "・"); jjep.69.4.421.rp11 <- str_replace_all(jjep.69.4.421.rp10, pattern = rp.02, replacement = ","); jjep.69.4.421.rp12 <- str_replace_all(jjep.69.4.421.rp11, pattern = rp.03, replacement = ","); jjep.69.4.421.rp13 <- str_replace_all(jjep.69.4.421.rp12, pattern = rp.04, replacement = ","); jjep.69.4.421.rp14 <- str_replace_all(jjep.69.4.421.rp13, pattern = rp.05, replacement = ","); jjep.69.4.421.rp15 <- str_replace_all(jjep.69.4.421.rp14, pattern = rp.06, replacement = ","); jjep.69.4.421.mod <- rbind(varname,jjep.69.4.421.rp15); write(jjep.69.4.421.mod, file = "./jjep/Mod_69_4_421.txt")
jjep.69.3.229.tx <- readr::read_file(file="./jjep/69_3_229.txt"); jjep.69.3.229.rm00 <- jjep.69.3.229.tx; jjep.69.3.229.rm01 <- str_replace_all(jjep.69.3.229.rm00, pattern = rm.01, replacement = ""); jjep.69.3.229.rm02 <- str_replace_all(jjep.69.3.229.rm01, pattern = rm.02, replacement = ""); jjep.69.3.229.rm03 <- str_replace_all(jjep.69.3.229.rm02, pattern = rm.03, replacement = ""); jjep.69.3.229.rm04 <- str_replace_all(jjep.69.3.229.rm03, pattern = rm.04, replacement = ""); jjep.69.3.229.rm05 <- str_replace_all(jjep.69.3.229.rm04, pattern = rm.05, replacement = ""); jjep.69.3.229.rm06 <- str_replace_all(jjep.69.3.229.rm05, pattern = rm.06, replacement = ""); jjep.69.3.229.rm07 <- str_replace_all(jjep.69.3.229.rm06, pattern = rm.07, replacement = ""); jjep.69.3.229.rm08 <- str_replace_all(jjep.69.3.229.rm07, pattern = rm.08, replacement = ""); jjep.69.3.229.rm09 <- str_replace_all(jjep.69.3.229.rm08, pattern = rm.09, replacement = ""); jjep.69.3.229.rp10 <- str_replace_all(jjep.69.3.229.rm09, pattern = rp.01, replacement = "・"); jjep.69.3.229.rp11 <- str_replace_all(jjep.69.3.229.rp10, pattern = rp.02, replacement = ","); jjep.69.3.229.rp12 <- str_replace_all(jjep.69.3.229.rp11, pattern = rp.03, replacement = ","); jjep.69.3.229.rp13 <- str_replace_all(jjep.69.3.229.rp12, pattern = rp.04, replacement = ","); jjep.69.3.229.rp14 <- str_replace_all(jjep.69.3.229.rp13, pattern = rp.05, replacement = ","); jjep.69.3.229.rp15 <- str_replace_all(jjep.69.3.229.rp14, pattern = rp.06, replacement = ","); jjep.69.3.229.mod <- rbind(varname,jjep.69.3.229.rp15); write(jjep.69.3.229.mod, file = "./jjep/Mod_69_3_229.txt")
jjep.69.3.241.tx <- readr::read_file(file="./jjep/69_3_241.txt"); jjep.69.3.241.rm00 <- jjep.69.3.241.tx; jjep.69.3.241.rm01 <- str_replace_all(jjep.69.3.241.rm00, pattern = rm.01, replacement = ""); jjep.69.3.241.rm02 <- str_replace_all(jjep.69.3.241.rm01, pattern = rm.02, replacement = ""); jjep.69.3.241.rm03 <- str_replace_all(jjep.69.3.241.rm02, pattern = rm.03, replacement = ""); jjep.69.3.241.rm04 <- str_replace_all(jjep.69.3.241.rm03, pattern = rm.04, replacement = ""); jjep.69.3.241.rm05 <- str_replace_all(jjep.69.3.241.rm04, pattern = rm.05, replacement = ""); jjep.69.3.241.rm06 <- str_replace_all(jjep.69.3.241.rm05, pattern = rm.06, replacement = ""); jjep.69.3.241.rm07 <- str_replace_all(jjep.69.3.241.rm06, pattern = rm.07, replacement = ""); jjep.69.3.241.rm08 <- str_replace_all(jjep.69.3.241.rm07, pattern = rm.08, replacement = ""); jjep.69.3.241.rm09 <- str_replace_all(jjep.69.3.241.rm08, pattern = rm.09, replacement = ""); jjep.69.3.241.rp10 <- str_replace_all(jjep.69.3.241.rm09, pattern = rp.01, replacement = "・"); jjep.69.3.241.rp11 <- str_replace_all(jjep.69.3.241.rp10, pattern = rp.02, replacement = ","); jjep.69.3.241.rp12 <- str_replace_all(jjep.69.3.241.rp11, pattern = rp.03, replacement = ","); jjep.69.3.241.rp13 <- str_replace_all(jjep.69.3.241.rp12, pattern = rp.04, replacement = ","); jjep.69.3.241.rp14 <- str_replace_all(jjep.69.3.241.rp13, pattern = rp.05, replacement = ","); jjep.69.3.241.rp15 <- str_replace_all(jjep.69.3.241.rp14, pattern = rp.06, replacement = ","); jjep.69.3.241.mod <- rbind(varname,jjep.69.3.241.rp15); write(jjep.69.3.241.mod, file = "./jjep/Mod_69_3_241.txt")
jjep.69.3.254.tx <- readr::read_file(file="./jjep/69_3_254.txt"); jjep.69.3.254.rm00 <- jjep.69.3.254.tx; jjep.69.3.254.rm01 <- str_replace_all(jjep.69.3.254.rm00, pattern = rm.01, replacement = ""); jjep.69.3.254.rm02 <- str_replace_all(jjep.69.3.254.rm01, pattern = rm.02, replacement = ""); jjep.69.3.254.rm03 <- str_replace_all(jjep.69.3.254.rm02, pattern = rm.03, replacement = ""); jjep.69.3.254.rm04 <- str_replace_all(jjep.69.3.254.rm03, pattern = rm.04, replacement = ""); jjep.69.3.254.rm05 <- str_replace_all(jjep.69.3.254.rm04, pattern = rm.05, replacement = ""); jjep.69.3.254.rm06 <- str_replace_all(jjep.69.3.254.rm05, pattern = rm.06, replacement = ""); jjep.69.3.254.rm07 <- str_replace_all(jjep.69.3.254.rm06, pattern = rm.07, replacement = ""); jjep.69.3.254.rm08 <- str_replace_all(jjep.69.3.254.rm07, pattern = rm.08, replacement = ""); jjep.69.3.254.rm09 <- str_replace_all(jjep.69.3.254.rm08, pattern = rm.09, replacement = ""); jjep.69.3.254.rp10 <- str_replace_all(jjep.69.3.254.rm09, pattern = rp.01, replacement = "・"); jjep.69.3.254.rp11 <- str_replace_all(jjep.69.3.254.rp10, pattern = rp.02, replacement = ","); jjep.69.3.254.rp12 <- str_replace_all(jjep.69.3.254.rp11, pattern = rp.03, replacement = ","); jjep.69.3.254.rp13 <- str_replace_all(jjep.69.3.254.rp12, pattern = rp.04, replacement = ","); jjep.69.3.254.rp14 <- str_replace_all(jjep.69.3.254.rp13, pattern = rp.05, replacement = ","); jjep.69.3.254.rp15 <- str_replace_all(jjep.69.3.254.rp14, pattern = rp.06, replacement = ","); jjep.69.3.254.mod <- rbind(varname,jjep.69.3.254.rp15); write(jjep.69.3.254.mod, file = "./jjep/Mod_69_3_254.txt")
jjep.69.3.268.tx <- readr::read_file(file="./jjep/69_3_268.txt"); jjep.69.3.268.rm00 <- jjep.69.3.268.tx; jjep.69.3.268.rm01 <- str_replace_all(jjep.69.3.268.rm00, pattern = rm.01, replacement = ""); jjep.69.3.268.rm02 <- str_replace_all(jjep.69.3.268.rm01, pattern = rm.02, replacement = ""); jjep.69.3.268.rm03 <- str_replace_all(jjep.69.3.268.rm02, pattern = rm.03, replacement = ""); jjep.69.3.268.rm04 <- str_replace_all(jjep.69.3.268.rm03, pattern = rm.04, replacement = ""); jjep.69.3.268.rm05 <- str_replace_all(jjep.69.3.268.rm04, pattern = rm.05, replacement = ""); jjep.69.3.268.rm06 <- str_replace_all(jjep.69.3.268.rm05, pattern = rm.06, replacement = ""); jjep.69.3.268.rm07 <- str_replace_all(jjep.69.3.268.rm06, pattern = rm.07, replacement = ""); jjep.69.3.268.rm08 <- str_replace_all(jjep.69.3.268.rm07, pattern = rm.08, replacement = ""); jjep.69.3.268.rm09 <- str_replace_all(jjep.69.3.268.rm08, pattern = rm.09, replacement = ""); jjep.69.3.268.rp10 <- str_replace_all(jjep.69.3.268.rm09, pattern = rp.01, replacement = "・"); jjep.69.3.268.rp11 <- str_replace_all(jjep.69.3.268.rp10, pattern = rp.02, replacement = ","); jjep.69.3.268.rp12 <- str_replace_all(jjep.69.3.268.rp11, pattern = rp.03, replacement = ","); jjep.69.3.268.rp13 <- str_replace_all(jjep.69.3.268.rp12, pattern = rp.04, replacement = ","); jjep.69.3.268.rp14 <- str_replace_all(jjep.69.3.268.rp13, pattern = rp.05, replacement = ","); jjep.69.3.268.rp15 <- str_replace_all(jjep.69.3.268.rp14, pattern = rp.06, replacement = ","); jjep.69.3.268.mod <- rbind(varname,jjep.69.3.268.rp15); write(jjep.69.3.268.mod, file = "./jjep/Mod_69_3_268.txt")
jjep.69.3.281.tx <- readr::read_file(file="./jjep/69_3_281.txt"); jjep.69.3.281.rm00 <- jjep.69.3.281.tx; jjep.69.3.281.rm01 <- str_replace_all(jjep.69.3.281.rm00, pattern = rm.01, replacement = ""); jjep.69.3.281.rm02 <- str_replace_all(jjep.69.3.281.rm01, pattern = rm.02, replacement = ""); jjep.69.3.281.rm03 <- str_replace_all(jjep.69.3.281.rm02, pattern = rm.03, replacement = ""); jjep.69.3.281.rm04 <- str_replace_all(jjep.69.3.281.rm03, pattern = rm.04, replacement = ""); jjep.69.3.281.rm05 <- str_replace_all(jjep.69.3.281.rm04, pattern = rm.05, replacement = ""); jjep.69.3.281.rm06 <- str_replace_all(jjep.69.3.281.rm05, pattern = rm.06, replacement = ""); jjep.69.3.281.rm07 <- str_replace_all(jjep.69.3.281.rm06, pattern = rm.07, replacement = ""); jjep.69.3.281.rm08 <- str_replace_all(jjep.69.3.281.rm07, pattern = rm.08, replacement = ""); jjep.69.3.281.rm09 <- str_replace_all(jjep.69.3.281.rm08, pattern = rm.09, replacement = ""); jjep.69.3.281.rp10 <- str_replace_all(jjep.69.3.281.rm09, pattern = rp.01, replacement = "・"); jjep.69.3.281.rp11 <- str_replace_all(jjep.69.3.281.rp10, pattern = rp.02, replacement = ","); jjep.69.3.281.rp12 <- str_replace_all(jjep.69.3.281.rp11, pattern = rp.03, replacement = ","); jjep.69.3.281.rp13 <- str_replace_all(jjep.69.3.281.rp12, pattern = rp.04, replacement = ","); jjep.69.3.281.rp14 <- str_replace_all(jjep.69.3.281.rp13, pattern = rp.05, replacement = ","); jjep.69.3.281.rp15 <- str_replace_all(jjep.69.3.281.rp14, pattern = rp.06, replacement = ","); jjep.69.3.281.mod <- rbind(varname,jjep.69.3.281.rp15); write(jjep.69.3.281.mod, file = "./jjep/Mod_69_3_281.txt")
jjep.69.3.297.tx <- readr::read_file(file="./jjep/69_3_297.txt"); jjep.69.3.297.rm00 <- jjep.69.3.297.tx; jjep.69.3.297.rm01 <- str_replace_all(jjep.69.3.297.rm00, pattern = rm.01, replacement = ""); jjep.69.3.297.rm02 <- str_replace_all(jjep.69.3.297.rm01, pattern = rm.02, replacement = ""); jjep.69.3.297.rm03 <- str_replace_all(jjep.69.3.297.rm02, pattern = rm.03, replacement = ""); jjep.69.3.297.rm04 <- str_replace_all(jjep.69.3.297.rm03, pattern = rm.04, replacement = ""); jjep.69.3.297.rm05 <- str_replace_all(jjep.69.3.297.rm04, pattern = rm.05, replacement = ""); jjep.69.3.297.rm06 <- str_replace_all(jjep.69.3.297.rm05, pattern = rm.06, replacement = ""); jjep.69.3.297.rm07 <- str_replace_all(jjep.69.3.297.rm06, pattern = rm.07, replacement = ""); jjep.69.3.297.rm08 <- str_replace_all(jjep.69.3.297.rm07, pattern = rm.08, replacement = ""); jjep.69.3.297.rm09 <- str_replace_all(jjep.69.3.297.rm08, pattern = rm.09, replacement = ""); jjep.69.3.297.rp10 <- str_replace_all(jjep.69.3.297.rm09, pattern = rp.01, replacement = "・"); jjep.69.3.297.rp11 <- str_replace_all(jjep.69.3.297.rp10, pattern = rp.02, replacement = ","); jjep.69.3.297.rp12 <- str_replace_all(jjep.69.3.297.rp11, pattern = rp.03, replacement = ","); jjep.69.3.297.rp13 <- str_replace_all(jjep.69.3.297.rp12, pattern = rp.04, replacement = ","); jjep.69.3.297.rp14 <- str_replace_all(jjep.69.3.297.rp13, pattern = rp.05, replacement = ","); jjep.69.3.297.rp15 <- str_replace_all(jjep.69.3.297.rp14, pattern = rp.06, replacement = ","); jjep.69.3.297.mod <- rbind(varname,jjep.69.3.297.rp15); write(jjep.69.3.297.mod, file = "./jjep/Mod_69_3_297.txt")
jjep.69.3.317.tx <- readr::read_file(file="./jjep/69_3_317.txt"); jjep.69.3.317.rm00 <- jjep.69.3.317.tx; jjep.69.3.317.rm01 <- str_replace_all(jjep.69.3.317.rm00, pattern = rm.01, replacement = ""); jjep.69.3.317.rm02 <- str_replace_all(jjep.69.3.317.rm01, pattern = rm.02, replacement = ""); jjep.69.3.317.rm03 <- str_replace_all(jjep.69.3.317.rm02, pattern = rm.03, replacement = ""); jjep.69.3.317.rm04 <- str_replace_all(jjep.69.3.317.rm03, pattern = rm.04, replacement = ""); jjep.69.3.317.rm05 <- str_replace_all(jjep.69.3.317.rm04, pattern = rm.05, replacement = ""); jjep.69.3.317.rm06 <- str_replace_all(jjep.69.3.317.rm05, pattern = rm.06, replacement = ""); jjep.69.3.317.rm07 <- str_replace_all(jjep.69.3.317.rm06, pattern = rm.07, replacement = ""); jjep.69.3.317.rm08 <- str_replace_all(jjep.69.3.317.rm07, pattern = rm.08, replacement = ""); jjep.69.3.317.rm09 <- str_replace_all(jjep.69.3.317.rm08, pattern = rm.09, replacement = ""); jjep.69.3.317.rp10 <- str_replace_all(jjep.69.3.317.rm09, pattern = rp.01, replacement = "・"); jjep.69.3.317.rp11 <- str_replace_all(jjep.69.3.317.rp10, pattern = rp.02, replacement = ","); jjep.69.3.317.rp12 <- str_replace_all(jjep.69.3.317.rp11, pattern = rp.03, replacement = ","); jjep.69.3.317.rp13 <- str_replace_all(jjep.69.3.317.rp12, pattern = rp.04, replacement = ","); jjep.69.3.317.rp14 <- str_replace_all(jjep.69.3.317.rp13, pattern = rp.05, replacement = ","); jjep.69.3.317.rp15 <- str_replace_all(jjep.69.3.317.rp14, pattern = rp.06, replacement = ","); jjep.69.3.317.mod <- rbind(varname,jjep.69.3.317.rp15); write(jjep.69.3.317.mod, file = "./jjep/Mod_69_3_317.txt")
jjep.69.2.99.tx <- readr::read_file(file="./jjep/69_2_99.txt"); jjep.69.2.99.rm00 <- jjep.69.2.99.tx; jjep.69.2.99.rm01 <- str_replace_all(jjep.69.2.99.rm00, pattern = rm.01, replacement = ""); jjep.69.2.99.rm02 <- str_replace_all(jjep.69.2.99.rm01, pattern = rm.02, replacement = ""); jjep.69.2.99.rm03 <- str_replace_all(jjep.69.2.99.rm02, pattern = rm.03, replacement = ""); jjep.69.2.99.rm04 <- str_replace_all(jjep.69.2.99.rm03, pattern = rm.04, replacement = ""); jjep.69.2.99.rm05 <- str_replace_all(jjep.69.2.99.rm04, pattern = rm.05, replacement = ""); jjep.69.2.99.rm06 <- str_replace_all(jjep.69.2.99.rm05, pattern = rm.06, replacement = ""); jjep.69.2.99.rm07 <- str_replace_all(jjep.69.2.99.rm06, pattern = rm.07, replacement = ""); jjep.69.2.99.rm08 <- str_replace_all(jjep.69.2.99.rm07, pattern = rm.08, replacement = ""); jjep.69.2.99.rm09 <- str_replace_all(jjep.69.2.99.rm08, pattern = rm.09, replacement = ""); jjep.69.2.99.rp10 <- str_replace_all(jjep.69.2.99.rm09, pattern = rp.01, replacement = "・"); jjep.69.2.99.rp11 <- str_replace_all(jjep.69.2.99.rp10, pattern = rp.02, replacement = ","); jjep.69.2.99.rp12 <- str_replace_all(jjep.69.2.99.rp11, pattern = rp.03, replacement = ","); jjep.69.2.99.rp13 <- str_replace_all(jjep.69.2.99.rp12, pattern = rp.04, replacement = ","); jjep.69.2.99.rp14 <- str_replace_all(jjep.69.2.99.rp13, pattern = rp.05, replacement = ","); jjep.69.2.99.rp15 <- str_replace_all(jjep.69.2.99.rp14, pattern = rp.06, replacement = ","); jjep.69.2.99.mod <- rbind(varname,jjep.69.2.99.rp15); write(jjep.69.2.99.mod, file = "./jjep/Mod_69_2_99.txt")
jjep.69.2.116.tx <- readr::read_file(file="./jjep/69_2_116.txt"); jjep.69.2.116.rm00 <- jjep.69.2.116.tx; jjep.69.2.116.rm01 <- str_replace_all(jjep.69.2.116.rm00, pattern = rm.01, replacement = ""); jjep.69.2.116.rm02 <- str_replace_all(jjep.69.2.116.rm01, pattern = rm.02, replacement = ""); jjep.69.2.116.rm03 <- str_replace_all(jjep.69.2.116.rm02, pattern = rm.03, replacement = ""); jjep.69.2.116.rm04 <- str_replace_all(jjep.69.2.116.rm03, pattern = rm.04, replacement = ""); jjep.69.2.116.rm05 <- str_replace_all(jjep.69.2.116.rm04, pattern = rm.05, replacement = ""); jjep.69.2.116.rm06 <- str_replace_all(jjep.69.2.116.rm05, pattern = rm.06, replacement = ""); jjep.69.2.116.rm07 <- str_replace_all(jjep.69.2.116.rm06, pattern = rm.07, replacement = ""); jjep.69.2.116.rm08 <- str_replace_all(jjep.69.2.116.rm07, pattern = rm.08, replacement = ""); jjep.69.2.116.rm09 <- str_replace_all(jjep.69.2.116.rm08, pattern = rm.09, replacement = ""); jjep.69.2.116.rp10 <- str_replace_all(jjep.69.2.116.rm09, pattern = rp.01, replacement = "・"); jjep.69.2.116.rp11 <- str_replace_all(jjep.69.2.116.rp10, pattern = rp.02, replacement = ","); jjep.69.2.116.rp12 <- str_replace_all(jjep.69.2.116.rp11, pattern = rp.03, replacement = ","); jjep.69.2.116.rp13 <- str_replace_all(jjep.69.2.116.rp12, pattern = rp.04, replacement = ","); jjep.69.2.116.rp14 <- str_replace_all(jjep.69.2.116.rp13, pattern = rp.05, replacement = ","); jjep.69.2.116.rp15 <- str_replace_all(jjep.69.2.116.rp14, pattern = rp.06, replacement = ","); jjep.69.2.116.mod <- rbind(varname,jjep.69.2.116.rp15); write(jjep.69.2.116.mod, file = "./jjep/Mod_69_2_116.txt")
jjep.69.2.135.tx <- readr::read_file(file="./jjep/69_2_135.txt"); jjep.69.2.135.rm00 <- jjep.69.2.135.tx; jjep.69.2.135.rm01 <- str_replace_all(jjep.69.2.135.rm00, pattern = rm.01, replacement = ""); jjep.69.2.135.rm02 <- str_replace_all(jjep.69.2.135.rm01, pattern = rm.02, replacement = ""); jjep.69.2.135.rm03 <- str_replace_all(jjep.69.2.135.rm02, pattern = rm.03, replacement = ""); jjep.69.2.135.rm04 <- str_replace_all(jjep.69.2.135.rm03, pattern = rm.04, replacement = ""); jjep.69.2.135.rm05 <- str_replace_all(jjep.69.2.135.rm04, pattern = rm.05, replacement = ""); jjep.69.2.135.rm06 <- str_replace_all(jjep.69.2.135.rm05, pattern = rm.06, replacement = ""); jjep.69.2.135.rm07 <- str_replace_all(jjep.69.2.135.rm06, pattern = rm.07, replacement = ""); jjep.69.2.135.rm08 <- str_replace_all(jjep.69.2.135.rm07, pattern = rm.08, replacement = ""); jjep.69.2.135.rm09 <- str_replace_all(jjep.69.2.135.rm08, pattern = rm.09, replacement = ""); jjep.69.2.135.rp10 <- str_replace_all(jjep.69.2.135.rm09, pattern = rp.01, replacement = "・"); jjep.69.2.135.rp11 <- str_replace_all(jjep.69.2.135.rp10, pattern = rp.02, replacement = ","); jjep.69.2.135.rp12 <- str_replace_all(jjep.69.2.135.rp11, pattern = rp.03, replacement = ","); jjep.69.2.135.rp13 <- str_replace_all(jjep.69.2.135.rp12, pattern = rp.04, replacement = ","); jjep.69.2.135.rp14 <- str_replace_all(jjep.69.2.135.rp13, pattern = rp.05, replacement = ","); jjep.69.2.135.rp15 <- str_replace_all(jjep.69.2.135.rp14, pattern = rp.06, replacement = ","); jjep.69.2.135.mod <- rbind(varname,jjep.69.2.135.rp15); write(jjep.69.2.135.mod, file = "./jjep/Mod_69_2_135.txt")
jjep.69.2.149.tx <- readr::read_file(file="./jjep/69_2_149.txt"); jjep.69.2.149.rm00 <- jjep.69.2.149.tx; jjep.69.2.149.rm01 <- str_replace_all(jjep.69.2.149.rm00, pattern = rm.01, replacement = ""); jjep.69.2.149.rm02 <- str_replace_all(jjep.69.2.149.rm01, pattern = rm.02, replacement = ""); jjep.69.2.149.rm03 <- str_replace_all(jjep.69.2.149.rm02, pattern = rm.03, replacement = ""); jjep.69.2.149.rm04 <- str_replace_all(jjep.69.2.149.rm03, pattern = rm.04, replacement = ""); jjep.69.2.149.rm05 <- str_replace_all(jjep.69.2.149.rm04, pattern = rm.05, replacement = ""); jjep.69.2.149.rm06 <- str_replace_all(jjep.69.2.149.rm05, pattern = rm.06, replacement = ""); jjep.69.2.149.rm07 <- str_replace_all(jjep.69.2.149.rm06, pattern = rm.07, replacement = ""); jjep.69.2.149.rm08 <- str_replace_all(jjep.69.2.149.rm07, pattern = rm.08, replacement = ""); jjep.69.2.149.rm09 <- str_replace_all(jjep.69.2.149.rm08, pattern = rm.09, replacement = ""); jjep.69.2.149.rp10 <- str_replace_all(jjep.69.2.149.rm09, pattern = rp.01, replacement = "・"); jjep.69.2.149.rp11 <- str_replace_all(jjep.69.2.149.rp10, pattern = rp.02, replacement = ","); jjep.69.2.149.rp12 <- str_replace_all(jjep.69.2.149.rp11, pattern = rp.03, replacement = ","); jjep.69.2.149.rp13 <- str_replace_all(jjep.69.2.149.rp12, pattern = rp.04, replacement = ","); jjep.69.2.149.rp14 <- str_replace_all(jjep.69.2.149.rp13, pattern = rp.05, replacement = ","); jjep.69.2.149.rp15 <- str_replace_all(jjep.69.2.149.rp14, pattern = rp.06, replacement = ","); jjep.69.2.149.mod <- rbind(varname,jjep.69.2.149.rp15); write(jjep.69.2.149.mod, file = "./jjep/Mod_69_2_149.txt")
jjep.69.2.158.tx <- readr::read_file(file="./jjep/69_2_158.txt"); jjep.69.2.158.rm00 <- jjep.69.2.158.tx; jjep.69.2.158.rm01 <- str_replace_all(jjep.69.2.158.rm00, pattern = rm.01, replacement = ""); jjep.69.2.158.rm02 <- str_replace_all(jjep.69.2.158.rm01, pattern = rm.02, replacement = ""); jjep.69.2.158.rm03 <- str_replace_all(jjep.69.2.158.rm02, pattern = rm.03, replacement = ""); jjep.69.2.158.rm04 <- str_replace_all(jjep.69.2.158.rm03, pattern = rm.04, replacement = ""); jjep.69.2.158.rm05 <- str_replace_all(jjep.69.2.158.rm04, pattern = rm.05, replacement = ""); jjep.69.2.158.rm06 <- str_replace_all(jjep.69.2.158.rm05, pattern = rm.06, replacement = ""); jjep.69.2.158.rm07 <- str_replace_all(jjep.69.2.158.rm06, pattern = rm.07, replacement = ""); jjep.69.2.158.rm08 <- str_replace_all(jjep.69.2.158.rm07, pattern = rm.08, replacement = ""); jjep.69.2.158.rm09 <- str_replace_all(jjep.69.2.158.rm08, pattern = rm.09, replacement = ""); jjep.69.2.158.rp10 <- str_replace_all(jjep.69.2.158.rm09, pattern = rp.01, replacement = "・"); jjep.69.2.158.rp11 <- str_replace_all(jjep.69.2.158.rp10, pattern = rp.02, replacement = ","); jjep.69.2.158.rp12 <- str_replace_all(jjep.69.2.158.rp11, pattern = rp.03, replacement = ","); jjep.69.2.158.rp13 <- str_replace_all(jjep.69.2.158.rp12, pattern = rp.04, replacement = ","); jjep.69.2.158.rp14 <- str_replace_all(jjep.69.2.158.rp13, pattern = rp.05, replacement = ","); jjep.69.2.158.rp15 <- str_replace_all(jjep.69.2.158.rp14, pattern = rp.06, replacement = ","); jjep.69.2.158.mod <- rbind(varname,jjep.69.2.158.rp15); write(jjep.69.2.158.mod, file = "./jjep/Mod_69_2_158.txt")
jjep.69.2.175.tx <- readr::read_file(file="./jjep/69_2_175.txt"); jjep.69.2.175.rm00 <- jjep.69.2.175.tx; jjep.69.2.175.rm01 <- str_replace_all(jjep.69.2.175.rm00, pattern = rm.01, replacement = ""); jjep.69.2.175.rm02 <- str_replace_all(jjep.69.2.175.rm01, pattern = rm.02, replacement = ""); jjep.69.2.175.rm03 <- str_replace_all(jjep.69.2.175.rm02, pattern = rm.03, replacement = ""); jjep.69.2.175.rm04 <- str_replace_all(jjep.69.2.175.rm03, pattern = rm.04, replacement = ""); jjep.69.2.175.rm05 <- str_replace_all(jjep.69.2.175.rm04, pattern = rm.05, replacement = ""); jjep.69.2.175.rm06 <- str_replace_all(jjep.69.2.175.rm05, pattern = rm.06, replacement = ""); jjep.69.2.175.rm07 <- str_replace_all(jjep.69.2.175.rm06, pattern = rm.07, replacement = ""); jjep.69.2.175.rm08 <- str_replace_all(jjep.69.2.175.rm07, pattern = rm.08, replacement = ""); jjep.69.2.175.rm09 <- str_replace_all(jjep.69.2.175.rm08, pattern = rm.09, replacement = ""); jjep.69.2.175.rp10 <- str_replace_all(jjep.69.2.175.rm09, pattern = rp.01, replacement = "・"); jjep.69.2.175.rp11 <- str_replace_all(jjep.69.2.175.rp10, pattern = rp.02, replacement = ","); jjep.69.2.175.rp12 <- str_replace_all(jjep.69.2.175.rp11, pattern = rp.03, replacement = ","); jjep.69.2.175.rp13 <- str_replace_all(jjep.69.2.175.rp12, pattern = rp.04, replacement = ","); jjep.69.2.175.rp14 <- str_replace_all(jjep.69.2.175.rp13, pattern = rp.05, replacement = ","); jjep.69.2.175.rp15 <- str_replace_all(jjep.69.2.175.rp14, pattern = rp.06, replacement = ","); jjep.69.2.175.mod <- rbind(varname,jjep.69.2.175.rp15); write(jjep.69.2.175.mod, file = "./jjep/Mod_69_2_175.txt")
jjep.69.2.187.tx <- readr::read_file(file="./jjep/69_2_187.txt"); jjep.69.2.187.rm00 <- jjep.69.2.187.tx; jjep.69.2.187.rm01 <- str_replace_all(jjep.69.2.187.rm00, pattern = rm.01, replacement = ""); jjep.69.2.187.rm02 <- str_replace_all(jjep.69.2.187.rm01, pattern = rm.02, replacement = ""); jjep.69.2.187.rm03 <- str_replace_all(jjep.69.2.187.rm02, pattern = rm.03, replacement = ""); jjep.69.2.187.rm04 <- str_replace_all(jjep.69.2.187.rm03, pattern = rm.04, replacement = ""); jjep.69.2.187.rm05 <- str_replace_all(jjep.69.2.187.rm04, pattern = rm.05, replacement = ""); jjep.69.2.187.rm06 <- str_replace_all(jjep.69.2.187.rm05, pattern = rm.06, replacement = ""); jjep.69.2.187.rm07 <- str_replace_all(jjep.69.2.187.rm06, pattern = rm.07, replacement = ""); jjep.69.2.187.rm08 <- str_replace_all(jjep.69.2.187.rm07, pattern = rm.08, replacement = ""); jjep.69.2.187.rm09 <- str_replace_all(jjep.69.2.187.rm08, pattern = rm.09, replacement = ""); jjep.69.2.187.rp10 <- str_replace_all(jjep.69.2.187.rm09, pattern = rp.01, replacement = "・"); jjep.69.2.187.rp11 <- str_replace_all(jjep.69.2.187.rp10, pattern = rp.02, replacement = ","); jjep.69.2.187.rp12 <- str_replace_all(jjep.69.2.187.rp11, pattern = rp.03, replacement = ","); jjep.69.2.187.rp13 <- str_replace_all(jjep.69.2.187.rp12, pattern = rp.04, replacement = ","); jjep.69.2.187.rp14 <- str_replace_all(jjep.69.2.187.rp13, pattern = rp.05, replacement = ","); jjep.69.2.187.rp15 <- str_replace_all(jjep.69.2.187.rp14, pattern = rp.06, replacement = ","); jjep.69.2.187.mod <- rbind(varname,jjep.69.2.187.rp15); write(jjep.69.2.187.mod, file = "./jjep/Mod_69_2_187.txt")
jjep.69.2.204.tx <- readr::read_file(file="./jjep/69_2_204.txt"); jjep.69.2.204.rm00 <- jjep.69.2.204.tx; jjep.69.2.204.rm01 <- str_replace_all(jjep.69.2.204.rm00, pattern = rm.01, replacement = ""); jjep.69.2.204.rm02 <- str_replace_all(jjep.69.2.204.rm01, pattern = rm.02, replacement = ""); jjep.69.2.204.rm03 <- str_replace_all(jjep.69.2.204.rm02, pattern = rm.03, replacement = ""); jjep.69.2.204.rm04 <- str_replace_all(jjep.69.2.204.rm03, pattern = rm.04, replacement = ""); jjep.69.2.204.rm05 <- str_replace_all(jjep.69.2.204.rm04, pattern = rm.05, replacement = ""); jjep.69.2.204.rm06 <- str_replace_all(jjep.69.2.204.rm05, pattern = rm.06, replacement = ""); jjep.69.2.204.rm07 <- str_replace_all(jjep.69.2.204.rm06, pattern = rm.07, replacement = ""); jjep.69.2.204.rm08 <- str_replace_all(jjep.69.2.204.rm07, pattern = rm.08, replacement = ""); jjep.69.2.204.rm09 <- str_replace_all(jjep.69.2.204.rm08, pattern = rm.09, replacement = ""); jjep.69.2.204.rp10 <- str_replace_all(jjep.69.2.204.rm09, pattern = rp.01, replacement = "・"); jjep.69.2.204.rp11 <- str_replace_all(jjep.69.2.204.rp10, pattern = rp.02, replacement = ","); jjep.69.2.204.rp12 <- str_replace_all(jjep.69.2.204.rp11, pattern = rp.03, replacement = ","); jjep.69.2.204.rp13 <- str_replace_all(jjep.69.2.204.rp12, pattern = rp.04, replacement = ","); jjep.69.2.204.rp14 <- str_replace_all(jjep.69.2.204.rp13, pattern = rp.05, replacement = ","); jjep.69.2.204.rp15 <- str_replace_all(jjep.69.2.204.rp14, pattern = rp.06, replacement = ","); jjep.69.2.204.mod <- rbind(varname,jjep.69.2.204.rp15); write(jjep.69.2.204.mod, file = "./jjep/Mod_69_2_204.txt")
jjep.69.1.1.tx <- readr::read_file(file="./jjep/69_1_1.txt"); jjep.69.1.1.rm00 <- jjep.69.1.1.tx; jjep.69.1.1.rm01 <- str_replace_all(jjep.69.1.1.rm00, pattern = rm.01, replacement = ""); jjep.69.1.1.rm02 <- str_replace_all(jjep.69.1.1.rm01, pattern = rm.02, replacement = ""); jjep.69.1.1.rm03 <- str_replace_all(jjep.69.1.1.rm02, pattern = rm.03, replacement = ""); jjep.69.1.1.rm04 <- str_replace_all(jjep.69.1.1.rm03, pattern = rm.04, replacement = ""); jjep.69.1.1.rm05 <- str_replace_all(jjep.69.1.1.rm04, pattern = rm.05, replacement = ""); jjep.69.1.1.rm06 <- str_replace_all(jjep.69.1.1.rm05, pattern = rm.06, replacement = ""); jjep.69.1.1.rm07 <- str_replace_all(jjep.69.1.1.rm06, pattern = rm.07, replacement = ""); jjep.69.1.1.rm08 <- str_replace_all(jjep.69.1.1.rm07, pattern = rm.08, replacement = ""); jjep.69.1.1.rm09 <- str_replace_all(jjep.69.1.1.rm08, pattern = rm.09, replacement = ""); jjep.69.1.1.rp10 <- str_replace_all(jjep.69.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.69.1.1.rp11 <- str_replace_all(jjep.69.1.1.rp10, pattern = rp.02, replacement = ","); jjep.69.1.1.rp12 <- str_replace_all(jjep.69.1.1.rp11, pattern = rp.03, replacement = ","); jjep.69.1.1.rp13 <- str_replace_all(jjep.69.1.1.rp12, pattern = rp.04, replacement = ","); jjep.69.1.1.rp14 <- str_replace_all(jjep.69.1.1.rp13, pattern = rp.05, replacement = ","); jjep.69.1.1.rp15 <- str_replace_all(jjep.69.1.1.rp14, pattern = rp.06, replacement = ","); jjep.69.1.1.mod <- rbind(varname,jjep.69.1.1.rp15); write(jjep.69.1.1.mod, file = "./jjep/Mod_69_1_1.txt")
jjep.69.1.10.tx <- readr::read_file(file="./jjep/69_1_10.txt"); jjep.69.1.10.rm00 <- jjep.69.1.10.tx; jjep.69.1.10.rm01 <- str_replace_all(jjep.69.1.10.rm00, pattern = rm.01, replacement = ""); jjep.69.1.10.rm02 <- str_replace_all(jjep.69.1.10.rm01, pattern = rm.02, replacement = ""); jjep.69.1.10.rm03 <- str_replace_all(jjep.69.1.10.rm02, pattern = rm.03, replacement = ""); jjep.69.1.10.rm04 <- str_replace_all(jjep.69.1.10.rm03, pattern = rm.04, replacement = ""); jjep.69.1.10.rm05 <- str_replace_all(jjep.69.1.10.rm04, pattern = rm.05, replacement = ""); jjep.69.1.10.rm06 <- str_replace_all(jjep.69.1.10.rm05, pattern = rm.06, replacement = ""); jjep.69.1.10.rm07 <- str_replace_all(jjep.69.1.10.rm06, pattern = rm.07, replacement = ""); jjep.69.1.10.rm08 <- str_replace_all(jjep.69.1.10.rm07, pattern = rm.08, replacement = ""); jjep.69.1.10.rm09 <- str_replace_all(jjep.69.1.10.rm08, pattern = rm.09, replacement = ""); jjep.69.1.10.rp10 <- str_replace_all(jjep.69.1.10.rm09, pattern = rp.01, replacement = "・"); jjep.69.1.10.rp11 <- str_replace_all(jjep.69.1.10.rp10, pattern = rp.02, replacement = ","); jjep.69.1.10.rp12 <- str_replace_all(jjep.69.1.10.rp11, pattern = rp.03, replacement = ","); jjep.69.1.10.rp13 <- str_replace_all(jjep.69.1.10.rp12, pattern = rp.04, replacement = ","); jjep.69.1.10.rp14 <- str_replace_all(jjep.69.1.10.rp13, pattern = rp.05, replacement = ","); jjep.69.1.10.rp15 <- str_replace_all(jjep.69.1.10.rp14, pattern = rp.06, replacement = ","); jjep.69.1.10.mod <- rbind(varname,jjep.69.1.10.rp15); write(jjep.69.1.10.mod, file = "./jjep/Mod_69_1_10.txt")
jjep.69.1.26.tx <- readr::read_file(file="./jjep/69_1_26.txt"); jjep.69.1.26.rm00 <- jjep.69.1.26.tx; jjep.69.1.26.rm01 <- str_replace_all(jjep.69.1.26.rm00, pattern = rm.01, replacement = ""); jjep.69.1.26.rm02 <- str_replace_all(jjep.69.1.26.rm01, pattern = rm.02, replacement = ""); jjep.69.1.26.rm03 <- str_replace_all(jjep.69.1.26.rm02, pattern = rm.03, replacement = ""); jjep.69.1.26.rm04 <- str_replace_all(jjep.69.1.26.rm03, pattern = rm.04, replacement = ""); jjep.69.1.26.rm05 <- str_replace_all(jjep.69.1.26.rm04, pattern = rm.05, replacement = ""); jjep.69.1.26.rm06 <- str_replace_all(jjep.69.1.26.rm05, pattern = rm.06, replacement = ""); jjep.69.1.26.rm07 <- str_replace_all(jjep.69.1.26.rm06, pattern = rm.07, replacement = ""); jjep.69.1.26.rm08 <- str_replace_all(jjep.69.1.26.rm07, pattern = rm.08, replacement = ""); jjep.69.1.26.rm09 <- str_replace_all(jjep.69.1.26.rm08, pattern = rm.09, replacement = ""); jjep.69.1.26.rp10 <- str_replace_all(jjep.69.1.26.rm09, pattern = rp.01, replacement = "・"); jjep.69.1.26.rp11 <- str_replace_all(jjep.69.1.26.rp10, pattern = rp.02, replacement = ","); jjep.69.1.26.rp12 <- str_replace_all(jjep.69.1.26.rp11, pattern = rp.03, replacement = ","); jjep.69.1.26.rp13 <- str_replace_all(jjep.69.1.26.rp12, pattern = rp.04, replacement = ","); jjep.69.1.26.rp14 <- str_replace_all(jjep.69.1.26.rp13, pattern = rp.05, replacement = ","); jjep.69.1.26.rp15 <- str_replace_all(jjep.69.1.26.rp14, pattern = rp.06, replacement = ","); jjep.69.1.26.mod <- rbind(varname,jjep.69.1.26.rp15); write(jjep.69.1.26.mod, file = "./jjep/Mod_69_1_26.txt")
jjep.69.1.37.tx <- readr::read_file(file="./jjep/69_1_37.txt"); jjep.69.1.37.rm00 <- jjep.69.1.37.tx; jjep.69.1.37.rm01 <- str_replace_all(jjep.69.1.37.rm00, pattern = rm.01, replacement = ""); jjep.69.1.37.rm02 <- str_replace_all(jjep.69.1.37.rm01, pattern = rm.02, replacement = ""); jjep.69.1.37.rm03 <- str_replace_all(jjep.69.1.37.rm02, pattern = rm.03, replacement = ""); jjep.69.1.37.rm04 <- str_replace_all(jjep.69.1.37.rm03, pattern = rm.04, replacement = ""); jjep.69.1.37.rm05 <- str_replace_all(jjep.69.1.37.rm04, pattern = rm.05, replacement = ""); jjep.69.1.37.rm06 <- str_replace_all(jjep.69.1.37.rm05, pattern = rm.06, replacement = ""); jjep.69.1.37.rm07 <- str_replace_all(jjep.69.1.37.rm06, pattern = rm.07, replacement = ""); jjep.69.1.37.rm08 <- str_replace_all(jjep.69.1.37.rm07, pattern = rm.08, replacement = ""); jjep.69.1.37.rm09 <- str_replace_all(jjep.69.1.37.rm08, pattern = rm.09, replacement = ""); jjep.69.1.37.rp10 <- str_replace_all(jjep.69.1.37.rm09, pattern = rp.01, replacement = "・"); jjep.69.1.37.rp11 <- str_replace_all(jjep.69.1.37.rp10, pattern = rp.02, replacement = ","); jjep.69.1.37.rp12 <- str_replace_all(jjep.69.1.37.rp11, pattern = rp.03, replacement = ","); jjep.69.1.37.rp13 <- str_replace_all(jjep.69.1.37.rp12, pattern = rp.04, replacement = ","); jjep.69.1.37.rp14 <- str_replace_all(jjep.69.1.37.rp13, pattern = rp.05, replacement = ","); jjep.69.1.37.rp15 <- str_replace_all(jjep.69.1.37.rp14, pattern = rp.06, replacement = ","); jjep.69.1.37.mod <- rbind(varname,jjep.69.1.37.rp15); write(jjep.69.1.37.mod, file = "./jjep/Mod_69_1_37.txt")
jjep.69.1.52.tx <- readr::read_file(file="./jjep/69_1_52.txt"); jjep.69.1.52.rm00 <- jjep.69.1.52.tx; jjep.69.1.52.rm01 <- str_replace_all(jjep.69.1.52.rm00, pattern = rm.01, replacement = ""); jjep.69.1.52.rm02 <- str_replace_all(jjep.69.1.52.rm01, pattern = rm.02, replacement = ""); jjep.69.1.52.rm03 <- str_replace_all(jjep.69.1.52.rm02, pattern = rm.03, replacement = ""); jjep.69.1.52.rm04 <- str_replace_all(jjep.69.1.52.rm03, pattern = rm.04, replacement = ""); jjep.69.1.52.rm05 <- str_replace_all(jjep.69.1.52.rm04, pattern = rm.05, replacement = ""); jjep.69.1.52.rm06 <- str_replace_all(jjep.69.1.52.rm05, pattern = rm.06, replacement = ""); jjep.69.1.52.rm07 <- str_replace_all(jjep.69.1.52.rm06, pattern = rm.07, replacement = ""); jjep.69.1.52.rm08 <- str_replace_all(jjep.69.1.52.rm07, pattern = rm.08, replacement = ""); jjep.69.1.52.rm09 <- str_replace_all(jjep.69.1.52.rm08, pattern = rm.09, replacement = ""); jjep.69.1.52.rp10 <- str_replace_all(jjep.69.1.52.rm09, pattern = rp.01, replacement = "・"); jjep.69.1.52.rp11 <- str_replace_all(jjep.69.1.52.rp10, pattern = rp.02, replacement = ","); jjep.69.1.52.rp12 <- str_replace_all(jjep.69.1.52.rp11, pattern = rp.03, replacement = ","); jjep.69.1.52.rp13 <- str_replace_all(jjep.69.1.52.rp12, pattern = rp.04, replacement = ","); jjep.69.1.52.rp14 <- str_replace_all(jjep.69.1.52.rp13, pattern = rp.05, replacement = ","); jjep.69.1.52.rp15 <- str_replace_all(jjep.69.1.52.rp14, pattern = rp.06, replacement = ","); jjep.69.1.52.mod <- rbind(varname,jjep.69.1.52.rp15); write(jjep.69.1.52.mod, file = "./jjep/Mod_69_1_52.txt")
jjep.69.1.64.tx <- readr::read_file(file="./jjep/69_1_64.txt"); jjep.69.1.64.rm00 <- jjep.69.1.64.tx; jjep.69.1.64.rm01 <- str_replace_all(jjep.69.1.64.rm00, pattern = rm.01, replacement = ""); jjep.69.1.64.rm02 <- str_replace_all(jjep.69.1.64.rm01, pattern = rm.02, replacement = ""); jjep.69.1.64.rm03 <- str_replace_all(jjep.69.1.64.rm02, pattern = rm.03, replacement = ""); jjep.69.1.64.rm04 <- str_replace_all(jjep.69.1.64.rm03, pattern = rm.04, replacement = ""); jjep.69.1.64.rm05 <- str_replace_all(jjep.69.1.64.rm04, pattern = rm.05, replacement = ""); jjep.69.1.64.rm06 <- str_replace_all(jjep.69.1.64.rm05, pattern = rm.06, replacement = ""); jjep.69.1.64.rm07 <- str_replace_all(jjep.69.1.64.rm06, pattern = rm.07, replacement = ""); jjep.69.1.64.rm08 <- str_replace_all(jjep.69.1.64.rm07, pattern = rm.08, replacement = ""); jjep.69.1.64.rm09 <- str_replace_all(jjep.69.1.64.rm08, pattern = rm.09, replacement = ""); jjep.69.1.64.rp10 <- str_replace_all(jjep.69.1.64.rm09, pattern = rp.01, replacement = "・"); jjep.69.1.64.rp11 <- str_replace_all(jjep.69.1.64.rp10, pattern = rp.02, replacement = ","); jjep.69.1.64.rp12 <- str_replace_all(jjep.69.1.64.rp11, pattern = rp.03, replacement = ","); jjep.69.1.64.rp13 <- str_replace_all(jjep.69.1.64.rp12, pattern = rp.04, replacement = ","); jjep.69.1.64.rp14 <- str_replace_all(jjep.69.1.64.rp13, pattern = rp.05, replacement = ","); jjep.69.1.64.rp15 <- str_replace_all(jjep.69.1.64.rp14, pattern = rp.06, replacement = ","); jjep.69.1.64.mod <- rbind(varname,jjep.69.1.64.rp15); write(jjep.69.1.64.mod, file = "./jjep/Mod_69_1_64.txt")
jjep.69.1.79.tx <- readr::read_file(file="./jjep/69_1_79.txt"); jjep.69.1.79.rm00 <- jjep.69.1.79.tx; jjep.69.1.79.rm01 <- str_replace_all(jjep.69.1.79.rm00, pattern = rm.01, replacement = ""); jjep.69.1.79.rm02 <- str_replace_all(jjep.69.1.79.rm01, pattern = rm.02, replacement = ""); jjep.69.1.79.rm03 <- str_replace_all(jjep.69.1.79.rm02, pattern = rm.03, replacement = ""); jjep.69.1.79.rm04 <- str_replace_all(jjep.69.1.79.rm03, pattern = rm.04, replacement = ""); jjep.69.1.79.rm05 <- str_replace_all(jjep.69.1.79.rm04, pattern = rm.05, replacement = ""); jjep.69.1.79.rm06 <- str_replace_all(jjep.69.1.79.rm05, pattern = rm.06, replacement = ""); jjep.69.1.79.rm07 <- str_replace_all(jjep.69.1.79.rm06, pattern = rm.07, replacement = ""); jjep.69.1.79.rm08 <- str_replace_all(jjep.69.1.79.rm07, pattern = rm.08, replacement = ""); jjep.69.1.79.rm09 <- str_replace_all(jjep.69.1.79.rm08, pattern = rm.09, replacement = ""); jjep.69.1.79.rp10 <- str_replace_all(jjep.69.1.79.rm09, pattern = rp.01, replacement = "・"); jjep.69.1.79.rp11 <- str_replace_all(jjep.69.1.79.rp10, pattern = rp.02, replacement = ","); jjep.69.1.79.rp12 <- str_replace_all(jjep.69.1.79.rp11, pattern = rp.03, replacement = ","); jjep.69.1.79.rp13 <- str_replace_all(jjep.69.1.79.rp12, pattern = rp.04, replacement = ","); jjep.69.1.79.rp14 <- str_replace_all(jjep.69.1.79.rp13, pattern = rp.05, replacement = ","); jjep.69.1.79.rp15 <- str_replace_all(jjep.69.1.79.rp14, pattern = rp.06, replacement = ","); jjep.69.1.79.mod <- rbind(varname,jjep.69.1.79.rp15); write(jjep.69.1.79.mod, file = "./jjep/Mod_69_1_79.txt")
jjep.68.4.339.tx <- readr::read_file(file="./jjep/68_4_339.txt"); jjep.68.4.339.rm00 <- jjep.68.4.339.tx; jjep.68.4.339.rm01 <- str_replace_all(jjep.68.4.339.rm00, pattern = rm.01, replacement = ""); jjep.68.4.339.rm02 <- str_replace_all(jjep.68.4.339.rm01, pattern = rm.02, replacement = ""); jjep.68.4.339.rm03 <- str_replace_all(jjep.68.4.339.rm02, pattern = rm.03, replacement = ""); jjep.68.4.339.rm04 <- str_replace_all(jjep.68.4.339.rm03, pattern = rm.04, replacement = ""); jjep.68.4.339.rm05 <- str_replace_all(jjep.68.4.339.rm04, pattern = rm.05, replacement = ""); jjep.68.4.339.rm06 <- str_replace_all(jjep.68.4.339.rm05, pattern = rm.06, replacement = ""); jjep.68.4.339.rm07 <- str_replace_all(jjep.68.4.339.rm06, pattern = rm.07, replacement = ""); jjep.68.4.339.rm08 <- str_replace_all(jjep.68.4.339.rm07, pattern = rm.08, replacement = ""); jjep.68.4.339.rm09 <- str_replace_all(jjep.68.4.339.rm08, pattern = rm.09, replacement = ""); jjep.68.4.339.rp10 <- str_replace_all(jjep.68.4.339.rm09, pattern = rp.01, replacement = "・"); jjep.68.4.339.rp11 <- str_replace_all(jjep.68.4.339.rp10, pattern = rp.02, replacement = ","); jjep.68.4.339.rp12 <- str_replace_all(jjep.68.4.339.rp11, pattern = rp.03, replacement = ","); jjep.68.4.339.rp13 <- str_replace_all(jjep.68.4.339.rp12, pattern = rp.04, replacement = ","); jjep.68.4.339.rp14 <- str_replace_all(jjep.68.4.339.rp13, pattern = rp.05, replacement = ","); jjep.68.4.339.rp15 <- str_replace_all(jjep.68.4.339.rp14, pattern = rp.06, replacement = ","); jjep.68.4.339.mod <- rbind(varname,jjep.68.4.339.rp15); write(jjep.68.4.339.mod, file = "./jjep/Mod_68_4_339.txt")
jjep.68.4.351.tx <- readr::read_file(file="./jjep/68_4_351.txt"); jjep.68.4.351.rm00 <- jjep.68.4.351.tx; jjep.68.4.351.rm01 <- str_replace_all(jjep.68.4.351.rm00, pattern = rm.01, replacement = ""); jjep.68.4.351.rm02 <- str_replace_all(jjep.68.4.351.rm01, pattern = rm.02, replacement = ""); jjep.68.4.351.rm03 <- str_replace_all(jjep.68.4.351.rm02, pattern = rm.03, replacement = ""); jjep.68.4.351.rm04 <- str_replace_all(jjep.68.4.351.rm03, pattern = rm.04, replacement = ""); jjep.68.4.351.rm05 <- str_replace_all(jjep.68.4.351.rm04, pattern = rm.05, replacement = ""); jjep.68.4.351.rm06 <- str_replace_all(jjep.68.4.351.rm05, pattern = rm.06, replacement = ""); jjep.68.4.351.rm07 <- str_replace_all(jjep.68.4.351.rm06, pattern = rm.07, replacement = ""); jjep.68.4.351.rm08 <- str_replace_all(jjep.68.4.351.rm07, pattern = rm.08, replacement = ""); jjep.68.4.351.rm09 <- str_replace_all(jjep.68.4.351.rm08, pattern = rm.09, replacement = ""); jjep.68.4.351.rp10 <- str_replace_all(jjep.68.4.351.rm09, pattern = rp.01, replacement = "・"); jjep.68.4.351.rp11 <- str_replace_all(jjep.68.4.351.rp10, pattern = rp.02, replacement = ","); jjep.68.4.351.rp12 <- str_replace_all(jjep.68.4.351.rp11, pattern = rp.03, replacement = ","); jjep.68.4.351.rp13 <- str_replace_all(jjep.68.4.351.rp12, pattern = rp.04, replacement = ","); jjep.68.4.351.rp14 <- str_replace_all(jjep.68.4.351.rp13, pattern = rp.05, replacement = ","); jjep.68.4.351.rp15 <- str_replace_all(jjep.68.4.351.rp14, pattern = rp.06, replacement = ","); jjep.68.4.351.mod <- rbind(varname,jjep.68.4.351.rp15); write(jjep.68.4.351.mod, file = "./jjep/Mod_68_4_351.txt")
jjep.68.4.360.tx <- readr::read_file(file="./jjep/68_4_360.txt"); jjep.68.4.360.rm00 <- jjep.68.4.360.tx; jjep.68.4.360.rm01 <- str_replace_all(jjep.68.4.360.rm00, pattern = rm.01, replacement = ""); jjep.68.4.360.rm02 <- str_replace_all(jjep.68.4.360.rm01, pattern = rm.02, replacement = ""); jjep.68.4.360.rm03 <- str_replace_all(jjep.68.4.360.rm02, pattern = rm.03, replacement = ""); jjep.68.4.360.rm04 <- str_replace_all(jjep.68.4.360.rm03, pattern = rm.04, replacement = ""); jjep.68.4.360.rm05 <- str_replace_all(jjep.68.4.360.rm04, pattern = rm.05, replacement = ""); jjep.68.4.360.rm06 <- str_replace_all(jjep.68.4.360.rm05, pattern = rm.06, replacement = ""); jjep.68.4.360.rm07 <- str_replace_all(jjep.68.4.360.rm06, pattern = rm.07, replacement = ""); jjep.68.4.360.rm08 <- str_replace_all(jjep.68.4.360.rm07, pattern = rm.08, replacement = ""); jjep.68.4.360.rm09 <- str_replace_all(jjep.68.4.360.rm08, pattern = rm.09, replacement = ""); jjep.68.4.360.rp10 <- str_replace_all(jjep.68.4.360.rm09, pattern = rp.01, replacement = "・"); jjep.68.4.360.rp11 <- str_replace_all(jjep.68.4.360.rp10, pattern = rp.02, replacement = ","); jjep.68.4.360.rp12 <- str_replace_all(jjep.68.4.360.rp11, pattern = rp.03, replacement = ","); jjep.68.4.360.rp13 <- str_replace_all(jjep.68.4.360.rp12, pattern = rp.04, replacement = ","); jjep.68.4.360.rp14 <- str_replace_all(jjep.68.4.360.rp13, pattern = rp.05, replacement = ","); jjep.68.4.360.rp15 <- str_replace_all(jjep.68.4.360.rp14, pattern = rp.06, replacement = ","); jjep.68.4.360.mod <- rbind(varname,jjep.68.4.360.rp15); write(jjep.68.4.360.mod, file = "./jjep/Mod_68_4_360.txt")
jjep.68.4.373.tx <- readr::read_file(file="./jjep/68_4_373.txt"); jjep.68.4.373.rm00 <- jjep.68.4.373.tx; jjep.68.4.373.rm01 <- str_replace_all(jjep.68.4.373.rm00, pattern = rm.01, replacement = ""); jjep.68.4.373.rm02 <- str_replace_all(jjep.68.4.373.rm01, pattern = rm.02, replacement = ""); jjep.68.4.373.rm03 <- str_replace_all(jjep.68.4.373.rm02, pattern = rm.03, replacement = ""); jjep.68.4.373.rm04 <- str_replace_all(jjep.68.4.373.rm03, pattern = rm.04, replacement = ""); jjep.68.4.373.rm05 <- str_replace_all(jjep.68.4.373.rm04, pattern = rm.05, replacement = ""); jjep.68.4.373.rm06 <- str_replace_all(jjep.68.4.373.rm05, pattern = rm.06, replacement = ""); jjep.68.4.373.rm07 <- str_replace_all(jjep.68.4.373.rm06, pattern = rm.07, replacement = ""); jjep.68.4.373.rm08 <- str_replace_all(jjep.68.4.373.rm07, pattern = rm.08, replacement = ""); jjep.68.4.373.rm09 <- str_replace_all(jjep.68.4.373.rm08, pattern = rm.09, replacement = ""); jjep.68.4.373.rp10 <- str_replace_all(jjep.68.4.373.rm09, pattern = rp.01, replacement = "・"); jjep.68.4.373.rp11 <- str_replace_all(jjep.68.4.373.rp10, pattern = rp.02, replacement = ","); jjep.68.4.373.rp12 <- str_replace_all(jjep.68.4.373.rp11, pattern = rp.03, replacement = ","); jjep.68.4.373.rp13 <- str_replace_all(jjep.68.4.373.rp12, pattern = rp.04, replacement = ","); jjep.68.4.373.rp14 <- str_replace_all(jjep.68.4.373.rp13, pattern = rp.05, replacement = ","); jjep.68.4.373.rp15 <- str_replace_all(jjep.68.4.373.rp14, pattern = rp.06, replacement = ","); jjep.68.4.373.mod <- rbind(varname,jjep.68.4.373.rp15); write(jjep.68.4.373.mod, file = "./jjep/Mod_68_4_373.txt")
jjep.68.4.388.tx <- readr::read_file(file="./jjep/68_4_388.txt"); jjep.68.4.388.rm00 <- jjep.68.4.388.tx; jjep.68.4.388.rm01 <- str_replace_all(jjep.68.4.388.rm00, pattern = rm.01, replacement = ""); jjep.68.4.388.rm02 <- str_replace_all(jjep.68.4.388.rm01, pattern = rm.02, replacement = ""); jjep.68.4.388.rm03 <- str_replace_all(jjep.68.4.388.rm02, pattern = rm.03, replacement = ""); jjep.68.4.388.rm04 <- str_replace_all(jjep.68.4.388.rm03, pattern = rm.04, replacement = ""); jjep.68.4.388.rm05 <- str_replace_all(jjep.68.4.388.rm04, pattern = rm.05, replacement = ""); jjep.68.4.388.rm06 <- str_replace_all(jjep.68.4.388.rm05, pattern = rm.06, replacement = ""); jjep.68.4.388.rm07 <- str_replace_all(jjep.68.4.388.rm06, pattern = rm.07, replacement = ""); jjep.68.4.388.rm08 <- str_replace_all(jjep.68.4.388.rm07, pattern = rm.08, replacement = ""); jjep.68.4.388.rm09 <- str_replace_all(jjep.68.4.388.rm08, pattern = rm.09, replacement = ""); jjep.68.4.388.rp10 <- str_replace_all(jjep.68.4.388.rm09, pattern = rp.01, replacement = "・"); jjep.68.4.388.rp11 <- str_replace_all(jjep.68.4.388.rp10, pattern = rp.02, replacement = ","); jjep.68.4.388.rp12 <- str_replace_all(jjep.68.4.388.rp11, pattern = rp.03, replacement = ","); jjep.68.4.388.rp13 <- str_replace_all(jjep.68.4.388.rp12, pattern = rp.04, replacement = ","); jjep.68.4.388.rp14 <- str_replace_all(jjep.68.4.388.rp13, pattern = rp.05, replacement = ","); jjep.68.4.388.rp15 <- str_replace_all(jjep.68.4.388.rp14, pattern = rp.06, replacement = ","); jjep.68.4.388.mod <- rbind(varname,jjep.68.4.388.rp15); write(jjep.68.4.388.mod, file = "./jjep/Mod_68_4_388.txt")
jjep.68.4.401.tx <- readr::read_file(file="./jjep/68_4_401.txt"); jjep.68.4.401.rm00 <- jjep.68.4.401.tx; jjep.68.4.401.rm01 <- str_replace_all(jjep.68.4.401.rm00, pattern = rm.01, replacement = ""); jjep.68.4.401.rm02 <- str_replace_all(jjep.68.4.401.rm01, pattern = rm.02, replacement = ""); jjep.68.4.401.rm03 <- str_replace_all(jjep.68.4.401.rm02, pattern = rm.03, replacement = ""); jjep.68.4.401.rm04 <- str_replace_all(jjep.68.4.401.rm03, pattern = rm.04, replacement = ""); jjep.68.4.401.rm05 <- str_replace_all(jjep.68.4.401.rm04, pattern = rm.05, replacement = ""); jjep.68.4.401.rm06 <- str_replace_all(jjep.68.4.401.rm05, pattern = rm.06, replacement = ""); jjep.68.4.401.rm07 <- str_replace_all(jjep.68.4.401.rm06, pattern = rm.07, replacement = ""); jjep.68.4.401.rm08 <- str_replace_all(jjep.68.4.401.rm07, pattern = rm.08, replacement = ""); jjep.68.4.401.rm09 <- str_replace_all(jjep.68.4.401.rm08, pattern = rm.09, replacement = ""); jjep.68.4.401.rp10 <- str_replace_all(jjep.68.4.401.rm09, pattern = rp.01, replacement = "・"); jjep.68.4.401.rp11 <- str_replace_all(jjep.68.4.401.rp10, pattern = rp.02, replacement = ","); jjep.68.4.401.rp12 <- str_replace_all(jjep.68.4.401.rp11, pattern = rp.03, replacement = ","); jjep.68.4.401.rp13 <- str_replace_all(jjep.68.4.401.rp12, pattern = rp.04, replacement = ","); jjep.68.4.401.rp14 <- str_replace_all(jjep.68.4.401.rp13, pattern = rp.05, replacement = ","); jjep.68.4.401.rp15 <- str_replace_all(jjep.68.4.401.rp14, pattern = rp.06, replacement = ","); jjep.68.4.401.mod <- rbind(varname,jjep.68.4.401.rp15); write(jjep.68.4.401.mod, file = "./jjep/Mod_68_4_401.txt")
jjep.68.3.237.tx <- readr::read_file(file="./jjep/68_3_237.txt"); jjep.68.3.237.rm00 <- jjep.68.3.237.tx; jjep.68.3.237.rm01 <- str_replace_all(jjep.68.3.237.rm00, pattern = rm.01, replacement = ""); jjep.68.3.237.rm02 <- str_replace_all(jjep.68.3.237.rm01, pattern = rm.02, replacement = ""); jjep.68.3.237.rm03 <- str_replace_all(jjep.68.3.237.rm02, pattern = rm.03, replacement = ""); jjep.68.3.237.rm04 <- str_replace_all(jjep.68.3.237.rm03, pattern = rm.04, replacement = ""); jjep.68.3.237.rm05 <- str_replace_all(jjep.68.3.237.rm04, pattern = rm.05, replacement = ""); jjep.68.3.237.rm06 <- str_replace_all(jjep.68.3.237.rm05, pattern = rm.06, replacement = ""); jjep.68.3.237.rm07 <- str_replace_all(jjep.68.3.237.rm06, pattern = rm.07, replacement = ""); jjep.68.3.237.rm08 <- str_replace_all(jjep.68.3.237.rm07, pattern = rm.08, replacement = ""); jjep.68.3.237.rm09 <- str_replace_all(jjep.68.3.237.rm08, pattern = rm.09, replacement = ""); jjep.68.3.237.rp10 <- str_replace_all(jjep.68.3.237.rm09, pattern = rp.01, replacement = "・"); jjep.68.3.237.rp11 <- str_replace_all(jjep.68.3.237.rp10, pattern = rp.02, replacement = ","); jjep.68.3.237.rp12 <- str_replace_all(jjep.68.3.237.rp11, pattern = rp.03, replacement = ","); jjep.68.3.237.rp13 <- str_replace_all(jjep.68.3.237.rp12, pattern = rp.04, replacement = ","); jjep.68.3.237.rp14 <- str_replace_all(jjep.68.3.237.rp13, pattern = rp.05, replacement = ","); jjep.68.3.237.rp15 <- str_replace_all(jjep.68.3.237.rp14, pattern = rp.06, replacement = ","); jjep.68.3.237.mod <- rbind(varname,jjep.68.3.237.rp15); write(jjep.68.3.237.mod, file = "./jjep/Mod_68_3_237.txt")
jjep.68.3.250.tx <- readr::read_file(file="./jjep/68_3_250.txt"); jjep.68.3.250.rm00 <- jjep.68.3.250.tx; jjep.68.3.250.rm01 <- str_replace_all(jjep.68.3.250.rm00, pattern = rm.01, replacement = ""); jjep.68.3.250.rm02 <- str_replace_all(jjep.68.3.250.rm01, pattern = rm.02, replacement = ""); jjep.68.3.250.rm03 <- str_replace_all(jjep.68.3.250.rm02, pattern = rm.03, replacement = ""); jjep.68.3.250.rm04 <- str_replace_all(jjep.68.3.250.rm03, pattern = rm.04, replacement = ""); jjep.68.3.250.rm05 <- str_replace_all(jjep.68.3.250.rm04, pattern = rm.05, replacement = ""); jjep.68.3.250.rm06 <- str_replace_all(jjep.68.3.250.rm05, pattern = rm.06, replacement = ""); jjep.68.3.250.rm07 <- str_replace_all(jjep.68.3.250.rm06, pattern = rm.07, replacement = ""); jjep.68.3.250.rm08 <- str_replace_all(jjep.68.3.250.rm07, pattern = rm.08, replacement = ""); jjep.68.3.250.rm09 <- str_replace_all(jjep.68.3.250.rm08, pattern = rm.09, replacement = ""); jjep.68.3.250.rp10 <- str_replace_all(jjep.68.3.250.rm09, pattern = rp.01, replacement = "・"); jjep.68.3.250.rp11 <- str_replace_all(jjep.68.3.250.rp10, pattern = rp.02, replacement = ","); jjep.68.3.250.rp12 <- str_replace_all(jjep.68.3.250.rp11, pattern = rp.03, replacement = ","); jjep.68.3.250.rp13 <- str_replace_all(jjep.68.3.250.rp12, pattern = rp.04, replacement = ","); jjep.68.3.250.rp14 <- str_replace_all(jjep.68.3.250.rp13, pattern = rp.05, replacement = ","); jjep.68.3.250.rp15 <- str_replace_all(jjep.68.3.250.rp14, pattern = rp.06, replacement = ","); jjep.68.3.250.mod <- rbind(varname,jjep.68.3.250.rp15); write(jjep.68.3.250.mod, file = "./jjep/Mod_68_3_250.txt")
jjep.68.3.266.tx <- readr::read_file(file="./jjep/68_3_266.txt"); jjep.68.3.266.rm00 <- jjep.68.3.266.tx; jjep.68.3.266.rm01 <- str_replace_all(jjep.68.3.266.rm00, pattern = rm.01, replacement = ""); jjep.68.3.266.rm02 <- str_replace_all(jjep.68.3.266.rm01, pattern = rm.02, replacement = ""); jjep.68.3.266.rm03 <- str_replace_all(jjep.68.3.266.rm02, pattern = rm.03, replacement = ""); jjep.68.3.266.rm04 <- str_replace_all(jjep.68.3.266.rm03, pattern = rm.04, replacement = ""); jjep.68.3.266.rm05 <- str_replace_all(jjep.68.3.266.rm04, pattern = rm.05, replacement = ""); jjep.68.3.266.rm06 <- str_replace_all(jjep.68.3.266.rm05, pattern = rm.06, replacement = ""); jjep.68.3.266.rm07 <- str_replace_all(jjep.68.3.266.rm06, pattern = rm.07, replacement = ""); jjep.68.3.266.rm08 <- str_replace_all(jjep.68.3.266.rm07, pattern = rm.08, replacement = ""); jjep.68.3.266.rm09 <- str_replace_all(jjep.68.3.266.rm08, pattern = rm.09, replacement = ""); jjep.68.3.266.rp10 <- str_replace_all(jjep.68.3.266.rm09, pattern = rp.01, replacement = "・"); jjep.68.3.266.rp11 <- str_replace_all(jjep.68.3.266.rp10, pattern = rp.02, replacement = ","); jjep.68.3.266.rp12 <- str_replace_all(jjep.68.3.266.rp11, pattern = rp.03, replacement = ","); jjep.68.3.266.rp13 <- str_replace_all(jjep.68.3.266.rp12, pattern = rp.04, replacement = ","); jjep.68.3.266.rp14 <- str_replace_all(jjep.68.3.266.rp13, pattern = rp.05, replacement = ","); jjep.68.3.266.rp15 <- str_replace_all(jjep.68.3.266.rp14, pattern = rp.06, replacement = ","); jjep.68.3.266.mod <- rbind(varname,jjep.68.3.266.rp15); write(jjep.68.3.266.mod, file = "./jjep/Mod_68_3_266.txt")
jjep.68.3.279.tx <- readr::read_file(file="./jjep/68_3_279.txt"); jjep.68.3.279.rm00 <- jjep.68.3.279.tx; jjep.68.3.279.rm01 <- str_replace_all(jjep.68.3.279.rm00, pattern = rm.01, replacement = ""); jjep.68.3.279.rm02 <- str_replace_all(jjep.68.3.279.rm01, pattern = rm.02, replacement = ""); jjep.68.3.279.rm03 <- str_replace_all(jjep.68.3.279.rm02, pattern = rm.03, replacement = ""); jjep.68.3.279.rm04 <- str_replace_all(jjep.68.3.279.rm03, pattern = rm.04, replacement = ""); jjep.68.3.279.rm05 <- str_replace_all(jjep.68.3.279.rm04, pattern = rm.05, replacement = ""); jjep.68.3.279.rm06 <- str_replace_all(jjep.68.3.279.rm05, pattern = rm.06, replacement = ""); jjep.68.3.279.rm07 <- str_replace_all(jjep.68.3.279.rm06, pattern = rm.07, replacement = ""); jjep.68.3.279.rm08 <- str_replace_all(jjep.68.3.279.rm07, pattern = rm.08, replacement = ""); jjep.68.3.279.rm09 <- str_replace_all(jjep.68.3.279.rm08, pattern = rm.09, replacement = ""); jjep.68.3.279.rp10 <- str_replace_all(jjep.68.3.279.rm09, pattern = rp.01, replacement = "・"); jjep.68.3.279.rp11 <- str_replace_all(jjep.68.3.279.rp10, pattern = rp.02, replacement = ","); jjep.68.3.279.rp12 <- str_replace_all(jjep.68.3.279.rp11, pattern = rp.03, replacement = ","); jjep.68.3.279.rp13 <- str_replace_all(jjep.68.3.279.rp12, pattern = rp.04, replacement = ","); jjep.68.3.279.rp14 <- str_replace_all(jjep.68.3.279.rp13, pattern = rp.05, replacement = ","); jjep.68.3.279.rp15 <- str_replace_all(jjep.68.3.279.rp14, pattern = rp.06, replacement = ","); jjep.68.3.279.mod <- rbind(varname,jjep.68.3.279.rp15); write(jjep.68.3.279.mod, file = "./jjep/Mod_68_3_279.txt")
jjep.68.3.295.tx <- readr::read_file(file="./jjep/68_3_295.txt"); jjep.68.3.295.rm00 <- jjep.68.3.295.tx; jjep.68.3.295.rm01 <- str_replace_all(jjep.68.3.295.rm00, pattern = rm.01, replacement = ""); jjep.68.3.295.rm02 <- str_replace_all(jjep.68.3.295.rm01, pattern = rm.02, replacement = ""); jjep.68.3.295.rm03 <- str_replace_all(jjep.68.3.295.rm02, pattern = rm.03, replacement = ""); jjep.68.3.295.rm04 <- str_replace_all(jjep.68.3.295.rm03, pattern = rm.04, replacement = ""); jjep.68.3.295.rm05 <- str_replace_all(jjep.68.3.295.rm04, pattern = rm.05, replacement = ""); jjep.68.3.295.rm06 <- str_replace_all(jjep.68.3.295.rm05, pattern = rm.06, replacement = ""); jjep.68.3.295.rm07 <- str_replace_all(jjep.68.3.295.rm06, pattern = rm.07, replacement = ""); jjep.68.3.295.rm08 <- str_replace_all(jjep.68.3.295.rm07, pattern = rm.08, replacement = ""); jjep.68.3.295.rm09 <- str_replace_all(jjep.68.3.295.rm08, pattern = rm.09, replacement = ""); jjep.68.3.295.rp10 <- str_replace_all(jjep.68.3.295.rm09, pattern = rp.01, replacement = "・"); jjep.68.3.295.rp11 <- str_replace_all(jjep.68.3.295.rp10, pattern = rp.02, replacement = ","); jjep.68.3.295.rp12 <- str_replace_all(jjep.68.3.295.rp11, pattern = rp.03, replacement = ","); jjep.68.3.295.rp13 <- str_replace_all(jjep.68.3.295.rp12, pattern = rp.04, replacement = ","); jjep.68.3.295.rp14 <- str_replace_all(jjep.68.3.295.rp13, pattern = rp.05, replacement = ","); jjep.68.3.295.rp15 <- str_replace_all(jjep.68.3.295.rp14, pattern = rp.06, replacement = ","); jjep.68.3.295.mod <- rbind(varname,jjep.68.3.295.rp15); write(jjep.68.3.295.mod, file = "./jjep/Mod_68_3_295.txt")
jjep.68.3.311.tx <- readr::read_file(file="./jjep/68_3_311.txt"); jjep.68.3.311.rm00 <- jjep.68.3.311.tx; jjep.68.3.311.rm01 <- str_replace_all(jjep.68.3.311.rm00, pattern = rm.01, replacement = ""); jjep.68.3.311.rm02 <- str_replace_all(jjep.68.3.311.rm01, pattern = rm.02, replacement = ""); jjep.68.3.311.rm03 <- str_replace_all(jjep.68.3.311.rm02, pattern = rm.03, replacement = ""); jjep.68.3.311.rm04 <- str_replace_all(jjep.68.3.311.rm03, pattern = rm.04, replacement = ""); jjep.68.3.311.rm05 <- str_replace_all(jjep.68.3.311.rm04, pattern = rm.05, replacement = ""); jjep.68.3.311.rm06 <- str_replace_all(jjep.68.3.311.rm05, pattern = rm.06, replacement = ""); jjep.68.3.311.rm07 <- str_replace_all(jjep.68.3.311.rm06, pattern = rm.07, replacement = ""); jjep.68.3.311.rm08 <- str_replace_all(jjep.68.3.311.rm07, pattern = rm.08, replacement = ""); jjep.68.3.311.rm09 <- str_replace_all(jjep.68.3.311.rm08, pattern = rm.09, replacement = ""); jjep.68.3.311.rp10 <- str_replace_all(jjep.68.3.311.rm09, pattern = rp.01, replacement = "・"); jjep.68.3.311.rp11 <- str_replace_all(jjep.68.3.311.rp10, pattern = rp.02, replacement = ","); jjep.68.3.311.rp12 <- str_replace_all(jjep.68.3.311.rp11, pattern = rp.03, replacement = ","); jjep.68.3.311.rp13 <- str_replace_all(jjep.68.3.311.rp12, pattern = rp.04, replacement = ","); jjep.68.3.311.rp14 <- str_replace_all(jjep.68.3.311.rp13, pattern = rp.05, replacement = ","); jjep.68.3.311.rp15 <- str_replace_all(jjep.68.3.311.rp14, pattern = rp.06, replacement = ","); jjep.68.3.311.mod <- rbind(varname,jjep.68.3.311.rp15); write(jjep.68.3.311.mod, file = "./jjep/Mod_68_3_311.txt")
jjep.68.3.322.tx <- readr::read_file(file="./jjep/68_3_322.txt"); jjep.68.3.322.rm00 <- jjep.68.3.322.tx; jjep.68.3.322.rm01 <- str_replace_all(jjep.68.3.322.rm00, pattern = rm.01, replacement = ""); jjep.68.3.322.rm02 <- str_replace_all(jjep.68.3.322.rm01, pattern = rm.02, replacement = ""); jjep.68.3.322.rm03 <- str_replace_all(jjep.68.3.322.rm02, pattern = rm.03, replacement = ""); jjep.68.3.322.rm04 <- str_replace_all(jjep.68.3.322.rm03, pattern = rm.04, replacement = ""); jjep.68.3.322.rm05 <- str_replace_all(jjep.68.3.322.rm04, pattern = rm.05, replacement = ""); jjep.68.3.322.rm06 <- str_replace_all(jjep.68.3.322.rm05, pattern = rm.06, replacement = ""); jjep.68.3.322.rm07 <- str_replace_all(jjep.68.3.322.rm06, pattern = rm.07, replacement = ""); jjep.68.3.322.rm08 <- str_replace_all(jjep.68.3.322.rm07, pattern = rm.08, replacement = ""); jjep.68.3.322.rm09 <- str_replace_all(jjep.68.3.322.rm08, pattern = rm.09, replacement = ""); jjep.68.3.322.rp10 <- str_replace_all(jjep.68.3.322.rm09, pattern = rp.01, replacement = "・"); jjep.68.3.322.rp11 <- str_replace_all(jjep.68.3.322.rp10, pattern = rp.02, replacement = ","); jjep.68.3.322.rp12 <- str_replace_all(jjep.68.3.322.rp11, pattern = rp.03, replacement = ","); jjep.68.3.322.rp13 <- str_replace_all(jjep.68.3.322.rp12, pattern = rp.04, replacement = ","); jjep.68.3.322.rp14 <- str_replace_all(jjep.68.3.322.rp13, pattern = rp.05, replacement = ","); jjep.68.3.322.rp15 <- str_replace_all(jjep.68.3.322.rp14, pattern = rp.06, replacement = ","); jjep.68.3.322.mod <- rbind(varname,jjep.68.3.322.rp15); write(jjep.68.3.322.mod, file = "./jjep/Mod_68_3_322.txt")
jjep.68.2.111.tx <- readr::read_file(file="./jjep/68_2_111.txt"); jjep.68.2.111.rm00 <- jjep.68.2.111.tx; jjep.68.2.111.rm01 <- str_replace_all(jjep.68.2.111.rm00, pattern = rm.01, replacement = ""); jjep.68.2.111.rm02 <- str_replace_all(jjep.68.2.111.rm01, pattern = rm.02, replacement = ""); jjep.68.2.111.rm03 <- str_replace_all(jjep.68.2.111.rm02, pattern = rm.03, replacement = ""); jjep.68.2.111.rm04 <- str_replace_all(jjep.68.2.111.rm03, pattern = rm.04, replacement = ""); jjep.68.2.111.rm05 <- str_replace_all(jjep.68.2.111.rm04, pattern = rm.05, replacement = ""); jjep.68.2.111.rm06 <- str_replace_all(jjep.68.2.111.rm05, pattern = rm.06, replacement = ""); jjep.68.2.111.rm07 <- str_replace_all(jjep.68.2.111.rm06, pattern = rm.07, replacement = ""); jjep.68.2.111.rm08 <- str_replace_all(jjep.68.2.111.rm07, pattern = rm.08, replacement = ""); jjep.68.2.111.rm09 <- str_replace_all(jjep.68.2.111.rm08, pattern = rm.09, replacement = ""); jjep.68.2.111.rp10 <- str_replace_all(jjep.68.2.111.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.111.rp11 <- str_replace_all(jjep.68.2.111.rp10, pattern = rp.02, replacement = ","); jjep.68.2.111.rp12 <- str_replace_all(jjep.68.2.111.rp11, pattern = rp.03, replacement = ","); jjep.68.2.111.rp13 <- str_replace_all(jjep.68.2.111.rp12, pattern = rp.04, replacement = ","); jjep.68.2.111.rp14 <- str_replace_all(jjep.68.2.111.rp13, pattern = rp.05, replacement = ","); jjep.68.2.111.rp15 <- str_replace_all(jjep.68.2.111.rp14, pattern = rp.06, replacement = ","); jjep.68.2.111.mod <- rbind(varname,jjep.68.2.111.rp15); write(jjep.68.2.111.mod, file = "./jjep/Mod_68_2_111.txt")
jjep.68.2.122.tx <- readr::read_file(file="./jjep/68_2_122.txt"); jjep.68.2.122.rm00 <- jjep.68.2.122.tx; jjep.68.2.122.rm01 <- str_replace_all(jjep.68.2.122.rm00, pattern = rm.01, replacement = ""); jjep.68.2.122.rm02 <- str_replace_all(jjep.68.2.122.rm01, pattern = rm.02, replacement = ""); jjep.68.2.122.rm03 <- str_replace_all(jjep.68.2.122.rm02, pattern = rm.03, replacement = ""); jjep.68.2.122.rm04 <- str_replace_all(jjep.68.2.122.rm03, pattern = rm.04, replacement = ""); jjep.68.2.122.rm05 <- str_replace_all(jjep.68.2.122.rm04, pattern = rm.05, replacement = ""); jjep.68.2.122.rm06 <- str_replace_all(jjep.68.2.122.rm05, pattern = rm.06, replacement = ""); jjep.68.2.122.rm07 <- str_replace_all(jjep.68.2.122.rm06, pattern = rm.07, replacement = ""); jjep.68.2.122.rm08 <- str_replace_all(jjep.68.2.122.rm07, pattern = rm.08, replacement = ""); jjep.68.2.122.rm09 <- str_replace_all(jjep.68.2.122.rm08, pattern = rm.09, replacement = ""); jjep.68.2.122.rp10 <- str_replace_all(jjep.68.2.122.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.122.rp11 <- str_replace_all(jjep.68.2.122.rp10, pattern = rp.02, replacement = ","); jjep.68.2.122.rp12 <- str_replace_all(jjep.68.2.122.rp11, pattern = rp.03, replacement = ","); jjep.68.2.122.rp13 <- str_replace_all(jjep.68.2.122.rp12, pattern = rp.04, replacement = ","); jjep.68.2.122.rp14 <- str_replace_all(jjep.68.2.122.rp13, pattern = rp.05, replacement = ","); jjep.68.2.122.rp15 <- str_replace_all(jjep.68.2.122.rp14, pattern = rp.06, replacement = ","); jjep.68.2.122.mod <- rbind(varname,jjep.68.2.122.rp15); write(jjep.68.2.122.mod, file = "./jjep/Mod_68_2_122.txt")
jjep.68.2.134.tx <- readr::read_file(file="./jjep/68_2_134.txt"); jjep.68.2.134.rm00 <- jjep.68.2.134.tx; jjep.68.2.134.rm01 <- str_replace_all(jjep.68.2.134.rm00, pattern = rm.01, replacement = ""); jjep.68.2.134.rm02 <- str_replace_all(jjep.68.2.134.rm01, pattern = rm.02, replacement = ""); jjep.68.2.134.rm03 <- str_replace_all(jjep.68.2.134.rm02, pattern = rm.03, replacement = ""); jjep.68.2.134.rm04 <- str_replace_all(jjep.68.2.134.rm03, pattern = rm.04, replacement = ""); jjep.68.2.134.rm05 <- str_replace_all(jjep.68.2.134.rm04, pattern = rm.05, replacement = ""); jjep.68.2.134.rm06 <- str_replace_all(jjep.68.2.134.rm05, pattern = rm.06, replacement = ""); jjep.68.2.134.rm07 <- str_replace_all(jjep.68.2.134.rm06, pattern = rm.07, replacement = ""); jjep.68.2.134.rm08 <- str_replace_all(jjep.68.2.134.rm07, pattern = rm.08, replacement = ""); jjep.68.2.134.rm09 <- str_replace_all(jjep.68.2.134.rm08, pattern = rm.09, replacement = ""); jjep.68.2.134.rp10 <- str_replace_all(jjep.68.2.134.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.134.rp11 <- str_replace_all(jjep.68.2.134.rp10, pattern = rp.02, replacement = ","); jjep.68.2.134.rp12 <- str_replace_all(jjep.68.2.134.rp11, pattern = rp.03, replacement = ","); jjep.68.2.134.rp13 <- str_replace_all(jjep.68.2.134.rp12, pattern = rp.04, replacement = ","); jjep.68.2.134.rp14 <- str_replace_all(jjep.68.2.134.rp13, pattern = rp.05, replacement = ","); jjep.68.2.134.rp15 <- str_replace_all(jjep.68.2.134.rp14, pattern = rp.06, replacement = ","); jjep.68.2.134.mod <- rbind(varname,jjep.68.2.134.rp15); write(jjep.68.2.134.mod, file = "./jjep/Mod_68_2_134.txt")
jjep.68.2.147.tx <- readr::read_file(file="./jjep/68_2_147.txt"); jjep.68.2.147.rm00 <- jjep.68.2.147.tx; jjep.68.2.147.rm01 <- str_replace_all(jjep.68.2.147.rm00, pattern = rm.01, replacement = ""); jjep.68.2.147.rm02 <- str_replace_all(jjep.68.2.147.rm01, pattern = rm.02, replacement = ""); jjep.68.2.147.rm03 <- str_replace_all(jjep.68.2.147.rm02, pattern = rm.03, replacement = ""); jjep.68.2.147.rm04 <- str_replace_all(jjep.68.2.147.rm03, pattern = rm.04, replacement = ""); jjep.68.2.147.rm05 <- str_replace_all(jjep.68.2.147.rm04, pattern = rm.05, replacement = ""); jjep.68.2.147.rm06 <- str_replace_all(jjep.68.2.147.rm05, pattern = rm.06, replacement = ""); jjep.68.2.147.rm07 <- str_replace_all(jjep.68.2.147.rm06, pattern = rm.07, replacement = ""); jjep.68.2.147.rm08 <- str_replace_all(jjep.68.2.147.rm07, pattern = rm.08, replacement = ""); jjep.68.2.147.rm09 <- str_replace_all(jjep.68.2.147.rm08, pattern = rm.09, replacement = ""); jjep.68.2.147.rp10 <- str_replace_all(jjep.68.2.147.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.147.rp11 <- str_replace_all(jjep.68.2.147.rp10, pattern = rp.02, replacement = ","); jjep.68.2.147.rp12 <- str_replace_all(jjep.68.2.147.rp11, pattern = rp.03, replacement = ","); jjep.68.2.147.rp13 <- str_replace_all(jjep.68.2.147.rp12, pattern = rp.04, replacement = ","); jjep.68.2.147.rp14 <- str_replace_all(jjep.68.2.147.rp13, pattern = rp.05, replacement = ","); jjep.68.2.147.rp15 <- str_replace_all(jjep.68.2.147.rp14, pattern = rp.06, replacement = ","); jjep.68.2.147.mod <- rbind(varname,jjep.68.2.147.rp15); write(jjep.68.2.147.mod, file = "./jjep/Mod_68_2_147.txt")
jjep.68.2.160.tx <- readr::read_file(file="./jjep/68_2_160.txt"); jjep.68.2.160.rm00 <- jjep.68.2.160.tx; jjep.68.2.160.rm01 <- str_replace_all(jjep.68.2.160.rm00, pattern = rm.01, replacement = ""); jjep.68.2.160.rm02 <- str_replace_all(jjep.68.2.160.rm01, pattern = rm.02, replacement = ""); jjep.68.2.160.rm03 <- str_replace_all(jjep.68.2.160.rm02, pattern = rm.03, replacement = ""); jjep.68.2.160.rm04 <- str_replace_all(jjep.68.2.160.rm03, pattern = rm.04, replacement = ""); jjep.68.2.160.rm05 <- str_replace_all(jjep.68.2.160.rm04, pattern = rm.05, replacement = ""); jjep.68.2.160.rm06 <- str_replace_all(jjep.68.2.160.rm05, pattern = rm.06, replacement = ""); jjep.68.2.160.rm07 <- str_replace_all(jjep.68.2.160.rm06, pattern = rm.07, replacement = ""); jjep.68.2.160.rm08 <- str_replace_all(jjep.68.2.160.rm07, pattern = rm.08, replacement = ""); jjep.68.2.160.rm09 <- str_replace_all(jjep.68.2.160.rm08, pattern = rm.09, replacement = ""); jjep.68.2.160.rp10 <- str_replace_all(jjep.68.2.160.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.160.rp11 <- str_replace_all(jjep.68.2.160.rp10, pattern = rp.02, replacement = ","); jjep.68.2.160.rp12 <- str_replace_all(jjep.68.2.160.rp11, pattern = rp.03, replacement = ","); jjep.68.2.160.rp13 <- str_replace_all(jjep.68.2.160.rp12, pattern = rp.04, replacement = ","); jjep.68.2.160.rp14 <- str_replace_all(jjep.68.2.160.rp13, pattern = rp.05, replacement = ","); jjep.68.2.160.rp15 <- str_replace_all(jjep.68.2.160.rp14, pattern = rp.06, replacement = ","); jjep.68.2.160.mod <- rbind(varname,jjep.68.2.160.rp15); write(jjep.68.2.160.mod, file = "./jjep/Mod_68_2_160.txt")
jjep.68.2.174.tx <- readr::read_file(file="./jjep/68_2_174.txt"); jjep.68.2.174.rm00 <- jjep.68.2.174.tx; jjep.68.2.174.rm01 <- str_replace_all(jjep.68.2.174.rm00, pattern = rm.01, replacement = ""); jjep.68.2.174.rm02 <- str_replace_all(jjep.68.2.174.rm01, pattern = rm.02, replacement = ""); jjep.68.2.174.rm03 <- str_replace_all(jjep.68.2.174.rm02, pattern = rm.03, replacement = ""); jjep.68.2.174.rm04 <- str_replace_all(jjep.68.2.174.rm03, pattern = rm.04, replacement = ""); jjep.68.2.174.rm05 <- str_replace_all(jjep.68.2.174.rm04, pattern = rm.05, replacement = ""); jjep.68.2.174.rm06 <- str_replace_all(jjep.68.2.174.rm05, pattern = rm.06, replacement = ""); jjep.68.2.174.rm07 <- str_replace_all(jjep.68.2.174.rm06, pattern = rm.07, replacement = ""); jjep.68.2.174.rm08 <- str_replace_all(jjep.68.2.174.rm07, pattern = rm.08, replacement = ""); jjep.68.2.174.rm09 <- str_replace_all(jjep.68.2.174.rm08, pattern = rm.09, replacement = ""); jjep.68.2.174.rp10 <- str_replace_all(jjep.68.2.174.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.174.rp11 <- str_replace_all(jjep.68.2.174.rp10, pattern = rp.02, replacement = ","); jjep.68.2.174.rp12 <- str_replace_all(jjep.68.2.174.rp11, pattern = rp.03, replacement = ","); jjep.68.2.174.rp13 <- str_replace_all(jjep.68.2.174.rp12, pattern = rp.04, replacement = ","); jjep.68.2.174.rp14 <- str_replace_all(jjep.68.2.174.rp13, pattern = rp.05, replacement = ","); jjep.68.2.174.rp15 <- str_replace_all(jjep.68.2.174.rp14, pattern = rp.06, replacement = ","); jjep.68.2.174.mod <- rbind(varname,jjep.68.2.174.rp15); write(jjep.68.2.174.mod, file = "./jjep/Mod_68_2_174.txt")
jjep.68.2.185.tx <- readr::read_file(file="./jjep/68_2_185.txt"); jjep.68.2.185.rm00 <- jjep.68.2.185.tx; jjep.68.2.185.rm01 <- str_replace_all(jjep.68.2.185.rm00, pattern = rm.01, replacement = ""); jjep.68.2.185.rm02 <- str_replace_all(jjep.68.2.185.rm01, pattern = rm.02, replacement = ""); jjep.68.2.185.rm03 <- str_replace_all(jjep.68.2.185.rm02, pattern = rm.03, replacement = ""); jjep.68.2.185.rm04 <- str_replace_all(jjep.68.2.185.rm03, pattern = rm.04, replacement = ""); jjep.68.2.185.rm05 <- str_replace_all(jjep.68.2.185.rm04, pattern = rm.05, replacement = ""); jjep.68.2.185.rm06 <- str_replace_all(jjep.68.2.185.rm05, pattern = rm.06, replacement = ""); jjep.68.2.185.rm07 <- str_replace_all(jjep.68.2.185.rm06, pattern = rm.07, replacement = ""); jjep.68.2.185.rm08 <- str_replace_all(jjep.68.2.185.rm07, pattern = rm.08, replacement = ""); jjep.68.2.185.rm09 <- str_replace_all(jjep.68.2.185.rm08, pattern = rm.09, replacement = ""); jjep.68.2.185.rp10 <- str_replace_all(jjep.68.2.185.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.185.rp11 <- str_replace_all(jjep.68.2.185.rp10, pattern = rp.02, replacement = ","); jjep.68.2.185.rp12 <- str_replace_all(jjep.68.2.185.rp11, pattern = rp.03, replacement = ","); jjep.68.2.185.rp13 <- str_replace_all(jjep.68.2.185.rp12, pattern = rp.04, replacement = ","); jjep.68.2.185.rp14 <- str_replace_all(jjep.68.2.185.rp13, pattern = rp.05, replacement = ","); jjep.68.2.185.rp15 <- str_replace_all(jjep.68.2.185.rp14, pattern = rp.06, replacement = ","); jjep.68.2.185.mod <- rbind(varname,jjep.68.2.185.rp15); write(jjep.68.2.185.mod, file = "./jjep/Mod_68_2_185.txt")
jjep.68.2.202.tx <- readr::read_file(file="./jjep/68_2_202.txt"); jjep.68.2.202.rm00 <- jjep.68.2.202.tx; jjep.68.2.202.rm01 <- str_replace_all(jjep.68.2.202.rm00, pattern = rm.01, replacement = ""); jjep.68.2.202.rm02 <- str_replace_all(jjep.68.2.202.rm01, pattern = rm.02, replacement = ""); jjep.68.2.202.rm03 <- str_replace_all(jjep.68.2.202.rm02, pattern = rm.03, replacement = ""); jjep.68.2.202.rm04 <- str_replace_all(jjep.68.2.202.rm03, pattern = rm.04, replacement = ""); jjep.68.2.202.rm05 <- str_replace_all(jjep.68.2.202.rm04, pattern = rm.05, replacement = ""); jjep.68.2.202.rm06 <- str_replace_all(jjep.68.2.202.rm05, pattern = rm.06, replacement = ""); jjep.68.2.202.rm07 <- str_replace_all(jjep.68.2.202.rm06, pattern = rm.07, replacement = ""); jjep.68.2.202.rm08 <- str_replace_all(jjep.68.2.202.rm07, pattern = rm.08, replacement = ""); jjep.68.2.202.rm09 <- str_replace_all(jjep.68.2.202.rm08, pattern = rm.09, replacement = ""); jjep.68.2.202.rp10 <- str_replace_all(jjep.68.2.202.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.202.rp11 <- str_replace_all(jjep.68.2.202.rp10, pattern = rp.02, replacement = ","); jjep.68.2.202.rp12 <- str_replace_all(jjep.68.2.202.rp11, pattern = rp.03, replacement = ","); jjep.68.2.202.rp13 <- str_replace_all(jjep.68.2.202.rp12, pattern = rp.04, replacement = ","); jjep.68.2.202.rp14 <- str_replace_all(jjep.68.2.202.rp13, pattern = rp.05, replacement = ","); jjep.68.2.202.rp15 <- str_replace_all(jjep.68.2.202.rp14, pattern = rp.06, replacement = ","); jjep.68.2.202.mod <- rbind(varname,jjep.68.2.202.rp15); write(jjep.68.2.202.mod, file = "./jjep/Mod_68_2_202.txt")
jjep.68.2.216.tx <- readr::read_file(file="./jjep/68_2_216.txt"); jjep.68.2.216.rm00 <- jjep.68.2.216.tx; jjep.68.2.216.rm01 <- str_replace_all(jjep.68.2.216.rm00, pattern = rm.01, replacement = ""); jjep.68.2.216.rm02 <- str_replace_all(jjep.68.2.216.rm01, pattern = rm.02, replacement = ""); jjep.68.2.216.rm03 <- str_replace_all(jjep.68.2.216.rm02, pattern = rm.03, replacement = ""); jjep.68.2.216.rm04 <- str_replace_all(jjep.68.2.216.rm03, pattern = rm.04, replacement = ""); jjep.68.2.216.rm05 <- str_replace_all(jjep.68.2.216.rm04, pattern = rm.05, replacement = ""); jjep.68.2.216.rm06 <- str_replace_all(jjep.68.2.216.rm05, pattern = rm.06, replacement = ""); jjep.68.2.216.rm07 <- str_replace_all(jjep.68.2.216.rm06, pattern = rm.07, replacement = ""); jjep.68.2.216.rm08 <- str_replace_all(jjep.68.2.216.rm07, pattern = rm.08, replacement = ""); jjep.68.2.216.rm09 <- str_replace_all(jjep.68.2.216.rm08, pattern = rm.09, replacement = ""); jjep.68.2.216.rp10 <- str_replace_all(jjep.68.2.216.rm09, pattern = rp.01, replacement = "・"); jjep.68.2.216.rp11 <- str_replace_all(jjep.68.2.216.rp10, pattern = rp.02, replacement = ","); jjep.68.2.216.rp12 <- str_replace_all(jjep.68.2.216.rp11, pattern = rp.03, replacement = ","); jjep.68.2.216.rp13 <- str_replace_all(jjep.68.2.216.rp12, pattern = rp.04, replacement = ","); jjep.68.2.216.rp14 <- str_replace_all(jjep.68.2.216.rp13, pattern = rp.05, replacement = ","); jjep.68.2.216.rp15 <- str_replace_all(jjep.68.2.216.rp14, pattern = rp.06, replacement = ","); jjep.68.2.216.mod <- rbind(varname,jjep.68.2.216.rp15); write(jjep.68.2.216.mod, file = "./jjep/Mod_68_2_216.txt")
jjep.68.1.1.tx <- readr::read_file(file="./jjep/68_1_1.txt"); jjep.68.1.1.rm00 <- jjep.68.1.1.tx; jjep.68.1.1.rm01 <- str_replace_all(jjep.68.1.1.rm00, pattern = rm.01, replacement = ""); jjep.68.1.1.rm02 <- str_replace_all(jjep.68.1.1.rm01, pattern = rm.02, replacement = ""); jjep.68.1.1.rm03 <- str_replace_all(jjep.68.1.1.rm02, pattern = rm.03, replacement = ""); jjep.68.1.1.rm04 <- str_replace_all(jjep.68.1.1.rm03, pattern = rm.04, replacement = ""); jjep.68.1.1.rm05 <- str_replace_all(jjep.68.1.1.rm04, pattern = rm.05, replacement = ""); jjep.68.1.1.rm06 <- str_replace_all(jjep.68.1.1.rm05, pattern = rm.06, replacement = ""); jjep.68.1.1.rm07 <- str_replace_all(jjep.68.1.1.rm06, pattern = rm.07, replacement = ""); jjep.68.1.1.rm08 <- str_replace_all(jjep.68.1.1.rm07, pattern = rm.08, replacement = ""); jjep.68.1.1.rm09 <- str_replace_all(jjep.68.1.1.rm08, pattern = rm.09, replacement = ""); jjep.68.1.1.rp10 <- str_replace_all(jjep.68.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.68.1.1.rp11 <- str_replace_all(jjep.68.1.1.rp10, pattern = rp.02, replacement = ","); jjep.68.1.1.rp12 <- str_replace_all(jjep.68.1.1.rp11, pattern = rp.03, replacement = ","); jjep.68.1.1.rp13 <- str_replace_all(jjep.68.1.1.rp12, pattern = rp.04, replacement = ","); jjep.68.1.1.rp14 <- str_replace_all(jjep.68.1.1.rp13, pattern = rp.05, replacement = ","); jjep.68.1.1.rp15 <- str_replace_all(jjep.68.1.1.rp14, pattern = rp.06, replacement = ","); jjep.68.1.1.mod <- rbind(varname,jjep.68.1.1.rp15); write(jjep.68.1.1.mod, file = "./jjep/Mod_68_1_1.txt")
jjep.68.1.11.tx <- readr::read_file(file="./jjep/68_1_11.txt"); jjep.68.1.11.rm00 <- jjep.68.1.11.tx; jjep.68.1.11.rm01 <- str_replace_all(jjep.68.1.11.rm00, pattern = rm.01, replacement = ""); jjep.68.1.11.rm02 <- str_replace_all(jjep.68.1.11.rm01, pattern = rm.02, replacement = ""); jjep.68.1.11.rm03 <- str_replace_all(jjep.68.1.11.rm02, pattern = rm.03, replacement = ""); jjep.68.1.11.rm04 <- str_replace_all(jjep.68.1.11.rm03, pattern = rm.04, replacement = ""); jjep.68.1.11.rm05 <- str_replace_all(jjep.68.1.11.rm04, pattern = rm.05, replacement = ""); jjep.68.1.11.rm06 <- str_replace_all(jjep.68.1.11.rm05, pattern = rm.06, replacement = ""); jjep.68.1.11.rm07 <- str_replace_all(jjep.68.1.11.rm06, pattern = rm.07, replacement = ""); jjep.68.1.11.rm08 <- str_replace_all(jjep.68.1.11.rm07, pattern = rm.08, replacement = ""); jjep.68.1.11.rm09 <- str_replace_all(jjep.68.1.11.rm08, pattern = rm.09, replacement = ""); jjep.68.1.11.rp10 <- str_replace_all(jjep.68.1.11.rm09, pattern = rp.01, replacement = "・"); jjep.68.1.11.rp11 <- str_replace_all(jjep.68.1.11.rp10, pattern = rp.02, replacement = ","); jjep.68.1.11.rp12 <- str_replace_all(jjep.68.1.11.rp11, pattern = rp.03, replacement = ","); jjep.68.1.11.rp13 <- str_replace_all(jjep.68.1.11.rp12, pattern = rp.04, replacement = ","); jjep.68.1.11.rp14 <- str_replace_all(jjep.68.1.11.rp13, pattern = rp.05, replacement = ","); jjep.68.1.11.rp15 <- str_replace_all(jjep.68.1.11.rp14, pattern = rp.06, replacement = ","); jjep.68.1.11.mod <- rbind(varname,jjep.68.1.11.rp15); write(jjep.68.1.11.mod, file = "./jjep/Mod_68_1_11.txt")
jjep.68.1.23.tx <- readr::read_file(file="./jjep/68_1_23.txt"); jjep.68.1.23.rm00 <- jjep.68.1.23.tx; jjep.68.1.23.rm01 <- str_replace_all(jjep.68.1.23.rm00, pattern = rm.01, replacement = ""); jjep.68.1.23.rm02 <- str_replace_all(jjep.68.1.23.rm01, pattern = rm.02, replacement = ""); jjep.68.1.23.rm03 <- str_replace_all(jjep.68.1.23.rm02, pattern = rm.03, replacement = ""); jjep.68.1.23.rm04 <- str_replace_all(jjep.68.1.23.rm03, pattern = rm.04, replacement = ""); jjep.68.1.23.rm05 <- str_replace_all(jjep.68.1.23.rm04, pattern = rm.05, replacement = ""); jjep.68.1.23.rm06 <- str_replace_all(jjep.68.1.23.rm05, pattern = rm.06, replacement = ""); jjep.68.1.23.rm07 <- str_replace_all(jjep.68.1.23.rm06, pattern = rm.07, replacement = ""); jjep.68.1.23.rm08 <- str_replace_all(jjep.68.1.23.rm07, pattern = rm.08, replacement = ""); jjep.68.1.23.rm09 <- str_replace_all(jjep.68.1.23.rm08, pattern = rm.09, replacement = ""); jjep.68.1.23.rp10 <- str_replace_all(jjep.68.1.23.rm09, pattern = rp.01, replacement = "・"); jjep.68.1.23.rp11 <- str_replace_all(jjep.68.1.23.rp10, pattern = rp.02, replacement = ","); jjep.68.1.23.rp12 <- str_replace_all(jjep.68.1.23.rp11, pattern = rp.03, replacement = ","); jjep.68.1.23.rp13 <- str_replace_all(jjep.68.1.23.rp12, pattern = rp.04, replacement = ","); jjep.68.1.23.rp14 <- str_replace_all(jjep.68.1.23.rp13, pattern = rp.05, replacement = ","); jjep.68.1.23.rp15 <- str_replace_all(jjep.68.1.23.rp14, pattern = rp.06, replacement = ","); jjep.68.1.23.mod <- rbind(varname,jjep.68.1.23.rp15); write(jjep.68.1.23.mod, file = "./jjep/Mod_68_1_23.txt")
jjep.68.1.33.tx <- readr::read_file(file="./jjep/68_1_33.txt"); jjep.68.1.33.rm00 <- jjep.68.1.33.tx; jjep.68.1.33.rm01 <- str_replace_all(jjep.68.1.33.rm00, pattern = rm.01, replacement = ""); jjep.68.1.33.rm02 <- str_replace_all(jjep.68.1.33.rm01, pattern = rm.02, replacement = ""); jjep.68.1.33.rm03 <- str_replace_all(jjep.68.1.33.rm02, pattern = rm.03, replacement = ""); jjep.68.1.33.rm04 <- str_replace_all(jjep.68.1.33.rm03, pattern = rm.04, replacement = ""); jjep.68.1.33.rm05 <- str_replace_all(jjep.68.1.33.rm04, pattern = rm.05, replacement = ""); jjep.68.1.33.rm06 <- str_replace_all(jjep.68.1.33.rm05, pattern = rm.06, replacement = ""); jjep.68.1.33.rm07 <- str_replace_all(jjep.68.1.33.rm06, pattern = rm.07, replacement = ""); jjep.68.1.33.rm08 <- str_replace_all(jjep.68.1.33.rm07, pattern = rm.08, replacement = ""); jjep.68.1.33.rm09 <- str_replace_all(jjep.68.1.33.rm08, pattern = rm.09, replacement = ""); jjep.68.1.33.rp10 <- str_replace_all(jjep.68.1.33.rm09, pattern = rp.01, replacement = "・"); jjep.68.1.33.rp11 <- str_replace_all(jjep.68.1.33.rp10, pattern = rp.02, replacement = ","); jjep.68.1.33.rp12 <- str_replace_all(jjep.68.1.33.rp11, pattern = rp.03, replacement = ","); jjep.68.1.33.rp13 <- str_replace_all(jjep.68.1.33.rp12, pattern = rp.04, replacement = ","); jjep.68.1.33.rp14 <- str_replace_all(jjep.68.1.33.rp13, pattern = rp.05, replacement = ","); jjep.68.1.33.rp15 <- str_replace_all(jjep.68.1.33.rp14, pattern = rp.06, replacement = ","); jjep.68.1.33.mod <- rbind(varname,jjep.68.1.33.rp15); write(jjep.68.1.33.mod, file = "./jjep/Mod_68_1_33.txt")
jjep.68.1.50.tx <- readr::read_file(file="./jjep/68_1_50.txt"); jjep.68.1.50.rm00 <- jjep.68.1.50.tx; jjep.68.1.50.rm01 <- str_replace_all(jjep.68.1.50.rm00, pattern = rm.01, replacement = ""); jjep.68.1.50.rm02 <- str_replace_all(jjep.68.1.50.rm01, pattern = rm.02, replacement = ""); jjep.68.1.50.rm03 <- str_replace_all(jjep.68.1.50.rm02, pattern = rm.03, replacement = ""); jjep.68.1.50.rm04 <- str_replace_all(jjep.68.1.50.rm03, pattern = rm.04, replacement = ""); jjep.68.1.50.rm05 <- str_replace_all(jjep.68.1.50.rm04, pattern = rm.05, replacement = ""); jjep.68.1.50.rm06 <- str_replace_all(jjep.68.1.50.rm05, pattern = rm.06, replacement = ""); jjep.68.1.50.rm07 <- str_replace_all(jjep.68.1.50.rm06, pattern = rm.07, replacement = ""); jjep.68.1.50.rm08 <- str_replace_all(jjep.68.1.50.rm07, pattern = rm.08, replacement = ""); jjep.68.1.50.rm09 <- str_replace_all(jjep.68.1.50.rm08, pattern = rm.09, replacement = ""); jjep.68.1.50.rp10 <- str_replace_all(jjep.68.1.50.rm09, pattern = rp.01, replacement = "・"); jjep.68.1.50.rp11 <- str_replace_all(jjep.68.1.50.rp10, pattern = rp.02, replacement = ","); jjep.68.1.50.rp12 <- str_replace_all(jjep.68.1.50.rp11, pattern = rp.03, replacement = ","); jjep.68.1.50.rp13 <- str_replace_all(jjep.68.1.50.rp12, pattern = rp.04, replacement = ","); jjep.68.1.50.rp14 <- str_replace_all(jjep.68.1.50.rp13, pattern = rp.05, replacement = ","); jjep.68.1.50.rp15 <- str_replace_all(jjep.68.1.50.rp14, pattern = rp.06, replacement = ","); jjep.68.1.50.mod <- rbind(varname,jjep.68.1.50.rp15); write(jjep.68.1.50.mod, file = "./jjep/Mod_68_1_50.txt")
jjep.68.1.66.tx <- readr::read_file(file="./jjep/68_1_66.txt"); jjep.68.1.66.rm00 <- jjep.68.1.66.tx; jjep.68.1.66.rm01 <- str_replace_all(jjep.68.1.66.rm00, pattern = rm.01, replacement = ""); jjep.68.1.66.rm02 <- str_replace_all(jjep.68.1.66.rm01, pattern = rm.02, replacement = ""); jjep.68.1.66.rm03 <- str_replace_all(jjep.68.1.66.rm02, pattern = rm.03, replacement = ""); jjep.68.1.66.rm04 <- str_replace_all(jjep.68.1.66.rm03, pattern = rm.04, replacement = ""); jjep.68.1.66.rm05 <- str_replace_all(jjep.68.1.66.rm04, pattern = rm.05, replacement = ""); jjep.68.1.66.rm06 <- str_replace_all(jjep.68.1.66.rm05, pattern = rm.06, replacement = ""); jjep.68.1.66.rm07 <- str_replace_all(jjep.68.1.66.rm06, pattern = rm.07, replacement = ""); jjep.68.1.66.rm08 <- str_replace_all(jjep.68.1.66.rm07, pattern = rm.08, replacement = ""); jjep.68.1.66.rm09 <- str_replace_all(jjep.68.1.66.rm08, pattern = rm.09, replacement = ""); jjep.68.1.66.rp10 <- str_replace_all(jjep.68.1.66.rm09, pattern = rp.01, replacement = "・"); jjep.68.1.66.rp11 <- str_replace_all(jjep.68.1.66.rp10, pattern = rp.02, replacement = ","); jjep.68.1.66.rp12 <- str_replace_all(jjep.68.1.66.rp11, pattern = rp.03, replacement = ","); jjep.68.1.66.rp13 <- str_replace_all(jjep.68.1.66.rp12, pattern = rp.04, replacement = ","); jjep.68.1.66.rp14 <- str_replace_all(jjep.68.1.66.rp13, pattern = rp.05, replacement = ","); jjep.68.1.66.rp15 <- str_replace_all(jjep.68.1.66.rp14, pattern = rp.06, replacement = ","); jjep.68.1.66.mod <- rbind(varname,jjep.68.1.66.rp15); write(jjep.68.1.66.mod, file = "./jjep/Mod_68_1_66.txt")
jjep.68.1.79.tx <- readr::read_file(file="./jjep/68_1_79.txt"); jjep.68.1.79.rm00 <- jjep.68.1.79.tx; jjep.68.1.79.rm01 <- str_replace_all(jjep.68.1.79.rm00, pattern = rm.01, replacement = ""); jjep.68.1.79.rm02 <- str_replace_all(jjep.68.1.79.rm01, pattern = rm.02, replacement = ""); jjep.68.1.79.rm03 <- str_replace_all(jjep.68.1.79.rm02, pattern = rm.03, replacement = ""); jjep.68.1.79.rm04 <- str_replace_all(jjep.68.1.79.rm03, pattern = rm.04, replacement = ""); jjep.68.1.79.rm05 <- str_replace_all(jjep.68.1.79.rm04, pattern = rm.05, replacement = ""); jjep.68.1.79.rm06 <- str_replace_all(jjep.68.1.79.rm05, pattern = rm.06, replacement = ""); jjep.68.1.79.rm07 <- str_replace_all(jjep.68.1.79.rm06, pattern = rm.07, replacement = ""); jjep.68.1.79.rm08 <- str_replace_all(jjep.68.1.79.rm07, pattern = rm.08, replacement = ""); jjep.68.1.79.rm09 <- str_replace_all(jjep.68.1.79.rm08, pattern = rm.09, replacement = ""); jjep.68.1.79.rp10 <- str_replace_all(jjep.68.1.79.rm09, pattern = rp.01, replacement = "・"); jjep.68.1.79.rp11 <- str_replace_all(jjep.68.1.79.rp10, pattern = rp.02, replacement = ","); jjep.68.1.79.rp12 <- str_replace_all(jjep.68.1.79.rp11, pattern = rp.03, replacement = ","); jjep.68.1.79.rp13 <- str_replace_all(jjep.68.1.79.rp12, pattern = rp.04, replacement = ","); jjep.68.1.79.rp14 <- str_replace_all(jjep.68.1.79.rp13, pattern = rp.05, replacement = ","); jjep.68.1.79.rp15 <- str_replace_all(jjep.68.1.79.rp14, pattern = rp.06, replacement = ","); jjep.68.1.79.mod <- rbind(varname,jjep.68.1.79.rp15); write(jjep.68.1.79.mod, file = "./jjep/Mod_68_1_79.txt")
jjep.68.1.94.tx <- readr::read_file(file="./jjep/68_1_94.txt"); jjep.68.1.94.rm00 <- jjep.68.1.94.tx; jjep.68.1.94.rm01 <- str_replace_all(jjep.68.1.94.rm00, pattern = rm.01, replacement = ""); jjep.68.1.94.rm02 <- str_replace_all(jjep.68.1.94.rm01, pattern = rm.02, replacement = ""); jjep.68.1.94.rm03 <- str_replace_all(jjep.68.1.94.rm02, pattern = rm.03, replacement = ""); jjep.68.1.94.rm04 <- str_replace_all(jjep.68.1.94.rm03, pattern = rm.04, replacement = ""); jjep.68.1.94.rm05 <- str_replace_all(jjep.68.1.94.rm04, pattern = rm.05, replacement = ""); jjep.68.1.94.rm06 <- str_replace_all(jjep.68.1.94.rm05, pattern = rm.06, replacement = ""); jjep.68.1.94.rm07 <- str_replace_all(jjep.68.1.94.rm06, pattern = rm.07, replacement = ""); jjep.68.1.94.rm08 <- str_replace_all(jjep.68.1.94.rm07, pattern = rm.08, replacement = ""); jjep.68.1.94.rm09 <- str_replace_all(jjep.68.1.94.rm08, pattern = rm.09, replacement = ""); jjep.68.1.94.rp10 <- str_replace_all(jjep.68.1.94.rm09, pattern = rp.01, replacement = "・"); jjep.68.1.94.rp11 <- str_replace_all(jjep.68.1.94.rp10, pattern = rp.02, replacement = ","); jjep.68.1.94.rp12 <- str_replace_all(jjep.68.1.94.rp11, pattern = rp.03, replacement = ","); jjep.68.1.94.rp13 <- str_replace_all(jjep.68.1.94.rp12, pattern = rp.04, replacement = ","); jjep.68.1.94.rp14 <- str_replace_all(jjep.68.1.94.rp13, pattern = rp.05, replacement = ","); jjep.68.1.94.rp15 <- str_replace_all(jjep.68.1.94.rp14, pattern = rp.06, replacement = ","); jjep.68.1.94.mod <- rbind(varname,jjep.68.1.94.rp15); write(jjep.68.1.94.mod, file = "./jjep/Mod_68_1_94.txt")
jjep.67.4.223.tx <- readr::read_file(file="./jjep/67_4_223.txt"); jjep.67.4.223.rm00 <- jjep.67.4.223.tx; jjep.67.4.223.rm01 <- str_replace_all(jjep.67.4.223.rm00, pattern = rm.01, replacement = ""); jjep.67.4.223.rm02 <- str_replace_all(jjep.67.4.223.rm01, pattern = rm.02, replacement = ""); jjep.67.4.223.rm03 <- str_replace_all(jjep.67.4.223.rm02, pattern = rm.03, replacement = ""); jjep.67.4.223.rm04 <- str_replace_all(jjep.67.4.223.rm03, pattern = rm.04, replacement = ""); jjep.67.4.223.rm05 <- str_replace_all(jjep.67.4.223.rm04, pattern = rm.05, replacement = ""); jjep.67.4.223.rm06 <- str_replace_all(jjep.67.4.223.rm05, pattern = rm.06, replacement = ""); jjep.67.4.223.rm07 <- str_replace_all(jjep.67.4.223.rm06, pattern = rm.07, replacement = ""); jjep.67.4.223.rm08 <- str_replace_all(jjep.67.4.223.rm07, pattern = rm.08, replacement = ""); jjep.67.4.223.rm09 <- str_replace_all(jjep.67.4.223.rm08, pattern = rm.09, replacement = ""); jjep.67.4.223.rp10 <- str_replace_all(jjep.67.4.223.rm09, pattern = rp.01, replacement = "・"); jjep.67.4.223.rp11 <- str_replace_all(jjep.67.4.223.rp10, pattern = rp.02, replacement = ","); jjep.67.4.223.rp12 <- str_replace_all(jjep.67.4.223.rp11, pattern = rp.03, replacement = ","); jjep.67.4.223.rp13 <- str_replace_all(jjep.67.4.223.rp12, pattern = rp.04, replacement = ","); jjep.67.4.223.rp14 <- str_replace_all(jjep.67.4.223.rp13, pattern = rp.05, replacement = ","); jjep.67.4.223.rp15 <- str_replace_all(jjep.67.4.223.rp14, pattern = rp.06, replacement = ","); jjep.67.4.223.mod <- rbind(varname,jjep.67.4.223.rp15); write(jjep.67.4.223.mod, file = "./jjep/Mod_67_4_223.txt")
jjep.67.4.236.tx <- readr::read_file(file="./jjep/67_4_236.txt"); jjep.67.4.236.rm00 <- jjep.67.4.236.tx; jjep.67.4.236.rm01 <- str_replace_all(jjep.67.4.236.rm00, pattern = rm.01, replacement = ""); jjep.67.4.236.rm02 <- str_replace_all(jjep.67.4.236.rm01, pattern = rm.02, replacement = ""); jjep.67.4.236.rm03 <- str_replace_all(jjep.67.4.236.rm02, pattern = rm.03, replacement = ""); jjep.67.4.236.rm04 <- str_replace_all(jjep.67.4.236.rm03, pattern = rm.04, replacement = ""); jjep.67.4.236.rm05 <- str_replace_all(jjep.67.4.236.rm04, pattern = rm.05, replacement = ""); jjep.67.4.236.rm06 <- str_replace_all(jjep.67.4.236.rm05, pattern = rm.06, replacement = ""); jjep.67.4.236.rm07 <- str_replace_all(jjep.67.4.236.rm06, pattern = rm.07, replacement = ""); jjep.67.4.236.rm08 <- str_replace_all(jjep.67.4.236.rm07, pattern = rm.08, replacement = ""); jjep.67.4.236.rm09 <- str_replace_all(jjep.67.4.236.rm08, pattern = rm.09, replacement = ""); jjep.67.4.236.rp10 <- str_replace_all(jjep.67.4.236.rm09, pattern = rp.01, replacement = "・"); jjep.67.4.236.rp11 <- str_replace_all(jjep.67.4.236.rp10, pattern = rp.02, replacement = ","); jjep.67.4.236.rp12 <- str_replace_all(jjep.67.4.236.rp11, pattern = rp.03, replacement = ","); jjep.67.4.236.rp13 <- str_replace_all(jjep.67.4.236.rp12, pattern = rp.04, replacement = ","); jjep.67.4.236.rp14 <- str_replace_all(jjep.67.4.236.rp13, pattern = rp.05, replacement = ","); jjep.67.4.236.rp15 <- str_replace_all(jjep.67.4.236.rp14, pattern = rp.06, replacement = ","); jjep.67.4.236.mod <- rbind(varname,jjep.67.4.236.rp15); write(jjep.67.4.236.mod, file = "./jjep/Mod_67_4_236.txt")
jjep.67.4.252.tx <- readr::read_file(file="./jjep/67_4_252.txt"); jjep.67.4.252.rm00 <- jjep.67.4.252.tx; jjep.67.4.252.rm01 <- str_replace_all(jjep.67.4.252.rm00, pattern = rm.01, replacement = ""); jjep.67.4.252.rm02 <- str_replace_all(jjep.67.4.252.rm01, pattern = rm.02, replacement = ""); jjep.67.4.252.rm03 <- str_replace_all(jjep.67.4.252.rm02, pattern = rm.03, replacement = ""); jjep.67.4.252.rm04 <- str_replace_all(jjep.67.4.252.rm03, pattern = rm.04, replacement = ""); jjep.67.4.252.rm05 <- str_replace_all(jjep.67.4.252.rm04, pattern = rm.05, replacement = ""); jjep.67.4.252.rm06 <- str_replace_all(jjep.67.4.252.rm05, pattern = rm.06, replacement = ""); jjep.67.4.252.rm07 <- str_replace_all(jjep.67.4.252.rm06, pattern = rm.07, replacement = ""); jjep.67.4.252.rm08 <- str_replace_all(jjep.67.4.252.rm07, pattern = rm.08, replacement = ""); jjep.67.4.252.rm09 <- str_replace_all(jjep.67.4.252.rm08, pattern = rm.09, replacement = ""); jjep.67.4.252.rp10 <- str_replace_all(jjep.67.4.252.rm09, pattern = rp.01, replacement = "・"); jjep.67.4.252.rp11 <- str_replace_all(jjep.67.4.252.rp10, pattern = rp.02, replacement = ","); jjep.67.4.252.rp12 <- str_replace_all(jjep.67.4.252.rp11, pattern = rp.03, replacement = ","); jjep.67.4.252.rp13 <- str_replace_all(jjep.67.4.252.rp12, pattern = rp.04, replacement = ","); jjep.67.4.252.rp14 <- str_replace_all(jjep.67.4.252.rp13, pattern = rp.05, replacement = ","); jjep.67.4.252.rp15 <- str_replace_all(jjep.67.4.252.rp14, pattern = rp.06, replacement = ","); jjep.67.4.252.mod <- rbind(varname,jjep.67.4.252.rp15); write(jjep.67.4.252.mod, file = "./jjep/Mod_67_4_252.txt")
jjep.67.4.265.tx <- readr::read_file(file="./jjep/67_4_265.txt"); jjep.67.4.265.rm00 <- jjep.67.4.265.tx; jjep.67.4.265.rm01 <- str_replace_all(jjep.67.4.265.rm00, pattern = rm.01, replacement = ""); jjep.67.4.265.rm02 <- str_replace_all(jjep.67.4.265.rm01, pattern = rm.02, replacement = ""); jjep.67.4.265.rm03 <- str_replace_all(jjep.67.4.265.rm02, pattern = rm.03, replacement = ""); jjep.67.4.265.rm04 <- str_replace_all(jjep.67.4.265.rm03, pattern = rm.04, replacement = ""); jjep.67.4.265.rm05 <- str_replace_all(jjep.67.4.265.rm04, pattern = rm.05, replacement = ""); jjep.67.4.265.rm06 <- str_replace_all(jjep.67.4.265.rm05, pattern = rm.06, replacement = ""); jjep.67.4.265.rm07 <- str_replace_all(jjep.67.4.265.rm06, pattern = rm.07, replacement = ""); jjep.67.4.265.rm08 <- str_replace_all(jjep.67.4.265.rm07, pattern = rm.08, replacement = ""); jjep.67.4.265.rm09 <- str_replace_all(jjep.67.4.265.rm08, pattern = rm.09, replacement = ""); jjep.67.4.265.rp10 <- str_replace_all(jjep.67.4.265.rm09, pattern = rp.01, replacement = "・"); jjep.67.4.265.rp11 <- str_replace_all(jjep.67.4.265.rp10, pattern = rp.02, replacement = ","); jjep.67.4.265.rp12 <- str_replace_all(jjep.67.4.265.rp11, pattern = rp.03, replacement = ","); jjep.67.4.265.rp13 <- str_replace_all(jjep.67.4.265.rp12, pattern = rp.04, replacement = ","); jjep.67.4.265.rp14 <- str_replace_all(jjep.67.4.265.rp13, pattern = rp.05, replacement = ","); jjep.67.4.265.rp15 <- str_replace_all(jjep.67.4.265.rp14, pattern = rp.06, replacement = ","); jjep.67.4.265.mod <- rbind(varname,jjep.67.4.265.rp15); write(jjep.67.4.265.mod, file = "./jjep/Mod_67_4_265.txt")
jjep.67.4.278.tx <- readr::read_file(file="./jjep/67_4_278.txt"); jjep.67.4.278.rm00 <- jjep.67.4.278.tx; jjep.67.4.278.rm01 <- str_replace_all(jjep.67.4.278.rm00, pattern = rm.01, replacement = ""); jjep.67.4.278.rm02 <- str_replace_all(jjep.67.4.278.rm01, pattern = rm.02, replacement = ""); jjep.67.4.278.rm03 <- str_replace_all(jjep.67.4.278.rm02, pattern = rm.03, replacement = ""); jjep.67.4.278.rm04 <- str_replace_all(jjep.67.4.278.rm03, pattern = rm.04, replacement = ""); jjep.67.4.278.rm05 <- str_replace_all(jjep.67.4.278.rm04, pattern = rm.05, replacement = ""); jjep.67.4.278.rm06 <- str_replace_all(jjep.67.4.278.rm05, pattern = rm.06, replacement = ""); jjep.67.4.278.rm07 <- str_replace_all(jjep.67.4.278.rm06, pattern = rm.07, replacement = ""); jjep.67.4.278.rm08 <- str_replace_all(jjep.67.4.278.rm07, pattern = rm.08, replacement = ""); jjep.67.4.278.rm09 <- str_replace_all(jjep.67.4.278.rm08, pattern = rm.09, replacement = ""); jjep.67.4.278.rp10 <- str_replace_all(jjep.67.4.278.rm09, pattern = rp.01, replacement = "・"); jjep.67.4.278.rp11 <- str_replace_all(jjep.67.4.278.rp10, pattern = rp.02, replacement = ","); jjep.67.4.278.rp12 <- str_replace_all(jjep.67.4.278.rp11, pattern = rp.03, replacement = ","); jjep.67.4.278.rp13 <- str_replace_all(jjep.67.4.278.rp12, pattern = rp.04, replacement = ","); jjep.67.4.278.rp14 <- str_replace_all(jjep.67.4.278.rp13, pattern = rp.05, replacement = ","); jjep.67.4.278.rp15 <- str_replace_all(jjep.67.4.278.rp14, pattern = rp.06, replacement = ","); jjep.67.4.278.mod <- rbind(varname,jjep.67.4.278.rp15); write(jjep.67.4.278.mod, file = "./jjep/Mod_67_4_278.txt")
jjep.67.4.304.tx <- readr::read_file(file="./jjep/67_4_304.txt"); jjep.67.4.304.rm00 <- jjep.67.4.304.tx; jjep.67.4.304.rm01 <- str_replace_all(jjep.67.4.304.rm00, pattern = rm.01, replacement = ""); jjep.67.4.304.rm02 <- str_replace_all(jjep.67.4.304.rm01, pattern = rm.02, replacement = ""); jjep.67.4.304.rm03 <- str_replace_all(jjep.67.4.304.rm02, pattern = rm.03, replacement = ""); jjep.67.4.304.rm04 <- str_replace_all(jjep.67.4.304.rm03, pattern = rm.04, replacement = ""); jjep.67.4.304.rm05 <- str_replace_all(jjep.67.4.304.rm04, pattern = rm.05, replacement = ""); jjep.67.4.304.rm06 <- str_replace_all(jjep.67.4.304.rm05, pattern = rm.06, replacement = ""); jjep.67.4.304.rm07 <- str_replace_all(jjep.67.4.304.rm06, pattern = rm.07, replacement = ""); jjep.67.4.304.rm08 <- str_replace_all(jjep.67.4.304.rm07, pattern = rm.08, replacement = ""); jjep.67.4.304.rm09 <- str_replace_all(jjep.67.4.304.rm08, pattern = rm.09, replacement = ""); jjep.67.4.304.rp10 <- str_replace_all(jjep.67.4.304.rm09, pattern = rp.01, replacement = "・"); jjep.67.4.304.rp11 <- str_replace_all(jjep.67.4.304.rp10, pattern = rp.02, replacement = ","); jjep.67.4.304.rp12 <- str_replace_all(jjep.67.4.304.rp11, pattern = rp.03, replacement = ","); jjep.67.4.304.rp13 <- str_replace_all(jjep.67.4.304.rp12, pattern = rp.04, replacement = ","); jjep.67.4.304.rp14 <- str_replace_all(jjep.67.4.304.rp13, pattern = rp.05, replacement = ","); jjep.67.4.304.rp15 <- str_replace_all(jjep.67.4.304.rp14, pattern = rp.06, replacement = ","); jjep.67.4.304.mod <- rbind(varname,jjep.67.4.304.rp15); write(jjep.67.4.304.mod, file = "./jjep/Mod_67_4_304.txt")
jjep.67.4.317.tx <- readr::read_file(file="./jjep/67_4_317.txt"); jjep.67.4.317.rm00 <- jjep.67.4.317.tx; jjep.67.4.317.rm01 <- str_replace_all(jjep.67.4.317.rm00, pattern = rm.01, replacement = ""); jjep.67.4.317.rm02 <- str_replace_all(jjep.67.4.317.rm01, pattern = rm.02, replacement = ""); jjep.67.4.317.rm03 <- str_replace_all(jjep.67.4.317.rm02, pattern = rm.03, replacement = ""); jjep.67.4.317.rm04 <- str_replace_all(jjep.67.4.317.rm03, pattern = rm.04, replacement = ""); jjep.67.4.317.rm05 <- str_replace_all(jjep.67.4.317.rm04, pattern = rm.05, replacement = ""); jjep.67.4.317.rm06 <- str_replace_all(jjep.67.4.317.rm05, pattern = rm.06, replacement = ""); jjep.67.4.317.rm07 <- str_replace_all(jjep.67.4.317.rm06, pattern = rm.07, replacement = ""); jjep.67.4.317.rm08 <- str_replace_all(jjep.67.4.317.rm07, pattern = rm.08, replacement = ""); jjep.67.4.317.rm09 <- str_replace_all(jjep.67.4.317.rm08, pattern = rm.09, replacement = ""); jjep.67.4.317.rp10 <- str_replace_all(jjep.67.4.317.rm09, pattern = rp.01, replacement = "・"); jjep.67.4.317.rp11 <- str_replace_all(jjep.67.4.317.rp10, pattern = rp.02, replacement = ","); jjep.67.4.317.rp12 <- str_replace_all(jjep.67.4.317.rp11, pattern = rp.03, replacement = ","); jjep.67.4.317.rp13 <- str_replace_all(jjep.67.4.317.rp12, pattern = rp.04, replacement = ","); jjep.67.4.317.rp14 <- str_replace_all(jjep.67.4.317.rp13, pattern = rp.05, replacement = ","); jjep.67.4.317.rp15 <- str_replace_all(jjep.67.4.317.rp14, pattern = rp.06, replacement = ","); jjep.67.4.317.mod <- rbind(varname,jjep.67.4.317.rp15); write(jjep.67.4.317.mod, file = "./jjep/Mod_67_4_317.txt")
jjep.67.4.330.tx <- readr::read_file(file="./jjep/67_4_330.txt"); jjep.67.4.330.rm00 <- jjep.67.4.330.tx; jjep.67.4.330.rm01 <- str_replace_all(jjep.67.4.330.rm00, pattern = rm.01, replacement = ""); jjep.67.4.330.rm02 <- str_replace_all(jjep.67.4.330.rm01, pattern = rm.02, replacement = ""); jjep.67.4.330.rm03 <- str_replace_all(jjep.67.4.330.rm02, pattern = rm.03, replacement = ""); jjep.67.4.330.rm04 <- str_replace_all(jjep.67.4.330.rm03, pattern = rm.04, replacement = ""); jjep.67.4.330.rm05 <- str_replace_all(jjep.67.4.330.rm04, pattern = rm.05, replacement = ""); jjep.67.4.330.rm06 <- str_replace_all(jjep.67.4.330.rm05, pattern = rm.06, replacement = ""); jjep.67.4.330.rm07 <- str_replace_all(jjep.67.4.330.rm06, pattern = rm.07, replacement = ""); jjep.67.4.330.rm08 <- str_replace_all(jjep.67.4.330.rm07, pattern = rm.08, replacement = ""); jjep.67.4.330.rm09 <- str_replace_all(jjep.67.4.330.rm08, pattern = rm.09, replacement = ""); jjep.67.4.330.rp10 <- str_replace_all(jjep.67.4.330.rm09, pattern = rp.01, replacement = "・"); jjep.67.4.330.rp11 <- str_replace_all(jjep.67.4.330.rp10, pattern = rp.02, replacement = ","); jjep.67.4.330.rp12 <- str_replace_all(jjep.67.4.330.rp11, pattern = rp.03, replacement = ","); jjep.67.4.330.rp13 <- str_replace_all(jjep.67.4.330.rp12, pattern = rp.04, replacement = ","); jjep.67.4.330.rp14 <- str_replace_all(jjep.67.4.330.rp13, pattern = rp.05, replacement = ","); jjep.67.4.330.rp15 <- str_replace_all(jjep.67.4.330.rp14, pattern = rp.06, replacement = ","); jjep.67.4.330.mod <- rbind(varname,jjep.67.4.330.rp15); write(jjep.67.4.330.mod, file = "./jjep/Mod_67_4_330.txt")
jjep.67.3.149.tx <- readr::read_file(file="./jjep/67_3_149.txt"); jjep.67.3.149.rm00 <- jjep.67.3.149.tx; jjep.67.3.149.rm01 <- str_replace_all(jjep.67.3.149.rm00, pattern = rm.01, replacement = ""); jjep.67.3.149.rm02 <- str_replace_all(jjep.67.3.149.rm01, pattern = rm.02, replacement = ""); jjep.67.3.149.rm03 <- str_replace_all(jjep.67.3.149.rm02, pattern = rm.03, replacement = ""); jjep.67.3.149.rm04 <- str_replace_all(jjep.67.3.149.rm03, pattern = rm.04, replacement = ""); jjep.67.3.149.rm05 <- str_replace_all(jjep.67.3.149.rm04, pattern = rm.05, replacement = ""); jjep.67.3.149.rm06 <- str_replace_all(jjep.67.3.149.rm05, pattern = rm.06, replacement = ""); jjep.67.3.149.rm07 <- str_replace_all(jjep.67.3.149.rm06, pattern = rm.07, replacement = ""); jjep.67.3.149.rm08 <- str_replace_all(jjep.67.3.149.rm07, pattern = rm.08, replacement = ""); jjep.67.3.149.rm09 <- str_replace_all(jjep.67.3.149.rm08, pattern = rm.09, replacement = ""); jjep.67.3.149.rp10 <- str_replace_all(jjep.67.3.149.rm09, pattern = rp.01, replacement = "・"); jjep.67.3.149.rp11 <- str_replace_all(jjep.67.3.149.rp10, pattern = rp.02, replacement = ","); jjep.67.3.149.rp12 <- str_replace_all(jjep.67.3.149.rp11, pattern = rp.03, replacement = ","); jjep.67.3.149.rp13 <- str_replace_all(jjep.67.3.149.rp12, pattern = rp.04, replacement = ","); jjep.67.3.149.rp14 <- str_replace_all(jjep.67.3.149.rp13, pattern = rp.05, replacement = ","); jjep.67.3.149.rp15 <- str_replace_all(jjep.67.3.149.rp14, pattern = rp.06, replacement = ","); jjep.67.3.149.mod <- rbind(varname,jjep.67.3.149.rp15); write(jjep.67.3.149.mod, file = "./jjep/Mod_67_3_149.txt")
jjep.67.3.162.tx <- readr::read_file(file="./jjep/67_3_162.txt"); jjep.67.3.162.rm00 <- jjep.67.3.162.tx; jjep.67.3.162.rm01 <- str_replace_all(jjep.67.3.162.rm00, pattern = rm.01, replacement = ""); jjep.67.3.162.rm02 <- str_replace_all(jjep.67.3.162.rm01, pattern = rm.02, replacement = ""); jjep.67.3.162.rm03 <- str_replace_all(jjep.67.3.162.rm02, pattern = rm.03, replacement = ""); jjep.67.3.162.rm04 <- str_replace_all(jjep.67.3.162.rm03, pattern = rm.04, replacement = ""); jjep.67.3.162.rm05 <- str_replace_all(jjep.67.3.162.rm04, pattern = rm.05, replacement = ""); jjep.67.3.162.rm06 <- str_replace_all(jjep.67.3.162.rm05, pattern = rm.06, replacement = ""); jjep.67.3.162.rm07 <- str_replace_all(jjep.67.3.162.rm06, pattern = rm.07, replacement = ""); jjep.67.3.162.rm08 <- str_replace_all(jjep.67.3.162.rm07, pattern = rm.08, replacement = ""); jjep.67.3.162.rm09 <- str_replace_all(jjep.67.3.162.rm08, pattern = rm.09, replacement = ""); jjep.67.3.162.rp10 <- str_replace_all(jjep.67.3.162.rm09, pattern = rp.01, replacement = "・"); jjep.67.3.162.rp11 <- str_replace_all(jjep.67.3.162.rp10, pattern = rp.02, replacement = ","); jjep.67.3.162.rp12 <- str_replace_all(jjep.67.3.162.rp11, pattern = rp.03, replacement = ","); jjep.67.3.162.rp13 <- str_replace_all(jjep.67.3.162.rp12, pattern = rp.04, replacement = ","); jjep.67.3.162.rp14 <- str_replace_all(jjep.67.3.162.rp13, pattern = rp.05, replacement = ","); jjep.67.3.162.rp15 <- str_replace_all(jjep.67.3.162.rp14, pattern = rp.06, replacement = ","); jjep.67.3.162.mod <- rbind(varname,jjep.67.3.162.rp15); write(jjep.67.3.162.mod, file = "./jjep/Mod_67_3_162.txt")
jjep.67.3.175.tx <- readr::read_file(file="./jjep/67_3_175.txt"); jjep.67.3.175.rm00 <- jjep.67.3.175.tx; jjep.67.3.175.rm01 <- str_replace_all(jjep.67.3.175.rm00, pattern = rm.01, replacement = ""); jjep.67.3.175.rm02 <- str_replace_all(jjep.67.3.175.rm01, pattern = rm.02, replacement = ""); jjep.67.3.175.rm03 <- str_replace_all(jjep.67.3.175.rm02, pattern = rm.03, replacement = ""); jjep.67.3.175.rm04 <- str_replace_all(jjep.67.3.175.rm03, pattern = rm.04, replacement = ""); jjep.67.3.175.rm05 <- str_replace_all(jjep.67.3.175.rm04, pattern = rm.05, replacement = ""); jjep.67.3.175.rm06 <- str_replace_all(jjep.67.3.175.rm05, pattern = rm.06, replacement = ""); jjep.67.3.175.rm07 <- str_replace_all(jjep.67.3.175.rm06, pattern = rm.07, replacement = ""); jjep.67.3.175.rm08 <- str_replace_all(jjep.67.3.175.rm07, pattern = rm.08, replacement = ""); jjep.67.3.175.rm09 <- str_replace_all(jjep.67.3.175.rm08, pattern = rm.09, replacement = ""); jjep.67.3.175.rp10 <- str_replace_all(jjep.67.3.175.rm09, pattern = rp.01, replacement = "・"); jjep.67.3.175.rp11 <- str_replace_all(jjep.67.3.175.rp10, pattern = rp.02, replacement = ","); jjep.67.3.175.rp12 <- str_replace_all(jjep.67.3.175.rp11, pattern = rp.03, replacement = ","); jjep.67.3.175.rp13 <- str_replace_all(jjep.67.3.175.rp12, pattern = rp.04, replacement = ","); jjep.67.3.175.rp14 <- str_replace_all(jjep.67.3.175.rp13, pattern = rp.05, replacement = ","); jjep.67.3.175.rp15 <- str_replace_all(jjep.67.3.175.rp14, pattern = rp.06, replacement = ","); jjep.67.3.175.mod <- rbind(varname,jjep.67.3.175.rp15); write(jjep.67.3.175.mod, file = "./jjep/Mod_67_3_175.txt")
jjep.67.3.190.tx <- readr::read_file(file="./jjep/67_3_190.txt"); jjep.67.3.190.rm00 <- jjep.67.3.190.tx; jjep.67.3.190.rm01 <- str_replace_all(jjep.67.3.190.rm00, pattern = rm.01, replacement = ""); jjep.67.3.190.rm02 <- str_replace_all(jjep.67.3.190.rm01, pattern = rm.02, replacement = ""); jjep.67.3.190.rm03 <- str_replace_all(jjep.67.3.190.rm02, pattern = rm.03, replacement = ""); jjep.67.3.190.rm04 <- str_replace_all(jjep.67.3.190.rm03, pattern = rm.04, replacement = ""); jjep.67.3.190.rm05 <- str_replace_all(jjep.67.3.190.rm04, pattern = rm.05, replacement = ""); jjep.67.3.190.rm06 <- str_replace_all(jjep.67.3.190.rm05, pattern = rm.06, replacement = ""); jjep.67.3.190.rm07 <- str_replace_all(jjep.67.3.190.rm06, pattern = rm.07, replacement = ""); jjep.67.3.190.rm08 <- str_replace_all(jjep.67.3.190.rm07, pattern = rm.08, replacement = ""); jjep.67.3.190.rm09 <- str_replace_all(jjep.67.3.190.rm08, pattern = rm.09, replacement = ""); jjep.67.3.190.rp10 <- str_replace_all(jjep.67.3.190.rm09, pattern = rp.01, replacement = "・"); jjep.67.3.190.rp11 <- str_replace_all(jjep.67.3.190.rp10, pattern = rp.02, replacement = ","); jjep.67.3.190.rp12 <- str_replace_all(jjep.67.3.190.rp11, pattern = rp.03, replacement = ","); jjep.67.3.190.rp13 <- str_replace_all(jjep.67.3.190.rp12, pattern = rp.04, replacement = ","); jjep.67.3.190.rp14 <- str_replace_all(jjep.67.3.190.rp13, pattern = rp.05, replacement = ","); jjep.67.3.190.rp15 <- str_replace_all(jjep.67.3.190.rp14, pattern = rp.06, replacement = ","); jjep.67.3.190.mod <- rbind(varname,jjep.67.3.190.rp15); write(jjep.67.3.190.mod, file = "./jjep/Mod_67_3_190.txt")
jjep.67.3.203.tx <- readr::read_file(file="./jjep/67_3_203.txt"); jjep.67.3.203.rm00 <- jjep.67.3.203.tx; jjep.67.3.203.rm01 <- str_replace_all(jjep.67.3.203.rm00, pattern = rm.01, replacement = ""); jjep.67.3.203.rm02 <- str_replace_all(jjep.67.3.203.rm01, pattern = rm.02, replacement = ""); jjep.67.3.203.rm03 <- str_replace_all(jjep.67.3.203.rm02, pattern = rm.03, replacement = ""); jjep.67.3.203.rm04 <- str_replace_all(jjep.67.3.203.rm03, pattern = rm.04, replacement = ""); jjep.67.3.203.rm05 <- str_replace_all(jjep.67.3.203.rm04, pattern = rm.05, replacement = ""); jjep.67.3.203.rm06 <- str_replace_all(jjep.67.3.203.rm05, pattern = rm.06, replacement = ""); jjep.67.3.203.rm07 <- str_replace_all(jjep.67.3.203.rm06, pattern = rm.07, replacement = ""); jjep.67.3.203.rm08 <- str_replace_all(jjep.67.3.203.rm07, pattern = rm.08, replacement = ""); jjep.67.3.203.rm09 <- str_replace_all(jjep.67.3.203.rm08, pattern = rm.09, replacement = ""); jjep.67.3.203.rp10 <- str_replace_all(jjep.67.3.203.rm09, pattern = rp.01, replacement = "・"); jjep.67.3.203.rp11 <- str_replace_all(jjep.67.3.203.rp10, pattern = rp.02, replacement = ","); jjep.67.3.203.rp12 <- str_replace_all(jjep.67.3.203.rp11, pattern = rp.03, replacement = ","); jjep.67.3.203.rp13 <- str_replace_all(jjep.67.3.203.rp12, pattern = rp.04, replacement = ","); jjep.67.3.203.rp14 <- str_replace_all(jjep.67.3.203.rp13, pattern = rp.05, replacement = ","); jjep.67.3.203.rp15 <- str_replace_all(jjep.67.3.203.rp14, pattern = rp.06, replacement = ","); jjep.67.3.203.mod <- rbind(varname,jjep.67.3.203.rp15); write(jjep.67.3.203.mod, file = "./jjep/Mod_67_3_203.txt")
jjep.67.2.73.tx <- readr::read_file(file="./jjep/67_2_73.txt"); jjep.67.2.73.rm00 <- jjep.67.2.73.tx; jjep.67.2.73.rm01 <- str_replace_all(jjep.67.2.73.rm00, pattern = rm.01, replacement = ""); jjep.67.2.73.rm02 <- str_replace_all(jjep.67.2.73.rm01, pattern = rm.02, replacement = ""); jjep.67.2.73.rm03 <- str_replace_all(jjep.67.2.73.rm02, pattern = rm.03, replacement = ""); jjep.67.2.73.rm04 <- str_replace_all(jjep.67.2.73.rm03, pattern = rm.04, replacement = ""); jjep.67.2.73.rm05 <- str_replace_all(jjep.67.2.73.rm04, pattern = rm.05, replacement = ""); jjep.67.2.73.rm06 <- str_replace_all(jjep.67.2.73.rm05, pattern = rm.06, replacement = ""); jjep.67.2.73.rm07 <- str_replace_all(jjep.67.2.73.rm06, pattern = rm.07, replacement = ""); jjep.67.2.73.rm08 <- str_replace_all(jjep.67.2.73.rm07, pattern = rm.08, replacement = ""); jjep.67.2.73.rm09 <- str_replace_all(jjep.67.2.73.rm08, pattern = rm.09, replacement = ""); jjep.67.2.73.rp10 <- str_replace_all(jjep.67.2.73.rm09, pattern = rp.01, replacement = "・"); jjep.67.2.73.rp11 <- str_replace_all(jjep.67.2.73.rp10, pattern = rp.02, replacement = ","); jjep.67.2.73.rp12 <- str_replace_all(jjep.67.2.73.rp11, pattern = rp.03, replacement = ","); jjep.67.2.73.rp13 <- str_replace_all(jjep.67.2.73.rp12, pattern = rp.04, replacement = ","); jjep.67.2.73.rp14 <- str_replace_all(jjep.67.2.73.rp13, pattern = rp.05, replacement = ","); jjep.67.2.73.rp15 <- str_replace_all(jjep.67.2.73.rp14, pattern = rp.06, replacement = ","); jjep.67.2.73.mod <- rbind(varname,jjep.67.2.73.rp15); write(jjep.67.2.73.mod, file = "./jjep/Mod_67_2_73.txt")
jjep.67.2.87.tx <- readr::read_file(file="./jjep/67_2_87.txt"); jjep.67.2.87.rm00 <- jjep.67.2.87.tx; jjep.67.2.87.rm01 <- str_replace_all(jjep.67.2.87.rm00, pattern = rm.01, replacement = ""); jjep.67.2.87.rm02 <- str_replace_all(jjep.67.2.87.rm01, pattern = rm.02, replacement = ""); jjep.67.2.87.rm03 <- str_replace_all(jjep.67.2.87.rm02, pattern = rm.03, replacement = ""); jjep.67.2.87.rm04 <- str_replace_all(jjep.67.2.87.rm03, pattern = rm.04, replacement = ""); jjep.67.2.87.rm05 <- str_replace_all(jjep.67.2.87.rm04, pattern = rm.05, replacement = ""); jjep.67.2.87.rm06 <- str_replace_all(jjep.67.2.87.rm05, pattern = rm.06, replacement = ""); jjep.67.2.87.rm07 <- str_replace_all(jjep.67.2.87.rm06, pattern = rm.07, replacement = ""); jjep.67.2.87.rm08 <- str_replace_all(jjep.67.2.87.rm07, pattern = rm.08, replacement = ""); jjep.67.2.87.rm09 <- str_replace_all(jjep.67.2.87.rm08, pattern = rm.09, replacement = ""); jjep.67.2.87.rp10 <- str_replace_all(jjep.67.2.87.rm09, pattern = rp.01, replacement = "・"); jjep.67.2.87.rp11 <- str_replace_all(jjep.67.2.87.rp10, pattern = rp.02, replacement = ","); jjep.67.2.87.rp12 <- str_replace_all(jjep.67.2.87.rp11, pattern = rp.03, replacement = ","); jjep.67.2.87.rp13 <- str_replace_all(jjep.67.2.87.rp12, pattern = rp.04, replacement = ","); jjep.67.2.87.rp14 <- str_replace_all(jjep.67.2.87.rp13, pattern = rp.05, replacement = ","); jjep.67.2.87.rp15 <- str_replace_all(jjep.67.2.87.rp14, pattern = rp.06, replacement = ","); jjep.67.2.87.mod <- rbind(varname,jjep.67.2.87.rp15); write(jjep.67.2.87.mod, file = "./jjep/Mod_67_2_87.txt")
jjep.67.2.103.tx <- readr::read_file(file="./jjep/67_2_103.txt"); jjep.67.2.103.rm00 <- jjep.67.2.103.tx; jjep.67.2.103.rm01 <- str_replace_all(jjep.67.2.103.rm00, pattern = rm.01, replacement = ""); jjep.67.2.103.rm02 <- str_replace_all(jjep.67.2.103.rm01, pattern = rm.02, replacement = ""); jjep.67.2.103.rm03 <- str_replace_all(jjep.67.2.103.rm02, pattern = rm.03, replacement = ""); jjep.67.2.103.rm04 <- str_replace_all(jjep.67.2.103.rm03, pattern = rm.04, replacement = ""); jjep.67.2.103.rm05 <- str_replace_all(jjep.67.2.103.rm04, pattern = rm.05, replacement = ""); jjep.67.2.103.rm06 <- str_replace_all(jjep.67.2.103.rm05, pattern = rm.06, replacement = ""); jjep.67.2.103.rm07 <- str_replace_all(jjep.67.2.103.rm06, pattern = rm.07, replacement = ""); jjep.67.2.103.rm08 <- str_replace_all(jjep.67.2.103.rm07, pattern = rm.08, replacement = ""); jjep.67.2.103.rm09 <- str_replace_all(jjep.67.2.103.rm08, pattern = rm.09, replacement = ""); jjep.67.2.103.rp10 <- str_replace_all(jjep.67.2.103.rm09, pattern = rp.01, replacement = "・"); jjep.67.2.103.rp11 <- str_replace_all(jjep.67.2.103.rp10, pattern = rp.02, replacement = ","); jjep.67.2.103.rp12 <- str_replace_all(jjep.67.2.103.rp11, pattern = rp.03, replacement = ","); jjep.67.2.103.rp13 <- str_replace_all(jjep.67.2.103.rp12, pattern = rp.04, replacement = ","); jjep.67.2.103.rp14 <- str_replace_all(jjep.67.2.103.rp13, pattern = rp.05, replacement = ","); jjep.67.2.103.rp15 <- str_replace_all(jjep.67.2.103.rp14, pattern = rp.06, replacement = ","); jjep.67.2.103.mod <- rbind(varname,jjep.67.2.103.rp15); write(jjep.67.2.103.mod, file = "./jjep/Mod_67_2_103.txt")
jjep.67.2.118.tx <- readr::read_file(file="./jjep/67_2_118.txt"); jjep.67.2.118.rm00 <- jjep.67.2.118.tx; jjep.67.2.118.rm01 <- str_replace_all(jjep.67.2.118.rm00, pattern = rm.01, replacement = ""); jjep.67.2.118.rm02 <- str_replace_all(jjep.67.2.118.rm01, pattern = rm.02, replacement = ""); jjep.67.2.118.rm03 <- str_replace_all(jjep.67.2.118.rm02, pattern = rm.03, replacement = ""); jjep.67.2.118.rm04 <- str_replace_all(jjep.67.2.118.rm03, pattern = rm.04, replacement = ""); jjep.67.2.118.rm05 <- str_replace_all(jjep.67.2.118.rm04, pattern = rm.05, replacement = ""); jjep.67.2.118.rm06 <- str_replace_all(jjep.67.2.118.rm05, pattern = rm.06, replacement = ""); jjep.67.2.118.rm07 <- str_replace_all(jjep.67.2.118.rm06, pattern = rm.07, replacement = ""); jjep.67.2.118.rm08 <- str_replace_all(jjep.67.2.118.rm07, pattern = rm.08, replacement = ""); jjep.67.2.118.rm09 <- str_replace_all(jjep.67.2.118.rm08, pattern = rm.09, replacement = ""); jjep.67.2.118.rp10 <- str_replace_all(jjep.67.2.118.rm09, pattern = rp.01, replacement = "・"); jjep.67.2.118.rp11 <- str_replace_all(jjep.67.2.118.rp10, pattern = rp.02, replacement = ","); jjep.67.2.118.rp12 <- str_replace_all(jjep.67.2.118.rp11, pattern = rp.03, replacement = ","); jjep.67.2.118.rp13 <- str_replace_all(jjep.67.2.118.rp12, pattern = rp.04, replacement = ","); jjep.67.2.118.rp14 <- str_replace_all(jjep.67.2.118.rp13, pattern = rp.05, replacement = ","); jjep.67.2.118.rp15 <- str_replace_all(jjep.67.2.118.rp14, pattern = rp.06, replacement = ","); jjep.67.2.118.mod <- rbind(varname,jjep.67.2.118.rp15); write(jjep.67.2.118.mod, file = "./jjep/Mod_67_2_118.txt")
jjep.67.2.132.tx <- readr::read_file(file="./jjep/67_2_132.txt"); jjep.67.2.132.rm00 <- jjep.67.2.132.tx; jjep.67.2.132.rm01 <- str_replace_all(jjep.67.2.132.rm00, pattern = rm.01, replacement = ""); jjep.67.2.132.rm02 <- str_replace_all(jjep.67.2.132.rm01, pattern = rm.02, replacement = ""); jjep.67.2.132.rm03 <- str_replace_all(jjep.67.2.132.rm02, pattern = rm.03, replacement = ""); jjep.67.2.132.rm04 <- str_replace_all(jjep.67.2.132.rm03, pattern = rm.04, replacement = ""); jjep.67.2.132.rm05 <- str_replace_all(jjep.67.2.132.rm04, pattern = rm.05, replacement = ""); jjep.67.2.132.rm06 <- str_replace_all(jjep.67.2.132.rm05, pattern = rm.06, replacement = ""); jjep.67.2.132.rm07 <- str_replace_all(jjep.67.2.132.rm06, pattern = rm.07, replacement = ""); jjep.67.2.132.rm08 <- str_replace_all(jjep.67.2.132.rm07, pattern = rm.08, replacement = ""); jjep.67.2.132.rm09 <- str_replace_all(jjep.67.2.132.rm08, pattern = rm.09, replacement = ""); jjep.67.2.132.rp10 <- str_replace_all(jjep.67.2.132.rm09, pattern = rp.01, replacement = "・"); jjep.67.2.132.rp11 <- str_replace_all(jjep.67.2.132.rp10, pattern = rp.02, replacement = ","); jjep.67.2.132.rp12 <- str_replace_all(jjep.67.2.132.rp11, pattern = rp.03, replacement = ","); jjep.67.2.132.rp13 <- str_replace_all(jjep.67.2.132.rp12, pattern = rp.04, replacement = ","); jjep.67.2.132.rp14 <- str_replace_all(jjep.67.2.132.rp13, pattern = rp.05, replacement = ","); jjep.67.2.132.rp15 <- str_replace_all(jjep.67.2.132.rp14, pattern = rp.06, replacement = ","); jjep.67.2.132.mod <- rbind(varname,jjep.67.2.132.rp15); write(jjep.67.2.132.mod, file = "./jjep/Mod_67_2_132.txt")
jjep.67.1.1.tx <- readr::read_file(file="./jjep/67_1_1.txt"); jjep.67.1.1.rm00 <- jjep.67.1.1.tx; jjep.67.1.1.rm01 <- str_replace_all(jjep.67.1.1.rm00, pattern = rm.01, replacement = ""); jjep.67.1.1.rm02 <- str_replace_all(jjep.67.1.1.rm01, pattern = rm.02, replacement = ""); jjep.67.1.1.rm03 <- str_replace_all(jjep.67.1.1.rm02, pattern = rm.03, replacement = ""); jjep.67.1.1.rm04 <- str_replace_all(jjep.67.1.1.rm03, pattern = rm.04, replacement = ""); jjep.67.1.1.rm05 <- str_replace_all(jjep.67.1.1.rm04, pattern = rm.05, replacement = ""); jjep.67.1.1.rm06 <- str_replace_all(jjep.67.1.1.rm05, pattern = rm.06, replacement = ""); jjep.67.1.1.rm07 <- str_replace_all(jjep.67.1.1.rm06, pattern = rm.07, replacement = ""); jjep.67.1.1.rm08 <- str_replace_all(jjep.67.1.1.rm07, pattern = rm.08, replacement = ""); jjep.67.1.1.rm09 <- str_replace_all(jjep.67.1.1.rm08, pattern = rm.09, replacement = ""); jjep.67.1.1.rp10 <- str_replace_all(jjep.67.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.67.1.1.rp11 <- str_replace_all(jjep.67.1.1.rp10, pattern = rp.02, replacement = ","); jjep.67.1.1.rp12 <- str_replace_all(jjep.67.1.1.rp11, pattern = rp.03, replacement = ","); jjep.67.1.1.rp13 <- str_replace_all(jjep.67.1.1.rp12, pattern = rp.04, replacement = ","); jjep.67.1.1.rp14 <- str_replace_all(jjep.67.1.1.rp13, pattern = rp.05, replacement = ","); jjep.67.1.1.rp15 <- str_replace_all(jjep.67.1.1.rp14, pattern = rp.06, replacement = ","); jjep.67.1.1.mod <- rbind(varname,jjep.67.1.1.rp15); write(jjep.67.1.1.mod, file = "./jjep/Mod_67_1_1.txt")
jjep.67.1.12.tx <- readr::read_file(file="./jjep/67_1_12.txt"); jjep.67.1.12.rm00 <- jjep.67.1.12.tx; jjep.67.1.12.rm01 <- str_replace_all(jjep.67.1.12.rm00, pattern = rm.01, replacement = ""); jjep.67.1.12.rm02 <- str_replace_all(jjep.67.1.12.rm01, pattern = rm.02, replacement = ""); jjep.67.1.12.rm03 <- str_replace_all(jjep.67.1.12.rm02, pattern = rm.03, replacement = ""); jjep.67.1.12.rm04 <- str_replace_all(jjep.67.1.12.rm03, pattern = rm.04, replacement = ""); jjep.67.1.12.rm05 <- str_replace_all(jjep.67.1.12.rm04, pattern = rm.05, replacement = ""); jjep.67.1.12.rm06 <- str_replace_all(jjep.67.1.12.rm05, pattern = rm.06, replacement = ""); jjep.67.1.12.rm07 <- str_replace_all(jjep.67.1.12.rm06, pattern = rm.07, replacement = ""); jjep.67.1.12.rm08 <- str_replace_all(jjep.67.1.12.rm07, pattern = rm.08, replacement = ""); jjep.67.1.12.rm09 <- str_replace_all(jjep.67.1.12.rm08, pattern = rm.09, replacement = ""); jjep.67.1.12.rp10 <- str_replace_all(jjep.67.1.12.rm09, pattern = rp.01, replacement = "・"); jjep.67.1.12.rp11 <- str_replace_all(jjep.67.1.12.rp10, pattern = rp.02, replacement = ","); jjep.67.1.12.rp12 <- str_replace_all(jjep.67.1.12.rp11, pattern = rp.03, replacement = ","); jjep.67.1.12.rp13 <- str_replace_all(jjep.67.1.12.rp12, pattern = rp.04, replacement = ","); jjep.67.1.12.rp14 <- str_replace_all(jjep.67.1.12.rp13, pattern = rp.05, replacement = ","); jjep.67.1.12.rp15 <- str_replace_all(jjep.67.1.12.rp14, pattern = rp.06, replacement = ","); jjep.67.1.12.mod <- rbind(varname,jjep.67.1.12.rp15); write(jjep.67.1.12.mod, file = "./jjep/Mod_67_1_12.txt")
jjep.67.1.26.tx <- readr::read_file(file="./jjep/67_1_26.txt"); jjep.67.1.26.rm00 <- jjep.67.1.26.tx; jjep.67.1.26.rm01 <- str_replace_all(jjep.67.1.26.rm00, pattern = rm.01, replacement = ""); jjep.67.1.26.rm02 <- str_replace_all(jjep.67.1.26.rm01, pattern = rm.02, replacement = ""); jjep.67.1.26.rm03 <- str_replace_all(jjep.67.1.26.rm02, pattern = rm.03, replacement = ""); jjep.67.1.26.rm04 <- str_replace_all(jjep.67.1.26.rm03, pattern = rm.04, replacement = ""); jjep.67.1.26.rm05 <- str_replace_all(jjep.67.1.26.rm04, pattern = rm.05, replacement = ""); jjep.67.1.26.rm06 <- str_replace_all(jjep.67.1.26.rm05, pattern = rm.06, replacement = ""); jjep.67.1.26.rm07 <- str_replace_all(jjep.67.1.26.rm06, pattern = rm.07, replacement = ""); jjep.67.1.26.rm08 <- str_replace_all(jjep.67.1.26.rm07, pattern = rm.08, replacement = ""); jjep.67.1.26.rm09 <- str_replace_all(jjep.67.1.26.rm08, pattern = rm.09, replacement = ""); jjep.67.1.26.rp10 <- str_replace_all(jjep.67.1.26.rm09, pattern = rp.01, replacement = "・"); jjep.67.1.26.rp11 <- str_replace_all(jjep.67.1.26.rp10, pattern = rp.02, replacement = ","); jjep.67.1.26.rp12 <- str_replace_all(jjep.67.1.26.rp11, pattern = rp.03, replacement = ","); jjep.67.1.26.rp13 <- str_replace_all(jjep.67.1.26.rp12, pattern = rp.04, replacement = ","); jjep.67.1.26.rp14 <- str_replace_all(jjep.67.1.26.rp13, pattern = rp.05, replacement = ","); jjep.67.1.26.rp15 <- str_replace_all(jjep.67.1.26.rp14, pattern = rp.06, replacement = ","); jjep.67.1.26.mod <- rbind(varname,jjep.67.1.26.rp15); write(jjep.67.1.26.mod, file = "./jjep/Mod_67_1_26.txt")
jjep.67.1.40.tx <- readr::read_file(file="./jjep/67_1_40.txt"); jjep.67.1.40.rm00 <- jjep.67.1.40.tx; jjep.67.1.40.rm01 <- str_replace_all(jjep.67.1.40.rm00, pattern = rm.01, replacement = ""); jjep.67.1.40.rm02 <- str_replace_all(jjep.67.1.40.rm01, pattern = rm.02, replacement = ""); jjep.67.1.40.rm03 <- str_replace_all(jjep.67.1.40.rm02, pattern = rm.03, replacement = ""); jjep.67.1.40.rm04 <- str_replace_all(jjep.67.1.40.rm03, pattern = rm.04, replacement = ""); jjep.67.1.40.rm05 <- str_replace_all(jjep.67.1.40.rm04, pattern = rm.05, replacement = ""); jjep.67.1.40.rm06 <- str_replace_all(jjep.67.1.40.rm05, pattern = rm.06, replacement = ""); jjep.67.1.40.rm07 <- str_replace_all(jjep.67.1.40.rm06, pattern = rm.07, replacement = ""); jjep.67.1.40.rm08 <- str_replace_all(jjep.67.1.40.rm07, pattern = rm.08, replacement = ""); jjep.67.1.40.rm09 <- str_replace_all(jjep.67.1.40.rm08, pattern = rm.09, replacement = ""); jjep.67.1.40.rp10 <- str_replace_all(jjep.67.1.40.rm09, pattern = rp.01, replacement = "・"); jjep.67.1.40.rp11 <- str_replace_all(jjep.67.1.40.rp10, pattern = rp.02, replacement = ","); jjep.67.1.40.rp12 <- str_replace_all(jjep.67.1.40.rp11, pattern = rp.03, replacement = ","); jjep.67.1.40.rp13 <- str_replace_all(jjep.67.1.40.rp12, pattern = rp.04, replacement = ","); jjep.67.1.40.rp14 <- str_replace_all(jjep.67.1.40.rp13, pattern = rp.05, replacement = ","); jjep.67.1.40.rp15 <- str_replace_all(jjep.67.1.40.rp14, pattern = rp.06, replacement = ","); jjep.67.1.40.mod <- rbind(varname,jjep.67.1.40.rp15); write(jjep.67.1.40.mod, file = "./jjep/Mod_67_1_40.txt")
jjep.67.1.54.tx <- readr::read_file(file="./jjep/67_1_54.txt"); jjep.67.1.54.rm00 <- jjep.67.1.54.tx; jjep.67.1.54.rm01 <- str_replace_all(jjep.67.1.54.rm00, pattern = rm.01, replacement = ""); jjep.67.1.54.rm02 <- str_replace_all(jjep.67.1.54.rm01, pattern = rm.02, replacement = ""); jjep.67.1.54.rm03 <- str_replace_all(jjep.67.1.54.rm02, pattern = rm.03, replacement = ""); jjep.67.1.54.rm04 <- str_replace_all(jjep.67.1.54.rm03, pattern = rm.04, replacement = ""); jjep.67.1.54.rm05 <- str_replace_all(jjep.67.1.54.rm04, pattern = rm.05, replacement = ""); jjep.67.1.54.rm06 <- str_replace_all(jjep.67.1.54.rm05, pattern = rm.06, replacement = ""); jjep.67.1.54.rm07 <- str_replace_all(jjep.67.1.54.rm06, pattern = rm.07, replacement = ""); jjep.67.1.54.rm08 <- str_replace_all(jjep.67.1.54.rm07, pattern = rm.08, replacement = ""); jjep.67.1.54.rm09 <- str_replace_all(jjep.67.1.54.rm08, pattern = rm.09, replacement = ""); jjep.67.1.54.rp10 <- str_replace_all(jjep.67.1.54.rm09, pattern = rp.01, replacement = "・"); jjep.67.1.54.rp11 <- str_replace_all(jjep.67.1.54.rp10, pattern = rp.02, replacement = ","); jjep.67.1.54.rp12 <- str_replace_all(jjep.67.1.54.rp11, pattern = rp.03, replacement = ","); jjep.67.1.54.rp13 <- str_replace_all(jjep.67.1.54.rp12, pattern = rp.04, replacement = ","); jjep.67.1.54.rp14 <- str_replace_all(jjep.67.1.54.rp13, pattern = rp.05, replacement = ","); jjep.67.1.54.rp15 <- str_replace_all(jjep.67.1.54.rp14, pattern = rp.06, replacement = ","); jjep.67.1.54.mod <- rbind(varname,jjep.67.1.54.rp15); write(jjep.67.1.54.mod, file = "./jjep/Mod_67_1_54.txt")
jjep.66.4.263.tx <- readr::read_file(file="./jjep/66_4_263.txt"); jjep.66.4.263.rm00 <- jjep.66.4.263.tx; jjep.66.4.263.rm01 <- str_replace_all(jjep.66.4.263.rm00, pattern = rm.01, replacement = ""); jjep.66.4.263.rm02 <- str_replace_all(jjep.66.4.263.rm01, pattern = rm.02, replacement = ""); jjep.66.4.263.rm03 <- str_replace_all(jjep.66.4.263.rm02, pattern = rm.03, replacement = ""); jjep.66.4.263.rm04 <- str_replace_all(jjep.66.4.263.rm03, pattern = rm.04, replacement = ""); jjep.66.4.263.rm05 <- str_replace_all(jjep.66.4.263.rm04, pattern = rm.05, replacement = ""); jjep.66.4.263.rm06 <- str_replace_all(jjep.66.4.263.rm05, pattern = rm.06, replacement = ""); jjep.66.4.263.rm07 <- str_replace_all(jjep.66.4.263.rm06, pattern = rm.07, replacement = ""); jjep.66.4.263.rm08 <- str_replace_all(jjep.66.4.263.rm07, pattern = rm.08, replacement = ""); jjep.66.4.263.rm09 <- str_replace_all(jjep.66.4.263.rm08, pattern = rm.09, replacement = ""); jjep.66.4.263.rp10 <- str_replace_all(jjep.66.4.263.rm09, pattern = rp.01, replacement = "・"); jjep.66.4.263.rp11 <- str_replace_all(jjep.66.4.263.rp10, pattern = rp.02, replacement = ","); jjep.66.4.263.rp12 <- str_replace_all(jjep.66.4.263.rp11, pattern = rp.03, replacement = ","); jjep.66.4.263.rp13 <- str_replace_all(jjep.66.4.263.rp12, pattern = rp.04, replacement = ","); jjep.66.4.263.rp14 <- str_replace_all(jjep.66.4.263.rp13, pattern = rp.05, replacement = ","); jjep.66.4.263.rp15 <- str_replace_all(jjep.66.4.263.rp14, pattern = rp.06, replacement = ","); jjep.66.4.263.mod <- rbind(varname,jjep.66.4.263.rp15); write(jjep.66.4.263.mod, file = "./jjep/Mod_66_4_263.txt")
jjep.66.4.276.tx <- readr::read_file(file="./jjep/66_4_276.txt"); jjep.66.4.276.rm00 <- jjep.66.4.276.tx; jjep.66.4.276.rm01 <- str_replace_all(jjep.66.4.276.rm00, pattern = rm.01, replacement = ""); jjep.66.4.276.rm02 <- str_replace_all(jjep.66.4.276.rm01, pattern = rm.02, replacement = ""); jjep.66.4.276.rm03 <- str_replace_all(jjep.66.4.276.rm02, pattern = rm.03, replacement = ""); jjep.66.4.276.rm04 <- str_replace_all(jjep.66.4.276.rm03, pattern = rm.04, replacement = ""); jjep.66.4.276.rm05 <- str_replace_all(jjep.66.4.276.rm04, pattern = rm.05, replacement = ""); jjep.66.4.276.rm06 <- str_replace_all(jjep.66.4.276.rm05, pattern = rm.06, replacement = ""); jjep.66.4.276.rm07 <- str_replace_all(jjep.66.4.276.rm06, pattern = rm.07, replacement = ""); jjep.66.4.276.rm08 <- str_replace_all(jjep.66.4.276.rm07, pattern = rm.08, replacement = ""); jjep.66.4.276.rm09 <- str_replace_all(jjep.66.4.276.rm08, pattern = rm.09, replacement = ""); jjep.66.4.276.rp10 <- str_replace_all(jjep.66.4.276.rm09, pattern = rp.01, replacement = "・"); jjep.66.4.276.rp11 <- str_replace_all(jjep.66.4.276.rp10, pattern = rp.02, replacement = ","); jjep.66.4.276.rp12 <- str_replace_all(jjep.66.4.276.rp11, pattern = rp.03, replacement = ","); jjep.66.4.276.rp13 <- str_replace_all(jjep.66.4.276.rp12, pattern = rp.04, replacement = ","); jjep.66.4.276.rp14 <- str_replace_all(jjep.66.4.276.rp13, pattern = rp.05, replacement = ","); jjep.66.4.276.rp15 <- str_replace_all(jjep.66.4.276.rp14, pattern = rp.06, replacement = ","); jjep.66.4.276.mod <- rbind(varname,jjep.66.4.276.rp15); write(jjep.66.4.276.mod, file = "./jjep/Mod_66_4_276.txt")
jjep.66.4.287.tx <- readr::read_file(file="./jjep/66_4_287.txt"); jjep.66.4.287.rm00 <- jjep.66.4.287.tx; jjep.66.4.287.rm01 <- str_replace_all(jjep.66.4.287.rm00, pattern = rm.01, replacement = ""); jjep.66.4.287.rm02 <- str_replace_all(jjep.66.4.287.rm01, pattern = rm.02, replacement = ""); jjep.66.4.287.rm03 <- str_replace_all(jjep.66.4.287.rm02, pattern = rm.03, replacement = ""); jjep.66.4.287.rm04 <- str_replace_all(jjep.66.4.287.rm03, pattern = rm.04, replacement = ""); jjep.66.4.287.rm05 <- str_replace_all(jjep.66.4.287.rm04, pattern = rm.05, replacement = ""); jjep.66.4.287.rm06 <- str_replace_all(jjep.66.4.287.rm05, pattern = rm.06, replacement = ""); jjep.66.4.287.rm07 <- str_replace_all(jjep.66.4.287.rm06, pattern = rm.07, replacement = ""); jjep.66.4.287.rm08 <- str_replace_all(jjep.66.4.287.rm07, pattern = rm.08, replacement = ""); jjep.66.4.287.rm09 <- str_replace_all(jjep.66.4.287.rm08, pattern = rm.09, replacement = ""); jjep.66.4.287.rp10 <- str_replace_all(jjep.66.4.287.rm09, pattern = rp.01, replacement = "・"); jjep.66.4.287.rp11 <- str_replace_all(jjep.66.4.287.rp10, pattern = rp.02, replacement = ","); jjep.66.4.287.rp12 <- str_replace_all(jjep.66.4.287.rp11, pattern = rp.03, replacement = ","); jjep.66.4.287.rp13 <- str_replace_all(jjep.66.4.287.rp12, pattern = rp.04, replacement = ","); jjep.66.4.287.rp14 <- str_replace_all(jjep.66.4.287.rp13, pattern = rp.05, replacement = ","); jjep.66.4.287.rp15 <- str_replace_all(jjep.66.4.287.rp14, pattern = rp.06, replacement = ","); jjep.66.4.287.mod <- rbind(varname,jjep.66.4.287.rp15); write(jjep.66.4.287.mod, file = "./jjep/Mod_66_4_287.txt")
jjep.66.4.300.tx <- readr::read_file(file="./jjep/66_4_300.txt"); jjep.66.4.300.rm00 <- jjep.66.4.300.tx; jjep.66.4.300.rm01 <- str_replace_all(jjep.66.4.300.rm00, pattern = rm.01, replacement = ""); jjep.66.4.300.rm02 <- str_replace_all(jjep.66.4.300.rm01, pattern = rm.02, replacement = ""); jjep.66.4.300.rm03 <- str_replace_all(jjep.66.4.300.rm02, pattern = rm.03, replacement = ""); jjep.66.4.300.rm04 <- str_replace_all(jjep.66.4.300.rm03, pattern = rm.04, replacement = ""); jjep.66.4.300.rm05 <- str_replace_all(jjep.66.4.300.rm04, pattern = rm.05, replacement = ""); jjep.66.4.300.rm06 <- str_replace_all(jjep.66.4.300.rm05, pattern = rm.06, replacement = ""); jjep.66.4.300.rm07 <- str_replace_all(jjep.66.4.300.rm06, pattern = rm.07, replacement = ""); jjep.66.4.300.rm08 <- str_replace_all(jjep.66.4.300.rm07, pattern = rm.08, replacement = ""); jjep.66.4.300.rm09 <- str_replace_all(jjep.66.4.300.rm08, pattern = rm.09, replacement = ""); jjep.66.4.300.rp10 <- str_replace_all(jjep.66.4.300.rm09, pattern = rp.01, replacement = "・"); jjep.66.4.300.rp11 <- str_replace_all(jjep.66.4.300.rp10, pattern = rp.02, replacement = ","); jjep.66.4.300.rp12 <- str_replace_all(jjep.66.4.300.rp11, pattern = rp.03, replacement = ","); jjep.66.4.300.rp13 <- str_replace_all(jjep.66.4.300.rp12, pattern = rp.04, replacement = ","); jjep.66.4.300.rp14 <- str_replace_all(jjep.66.4.300.rp13, pattern = rp.05, replacement = ","); jjep.66.4.300.rp15 <- str_replace_all(jjep.66.4.300.rp14, pattern = rp.06, replacement = ","); jjep.66.4.300.mod <- rbind(varname,jjep.66.4.300.rp15); write(jjep.66.4.300.mod, file = "./jjep/Mod_66_4_300.txt")
jjep.66.4.313.tx <- readr::read_file(file="./jjep/66_4_313.txt"); jjep.66.4.313.rm00 <- jjep.66.4.313.tx; jjep.66.4.313.rm01 <- str_replace_all(jjep.66.4.313.rm00, pattern = rm.01, replacement = ""); jjep.66.4.313.rm02 <- str_replace_all(jjep.66.4.313.rm01, pattern = rm.02, replacement = ""); jjep.66.4.313.rm03 <- str_replace_all(jjep.66.4.313.rm02, pattern = rm.03, replacement = ""); jjep.66.4.313.rm04 <- str_replace_all(jjep.66.4.313.rm03, pattern = rm.04, replacement = ""); jjep.66.4.313.rm05 <- str_replace_all(jjep.66.4.313.rm04, pattern = rm.05, replacement = ""); jjep.66.4.313.rm06 <- str_replace_all(jjep.66.4.313.rm05, pattern = rm.06, replacement = ""); jjep.66.4.313.rm07 <- str_replace_all(jjep.66.4.313.rm06, pattern = rm.07, replacement = ""); jjep.66.4.313.rm08 <- str_replace_all(jjep.66.4.313.rm07, pattern = rm.08, replacement = ""); jjep.66.4.313.rm09 <- str_replace_all(jjep.66.4.313.rm08, pattern = rm.09, replacement = ""); jjep.66.4.313.rp10 <- str_replace_all(jjep.66.4.313.rm09, pattern = rp.01, replacement = "・"); jjep.66.4.313.rp11 <- str_replace_all(jjep.66.4.313.rp10, pattern = rp.02, replacement = ","); jjep.66.4.313.rp12 <- str_replace_all(jjep.66.4.313.rp11, pattern = rp.03, replacement = ","); jjep.66.4.313.rp13 <- str_replace_all(jjep.66.4.313.rp12, pattern = rp.04, replacement = ","); jjep.66.4.313.rp14 <- str_replace_all(jjep.66.4.313.rp13, pattern = rp.05, replacement = ","); jjep.66.4.313.rp15 <- str_replace_all(jjep.66.4.313.rp14, pattern = rp.06, replacement = ","); jjep.66.4.313.mod <- rbind(varname,jjep.66.4.313.rp15); write(jjep.66.4.313.mod, file = "./jjep/Mod_66_4_313.txt")
jjep.66.3.185.tx <- readr::read_file(file="./jjep/66_3_185.txt"); jjep.66.3.185.rm00 <- jjep.66.3.185.tx; jjep.66.3.185.rm01 <- str_replace_all(jjep.66.3.185.rm00, pattern = rm.01, replacement = ""); jjep.66.3.185.rm02 <- str_replace_all(jjep.66.3.185.rm01, pattern = rm.02, replacement = ""); jjep.66.3.185.rm03 <- str_replace_all(jjep.66.3.185.rm02, pattern = rm.03, replacement = ""); jjep.66.3.185.rm04 <- str_replace_all(jjep.66.3.185.rm03, pattern = rm.04, replacement = ""); jjep.66.3.185.rm05 <- str_replace_all(jjep.66.3.185.rm04, pattern = rm.05, replacement = ""); jjep.66.3.185.rm06 <- str_replace_all(jjep.66.3.185.rm05, pattern = rm.06, replacement = ""); jjep.66.3.185.rm07 <- str_replace_all(jjep.66.3.185.rm06, pattern = rm.07, replacement = ""); jjep.66.3.185.rm08 <- str_replace_all(jjep.66.3.185.rm07, pattern = rm.08, replacement = ""); jjep.66.3.185.rm09 <- str_replace_all(jjep.66.3.185.rm08, pattern = rm.09, replacement = ""); jjep.66.3.185.rp10 <- str_replace_all(jjep.66.3.185.rm09, pattern = rp.01, replacement = "・"); jjep.66.3.185.rp11 <- str_replace_all(jjep.66.3.185.rp10, pattern = rp.02, replacement = ","); jjep.66.3.185.rp12 <- str_replace_all(jjep.66.3.185.rp11, pattern = rp.03, replacement = ","); jjep.66.3.185.rp13 <- str_replace_all(jjep.66.3.185.rp12, pattern = rp.04, replacement = ","); jjep.66.3.185.rp14 <- str_replace_all(jjep.66.3.185.rp13, pattern = rp.05, replacement = ","); jjep.66.3.185.rp15 <- str_replace_all(jjep.66.3.185.rp14, pattern = rp.06, replacement = ","); jjep.66.3.185.mod <- rbind(varname,jjep.66.3.185.rp15); write(jjep.66.3.185.mod, file = "./jjep/Mod_66_3_185.txt")
jjep.66.3.199.tx <- readr::read_file(file="./jjep/66_3_199.txt"); jjep.66.3.199.rm00 <- jjep.66.3.199.tx; jjep.66.3.199.rm01 <- str_replace_all(jjep.66.3.199.rm00, pattern = rm.01, replacement = ""); jjep.66.3.199.rm02 <- str_replace_all(jjep.66.3.199.rm01, pattern = rm.02, replacement = ""); jjep.66.3.199.rm03 <- str_replace_all(jjep.66.3.199.rm02, pattern = rm.03, replacement = ""); jjep.66.3.199.rm04 <- str_replace_all(jjep.66.3.199.rm03, pattern = rm.04, replacement = ""); jjep.66.3.199.rm05 <- str_replace_all(jjep.66.3.199.rm04, pattern = rm.05, replacement = ""); jjep.66.3.199.rm06 <- str_replace_all(jjep.66.3.199.rm05, pattern = rm.06, replacement = ""); jjep.66.3.199.rm07 <- str_replace_all(jjep.66.3.199.rm06, pattern = rm.07, replacement = ""); jjep.66.3.199.rm08 <- str_replace_all(jjep.66.3.199.rm07, pattern = rm.08, replacement = ""); jjep.66.3.199.rm09 <- str_replace_all(jjep.66.3.199.rm08, pattern = rm.09, replacement = ""); jjep.66.3.199.rp10 <- str_replace_all(jjep.66.3.199.rm09, pattern = rp.01, replacement = "・"); jjep.66.3.199.rp11 <- str_replace_all(jjep.66.3.199.rp10, pattern = rp.02, replacement = ","); jjep.66.3.199.rp12 <- str_replace_all(jjep.66.3.199.rp11, pattern = rp.03, replacement = ","); jjep.66.3.199.rp13 <- str_replace_all(jjep.66.3.199.rp12, pattern = rp.04, replacement = ","); jjep.66.3.199.rp14 <- str_replace_all(jjep.66.3.199.rp13, pattern = rp.05, replacement = ","); jjep.66.3.199.rp15 <- str_replace_all(jjep.66.3.199.rp14, pattern = rp.06, replacement = ","); jjep.66.3.199.mod <- rbind(varname,jjep.66.3.199.rp15); write(jjep.66.3.199.mod, file = "./jjep/Mod_66_3_199.txt")
jjep.66.3.212.tx <- readr::read_file(file="./jjep/66_3_212.txt"); jjep.66.3.212.rm00 <- jjep.66.3.212.tx; jjep.66.3.212.rm01 <- str_replace_all(jjep.66.3.212.rm00, pattern = rm.01, replacement = ""); jjep.66.3.212.rm02 <- str_replace_all(jjep.66.3.212.rm01, pattern = rm.02, replacement = ""); jjep.66.3.212.rm03 <- str_replace_all(jjep.66.3.212.rm02, pattern = rm.03, replacement = ""); jjep.66.3.212.rm04 <- str_replace_all(jjep.66.3.212.rm03, pattern = rm.04, replacement = ""); jjep.66.3.212.rm05 <- str_replace_all(jjep.66.3.212.rm04, pattern = rm.05, replacement = ""); jjep.66.3.212.rm06 <- str_replace_all(jjep.66.3.212.rm05, pattern = rm.06, replacement = ""); jjep.66.3.212.rm07 <- str_replace_all(jjep.66.3.212.rm06, pattern = rm.07, replacement = ""); jjep.66.3.212.rm08 <- str_replace_all(jjep.66.3.212.rm07, pattern = rm.08, replacement = ""); jjep.66.3.212.rm09 <- str_replace_all(jjep.66.3.212.rm08, pattern = rm.09, replacement = ""); jjep.66.3.212.rp10 <- str_replace_all(jjep.66.3.212.rm09, pattern = rp.01, replacement = "・"); jjep.66.3.212.rp11 <- str_replace_all(jjep.66.3.212.rp10, pattern = rp.02, replacement = ","); jjep.66.3.212.rp12 <- str_replace_all(jjep.66.3.212.rp11, pattern = rp.03, replacement = ","); jjep.66.3.212.rp13 <- str_replace_all(jjep.66.3.212.rp12, pattern = rp.04, replacement = ","); jjep.66.3.212.rp14 <- str_replace_all(jjep.66.3.212.rp13, pattern = rp.05, replacement = ","); jjep.66.3.212.rp15 <- str_replace_all(jjep.66.3.212.rp14, pattern = rp.06, replacement = ","); jjep.66.3.212.mod <- rbind(varname,jjep.66.3.212.rp15); write(jjep.66.3.212.mod, file = "./jjep/Mod_66_3_212.txt")
jjep.66.3.225.tx <- readr::read_file(file="./jjep/66_3_225.txt"); jjep.66.3.225.rm00 <- jjep.66.3.225.tx; jjep.66.3.225.rm01 <- str_replace_all(jjep.66.3.225.rm00, pattern = rm.01, replacement = ""); jjep.66.3.225.rm02 <- str_replace_all(jjep.66.3.225.rm01, pattern = rm.02, replacement = ""); jjep.66.3.225.rm03 <- str_replace_all(jjep.66.3.225.rm02, pattern = rm.03, replacement = ""); jjep.66.3.225.rm04 <- str_replace_all(jjep.66.3.225.rm03, pattern = rm.04, replacement = ""); jjep.66.3.225.rm05 <- str_replace_all(jjep.66.3.225.rm04, pattern = rm.05, replacement = ""); jjep.66.3.225.rm06 <- str_replace_all(jjep.66.3.225.rm05, pattern = rm.06, replacement = ""); jjep.66.3.225.rm07 <- str_replace_all(jjep.66.3.225.rm06, pattern = rm.07, replacement = ""); jjep.66.3.225.rm08 <- str_replace_all(jjep.66.3.225.rm07, pattern = rm.08, replacement = ""); jjep.66.3.225.rm09 <- str_replace_all(jjep.66.3.225.rm08, pattern = rm.09, replacement = ""); jjep.66.3.225.rp10 <- str_replace_all(jjep.66.3.225.rm09, pattern = rp.01, replacement = "・"); jjep.66.3.225.rp11 <- str_replace_all(jjep.66.3.225.rp10, pattern = rp.02, replacement = ","); jjep.66.3.225.rp12 <- str_replace_all(jjep.66.3.225.rp11, pattern = rp.03, replacement = ","); jjep.66.3.225.rp13 <- str_replace_all(jjep.66.3.225.rp12, pattern = rp.04, replacement = ","); jjep.66.3.225.rp14 <- str_replace_all(jjep.66.3.225.rp13, pattern = rp.05, replacement = ","); jjep.66.3.225.rp15 <- str_replace_all(jjep.66.3.225.rp14, pattern = rp.06, replacement = ","); jjep.66.3.225.mod <- rbind(varname,jjep.66.3.225.rp15); write(jjep.66.3.225.mod, file = "./jjep/Mod_66_3_225.txt")
jjep.66.3.241.tx <- readr::read_file(file="./jjep/66_3_241.txt"); jjep.66.3.241.rm00 <- jjep.66.3.241.tx; jjep.66.3.241.rm01 <- str_replace_all(jjep.66.3.241.rm00, pattern = rm.01, replacement = ""); jjep.66.3.241.rm02 <- str_replace_all(jjep.66.3.241.rm01, pattern = rm.02, replacement = ""); jjep.66.3.241.rm03 <- str_replace_all(jjep.66.3.241.rm02, pattern = rm.03, replacement = ""); jjep.66.3.241.rm04 <- str_replace_all(jjep.66.3.241.rm03, pattern = rm.04, replacement = ""); jjep.66.3.241.rm05 <- str_replace_all(jjep.66.3.241.rm04, pattern = rm.05, replacement = ""); jjep.66.3.241.rm06 <- str_replace_all(jjep.66.3.241.rm05, pattern = rm.06, replacement = ""); jjep.66.3.241.rm07 <- str_replace_all(jjep.66.3.241.rm06, pattern = rm.07, replacement = ""); jjep.66.3.241.rm08 <- str_replace_all(jjep.66.3.241.rm07, pattern = rm.08, replacement = ""); jjep.66.3.241.rm09 <- str_replace_all(jjep.66.3.241.rm08, pattern = rm.09, replacement = ""); jjep.66.3.241.rp10 <- str_replace_all(jjep.66.3.241.rm09, pattern = rp.01, replacement = "・"); jjep.66.3.241.rp11 <- str_replace_all(jjep.66.3.241.rp10, pattern = rp.02, replacement = ","); jjep.66.3.241.rp12 <- str_replace_all(jjep.66.3.241.rp11, pattern = rp.03, replacement = ","); jjep.66.3.241.rp13 <- str_replace_all(jjep.66.3.241.rp12, pattern = rp.04, replacement = ","); jjep.66.3.241.rp14 <- str_replace_all(jjep.66.3.241.rp13, pattern = rp.05, replacement = ","); jjep.66.3.241.rp15 <- str_replace_all(jjep.66.3.241.rp14, pattern = rp.06, replacement = ","); jjep.66.3.241.mod <- rbind(varname,jjep.66.3.241.rp15); write(jjep.66.3.241.mod, file = "./jjep/Mod_66_3_241.txt")
jjep.66.2.111.tx <- readr::read_file(file="./jjep/66_2_111.txt"); jjep.66.2.111.rm00 <- jjep.66.2.111.tx; jjep.66.2.111.rm01 <- str_replace_all(jjep.66.2.111.rm00, pattern = rm.01, replacement = ""); jjep.66.2.111.rm02 <- str_replace_all(jjep.66.2.111.rm01, pattern = rm.02, replacement = ""); jjep.66.2.111.rm03 <- str_replace_all(jjep.66.2.111.rm02, pattern = rm.03, replacement = ""); jjep.66.2.111.rm04 <- str_replace_all(jjep.66.2.111.rm03, pattern = rm.04, replacement = ""); jjep.66.2.111.rm05 <- str_replace_all(jjep.66.2.111.rm04, pattern = rm.05, replacement = ""); jjep.66.2.111.rm06 <- str_replace_all(jjep.66.2.111.rm05, pattern = rm.06, replacement = ""); jjep.66.2.111.rm07 <- str_replace_all(jjep.66.2.111.rm06, pattern = rm.07, replacement = ""); jjep.66.2.111.rm08 <- str_replace_all(jjep.66.2.111.rm07, pattern = rm.08, replacement = ""); jjep.66.2.111.rm09 <- str_replace_all(jjep.66.2.111.rm08, pattern = rm.09, replacement = ""); jjep.66.2.111.rp10 <- str_replace_all(jjep.66.2.111.rm09, pattern = rp.01, replacement = "・"); jjep.66.2.111.rp11 <- str_replace_all(jjep.66.2.111.rp10, pattern = rp.02, replacement = ","); jjep.66.2.111.rp12 <- str_replace_all(jjep.66.2.111.rp11, pattern = rp.03, replacement = ","); jjep.66.2.111.rp13 <- str_replace_all(jjep.66.2.111.rp12, pattern = rp.04, replacement = ","); jjep.66.2.111.rp14 <- str_replace_all(jjep.66.2.111.rp13, pattern = rp.05, replacement = ","); jjep.66.2.111.rp15 <- str_replace_all(jjep.66.2.111.rp14, pattern = rp.06, replacement = ","); jjep.66.2.111.mod <- rbind(varname,jjep.66.2.111.rp15); write(jjep.66.2.111.mod, file = "./jjep/Mod_66_2_111.txt")
jjep.66.2.127.tx <- readr::read_file(file="./jjep/66_2_127.txt"); jjep.66.2.127.rm00 <- jjep.66.2.127.tx; jjep.66.2.127.rm01 <- str_replace_all(jjep.66.2.127.rm00, pattern = rm.01, replacement = ""); jjep.66.2.127.rm02 <- str_replace_all(jjep.66.2.127.rm01, pattern = rm.02, replacement = ""); jjep.66.2.127.rm03 <- str_replace_all(jjep.66.2.127.rm02, pattern = rm.03, replacement = ""); jjep.66.2.127.rm04 <- str_replace_all(jjep.66.2.127.rm03, pattern = rm.04, replacement = ""); jjep.66.2.127.rm05 <- str_replace_all(jjep.66.2.127.rm04, pattern = rm.05, replacement = ""); jjep.66.2.127.rm06 <- str_replace_all(jjep.66.2.127.rm05, pattern = rm.06, replacement = ""); jjep.66.2.127.rm07 <- str_replace_all(jjep.66.2.127.rm06, pattern = rm.07, replacement = ""); jjep.66.2.127.rm08 <- str_replace_all(jjep.66.2.127.rm07, pattern = rm.08, replacement = ""); jjep.66.2.127.rm09 <- str_replace_all(jjep.66.2.127.rm08, pattern = rm.09, replacement = ""); jjep.66.2.127.rp10 <- str_replace_all(jjep.66.2.127.rm09, pattern = rp.01, replacement = "・"); jjep.66.2.127.rp11 <- str_replace_all(jjep.66.2.127.rp10, pattern = rp.02, replacement = ","); jjep.66.2.127.rp12 <- str_replace_all(jjep.66.2.127.rp11, pattern = rp.03, replacement = ","); jjep.66.2.127.rp13 <- str_replace_all(jjep.66.2.127.rp12, pattern = rp.04, replacement = ","); jjep.66.2.127.rp14 <- str_replace_all(jjep.66.2.127.rp13, pattern = rp.05, replacement = ","); jjep.66.2.127.rp15 <- str_replace_all(jjep.66.2.127.rp14, pattern = rp.06, replacement = ","); jjep.66.2.127.mod <- rbind(varname,jjep.66.2.127.rp15); write(jjep.66.2.127.mod, file = "./jjep/Mod_66_2_127.txt")
jjep.66.2.136.tx <- readr::read_file(file="./jjep/66_2_136.txt"); jjep.66.2.136.rm00 <- jjep.66.2.136.tx; jjep.66.2.136.rm01 <- str_replace_all(jjep.66.2.136.rm00, pattern = rm.01, replacement = ""); jjep.66.2.136.rm02 <- str_replace_all(jjep.66.2.136.rm01, pattern = rm.02, replacement = ""); jjep.66.2.136.rm03 <- str_replace_all(jjep.66.2.136.rm02, pattern = rm.03, replacement = ""); jjep.66.2.136.rm04 <- str_replace_all(jjep.66.2.136.rm03, pattern = rm.04, replacement = ""); jjep.66.2.136.rm05 <- str_replace_all(jjep.66.2.136.rm04, pattern = rm.05, replacement = ""); jjep.66.2.136.rm06 <- str_replace_all(jjep.66.2.136.rm05, pattern = rm.06, replacement = ""); jjep.66.2.136.rm07 <- str_replace_all(jjep.66.2.136.rm06, pattern = rm.07, replacement = ""); jjep.66.2.136.rm08 <- str_replace_all(jjep.66.2.136.rm07, pattern = rm.08, replacement = ""); jjep.66.2.136.rm09 <- str_replace_all(jjep.66.2.136.rm08, pattern = rm.09, replacement = ""); jjep.66.2.136.rp10 <- str_replace_all(jjep.66.2.136.rm09, pattern = rp.01, replacement = "・"); jjep.66.2.136.rp11 <- str_replace_all(jjep.66.2.136.rp10, pattern = rp.02, replacement = ","); jjep.66.2.136.rp12 <- str_replace_all(jjep.66.2.136.rp11, pattern = rp.03, replacement = ","); jjep.66.2.136.rp13 <- str_replace_all(jjep.66.2.136.rp12, pattern = rp.04, replacement = ","); jjep.66.2.136.rp14 <- str_replace_all(jjep.66.2.136.rp13, pattern = rp.05, replacement = ","); jjep.66.2.136.rp15 <- str_replace_all(jjep.66.2.136.rp14, pattern = rp.06, replacement = ","); jjep.66.2.136.mod <- rbind(varname,jjep.66.2.136.rp15); write(jjep.66.2.136.mod, file = "./jjep/Mod_66_2_136.txt")
jjep.66.2.150.tx <- readr::read_file(file="./jjep/66_2_150.txt"); jjep.66.2.150.rm00 <- jjep.66.2.150.tx; jjep.66.2.150.rm01 <- str_replace_all(jjep.66.2.150.rm00, pattern = rm.01, replacement = ""); jjep.66.2.150.rm02 <- str_replace_all(jjep.66.2.150.rm01, pattern = rm.02, replacement = ""); jjep.66.2.150.rm03 <- str_replace_all(jjep.66.2.150.rm02, pattern = rm.03, replacement = ""); jjep.66.2.150.rm04 <- str_replace_all(jjep.66.2.150.rm03, pattern = rm.04, replacement = ""); jjep.66.2.150.rm05 <- str_replace_all(jjep.66.2.150.rm04, pattern = rm.05, replacement = ""); jjep.66.2.150.rm06 <- str_replace_all(jjep.66.2.150.rm05, pattern = rm.06, replacement = ""); jjep.66.2.150.rm07 <- str_replace_all(jjep.66.2.150.rm06, pattern = rm.07, replacement = ""); jjep.66.2.150.rm08 <- str_replace_all(jjep.66.2.150.rm07, pattern = rm.08, replacement = ""); jjep.66.2.150.rm09 <- str_replace_all(jjep.66.2.150.rm08, pattern = rm.09, replacement = ""); jjep.66.2.150.rp10 <- str_replace_all(jjep.66.2.150.rm09, pattern = rp.01, replacement = "・"); jjep.66.2.150.rp11 <- str_replace_all(jjep.66.2.150.rp10, pattern = rp.02, replacement = ","); jjep.66.2.150.rp12 <- str_replace_all(jjep.66.2.150.rp11, pattern = rp.03, replacement = ","); jjep.66.2.150.rp13 <- str_replace_all(jjep.66.2.150.rp12, pattern = rp.04, replacement = ","); jjep.66.2.150.rp14 <- str_replace_all(jjep.66.2.150.rp13, pattern = rp.05, replacement = ","); jjep.66.2.150.rp15 <- str_replace_all(jjep.66.2.150.rp14, pattern = rp.06, replacement = ","); jjep.66.2.150.mod <- rbind(varname,jjep.66.2.150.rp15); write(jjep.66.2.150.mod, file = "./jjep/Mod_66_2_150.txt")
jjep.66.2.162.tx <- readr::read_file(file="./jjep/66_2_162.txt"); jjep.66.2.162.rm00 <- jjep.66.2.162.tx; jjep.66.2.162.rm01 <- str_replace_all(jjep.66.2.162.rm00, pattern = rm.01, replacement = ""); jjep.66.2.162.rm02 <- str_replace_all(jjep.66.2.162.rm01, pattern = rm.02, replacement = ""); jjep.66.2.162.rm03 <- str_replace_all(jjep.66.2.162.rm02, pattern = rm.03, replacement = ""); jjep.66.2.162.rm04 <- str_replace_all(jjep.66.2.162.rm03, pattern = rm.04, replacement = ""); jjep.66.2.162.rm05 <- str_replace_all(jjep.66.2.162.rm04, pattern = rm.05, replacement = ""); jjep.66.2.162.rm06 <- str_replace_all(jjep.66.2.162.rm05, pattern = rm.06, replacement = ""); jjep.66.2.162.rm07 <- str_replace_all(jjep.66.2.162.rm06, pattern = rm.07, replacement = ""); jjep.66.2.162.rm08 <- str_replace_all(jjep.66.2.162.rm07, pattern = rm.08, replacement = ""); jjep.66.2.162.rm09 <- str_replace_all(jjep.66.2.162.rm08, pattern = rm.09, replacement = ""); jjep.66.2.162.rp10 <- str_replace_all(jjep.66.2.162.rm09, pattern = rp.01, replacement = "・"); jjep.66.2.162.rp11 <- str_replace_all(jjep.66.2.162.rp10, pattern = rp.02, replacement = ","); jjep.66.2.162.rp12 <- str_replace_all(jjep.66.2.162.rp11, pattern = rp.03, replacement = ","); jjep.66.2.162.rp13 <- str_replace_all(jjep.66.2.162.rp12, pattern = rp.04, replacement = ","); jjep.66.2.162.rp14 <- str_replace_all(jjep.66.2.162.rp13, pattern = rp.05, replacement = ","); jjep.66.2.162.rp15 <- str_replace_all(jjep.66.2.162.rp14, pattern = rp.06, replacement = ","); jjep.66.2.162.mod <- rbind(varname,jjep.66.2.162.rp15); write(jjep.66.2.162.mod, file = "./jjep/Mod_66_2_162.txt")
jjep.66.1.1.tx <- readr::read_file(file="./jjep/66_1_1.txt"); jjep.66.1.1.rm00 <- jjep.66.1.1.tx; jjep.66.1.1.rm01 <- str_replace_all(jjep.66.1.1.rm00, pattern = rm.01, replacement = ""); jjep.66.1.1.rm02 <- str_replace_all(jjep.66.1.1.rm01, pattern = rm.02, replacement = ""); jjep.66.1.1.rm03 <- str_replace_all(jjep.66.1.1.rm02, pattern = rm.03, replacement = ""); jjep.66.1.1.rm04 <- str_replace_all(jjep.66.1.1.rm03, pattern = rm.04, replacement = ""); jjep.66.1.1.rm05 <- str_replace_all(jjep.66.1.1.rm04, pattern = rm.05, replacement = ""); jjep.66.1.1.rm06 <- str_replace_all(jjep.66.1.1.rm05, pattern = rm.06, replacement = ""); jjep.66.1.1.rm07 <- str_replace_all(jjep.66.1.1.rm06, pattern = rm.07, replacement = ""); jjep.66.1.1.rm08 <- str_replace_all(jjep.66.1.1.rm07, pattern = rm.08, replacement = ""); jjep.66.1.1.rm09 <- str_replace_all(jjep.66.1.1.rm08, pattern = rm.09, replacement = ""); jjep.66.1.1.rp10 <- str_replace_all(jjep.66.1.1.rm09, pattern = rp.01, replacement = "・"); jjep.66.1.1.rp11 <- str_replace_all(jjep.66.1.1.rp10, pattern = rp.02, replacement = ","); jjep.66.1.1.rp12 <- str_replace_all(jjep.66.1.1.rp11, pattern = rp.03, replacement = ","); jjep.66.1.1.rp13 <- str_replace_all(jjep.66.1.1.rp12, pattern = rp.04, replacement = ","); jjep.66.1.1.rp14 <- str_replace_all(jjep.66.1.1.rp13, pattern = rp.05, replacement = ","); jjep.66.1.1.rp15 <- str_replace_all(jjep.66.1.1.rp14, pattern = rp.06, replacement = ","); jjep.66.1.1.mod <- rbind(varname,jjep.66.1.1.rp15); write(jjep.66.1.1.mod, file = "./jjep/Mod_66_1_1.txt")
jjep.66.1.14.tx <- readr::read_file(file="./jjep/66_1_14.txt"); jjep.66.1.14.rm00 <- jjep.66.1.14.tx; jjep.66.1.14.rm01 <- str_replace_all(jjep.66.1.14.rm00, pattern = rm.01, replacement = ""); jjep.66.1.14.rm02 <- str_replace_all(jjep.66.1.14.rm01, pattern = rm.02, replacement = ""); jjep.66.1.14.rm03 <- str_replace_all(jjep.66.1.14.rm02, pattern = rm.03, replacement = ""); jjep.66.1.14.rm04 <- str_replace_all(jjep.66.1.14.rm03, pattern = rm.04, replacement = ""); jjep.66.1.14.rm05 <- str_replace_all(jjep.66.1.14.rm04, pattern = rm.05, replacement = ""); jjep.66.1.14.rm06 <- str_replace_all(jjep.66.1.14.rm05, pattern = rm.06, replacement = ""); jjep.66.1.14.rm07 <- str_replace_all(jjep.66.1.14.rm06, pattern = rm.07, replacement = ""); jjep.66.1.14.rm08 <- str_replace_all(jjep.66.1.14.rm07, pattern = rm.08, replacement = ""); jjep.66.1.14.rm09 <- str_replace_all(jjep.66.1.14.rm08, pattern = rm.09, replacement = ""); jjep.66.1.14.rp10 <- str_replace_all(jjep.66.1.14.rm09, pattern = rp.01, replacement = "・"); jjep.66.1.14.rp11 <- str_replace_all(jjep.66.1.14.rp10, pattern = rp.02, replacement = ","); jjep.66.1.14.rp12 <- str_replace_all(jjep.66.1.14.rp11, pattern = rp.03, replacement = ","); jjep.66.1.14.rp13 <- str_replace_all(jjep.66.1.14.rp12, pattern = rp.04, replacement = ","); jjep.66.1.14.rp14 <- str_replace_all(jjep.66.1.14.rp13, pattern = rp.05, replacement = ","); jjep.66.1.14.rp15 <- str_replace_all(jjep.66.1.14.rp14, pattern = rp.06, replacement = ","); jjep.66.1.14.mod <- rbind(varname,jjep.66.1.14.rp15); write(jjep.66.1.14.mod, file = "./jjep/Mod_66_1_14.txt")
jjep.66.1.28.tx <- readr::read_file(file="./jjep/66_1_28.txt"); jjep.66.1.28.rm00 <- jjep.66.1.28.tx; jjep.66.1.28.rm01 <- str_replace_all(jjep.66.1.28.rm00, pattern = rm.01, replacement = ""); jjep.66.1.28.rm02 <- str_replace_all(jjep.66.1.28.rm01, pattern = rm.02, replacement = ""); jjep.66.1.28.rm03 <- str_replace_all(jjep.66.1.28.rm02, pattern = rm.03, replacement = ""); jjep.66.1.28.rm04 <- str_replace_all(jjep.66.1.28.rm03, pattern = rm.04, replacement = ""); jjep.66.1.28.rm05 <- str_replace_all(jjep.66.1.28.rm04, pattern = rm.05, replacement = ""); jjep.66.1.28.rm06 <- str_replace_all(jjep.66.1.28.rm05, pattern = rm.06, replacement = ""); jjep.66.1.28.rm07 <- str_replace_all(jjep.66.1.28.rm06, pattern = rm.07, replacement = ""); jjep.66.1.28.rm08 <- str_replace_all(jjep.66.1.28.rm07, pattern = rm.08, replacement = ""); jjep.66.1.28.rm09 <- str_replace_all(jjep.66.1.28.rm08, pattern = rm.09, replacement = ""); jjep.66.1.28.rp10 <- str_replace_all(jjep.66.1.28.rm09, pattern = rp.01, replacement = "・"); jjep.66.1.28.rp11 <- str_replace_all(jjep.66.1.28.rp10, pattern = rp.02, replacement = ","); jjep.66.1.28.rp12 <- str_replace_all(jjep.66.1.28.rp11, pattern = rp.03, replacement = ","); jjep.66.1.28.rp13 <- str_replace_all(jjep.66.1.28.rp12, pattern = rp.04, replacement = ","); jjep.66.1.28.rp14 <- str_replace_all(jjep.66.1.28.rp13, pattern = rp.05, replacement = ","); jjep.66.1.28.rp15 <- str_replace_all(jjep.66.1.28.rp14, pattern = rp.06, replacement = ","); jjep.66.1.28.mod <- rbind(varname,jjep.66.1.28.rp15); write(jjep.66.1.28.mod, file = "./jjep/Mod_66_1_28.txt")
jjep.66.1.42.tx <- readr::read_file(file="./jjep/66_1_42.txt"); jjep.66.1.42.rm00 <- jjep.66.1.42.tx; jjep.66.1.42.rm01 <- str_replace_all(jjep.66.1.42.rm00, pattern = rm.01, replacement = ""); jjep.66.1.42.rm02 <- str_replace_all(jjep.66.1.42.rm01, pattern = rm.02, replacement = ""); jjep.66.1.42.rm03 <- str_replace_all(jjep.66.1.42.rm02, pattern = rm.03, replacement = ""); jjep.66.1.42.rm04 <- str_replace_all(jjep.66.1.42.rm03, pattern = rm.04, replacement = ""); jjep.66.1.42.rm05 <- str_replace_all(jjep.66.1.42.rm04, pattern = rm.05, replacement = ""); jjep.66.1.42.rm06 <- str_replace_all(jjep.66.1.42.rm05, pattern = rm.06, replacement = ""); jjep.66.1.42.rm07 <- str_replace_all(jjep.66.1.42.rm06, pattern = rm.07, replacement = ""); jjep.66.1.42.rm08 <- str_replace_all(jjep.66.1.42.rm07, pattern = rm.08, replacement = ""); jjep.66.1.42.rm09 <- str_replace_all(jjep.66.1.42.rm08, pattern = rm.09, replacement = ""); jjep.66.1.42.rp10 <- str_replace_all(jjep.66.1.42.rm09, pattern = rp.01, replacement = "・"); jjep.66.1.42.rp11 <- str_replace_all(jjep.66.1.42.rp10, pattern = rp.02, replacement = ","); jjep.66.1.42.rp12 <- str_replace_all(jjep.66.1.42.rp11, pattern = rp.03, replacement = ","); jjep.66.1.42.rp13 <- str_replace_all(jjep.66.1.42.rp12, pattern = rp.04, replacement = ","); jjep.66.1.42.rp14 <- str_replace_all(jjep.66.1.42.rp13, pattern = rp.05, replacement = ","); jjep.66.1.42.rp15 <- str_replace_all(jjep.66.1.42.rp14, pattern = rp.06, replacement = ","); jjep.66.1.42.mod <- rbind(varname,jjep.66.1.42.rp15); write(jjep.66.1.42.mod, file = "./jjep/Mod_66_1_42.txt")
jjep.66.1.54.tx <- readr::read_file(file="./jjep/66_1_54.txt"); jjep.66.1.54.rm00 <- jjep.66.1.54.tx; jjep.66.1.54.rm01 <- str_replace_all(jjep.66.1.54.rm00, pattern = rm.01, replacement = ""); jjep.66.1.54.rm02 <- str_replace_all(jjep.66.1.54.rm01, pattern = rm.02, replacement = ""); jjep.66.1.54.rm03 <- str_replace_all(jjep.66.1.54.rm02, pattern = rm.03, replacement = ""); jjep.66.1.54.rm04 <- str_replace_all(jjep.66.1.54.rm03, pattern = rm.04, replacement = ""); jjep.66.1.54.rm05 <- str_replace_all(jjep.66.1.54.rm04, pattern = rm.05, replacement = ""); jjep.66.1.54.rm06 <- str_replace_all(jjep.66.1.54.rm05, pattern = rm.06, replacement = ""); jjep.66.1.54.rm07 <- str_replace_all(jjep.66.1.54.rm06, pattern = rm.07, replacement = ""); jjep.66.1.54.rm08 <- str_replace_all(jjep.66.1.54.rm07, pattern = rm.08, replacement = ""); jjep.66.1.54.rm09 <- str_replace_all(jjep.66.1.54.rm08, pattern = rm.09, replacement = ""); jjep.66.1.54.rp10 <- str_replace_all(jjep.66.1.54.rm09, pattern = rp.01, replacement = "・"); jjep.66.1.54.rp11 <- str_replace_all(jjep.66.1.54.rp10, pattern = rp.02, replacement = ","); jjep.66.1.54.rp12 <- str_replace_all(jjep.66.1.54.rp11, pattern = rp.03, replacement = ","); jjep.66.1.54.rp13 <- str_replace_all(jjep.66.1.54.rp12, pattern = rp.04, replacement = ","); jjep.66.1.54.rp14 <- str_replace_all(jjep.66.1.54.rp13, pattern = rp.05, replacement = ","); jjep.66.1.54.rp15 <- str_replace_all(jjep.66.1.54.rp14, pattern = rp.06, replacement = ","); jjep.66.1.54.mod <- rbind(varname,jjep.66.1.54.rp15); write(jjep.66.1.54.mod, file = "./jjep/Mod_66_1_54.txt")
jjep.66.1.67.tx <- readr::read_file(file="./jjep/66_1_67.txt"); jjep.66.1.67.rm00 <- jjep.66.1.67.tx; jjep.66.1.67.rm01 <- str_replace_all(jjep.66.1.67.rm00, pattern = rm.01, replacement = ""); jjep.66.1.67.rm02 <- str_replace_all(jjep.66.1.67.rm01, pattern = rm.02, replacement = ""); jjep.66.1.67.rm03 <- str_replace_all(jjep.66.1.67.rm02, pattern = rm.03, replacement = ""); jjep.66.1.67.rm04 <- str_replace_all(jjep.66.1.67.rm03, pattern = rm.04, replacement = ""); jjep.66.1.67.rm05 <- str_replace_all(jjep.66.1.67.rm04, pattern = rm.05, replacement = ""); jjep.66.1.67.rm06 <- str_replace_all(jjep.66.1.67.rm05, pattern = rm.06, replacement = ""); jjep.66.1.67.rm07 <- str_replace_all(jjep.66.1.67.rm06, pattern = rm.07, replacement = ""); jjep.66.1.67.rm08 <- str_replace_all(jjep.66.1.67.rm07, pattern = rm.08, replacement = ""); jjep.66.1.67.rm09 <- str_replace_all(jjep.66.1.67.rm08, pattern = rm.09, replacement = ""); jjep.66.1.67.rp10 <- str_replace_all(jjep.66.1.67.rm09, pattern = rp.01, replacement = "・"); jjep.66.1.67.rp11 <- str_replace_all(jjep.66.1.67.rp10, pattern = rp.02, replacement = ","); jjep.66.1.67.rp12 <- str_replace_all(jjep.66.1.67.rp11, pattern = rp.03, replacement = ","); jjep.66.1.67.rp13 <- str_replace_all(jjep.66.1.67.rp12, pattern = rp.04, replacement = ","); jjep.66.1.67.rp14 <- str_replace_all(jjep.66.1.67.rp13, pattern = rp.05, replacement = ","); jjep.66.1.67.rp15 <- str_replace_all(jjep.66.1.67.rp14, pattern = rp.06, replacement = ","); jjep.66.1.67.mod <- rbind(varname,jjep.66.1.67.rp15); write(jjep.66.1.67.mod, file = "./jjep/Mod_66_1_67.txt")
jjep.66.1.81.tx <- readr::read_file(file="./jjep/66_1_81.txt"); jjep.66.1.81.rm00 <- jjep.66.1.81.tx; jjep.66.1.81.rm01 <- str_replace_all(jjep.66.1.81.rm00, pattern = rm.01, replacement = ""); jjep.66.1.81.rm02 <- str_replace_all(jjep.66.1.81.rm01, pattern = rm.02, replacement = ""); jjep.66.1.81.rm03 <- str_replace_all(jjep.66.1.81.rm02, pattern = rm.03, replacement = ""); jjep.66.1.81.rm04 <- str_replace_all(jjep.66.1.81.rm03, pattern = rm.04, replacement = ""); jjep.66.1.81.rm05 <- str_replace_all(jjep.66.1.81.rm04, pattern = rm.05, replacement = ""); jjep.66.1.81.rm06 <- str_replace_all(jjep.66.1.81.rm05, pattern = rm.06, replacement = ""); jjep.66.1.81.rm07 <- str_replace_all(jjep.66.1.81.rm06, pattern = rm.07, replacement = ""); jjep.66.1.81.rm08 <- str_replace_all(jjep.66.1.81.rm07, pattern = rm.08, replacement = ""); jjep.66.1.81.rm09 <- str_replace_all(jjep.66.1.81.rm08, pattern = rm.09, replacement = ""); jjep.66.1.81.rp10 <- str_replace_all(jjep.66.1.81.rm09, pattern = rp.01, replacement = "・"); jjep.66.1.81.rp11 <- str_replace_all(jjep.66.1.81.rp10, pattern = rp.02, replacement = ","); jjep.66.1.81.rp12 <- str_replace_all(jjep.66.1.81.rp11, pattern = rp.03, replacement = ","); jjep.66.1.81.rp13 <- str_replace_all(jjep.66.1.81.rp12, pattern = rp.04, replacement = ","); jjep.66.1.81.rp14 <- str_replace_all(jjep.66.1.81.rp13, pattern = rp.05, replacement = ","); jjep.66.1.81.rp15 <- str_replace_all(jjep.66.1.81.rp14, pattern = rp.06, replacement = ","); jjep.66.1.81.mod <- rbind(varname,jjep.66.1.81.rp15); write(jjep.66.1.81.mod, file = "./jjep/Mod_66_1_81.txt")
jjep.66.1.95.tx <- readr::read_file(file="./jjep/66_1_95.txt"); jjep.66.1.95.rm00 <- jjep.66.1.95.tx; jjep.66.1.95.rm01 <- str_replace_all(jjep.66.1.95.rm00, pattern = rm.01, replacement = ""); jjep.66.1.95.rm02 <- str_replace_all(jjep.66.1.95.rm01, pattern = rm.02, replacement = ""); jjep.66.1.95.rm03 <- str_replace_all(jjep.66.1.95.rm02, pattern = rm.03, replacement = ""); jjep.66.1.95.rm04 <- str_replace_all(jjep.66.1.95.rm03, pattern = rm.04, replacement = ""); jjep.66.1.95.rm05 <- str_replace_all(jjep.66.1.95.rm04, pattern = rm.05, replacement = ""); jjep.66.1.95.rm06 <- str_replace_all(jjep.66.1.95.rm05, pattern = rm.06, replacement = ""); jjep.66.1.95.rm07 <- str_replace_all(jjep.66.1.95.rm06, pattern = rm.07, replacement = ""); jjep.66.1.95.rm08 <- str_replace_all(jjep.66.1.95.rm07, pattern = rm.08, replacement = ""); jjep.66.1.95.rm09 <- str_replace_all(jjep.66.1.95.rm08, pattern = rm.09, replacement = ""); jjep.66.1.95.rp10 <- str_replace_all(jjep.66.1.95.rm09, pattern = rp.01, replacement = "・"); jjep.66.1.95.rp11 <- str_replace_all(jjep.66.1.95.rp10, pattern = rp.02, replacement = ","); jjep.66.1.95.rp12 <- str_replace_all(jjep.66.1.95.rp11, pattern = rp.03, replacement = ","); jjep.66.1.95.rp13 <- str_replace_all(jjep.66.1.95.rp12, pattern = rp.04, replacement = ","); jjep.66.1.95.rp14 <- str_replace_all(jjep.66.1.95.rp13, pattern = rp.05, replacement = ","); jjep.66.1.95.rp15 <- str_replace_all(jjep.66.1.95.rp14, pattern = rp.06, replacement = ","); jjep.66.1.95.mod <- rbind(varname,jjep.66.1.95.rp15); write(jjep.66.1.95.mod, file = "./jjep/Mod_66_1_95.txt")

1.1.1.2.4 データ化する

jjep.70.4.333 <- read_delim("./jjep/Mod_70_4_333.txt", delim = ',')
jjep.70.4.347 <- read_delim("./jjep/Mod_70_4_347.txt", delim = ',')
jjep.70.4.362 <- read_delim("./jjep/Mod_70_4_362.txt", delim = ',')
jjep.70.4.376 <- read_delim("./jjep/Mod_70_4_376.txt", delim = ',')
jjep.70.4.389 <- read_delim("./jjep/Mod_70_4_389.txt", delim = ',')
jjep.70.4.404 <- read_delim("./jjep/Mod_70_4_404.txt", delim = ',')
jjep.70.4.419 <- read_delim("./jjep/Mod_70_4_419.txt", delim = ',')
jjep.70.3.231 <- read_delim("./jjep/Mod_70_3_231.txt", delim = ',')
jjep.70.3.246 <- read_delim("./jjep/Mod_70_3_246.txt", delim = ',')
jjep.70.3.260 <- read_delim("./jjep/Mod_70_3_260.txt", delim = ',')
jjep.70.3.276 <- read_delim("./jjep/Mod_70_3_276.txt", delim = ',')
jjep.70.3.290 <- read_delim("./jjep/Mod_70_3_290.txt", delim = ',')
jjep.70.3.303 <- read_delim("./jjep/Mod_70_3_303.txt", delim = ',')
jjep.70.3.313 <- read_delim("./jjep/Mod_70_3_313.txt", delim = ',')
jjep.70.2.117 <- read_delim("./jjep/Mod_70_2_117.txt", delim = ',')
jjep.70.2.131 <- read_delim("./jjep/Mod_70_2_131.txt", delim = ',')
jjep.70.2.146 <- read_delim("./jjep/Mod_70_2_146.txt", delim = ',')
jjep.70.2.163 <- read_delim("./jjep/Mod_70_2_163.txt", delim = ',')
jjep.70.2.178 <- read_delim("./jjep/Mod_70_2_178.txt", delim = ',')
jjep.70.2.192 <- read_delim("./jjep/Mod_70_2_192.txt", delim = ',')
jjep.70.2.205 <- read_delim("./jjep/Mod_70_2_205.txt", delim = ',')
jjep.70.1.1 <- read_delim("./jjep/Mod_70_1_1.txt", delim = ',')
jjep.70.1.19 <- read_delim("./jjep/Mod_70_1_19.txt", delim = ',')
jjep.70.1.35 <- read_delim("./jjep/Mod_70_1_35.txt", delim = ',')
jjep.70.1.48 <- read_delim("./jjep/Mod_70_1_48.txt", delim = ',')
jjep.70.1.67 <- read_delim("./jjep/Mod_70_1_67.txt", delim = ',')
jjep.70.1.87 <- read_delim("./jjep/Mod_70_1_87.txt", delim = ',')
jjep.70.1.100 <- read_delim("./jjep/Mod_70_1_100.txt", delim = ',')
jjep.69.4.339 <- read_delim("./jjep/Mod_69_4_339.txt", delim = ',')
jjep.69.4.353 <- read_delim("./jjep/Mod_69_4_353.txt", delim = ',')
jjep.69.4.366 <- read_delim("./jjep/Mod_69_4_366.txt", delim = ',')
jjep.69.4.382 <- read_delim("./jjep/Mod_69_4_382.txt", delim = ',')
jjep.69.4.396 <- read_delim("./jjep/Mod_69_4_396.txt", delim = ',')
jjep.69.4.410 <- read_delim("./jjep/Mod_69_4_410.txt", delim = ',')
jjep.69.4.421 <- read_delim("./jjep/Mod_69_4_421.txt", delim = ',')
jjep.69.3.229 <- read_delim("./jjep/Mod_69_3_229.txt", delim = ',')
jjep.69.3.241 <- read_delim("./jjep/Mod_69_3_241.txt", delim = ',')
jjep.69.3.254 <- read_delim("./jjep/Mod_69_3_254.txt", delim = ',')
jjep.69.3.268 <- read_delim("./jjep/Mod_69_3_268.txt", delim = ',')
jjep.69.3.281 <- read_delim("./jjep/Mod_69_3_281.txt", delim = ',')
jjep.69.3.297 <- read_delim("./jjep/Mod_69_3_297.txt", delim = ',')
jjep.69.3.317 <- read_delim("./jjep/Mod_69_3_317.txt", delim = ',')
jjep.69.2.99 <- read_delim("./jjep/Mod_69_2_99.txt", delim = ',')
jjep.69.2.116 <- read_delim("./jjep/Mod_69_2_116.txt", delim = ',')
jjep.69.2.135 <- read_delim("./jjep/Mod_69_2_135.txt", delim = ',')
jjep.69.2.149 <- read_delim("./jjep/Mod_69_2_149.txt", delim = ',')
jjep.69.2.158 <- read_delim("./jjep/Mod_69_2_158.txt", delim = ',')
jjep.69.2.175 <- read_delim("./jjep/Mod_69_2_175.txt", delim = ',')
jjep.69.2.187 <- read_delim("./jjep/Mod_69_2_187.txt", delim = ',')
jjep.69.2.204 <- read_delim("./jjep/Mod_69_2_204.txt", delim = ',')
jjep.69.1.1 <- read_delim("./jjep/Mod_69_1_1.txt", delim = ',')
jjep.69.1.10 <- read_delim("./jjep/Mod_69_1_10.txt", delim = ',')
jjep.69.1.26 <- read_delim("./jjep/Mod_69_1_26.txt", delim = ',')
jjep.69.1.37 <- read_delim("./jjep/Mod_69_1_37.txt", delim = ',')
jjep.69.1.52 <- read_delim("./jjep/Mod_69_1_52.txt", delim = ',')
jjep.69.1.64 <- read_delim("./jjep/Mod_69_1_64.txt", delim = ',')
jjep.69.1.79 <- read_delim("./jjep/Mod_69_1_79.txt", delim = ',')
jjep.68.4.339 <- read_delim("./jjep/Mod_68_4_339.txt", delim = ',')
jjep.68.4.351 <- read_delim("./jjep/Mod_68_4_351.txt", delim = ',')
jjep.68.4.360 <- read_delim("./jjep/Mod_68_4_360.txt", delim = ',')
jjep.68.4.373 <- read_delim("./jjep/Mod_68_4_373.txt", delim = ',')
jjep.68.4.388 <- read_delim("./jjep/Mod_68_4_388.txt", delim = ',')
jjep.68.4.401 <- read_delim("./jjep/Mod_68_4_401.txt", delim = ',')
jjep.68.3.237 <- read_delim("./jjep/Mod_68_3_237.txt", delim = ',')
jjep.68.3.250 <- read_delim("./jjep/Mod_68_3_250.txt", delim = ',')
jjep.68.3.266 <- read_delim("./jjep/Mod_68_3_266.txt", delim = ',')
jjep.68.3.279 <- read_delim("./jjep/Mod_68_3_279.txt", delim = ',')
jjep.68.3.295 <- read_delim("./jjep/Mod_68_3_295.txt", delim = ',')
jjep.68.3.311 <- read_delim("./jjep/Mod_68_3_311.txt", delim = ',')
jjep.68.3.322 <- read_delim("./jjep/Mod_68_3_322.txt", delim = ',')
jjep.68.2.111 <- read_delim("./jjep/Mod_68_2_111.txt", delim = ',')
jjep.68.2.122 <- read_delim("./jjep/Mod_68_2_122.txt", delim = ',')
jjep.68.2.134 <- read_delim("./jjep/Mod_68_2_134.txt", delim = ',')
jjep.68.2.147 <- read_delim("./jjep/Mod_68_2_147.txt", delim = ',')
jjep.68.2.160 <- read_delim("./jjep/Mod_68_2_160.txt", delim = ',')
jjep.68.2.174 <- read_delim("./jjep/Mod_68_2_174.txt", delim = ',')
jjep.68.2.185 <- read_delim("./jjep/Mod_68_2_185.txt", delim = ',')
jjep.68.2.202 <- read_delim("./jjep/Mod_68_2_202.txt", delim = ',')
jjep.68.2.216 <- read_delim("./jjep/Mod_68_2_216.txt", delim = ',')
jjep.68.1.1 <- read_delim("./jjep/Mod_68_1_1.txt", delim = ',')
jjep.68.1.11 <- read_delim("./jjep/Mod_68_1_11.txt", delim = ',')
jjep.68.1.23 <- read_delim("./jjep/Mod_68_1_23.txt", delim = ',')
jjep.68.1.33 <- read_delim("./jjep/Mod_68_1_33.txt", delim = ',')
jjep.68.1.50 <- read_delim("./jjep/Mod_68_1_50.txt", delim = ',')
jjep.68.1.66 <- read_delim("./jjep/Mod_68_1_66.txt", delim = ',')
jjep.68.1.79 <- read_delim("./jjep/Mod_68_1_79.txt", delim = ',')
jjep.68.1.94 <- read_delim("./jjep/Mod_68_1_94.txt", delim = ',')
jjep.67.4.223 <- read_delim("./jjep/Mod_67_4_223.txt", delim = ',')
jjep.67.4.236 <- read_delim("./jjep/Mod_67_4_236.txt", delim = ',')
jjep.67.4.252 <- read_delim("./jjep/Mod_67_4_252.txt", delim = ',')
jjep.67.4.265 <- read_delim("./jjep/Mod_67_4_265.txt", delim = ',')
jjep.67.4.278 <- read_delim("./jjep/Mod_67_4_278.txt", delim = ',')
jjep.67.4.304 <- read_delim("./jjep/Mod_67_4_304.txt", delim = ',')
jjep.67.4.317 <- read_delim("./jjep/Mod_67_4_317.txt", delim = ',')
jjep.67.4.330 <- read_delim("./jjep/Mod_67_4_330.txt", delim = ',')
jjep.67.3.149 <- read_delim("./jjep/Mod_67_3_149.txt", delim = ',')
jjep.67.3.162 <- read_delim("./jjep/Mod_67_3_162.txt", delim = ',')
jjep.67.3.175 <- read_delim("./jjep/Mod_67_3_175.txt", delim = ',')
jjep.67.3.190 <- read_delim("./jjep/Mod_67_3_190.txt", delim = ',')
jjep.67.3.203 <- read_delim("./jjep/Mod_67_3_203.txt", delim = ',')
jjep.67.2.73 <- read_delim("./jjep/Mod_67_2_73.txt", delim = ',')
jjep.67.2.87 <- read_delim("./jjep/Mod_67_2_87.txt", delim = ',')
jjep.67.2.103 <- read_delim("./jjep/Mod_67_2_103.txt", delim = ',')
jjep.67.2.118 <- read_delim("./jjep/Mod_67_2_118.txt", delim = ',')
jjep.67.2.132 <- read_delim("./jjep/Mod_67_2_132.txt", delim = ',')
jjep.67.1.1 <- read_delim("./jjep/Mod_67_1_1.txt", delim = ',')
jjep.67.1.12 <- read_delim("./jjep/Mod_67_1_12.txt", delim = ',')
jjep.67.1.26 <- read_delim("./jjep/Mod_67_1_26.txt", delim = ',')
jjep.67.1.40 <- read_delim("./jjep/Mod_67_1_40.txt", delim = ',')
jjep.67.1.54 <- read_delim("./jjep/Mod_67_1_54.txt", delim = ',')
jjep.66.4.263 <- read_delim("./jjep/Mod_66_4_263.txt", delim = ',')
jjep.66.4.276 <- read_delim("./jjep/Mod_66_4_276.txt", delim = ',')
jjep.66.4.287 <- read_delim("./jjep/Mod_66_4_287.txt", delim = ',')
jjep.66.4.300 <- read_delim("./jjep/Mod_66_4_300.txt", delim = ',')
jjep.66.4.313 <- read_delim("./jjep/Mod_66_4_313.txt", delim = ',')
jjep.66.3.185 <- read_delim("./jjep/Mod_66_3_185.txt", delim = ',')
jjep.66.3.199 <- read_delim("./jjep/Mod_66_3_199.txt", delim = ',')
jjep.66.3.212 <- read_delim("./jjep/Mod_66_3_212.txt", delim = ',')
jjep.66.3.225 <- read_delim("./jjep/Mod_66_3_225.txt", delim = ',')
jjep.66.3.241 <- read_delim("./jjep/Mod_66_3_241.txt", delim = ',')
jjep.66.2.111 <- read_delim("./jjep/Mod_66_2_111.txt", delim = ',')
jjep.66.2.127 <- read_delim("./jjep/Mod_66_2_127.txt", delim = ',')
jjep.66.2.136 <- read_delim("./jjep/Mod_66_2_136.txt", delim = ',')
jjep.66.2.150 <- read_delim("./jjep/Mod_66_2_150.txt", delim = ',')
jjep.66.2.162 <- read_delim("./jjep/Mod_66_2_162.txt", delim = ',')
jjep.66.1.1 <- read_delim("./jjep/Mod_66_1_1.txt", delim = ',')
jjep.66.1.14 <- read_delim("./jjep/Mod_66_1_14.txt", delim = ',')
jjep.66.1.28 <- read_delim("./jjep/Mod_66_1_28.txt", delim = ',')
jjep.66.1.42 <- read_delim("./jjep/Mod_66_1_42.txt", delim = ',')
jjep.66.1.54 <- read_delim("./jjep/Mod_66_1_54.txt", delim = ',')
jjep.66.1.67 <- read_delim("./jjep/Mod_66_1_67.txt", delim = ',')
jjep.66.1.81 <- read_delim("./jjep/Mod_66_1_81.txt", delim = ',')
jjep.66.1.95 <- read_delim("./jjep/Mod_66_1_95.txt", delim = ',')

1.1.1.2.5 データを列結合する

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

jjep.66.70 <- dplyr::bind_rows(jjep.70.4.333[1,], 
jjep.70.4.347[1,], 
jjep.70.4.362[1,], 
jjep.70.4.376[1,], 
jjep.70.4.389[1,], 
jjep.70.4.404[1,], 
jjep.70.4.419[1,], 
jjep.70.3.231[1,], 
jjep.70.3.246[1,], 
jjep.70.3.260[1,], 
jjep.70.3.276[1,], 
jjep.70.3.290[1,], 
jjep.70.3.303[1,], 
jjep.70.3.313[1,], 
jjep.70.2.117[1,], 
jjep.70.2.131[1,], 
jjep.70.2.146[1,], 
jjep.70.2.163[1,], 
jjep.70.2.178[1,], 
jjep.70.2.192[1,], 
jjep.70.2.205[1,], 
jjep.70.1.1[1,], 
jjep.70.1.19[1,], 
jjep.70.1.35[1,], 
jjep.70.1.48[1,], 
jjep.70.1.67[1,], 
jjep.70.1.87[1,], 
jjep.70.1.100[1,],
jjep.69.4.339[1,], 
jjep.69.4.353[1,], 
jjep.69.4.366[1,], 
jjep.69.4.382[1,], 
jjep.69.4.396[1,], 
jjep.69.4.410[1,], 
jjep.69.4.421[1,], 
jjep.69.3.229[1,], 
jjep.69.3.241[1,], 
jjep.69.3.254[1,], 
jjep.69.3.268[1,], 
jjep.69.3.281[1,], 
jjep.69.3.297[1,], 
jjep.69.3.317[1,], 
jjep.69.2.99[1,], 
jjep.69.2.116[1,], 
jjep.69.2.135[1,], 
jjep.69.2.149[1,], 
jjep.69.2.158[1,], 
jjep.69.2.175[1,], 
jjep.69.2.187[1,], 
jjep.69.2.204[1,], 
jjep.69.1.1[1,], 
jjep.69.1.10[1,], 
jjep.69.1.26[1,], 
jjep.69.1.37[1,], 
jjep.69.1.52[1,], 
jjep.69.1.64[1,], 
jjep.69.1.79[1,],
jjep.68.4.339[1,], 
jjep.68.4.351[1,], 
jjep.68.4.360[1,], 
jjep.68.4.373[1,], 
jjep.68.4.388[1,], 
jjep.68.4.401[1,], 
jjep.68.3.237[1,], 
jjep.68.3.250[1,], 
jjep.68.3.266[1,], 
jjep.68.3.279[1,], 
jjep.68.3.295[1,], 
jjep.68.3.311[1,], 
jjep.68.3.322[1,], 
jjep.68.2.111[1,], 
jjep.68.2.122[1,], 
jjep.68.2.134[1,], 
jjep.68.2.147[1,], 
jjep.68.2.160[1,], 
jjep.68.2.174[1,], 
jjep.68.2.185[1,], 
jjep.68.2.202[1,], 
jjep.68.2.216[1,], 
jjep.68.1.1[1,], 
jjep.68.1.11[1,], 
jjep.68.1.23[1,], 
jjep.68.1.33[1,], 
jjep.68.1.50[1,], 
jjep.68.1.66[1,], 
jjep.68.1.79[1,], 
jjep.68.1.94[1,],
jjep.67.4.223[1,], 
jjep.67.4.236[1,], 
jjep.67.4.252[1,], 
jjep.67.4.265[1,], 
jjep.67.4.278[1,], 
jjep.67.4.304[1,], 
jjep.67.4.317[1,], 
jjep.67.4.330[1,], 
jjep.67.3.149[1,], 
jjep.67.3.162[1,], 
jjep.67.3.175[1,], 
jjep.67.3.190[1,], 
jjep.67.3.203[1,], 
jjep.67.2.73[1,], 
jjep.67.2.87[1,], 
jjep.67.2.103[1,], 
jjep.67.2.118[1,], 
jjep.67.2.132[1,], 
jjep.67.1.1[1,], 
jjep.67.1.12[1,], 
jjep.67.1.26[1,], 
jjep.67.1.40[1,], 
jjep.67.1.54[1,],
jjep.66.4.263[1,], 
jjep.66.4.276[1,], 
jjep.66.4.287[1,], 
jjep.66.4.300[1,], 
jjep.66.4.313[1,], 
jjep.66.3.185[1,], 
jjep.66.3.199[1,], 
jjep.66.3.212[1,], 
jjep.66.3.225[1,], 
jjep.66.3.241[1,], 
jjep.66.2.111[1,], 
jjep.66.2.127[1,], 
jjep.66.2.136[1,], 
jjep.66.2.150[1,], 
jjep.66.2.162[1,], 
jjep.66.1.1[1,], 
jjep.66.1.14[1,], 
jjep.66.1.28[1,], 
jjep.66.1.42[1,], 
jjep.66.1.54[1,], 
jjep.66.1.67[1,], 
jjep.66.1.81[1,], 
jjep.66.1.95[1,])

# これは保存
write_csv(jjep.66.70, './JJEP/66_70.csv')

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

library(RMeCab)

2.1 知りたいのは名詞の頻度

library(RMeCab)
# アブストラクトをテキストファイルにして
write(jjep.66.70$ab, file = "./JJEP/66_70_ab.txt")
# 名詞に限定して頻度を出し
res.1 <- docDF("./JJEP/66_70_ab.txt", type=1, pos = c("名詞"))

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

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

2.2 共起とかも見てみる

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

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

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

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

res.cooc.3 <- subset(res.cooc.1, Freq > 7)
g <- graph.data.frame(res.cooc.3, directed = FALSE)
plot(g, vertex.size = 2, vertex.label.cex = 1.5, 
     vertex.label.family="HiraKakuProN-W3", 
     vertex.label = V(g)$name, vertex.color = "yellow")

2.3 ちょっと工夫

library(igraph)

stopword <- c("的", "検討", "性", "こと", "明らか", "，", "これら", "結果", "以上",
              "対象", "調査", "者", "感", "記述", "先行", "研究", "面", "群",
              "の", "よう", "・", "0")
res.cooc.21 <- subset(res.cooc.1,!(Ngram1 %in% stopword) & !(Ngram2 %in% stopword))
res.cooc.21 <- subset(res.cooc.21, Freq > 4)
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")

これを，1年ごとにやってみると，キーワードが抽出して，扱われている研究テーマの推移の記述ができそうな気がする。

がんばろう。