ここでは、「1_チェック.md」で作成したルールを収録した変数"v"を使用し、validatetoolsパッケージの関数群により、ルールをチェックします。
# install.packages("validatetools")
require(validatetools)
# 実行不能性の検出
is_infeasible(v)
# [1] FALSE # → 該当なし
# 警告メッセージ:
# to_miprules(x) で:
# Ignoring rules: V254, V255, V257, V258, V259, V260, V261, V262, V263, V264, V265, V266, V267, V268, V269, V270, V271, V272, V273, V274, V275, V276, V277, V278, V279, V280, V281, V282, V283, V284, V285, V286, V287, V288, V289, V290, V291, V292, V293, V294, V295, V296, V297, V298, V299, V300, V301, V302, V303, V304, V305, V306, V307, V308, V309, V310
# 冗長性の検出
dr1 <- detect_redundancy(v) # 時間がかかる
# 警告メッセージ:
# to_miprules(x) で:
# Ignoring rules: V254, V255, V257, V258, V259, V260, V261, V262, V263, V264, V265, V266, V267, V268, V269, V270, V271, V272, V273, V274, V275, V276, V277, V278, V279, V280, V281, V282, V283, V284, V285, V286, V287, V288, V289, V290, V291, V292, V293, V294, V295, V296, V297, V298, V299, V300, V301, V302, V303, V304, V305, V306, V307, V308, V309, V310
dr1[which(dr1==T)]
# V006 V008 V248 V249 V250 V252 V253
# TRUE TRUE TRUE TRUE TRUE TRUE TRUE
v[6]
# Object of class 'validator' with 1 elements:
# V006: T_Age_5s %in% c("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")
# Rules are evaluated using locally defined options
v[8]
# Object of class 'validator' with 1 elements:
# V008: Y_Income > 0
# Rules are evaluated using locally defined options
v[248]
# Object of class 'validator' with 1 elements:
# V248: T_Age_65 != "2" | (T_Age_5s %in% c("9", "0"))
# Rules are evaluated using locally defined options
v[249]
# Object of class 'validator' with 1 elements:
# V249: T_Syuhi != "1" | (T_Age_5s %in% c("1", "2", "3", "4", "5", "6", "7", "8", "9"))
# Rules are evaluated using locally defined options
v[250]
# Object of class 'validator' with 1 elements:
# V250: T_Syuhi != "2" | (T_Age_5s == "0")
# Rules are evaluated using locally defined options
v[252]
# Object of class 'validator' with 1 elements:
# V252: T_Syuhi != "1" | T_Age_65 != "2" | (T_Age_5s == "9")
# Rules are evaluated using locally defined options
v[253]
# Object of class 'validator' with 1 elements:
# V253: T_Syuhi != "2" | (T_Age_5s == "0")
# Rules are evaluated using locally defined options
# ルールセットの単純化
v2 <- remove_redundancy(v) # 時間がかかる
# 警告メッセージ:
# to_miprules(x) で:
# Ignoring rules: V254, V255, V257, V258, V259, V260, V261, V262, V263, V264, V265, V266, V267, V268, V269, V270, V271, V272, V273, V274, V275, V276, V277, V278, V279, V280, V281, V282, V283, V284, V285, V286, V287, V288, V289, V290, V291, V292, V293, V294, V295, V296, V297, V298, V299, V300, V301, V302, V303, V304, V305, V306, V307, V308, V309, V310