diff --git a/Interface.R b/Interface.R index 77b97242d197208cd1376b83d881948c5f897d84..d0874f8f0389367d2c0e8479bbfb63826aca1e7d 100644 --- a/Interface.R +++ b/Interface.R @@ -368,7 +368,7 @@ savePlot(paste(results,functionParameter$X, "jpg",sep=""),type="jpeg") #write.table(paste("Data Used For Analysis is ", functionParameter$X,"\n",length(X),independ(X)$decision,ks100(X)$decision,"GEV distribution ","pwcet (10e-16)",pwcet[1],"blockSize",T1$blockSize,"Values kept",T1$valuesKept,"\n",sep="\n"),file=paste(results,functionParameter$X,".txt", sep=""),row.names=FALSE,append=F) } - savePlot(paste(results,traces[j],"_bs",i,".fitting.jpg", sep=""),type="jpeg") +# savePlot(paste(results,traces[j],"_bs",i,".fitting.jpg", sep=""),type="jpeg") toolDeclustProcedure<-function(X,output)