-
Notifications
You must be signed in to change notification settings - Fork 0
/
RNSA.m
38 lines (31 loc) · 1.26 KB
/
RNSA.m
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
function [out,SD,D,rd] = RNSA(S,A,Ag,target,rs,ra,Tdmax,itr)
D = [];
rd = [];
tOut = [];
Result = [];
for i = 1 : itr
%% //... training ...
tic;
if i > 1
[D,rd,timeOfAbGeneration,cntr_detector] = RNSA_train(S,A,D,rd,Tdmax,rs,ra,cntr_detector,i);
else
cntr_detector = 1;
[D,rd,timeOfAbGeneration,cntr_detector] = RNSA_train(S,A,[],[],Tdmax,rs,ra,cntr_detector,i);
end
toc;
disp(['Elapsed time of Antibody Generation For ',num2str(i),' th Step is --->> ',num2str(sum(timeOfAbGeneration)),' Seconds.']);
SD = S;
%% //... Testing ...
tic;
[out] = RNSA_test(SD,A,D,Ag,rs,ra,rd);
disp('... Test Elapsed Time ...');
toc;
tOut(size(tOut,1) + 1:size(tOut,1) + Tdmax - 1,1) = timeOfAbGeneration(cntr_detector - Tdmax + 1 : cntr_detector - 1);
Result(size(Result,1) + 1:size(Result,1) + size(out,2),1) = out;
%% plotting ...
figure;
plotroc(transpose(target),out);
figure;
plotconfusion(transpose(target),out);
end
end