% EZsingleExUserRF
global exp

usrRefFg=0;
prompt={'Enter GeneName to use as Reference:',...
  'Enter Specifics Term if used to futher specify Reference '}       
dlg_title='User Reference Input';
num_lines=1;
def={'RF1','None'};
answer=inputdlg(prompt,dlg_title,num_lines,def);
rfGene=cell2mat(answer(1));
if ~strcmpi(rfGene,'RF1')|| ~strcmpi(rfGene,'RF2'), usrRefFg=1; end
rfSpec=answer(2); %if strcmpi(answer(2),'None'), rfSpec=''; end
rfGnSp=strcat(rfGene,rfSpec);
if strcmpi(rfSpec,'None'), rfGnSp=strcat(rfGene,'-'); end

% for n=1:size(matFile,2)
n=1;    
EZmultiGeneRFsLst
EZdiagRFsSheet
Exp(expN).Dexp(n).RFrnames=rnames;
Exp(expN).Dexp(n).RFdata=data;
RFconfig=0;
if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean')) ...
&& ~isempty(Exp(expN).Dexp(n).RFmean) ...
&& sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG')) ...
&& isempty(Exp(expN).Dexp(n).RFmeanG)
  RFconfig=1;
end
if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean'))==0 ...
|| isempty(Exp(expN).Dexp(n).RFmean) ...
&& sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG')) ...
&& ~isempty(Exp(expN).Dexp(n).RFmeanG)
  RFconfig=2;
end
if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean'))&&...
        ~isempty(Exp(expN).Dexp(n).RFmean)&&...
    sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG'))&&...
        ~isempty(Exp(expN).Dexp(n).RFmeanG)
    RFconfig=3;
end
Exp(expN).RFconfig=RFconfig;
Exp(expN).Dexp(n).RFconfig=RFconfig;
try msgBadGeneName,  catch, end
try
  Exp(expN).Dexp(n).resetHtmpTg =5;  %Exp(expN).resetHtmpTg =5; 
  if RFconfig==0,
    RFconfigMsg='No RF1 references in this Experiment Job'
    Exp(expN).Dexp(n).resetHtmpTg =3; %Exp(expN).resetHtmpTg =3; 
  end
catch
end

% Auto select Zone and load listboxGnOrf data
DexpN=1;
zeroCLn=zeros(1,DMnum);
Exp(expN).expLoadCnt=Exp(expN).expLoadCnt+1; expLdCnt=Exp(expN).expLoadCnt;
if expN==1
  set(handles.zoneRad1,'value',1)
  set(handles.zoneRad2,'value',0)
  set(handles.zoneRad3,'value',0)
  orfLstSel=get(handles.GeneOrfTog,'value')
  if orfLstSel==1
    set(handles.listboxGnOrf,'string',Exp(1).Dexp(1).srtOrfLst)   
  else
    set(handles.listboxGnOrf,'string',Exp(1).Dexp(1).srtGnLst)
  end
  DNLaxes1=handles.DNLaxes1;
  Exp(1).hzeroCLn(expLdCnt)=plot(DNLaxes1,zeroCLn,1:DMnum,'y');
end

if expN==2
  set(handles.zoneRad1,'value',0)
  set(handles.zoneRad3,'value',0)
  set(handles.zoneRad2,'value',1)
  orfLstSel=get(handles.GeneOrfTog,'value');
  if orfLstSel==1
    set(handles.listboxGnOrf,'string',Exp(2).Dexp(1).srtOrfLst)   
  else
    set(handles.listboxGnOrf,'string',Exp(2).Dexp(1).srtGnLst)
  end
  DNLaxes2=handles.DNLaxes2;
  Exp(2).hzeroCLn(expLdCnt)=plot(DNLaxes2,zeroCLn,1:DMnum,'y');
end

if expN==3
  set(handles.zoneRad1,'value',0)
  set(handles.zoneRad2,'value',0)
  set(handles.zoneRad3,'value',1)
  orfLstSel=get(handles.GeneOrfTog,'value');
  if orfLstSel==1
    set(handles.listboxGnOrf,'string',Exp(3).Dexp(1).srtOrfLst)   
  else
    set(handles.listboxGnOrf,'string',Exp(3).Dexp(1).srtGnLst)
  end
  DNLaxes3=handles.DNLaxes3;
  Exp(3).hzeroCLn(expLdCnt)=plot(DNLaxes3,zeroCLn,1:DMnum,'y');
end

if Exp(4).interacPBsel==0  % if interaction "raw" don't show a center line
  for i=1:Exp(expN).expLoadCnt,
    try 
      set(Exp(expN).hzeroCLn(i),'visible','off'); 
      catch
        i
    end
  end
end

% HtMapTog 'string', 'Current user L/N' selection'
Exp(expN).Dexp(DexpN).spotIndx=[];
if expN==1,
    Exp(1).htmapPBsel=0;
    set(handles.HtMapTog1,'string','L')
    EZhtMap
end
if expN==2,
    Exp(2).htmapPBsel=0;
    set(handles.HtMapTog2,'string','L')
    EZhtMap
end
if expN==3,
    Exp(3).htmapPBsel=0;
    set(handles.HtMapTog3,'string','L')
    EZhtMap
end
htMapTogPBfg=0;