Please consider responding to a brief user needs survey.

bugfix remove subset() function

parent 5fd873ca
......@@ -559,7 +559,8 @@ for (s in 1:length(unique(ERRORresults$SourceType))){
FbarPath<-paste(as.character(paths[[1,1]]),"\\stackedBarplots\\ERRORanalysisStackedBar_",sep="")
FbarPath<-paste(FbarPath,as.character(unique(ERRORresults$SourceType)[s]),sep="")
FbarPath<-paste(FbarPath,".png",sep="")
ERRORsub<-subset(ERRORresults,ERRORresults$SourceType==unique(ERRORresults$SourceType)[s])
#ERRORsub<-subset(ERRORresults,ERRORresults$SourceType==unique(ERRORresults$SourceType)[s])
ERRORsub<-ERRORresults[which(ERRORresults$SourceType==as.character(unique(ERRORresults$SourceType)[s])),]
plotdata<-t(as.matrix(ERRORsub[-c(1,2,length(ERRORsub))]))
colnames(plotdata)<-NULL
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment