diff --git a/NAMESPACE b/NAMESPACE
index d5dcdab..5221295 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(plot,NEATFormulaSimulation)
+S3method(plot,NEATSimulation)
 S3method(plot,rneatneuralnet)
 export(NEATSimulation.GetStateHistoryForGenomeAndSpecies)
 export(NEATSimulation.RunSingleGeneration)
diff --git a/R/neat.R b/R/neat.R
index 14ac0a2..f37f7e6 100644
--- a/R/neat.R
+++ b/R/neat.R
@@ -1037,6 +1037,10 @@ NEATSimulation.GetStateHistoryForGenomeAndSpecies <- function(simulation, genome
 
 }
 
+#' @export
+plot.NEATSimulation <- function(simulation){
+  plotPerformanceTracker(simulation$PerformanceTracker)
+}
 
 plotPerformanceTracker <- function(data){
   plot(x=data[,"generation"],y=data[,"maxFitness"],col="blue",main="Fitness",xlab="Generation",ylab="Fitness",type="o",ylim=c(0,max(data[,"maxFitness"])),lwd=2)