diff --git a/3.FoldChange & Plots.R b/3.FoldChange & Plots.R
index 834187d68610e336091ac3e9c36550dffea3a685..01a2e4ae83ad4fef21c799cb0e3eb7bd70e4d7ab 100755
--- a/3.FoldChange & Plots.R	
+++ b/3.FoldChange & Plots.R	
@@ -212,7 +212,7 @@ Y.A <- list(
 
 p=plot_ly(mini,alpha=0.7,x=~AAPos,y=~FC.reg,color=~VariantFrequency,size=~VariantFrequency,mode="text",text=~paste('EGFR ',AAchange,'</br> FC: ',round(FC.reg,digits = 3),'</br>- - - -</br>Variant frequency</br>Library: ',round(Lib.VF,digits = 3),'</br>Surving cells: ',round(VariantFrequency,digits=3),'</br>- - - -</br>Number of reads</br>Library: ',Lib.AD,'</br>Surving cells: ',NoLig.AD),colors = cols,sizes=c(50,300))%>%
   add_markers()%>%
-  layout(title = "EGFR iSREAM",xaxis = X.A,yaxis = Y.A)
+  layout(title = "EGFR iSCREAM",xaxis = X.A,yaxis = Y.A)
 print(p)
 # 
 #