Improving the figure labels.

lerouzic · Dec 12, 2022 · 957df11 · 957df11
1 parent 80c05b1
commit 957df11
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/amodel.R b/src/amodel.R
@@ -141,7 +141,7 @@ simmodel <- function(u=0.1, pi=0.03, s=0, k=1, sp=0, n0=1, p0=0, r=0, N=10000, T
 
 plot.model.dyn <- function(model.default, model.par, what="n", pred=TRUE, sim=FALSE, max=FALSE, legend=TRUE, Tmax=100, N=10000, rep=1, nb.simpt=21, 
 	use.cache=TRUE, col=1:10,
-	xlab="Generations", ylab=if(what=="n") "Copy number" else "Cluster frequency", xlim=c(0,Tmax), ylim=NA,
+	xlab="Generations", ylab=if(what=="n") "Copy number (n)" else "TE cluster insertion frequency (p)", xlim=c(0,Tmax), ylim=NA,
 	legend.pos="topleft", simulator=simulator.default, ...) {
 
 	dyn.res <- lapply(model.par, function(mm) {