Commit 0200b0f89b2d3d0e78e84b671aff59b1a2dad4c4
1 parent
671da0d26a
Exists in
master
This code is to calculate the entropy of any 3 variable.
Showing
1 changed file
with
25 additions
and
0 deletions
Show diff stats
entropySorted.R
| File was created | 1 | #Please read README file. | |
| 2 | |||
| 3 | EntropySorted = | ||
| 4 | function (filename = "/home/zgong001/Documents/SprinklerDataset/sprinkler1001.txt", alphalevel = 0.05, methodu="x2"){ | ||
| 5 | library(entropy) | ||
| 6 | library(bnlearn) | ||
| 7 | result = data.frame() | ||
| 8 | sprinkler <- read.table(filename, header = TRUE) | ||
| 9 | columname = colnames(sprinkler) | ||
| 10 | m=length(columname) | ||
| 11 | x=seq(0,m-1,by=1) | ||
| 12 | colnames(sprinkler)=x | ||
| 13 | columname = colnames(sprinkler) | ||
| 14 | ThreeVComb = combn(columname,3) | ||
| 15 | for(jt in 1:ncol(ThreeVComb)){ | ||
| 16 | ThV = c(ThreeVComb[1,jt], ThreeVComb[2,jt], ThreeVComb[3,jt]) | ||
| 17 | tbT = table(sprinkler[,ThV[1]], sprinkler[,ThV[2]],sprinkler[,ThV[3]]) | ||
| 18 | en = entropy(tbT) | ||
| 19 | lable = paste(ThV[1], ThV[2], ThV[3], sep=", ") | ||
| 20 | CIlist= data.frame("Index" = lable, "entropy" = en) | ||
| 21 | result = rbind(result, CIlist) | ||
| 22 | } | ||
| 23 | result2 = result[order(-result[,2]), ] | ||
| 24 | return(result2) | ||
| 25 | } |