Fix factor conversion of mixed input data #141
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
Test case:
library (miic)
{
set.seed(0)
df = data.frame ("X"=rnorm (100000), "Letters"=sample (LETTERS, 100000, replace=T), stringsAsFactors=F)
df$Y = log (abs (df$X) + 1) + rnorm (100000, sd=0.1)
head (df)
cmi_obj = computeMutualInfo(df$X, df$Y)
cat ("computeMutualInfo:\n")
cat (paste0 ("- info : ", cmi_obj$info, "\n") )
cat (paste0 ("- infok: ", cmi_obj$infok, "\n") )
mo = miic (df)
cat ("MIIC:\n")
print (mo$summary[1, c("x", "y", "ai", "info", "info_shifted")])
}
Before fix
computeMutualInfo:
Search all pairs for unconditional independence relations...
Search for candidate separating nodes...
[========================================] 100% eta: 0s
Search for edge directions...
Number of edges: 1
MIIC:
x y ai info info_shifted
1 X Y 114288.7 111437.9
After fix
computeMutualInfo:
Search all pairs for unconditional independence relations...
Search for candidate separating nodes...
[========================================] 100% eta: 0s
Search for edge directions...
Number of edges: 1
MIIC:
x y ai info info_shifted
1 X Y 114250.6 111448.4