R/keyword.R
In seokhoonj/vuw: Virtual Underwriting
# keywords ----------------------------------------------------------
CI333 <- "C[0-9][0-9]|D0[0-79]|D4[56]|D47[1345]|I0[89]|I2[0-3]|I3[4-9]|I6[0-3]|K70[23]|K717|K74|K761|T82|Z95"
CI10 <- "B2[0-4]|C[0-9][0-9]|D0[0-79]|D4[56]|D47[1345]|E1[0-4]|G590|G632|H280|H360|I0[89]|I1[0-5]|I2[0-3]|I3[4-9]|I6[0-3]|K70[23]|K717|K74|K761|L412|M142|N083|N18[3-5]|T82|Z21|Z95"
CANCER <- "C0[0-9]|C1[0-9]|C2[0-6]|C3[0-4789]|C4[013-9]|C5[0-8]|C6[0-9]|C7[0-9]|C8[0-68]|C9[0-7]|D0[0-79]|D4[56]|D47[1345]"
GENERALCANCER <- "C0[0-9]|C1[0-9]|C2[0-6]|C3[0-4789]|C4[0135-9]|C5[0-8]|C6[0-9]|C7[0124-9]|C8[0-68]|C9[0-7]|D4[56]|D47[1345]"
SMALLCANCER <- "C5[034]|C6[17]" # 소액암
PSEUDOCANCER <- "C44|C73|D0[0-79]|D3[7-9]|D4[0-4]|D47[026-9]|D48"
BREASTCANCER <- "C50"
UTERICANCER <- "C5[3-5]"
PROSTATECANCER <- "C61"
BLADDERCANCER <- "C67"
SKINCANCER <- "C44"
THYROIDCANCER <- "C73"
CIS <- "D0[0-79]" # Carcinoma in situ
BORDERLINETUMOR <- "D3[7-9]|D4[0-4]|D47[026-9]|D48"
STROKE <- "I6[0-356]" # 뇌졸중
ANGINA <- "I20" # 협심증
CIRRHOSIS <- "K70[23]|K717|K74|K761" # 간경화
VALVE <- "I0[89]|I3[4-9]|T82|Z95" # 심장판막
HIV <- "B2[0-4]|Z21"
DIABETES <- "E1[0-4]|G590|G632|H280|H360|M142|N083"
HYPERTENSION <- "I1[0-5]"
ACCIDENT <- "[STV]|W[0-5]|W6[0-4]|W8[5-9]|W9[0-9]|X[0-24]X5[15689]|X8[5-9]|X9|Y[0-2457]|Y3[0-46-9]|Y35[0-46-9]|Y8[0-4]"
DECLINE <- "I12|A22|A810|B22|D550|D552|D560|D561|D562|D563|D564|D593|D595|D600|D610|D613|D619|D644|D66|D67|D680|D681|D682|D685|D686|D691|D693|D694|D70|D71|D761|D763|D800|D801|D802|D803|D804|D805|D806|D808|D810|D811|D812|D813|D814|D815|D816|D817|D818|D819|D820|D821|D822|D823|D824|D830|D831|D832|D840|D841|D860|D861|D862|D863|D868|D891|E161|E201|E220|E240|E241|E243|E250|E259|E268|E271|E272|E274|E348|E550|E700|E701|E702|E703|E708|E710|E711|E713|E720|E721|E722|E723|E724|E725|E728|E730|E740|E742|E744|E748|E750|E751|E752|E754|E755|E760|E761|E762|E770|E771|E791|E802|E830|E831|E832|E833|E840|E841|E850|E851|E852|E854|E880|E881|F00|F01|F011|F02|F03|F04|F05|F06|F07|F09|F10|F11|F13|F14|F17|F18|F19|F22|F25|F28|F29|F44|F71|F78|F803|F842|G048|G10|G11|G110|G111|G112|G113|G114|G118|G119|G120|G121|G122|G128|G129|G20|G21|G22|G23|G230|G231|G238|G248|G30|G318|G35|G36|G360|G37|G404|G410|G411|G412|G418|G419|G474|G512|G518|G600|G610|G618|G70|G700|G702|G710|G711|G712|G713|G719|G723|G724|G731|G80|G82|G905|G906|G934|G950|H163|H185|H312|H350|H355|H494|H498|H518|I00|I01|I02|I05|I06|I07|I09|I11|I13|I270|I278|I34|I35|I36|I42|I420|I421|I422|I423|I424|I428|I46|I472|I498|I50|I675|I731|I780|I820|J398|J60|J61|J62|J63|J64|J65|J840|J841|K005|K743|K754|K830|L100|L102|L120|L121|L123|M061|M080|M081|M082|M083|M300|M301|M302|M310|M311|M313|M314|M317|M32|M321|M330|M331|M332|M34|M340|M341|M348|M350|M351|M352|M353|M354|M355|M356|M611|M880|M888|M889|M922|M931|M941|N040|N041|N042|N043|N044|N045|N046|N047|N18|N251|P220|P350|P354|Q031|Q042|Q043|Q046|Q050|Q051|Q052|Q053|Q054|Q055|Q056|Q057|Q058|Q059|Q062|Q070|Q112|Q141|Q142|Q172|Q200|Q201|Q202|Q203|Q204|Q205|Q212|Q213|Q214|Q218|Q220|Q224|Q225|Q226|Q230|Q231|Q232|Q233|Q234|Q238|Q239|Q244|Q245|Q246|Q251|Q252|Q253|Q255|Q260|Q261|Q262|Q263|Q264|Q265|Q266|Q282|Q383|Q438|Q442|Q446|Q447|Q611|Q619|Q641|Q740|Q743|Q748|Q750|Q751|Q754|Q761|Q770|Q771|Q772|Q773|Q774|Q775|Q776|Q777|Q778|Q779|Q780|Q781|Q782|Q783|Q784|Q785|Q786|Q789|Q790|Q791|Q792|Q793|Q794|Q795|Q796|Q798|Q799|Q801|Q802|Q803|Q804|Q810|Q811|Q812|Q820|Q823|Q824|Q828|Q850|Q851|Q858|Q860|Q870|Q871|Q872|Q873|Q874|Q875|Q878|Q900|Q901|Q902|Q909|Q910|Q911|Q912|Q914|Q915|Q916|Q917|Q922|Q923|Q928|Q932|Q933|Q934|Q935|Q960|Q961|Q962|Q963|Q964|Q980|Q981|Q982|Q992|Q998|T39|T42|Z49|Z95"
CARDITIS <- "I3[0-38]|I4[01]" # 주요 심장의 염증
AMI <- "I2[0-3]" # acute myocardial infarction
IHD <- "I2[0-5]" # ischaemic heart diseases
CEREBROVASCULARDISEASE <- "I6[0-9]|G46"
# diz_book <- data.table(matrix(c(
# "CI333" , "C[0-9][0-9]|D0[0-79]|D4[56]|D47[1345]|I0[89]|I2[0-3]|I3[4-9]|I6[0-3]|K70[23]|K717|K74|K761|T82|Z95"
# , "CI10" , "B2[0-4]|C[0-9][0-9]|D0[0-79]|D4[56]|D47[1345]|E1[0-4]|G590|G632|H280|H360|I0[89]|I1[0-5]|I2[0-3]|I3[4-9]|I6[0-3]|K70[23]|K717|K74|K761|M142|N083|N18[3-5]|T82|Z21|Z95"
# , "CANCER" , "C0[0-9]|C1[0-9]|C2[0-6]|C3[0-4789]|C4[013-9]|C5[0-8]|C6[0-9]|C7[0-9]|C8[0-68]|C9[0-7]|D0[0-79]|D4[56]|D47[1345]"
# , "GENERALCANCER" , "C0[0-9]|C1[0-9]|C2[0-6]|C3[0-4789]|C4[0135-9]|C5[0-8]|C6[0-9]|C7[0124-9]|C8[0-68]|C9[0-7]|D4[56]|D47[1345]"
# , "SMALLCANCER" , "C5[034]|C6[17]" # 소액암
# , "PSEUDOCANCER" , "C44|C73|D0[0-79]|D3[7-9]|D4[0-4]|D47[026-9]|D48"
# , "BREASTCANCER" , "C50"
# , "UTERICANCER" , "C5[3-5]"
# , "PROSTATECANCER" , "C61"
# , "BLADDERCANCER" , "C67"
# , "SKINCANCER" , "C44"
# , "THYROIDCANCER" , "C73"
# , "CIS" , "D0[0-79]" # 제자리암 (carcinoma in situ)
# , "BORDERLINETUMOR" , "D3[7-9]|D4[0-4]|D47[026-9]|D48"
# , "STROKE" , "I6[0-356]" # 뇌졸중
# , "ANGINA" , "I20" # 협심증
# , "CIRRHOSIS" , "K70[23]|K717|K74|K761" # 간경화
# , "VALVE" , "I0[89]|I3[4-9]|T82|Z95" # 심장판막
# , "HIV" , "B2[0-4]|Z21"
# , "DIABETES" , "E1[0-4]|G590|G632|H280|H360|M142|N083"
# , "HYPERTENSION" , "I1[0-5]"
# , "ACCIDENT" , "[STV]|W[0-5]|W6[0-4]|W8[5-9]|W9[0-9]|X[0-24]X5[15689]|X8[5-9]|X9|Y[0-2457]|Y3[0-46-9]|Y35[0-46-9]|Y8[0-4]"
# , "DECLINE" , "I12|A22|A810|B22|D550|D552|D560|D561|D562|D563|D564|D593|D595|D600|D610|D613|D619|D644|D66|D67|D680|D681|D682|D685|D686|D691|D693|D694|D70|D71|D761|D763|D800|D801|D802|D803|D804|D805|D806|D808|D810|D811|D812|D813|D814|D815|D816|D817|D818|D819|D820|D821|D822|D823|D824|D830|D831|D832|D840|D841|D860|D861|D862|D863|D868|D891|E161|E201|E220|E240|E241|E243|E250|E259|E268|E271|E272|E274|E348|E550|E700|E701|E702|E703|E708|E710|E711|E713|E720|E721|E722|E723|E724|E725|E728|E730|E740|E742|E744|E748|E750|E751|E752|E754|E755|E760|E761|E762|E770|E771|E791|E802|E830|E831|E832|E833|E840|E841|E850|E851|E852|E854|E880|E881|F00|F01|F011|F02|F03|F04|F05|F06|F07|F09|F10|F11|F13|F14|F17|F18|F19|F22|F25|F28|F29|F44|F71|F78|F803|F842|G048|G10|G11|G110|G111|G112|G113|G114|G118|G119|G120|G121|G122|G128|G129|G20|G21|G22|G23|G230|G231|G238|G248|G30|G318|G35|G36|G360|G37|G404|G410|G411|G412|G418|G419|G474|G512|G518|G600|G610|G618|G70|G700|G702|G710|G711|G712|G713|G719|G723|G724|G731|G80|G82|G905|G906|G934|G950|H163|H185|H312|H350|H355|H494|H498|H518|I00|I01|I02|I05|I06|I07|I09|I11|I13|I270|I278|I34|I35|I36|I42|I420|I421|I422|I423|I424|I428|I46|I472|I498|I50|I675|I731|I780|I820|J398|J60|J61|J62|J63|J64|J65|J840|J841|K005|K743|K754|K830|L100|L102|L120|L121|L123|M061|M080|M081|M082|M083|M300|M301|M302|M310|M311|M313|M314|M317|M32|M321|M330|M331|M332|M34|M340|M341|M348|M350|M351|M352|M353|M354|M355|M356|M611|M880|M888|M889|M922|M931|M941|N040|N041|N042|N043|N044|N045|N046|N047|N18|N251|P220|P350|P354|Q031|Q042|Q043|Q046|Q050|Q051|Q052|Q053|Q054|Q055|Q056|Q057|Q058|Q059|Q062|Q070|Q112|Q141|Q142|Q172|Q200|Q201|Q202|Q203|Q204|Q205|Q212|Q213|Q214|Q218|Q220|Q224|Q225|Q226|Q230|Q231|Q232|Q233|Q234|Q238|Q239|Q244|Q245|Q246|Q251|Q252|Q253|Q255|Q260|Q261|Q262|Q263|Q264|Q265|Q266|Q282|Q383|Q438|Q442|Q446|Q447|Q611|Q619|Q641|Q740|Q743|Q748|Q750|Q751|Q754|Q761|Q770|Q771|Q772|Q773|Q774|Q775|Q776|Q777|Q778|Q779|Q780|Q781|Q782|Q783|Q784|Q785|Q786|Q789|Q790|Q791|Q792|Q793|Q794|Q795|Q796|Q798|Q799|Q801|Q802|Q803|Q804|Q810|Q811|Q812|Q820|Q823|Q824|Q828|Q850|Q851|Q858|Q860|Q870|Q871|Q872|Q873|Q874|Q875|Q878|Q900|Q901|Q902|Q909|Q910|Q911|Q912|Q914|Q915|Q916|Q917|Q922|Q923|Q928|Q932|Q933|Q934|Q935|Q960|Q961|Q962|Q963|Q964|Q980|Q981|Q982|Q992|Q998|T39|T42|Z49|Z95"
# , "CARDITIS" , "I3[0-38]|I4[01]" # 주요 심장의 염증
# , "AMI" , "I2[0-3]" # acute myocardial infarction
# , "IHD" , "I2[0-5]" # ischaemic heart diseases
# , "CEREBROVASCULARDISEASE", "I6[0-9]"
# ), ncol = 2, byrow = T))
# setnames(diz_book, c("diz", "kcd"))
# save(diz_book, file = "data/diz_book.rda")
# col_book <- data.table(matrix(c(
# "rn" , "특약번호"
# , "main_category" , "메인 카테고리"
# , "sub_category" , "서브 카테고리"
# , "rp_calculability" , "위험보험료 계산가능여부"
# , "claim_calculability" , "클레임 계산가능여부"
# , "rider" , "특약명"
# , "risk" , "위험률"
# , "risk2" , "위험비율"
# , "cvd_kcd" , "보장 KCD"
# , "reduction_period_start", "감액시작시점"
# , "reduction_period_end" , "감액종료시점"
# , "reduction_ratio" , "감액비율"
# , "waiting_period_start" , "면책시작시점"
# , "waiting_period_end" , "면책종료시점"
# , "waiting_ratio" , "면책비율"
# , "amount" , "가입금액"
# , "claims_times" , "가입금액배율"
# , "rp_times" , "위험보험료배율"
# , "proportion" , "특약비율"
# ), ncol = 2, byrow = T))
# setnames(col_book, c("en", "ko"))
# save(col_book, file = "data/col_book.rda")
seokhoonj/vuw documentation built on Jan. 30, 2024, 11:36 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# keywords ----------------------------------------------------------
CI333 <- "C[0-9][0-9]|D0[0-79]|D4[56]|D47[1345]|I0[89]|I2[0-3]|I3[4-9]|I6[0-3]|K70[23]|K717|K74|K761|T82|Z95"
CI10 <- "B2[0-4]|C[0-9][0-9]|D0[0-79]|D4[56]|D47[1345]|E1[0-4]|G590|G632|H280|H360|I0[89]|I1[0-5]|I2[0-3]|I3[4-9]|I6[0-3]|K70[23]|K717|K74|K761|L412|M142|N083|N18[3-5]|T82|Z21|Z95"
CANCER <- "C0[0-9]|C1[0-9]|C2[0-6]|C3[0-4789]|C4[013-9]|C5[0-8]|C6[0-9]|C7[0-9]|C8[0-68]|C9[0-7]|D0[0-79]|D4[56]|D47[1345]"
GENERALCANCER <- "C0[0-9]|C1[0-9]|C2[0-6]|C3[0-4789]|C4[0135-9]|C5[0-8]|C6[0-9]|C7[0124-9]|C8[0-68]|C9[0-7]|D4[56]|D47[1345]"
SMALLCANCER <- "C5[034]|C6[17]" # 소액암
PSEUDOCANCER <- "C44|C73|D0[0-79]|D3[7-9]|D4[0-4]|D47[026-9]|D48"
BREASTCANCER <- "C50"
UTERICANCER <- "C5[3-5]"
PROSTATECANCER <- "C61"
BLADDERCANCER <- "C67"
SKINCANCER <- "C44"
THYROIDCANCER <- "C73"
CIS <- "D0[0-79]" # Carcinoma in situ
BORDERLINETUMOR <- "D3[7-9]|D4[0-4]|D47[026-9]|D48"
STROKE <- "I6[0-356]" # 뇌졸중
ANGINA <- "I20" # 협심증
CIRRHOSIS <- "K70[23]|K717|K74|K761" # 간경화
VALVE <- "I0[89]|I3[4-9]|T82|Z95" # 심장판막
HIV <- "B2[0-4]|Z21"
DIABETES <- "E1[0-4]|G590|G632|H280|H360|M142|N083"
HYPERTENSION <- "I1[0-5]"
ACCIDENT <- "[STV]|W[0-5]|W6[0-4]|W8[5-9]|W9[0-9]|X[0-24]X5[15689]|X8[5-9]|X9|Y[0-2457]|Y3[0-46-9]|Y35[0-46-9]|Y8[0-4]"
DECLINE <- "I12|A22|A810|B22|D550|D552|D560|D561|D562|D563|D564|D593|D595|D600|D610|D613|D619|D644|D66|D67|D680|D681|D682|D685|D686|D691|D693|D694|D70|D71|D761|D763|D800|D801|D802|D803|D804|D805|D806|D808|D810|D811|D812|D813|D814|D815|D816|D817|D818|D819|D820|D821|D822|D823|D824|D830|D831|D832|D840|D841|D860|D861|D862|D863|D868|D891|E161|E201|E220|E240|E241|E243|E250|E259|E268|E271|E272|E274|E348|E550|E700|E701|E702|E703|E708|E710|E711|E713|E720|E721|E722|E723|E724|E725|E728|E730|E740|E742|E744|E748|E750|E751|E752|E754|E755|E760|E761|E762|E770|E771|E791|E802|E830|E831|E832|E833|E840|E841|E850|E851|E852|E854|E880|E881|F00|F01|F011|F02|F03|F04|F05|F06|F07|F09|F10|F11|F13|F14|F17|F18|F19|F22|F25|F28|F29|F44|F71|F78|F803|F842|G048|G10|G11|G110|G111|G112|G113|G114|G118|G119|G120|G121|G122|G128|G129|G20|G21|G22|G23|G230|G231|G238|G248|G30|G318|G35|G36|G360|G37|G404|G410|G411|G412|G418|G419|G474|G512|G518|G600|G610|G618|G70|G700|G702|G710|G711|G712|G713|G719|G723|G724|G731|G80|G82|G905|G906|G934|G950|H163|H185|H312|H350|H355|H494|H498|H518|I00|I01|I02|I05|I06|I07|I09|I11|I13|I270|I278|I34|I35|I36|I42|I420|I421|I422|I423|I424|I428|I46|I472|I498|I50|I675|I731|I780|I820|J398|J60|J61|J62|J63|J64|J65|J840|J841|K005|K743|K754|K830|L100|L102|L120|L121|L123|M061|M080|M081|M082|M083|M300|M301|M302|M310|M311|M313|M314|M317|M32|M321|M330|M331|M332|M34|M340|M341|M348|M350|M351|M352|M353|M354|M355|M356|M611|M880|M888|M889|M922|M931|M941|N040|N041|N042|N043|N044|N045|N046|N047|N18|N251|P220|P350|P354|Q031|Q042|Q043|Q046|Q050|Q051|Q052|Q053|Q054|Q055|Q056|Q057|Q058|Q059|Q062|Q070|Q112|Q141|Q142|Q172|Q200|Q201|Q202|Q203|Q204|Q205|Q212|Q213|Q214|Q218|Q220|Q224|Q225|Q226|Q230|Q231|Q232|Q233|Q234|Q238|Q239|Q244|Q245|Q246|Q251|Q252|Q253|Q255|Q260|Q261|Q262|Q263|Q264|Q265|Q266|Q282|Q383|Q438|Q442|Q446|Q447|Q611|Q619|Q641|Q740|Q743|Q748|Q750|Q751|Q754|Q761|Q770|Q771|Q772|Q773|Q774|Q775|Q776|Q777|Q778|Q779|Q780|Q781|Q782|Q783|Q784|Q785|Q786|Q789|Q790|Q791|Q792|Q793|Q794|Q795|Q796|Q798|Q799|Q801|Q802|Q803|Q804|Q810|Q811|Q812|Q820|Q823|Q824|Q828|Q850|Q851|Q858|Q860|Q870|Q871|Q872|Q873|Q874|Q875|Q878|Q900|Q901|Q902|Q909|Q910|Q911|Q912|Q914|Q915|Q916|Q917|Q922|Q923|Q928|Q932|Q933|Q934|Q935|Q960|Q961|Q962|Q963|Q964|Q980|Q981|Q982|Q992|Q998|T39|T42|Z49|Z95"
CARDITIS <- "I3[0-38]|I4[01]" # 주요 심장의 염증
AMI <- "I2[0-3]" # acute myocardial infarction
IHD <- "I2[0-5]" # ischaemic heart diseases
CEREBROVASCULARDISEASE <- "I6[0-9]|G46"
# diz_book <- data.table(matrix(c(
# "CI333" , "C[0-9][0-9]|D0[0-79]|D4[56]|D47[1345]|I0[89]|I2[0-3]|I3[4-9]|I6[0-3]|K70[23]|K717|K74|K761|T82|Z95"
# , "CI10" , "B2[0-4]|C[0-9][0-9]|D0[0-79]|D4[56]|D47[1345]|E1[0-4]|G590|G632|H280|H360|I0[89]|I1[0-5]|I2[0-3]|I3[4-9]|I6[0-3]|K70[23]|K717|K74|K761|M142|N083|N18[3-5]|T82|Z21|Z95"
# , "CANCER" , "C0[0-9]|C1[0-9]|C2[0-6]|C3[0-4789]|C4[013-9]|C5[0-8]|C6[0-9]|C7[0-9]|C8[0-68]|C9[0-7]|D0[0-79]|D4[56]|D47[1345]"
# , "GENERALCANCER" , "C0[0-9]|C1[0-9]|C2[0-6]|C3[0-4789]|C4[0135-9]|C5[0-8]|C6[0-9]|C7[0124-9]|C8[0-68]|C9[0-7]|D4[56]|D47[1345]"
# , "SMALLCANCER" , "C5[034]|C6[17]" # 소액암
# , "PSEUDOCANCER" , "C44|C73|D0[0-79]|D3[7-9]|D4[0-4]|D47[026-9]|D48"
# , "BREASTCANCER" , "C50"
# , "UTERICANCER" , "C5[3-5]"
# , "PROSTATECANCER" , "C61"
# , "BLADDERCANCER" , "C67"
# , "SKINCANCER" , "C44"
# , "THYROIDCANCER" , "C73"
# , "CIS" , "D0[0-79]" # 제자리암 (carcinoma in situ)
# , "BORDERLINETUMOR" , "D3[7-9]|D4[0-4]|D47[026-9]|D48"
# , "STROKE" , "I6[0-356]" # 뇌졸중
# , "ANGINA" , "I20" # 협심증
# , "CIRRHOSIS" , "K70[23]|K717|K74|K761" # 간경화
# , "VALVE" , "I0[89]|I3[4-9]|T82|Z95" # 심장판막
# , "HIV" , "B2[0-4]|Z21"
# , "DIABETES" , "E1[0-4]|G590|G632|H280|H360|M142|N083"
# , "HYPERTENSION" , "I1[0-5]"
# , "ACCIDENT" , "[STV]|W[0-5]|W6[0-4]|W8[5-9]|W9[0-9]|X[0-24]X5[15689]|X8[5-9]|X9|Y[0-2457]|Y3[0-46-9]|Y35[0-46-9]|Y8[0-4]"
# , "DECLINE" , "I12|A22|A810|B22|D550|D552|D560|D561|D562|D563|D564|D593|D595|D600|D610|D613|D619|D644|D66|D67|D680|D681|D682|D685|D686|D691|D693|D694|D70|D71|D761|D763|D800|D801|D802|D803|D804|D805|D806|D808|D810|D811|D812|D813|D814|D815|D816|D817|D818|D819|D820|D821|D822|D823|D824|D830|D831|D832|D840|D841|D860|D861|D862|D863|D868|D891|E161|E201|E220|E240|E241|E243|E250|E259|E268|E271|E272|E274|E348|E550|E700|E701|E702|E703|E708|E710|E711|E713|E720|E721|E722|E723|E724|E725|E728|E730|E740|E742|E744|E748|E750|E751|E752|E754|E755|E760|E761|E762|E770|E771|E791|E802|E830|E831|E832|E833|E840|E841|E850|E851|E852|E854|E880|E881|F00|F01|F011|F02|F03|F04|F05|F06|F07|F09|F10|F11|F13|F14|F17|F18|F19|F22|F25|F28|F29|F44|F71|F78|F803|F842|G048|G10|G11|G110|G111|G112|G113|G114|G118|G119|G120|G121|G122|G128|G129|G20|G21|G22|G23|G230|G231|G238|G248|G30|G318|G35|G36|G360|G37|G404|G410|G411|G412|G418|G419|G474|G512|G518|G600|G610|G618|G70|G700|G702|G710|G711|G712|G713|G719|G723|G724|G731|G80|G82|G905|G906|G934|G950|H163|H185|H312|H350|H355|H494|H498|H518|I00|I01|I02|I05|I06|I07|I09|I11|I13|I270|I278|I34|I35|I36|I42|I420|I421|I422|I423|I424|I428|I46|I472|I498|I50|I675|I731|I780|I820|J398|J60|J61|J62|J63|J64|J65|J840|J841|K005|K743|K754|K830|L100|L102|L120|L121|L123|M061|M080|M081|M082|M083|M300|M301|M302|M310|M311|M313|M314|M317|M32|M321|M330|M331|M332|M34|M340|M341|M348|M350|M351|M352|M353|M354|M355|M356|M611|M880|M888|M889|M922|M931|M941|N040|N041|N042|N043|N044|N045|N046|N047|N18|N251|P220|P350|P354|Q031|Q042|Q043|Q046|Q050|Q051|Q052|Q053|Q054|Q055|Q056|Q057|Q058|Q059|Q062|Q070|Q112|Q141|Q142|Q172|Q200|Q201|Q202|Q203|Q204|Q205|Q212|Q213|Q214|Q218|Q220|Q224|Q225|Q226|Q230|Q231|Q232|Q233|Q234|Q238|Q239|Q244|Q245|Q246|Q251|Q252|Q253|Q255|Q260|Q261|Q262|Q263|Q264|Q265|Q266|Q282|Q383|Q438|Q442|Q446|Q447|Q611|Q619|Q641|Q740|Q743|Q748|Q750|Q751|Q754|Q761|Q770|Q771|Q772|Q773|Q774|Q775|Q776|Q777|Q778|Q779|Q780|Q781|Q782|Q783|Q784|Q785|Q786|Q789|Q790|Q791|Q792|Q793|Q794|Q795|Q796|Q798|Q799|Q801|Q802|Q803|Q804|Q810|Q811|Q812|Q820|Q823|Q824|Q828|Q850|Q851|Q858|Q860|Q870|Q871|Q872|Q873|Q874|Q875|Q878|Q900|Q901|Q902|Q909|Q910|Q911|Q912|Q914|Q915|Q916|Q917|Q922|Q923|Q928|Q932|Q933|Q934|Q935|Q960|Q961|Q962|Q963|Q964|Q980|Q981|Q982|Q992|Q998|T39|T42|Z49|Z95"
# , "CARDITIS" , "I3[0-38]|I4[01]" # 주요 심장의 염증
# , "AMI" , "I2[0-3]" # acute myocardial infarction
# , "IHD" , "I2[0-5]" # ischaemic heart diseases
# , "CEREBROVASCULARDISEASE", "I6[0-9]"
# ), ncol = 2, byrow = T))
# setnames(diz_book, c("diz", "kcd"))
# save(diz_book, file = "data/diz_book.rda")
# col_book <- data.table(matrix(c(
# "rn" , "특약번호"
# , "main_category" , "메인 카테고리"
# , "sub_category" , "서브 카테고리"
# , "rp_calculability" , "위험보험료 계산가능여부"
# , "claim_calculability" , "클레임 계산가능여부"
# , "rider" , "특약명"
# , "risk" , "위험률"
# , "risk2" , "위험비율"
# , "cvd_kcd" , "보장 KCD"
# , "reduction_period_start", "감액시작시점"
# , "reduction_period_end" , "감액종료시점"
# , "reduction_ratio" , "감액비율"
# , "waiting_period_start" , "면책시작시점"
# , "waiting_period_end" , "면책종료시점"
# , "waiting_ratio" , "면책비율"
# , "amount" , "가입금액"
# , "claims_times" , "가입금액배율"
# , "rp_times" , "위험보험료배율"
# , "proportion" , "특약비율"
# ), ncol = 2, byrow = T))
# setnames(col_book, c("en", "ko"))
# save(col_book, file = "data/col_book.rda")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.