blob: d71ab77cb5daefce87a2475e0b56b3c9d8c59261 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
module OpenTox
module Algorithm
class Classification
# Classification with majority vote from neighbors weighted by similarity
# @param [Hash] params Keys `:activities, :sims, :value_map` are required
# @return [Numeric] A prediction value.
def self.weighted_majority_vote(neighbors)
neighbor_contribution = 0.0
confidence_sum = 0.0
$logger.debug "Weighted Majority Vote Classification."
values = neighbors.collect{|n| n[2]}.uniq
neighbors.each do |neighbor|
neighbor_weight = neighbor[1]
activity = values.index(neighbor[2]) + 1 # map values to integers > 1
neighbor_contribution += activity * neighbor_weight
if values.size == 2 # AM: provide compat to binary classification: 1=>false 2=>true
case activity
when 1
confidence_sum -= neighbor_weight
when 2
confidence_sum += neighbor_weight
end
else
confidence_sum += neighbor_weight
end
end
if values.size == 2
if confidence_sum >= 0.0
prediction = values[1]
elsif confidence_sum < 0.0
prediction = values[0]
end
elsif values.size == 1 # all neighbors have the same value
prediction = values[0]
else
prediction = (neighbor_contribution/confidence_sum).round # AM: new multinomial prediction
end
confidence = (confidence_sum/neighbors.size).abs
{:value => prediction, :confidence => confidence.abs}
end
# Local support vector regression from neighbors
# @param [Hash] params Keys `:props, :activities, :sims, :min_train_performance` are required
# @return [Numeric] A prediction value.
def self.local_svm_classification(params)
confidence = 0.0
prediction = nil
$logger.debug "Local SVM."
if params[:activities].size>0
if params[:props]
n_prop = params[:props][0].collect.to_a
q_prop = params[:props][1].collect.to_a
props = [ n_prop, q_prop ]
end
activities = params[:activities].collect.to_a
activities = activities.collect{|v| "Val" + v.to_s} # Convert to string for R to recognize classification
prediction = local_svm_prop( props, activities, params[:min_train_performance]) # params[:props].nil? signals non-prop setting
prediction = prediction.sub(/Val/,"") if prediction # Convert back
confidence = 0.0 if prediction.nil?
#$logger.debug "Prediction: '" + prediction.to_s + "' ('#{prediction.class}')."
confidence = get_confidence({:sims => params[:sims][1], :activities => params[:activities]})
end
{:prediction => prediction, :confidence => confidence}
end
end
end
end
|