使用R-FNN包实现KL.disference的NaN和Inf

我想知道两个数据集之间的KL差异。 我使用MacOS10.14.5、R4.0.2和FNN包1.1.3

data_a  <- c (317,384,63,111,318,130,109,62,26,211,245,106,136,29,589,48,183,140,113,129,31,1579,43,131,28,975,100,80,218,321,16,18,174,88,72,80,190,47,286,207,56,383,61,168,71,134,382,419,85,362,64,48,28,145,519,168,105,269,112,97,61,33,52,259,280,315,89,87,44,48,101,23,59,61,391,15,83,407,272,124,414,140,117,114,287,46,64,157,115,223,266,114,17,103,340,55,59,285,174,131)

data_b <- c (52,152,42,376,424,81,128,92,194,255,75,40,51,128,276,306,67,153,96,95,141,279,160,73,139,117,127,263,170,242,45,37,71,118,197,71,166,61,107,135,77,54,71,452,81,38,79,245,68,153,91,124,152,95,56,78,80,28,92,122,88,68,278,316,205,230,579,221,204,194,207,385,140,280,254,214,228,250,246,251,254,268,217)

library(FNN)
KL.divergence(data_a,data_b)

data\u a