X1 <- seq(0, 1, len=2000)
Pa2 <- c(0, 0.790, 1.343)
Y2 <- SCSE(P=Pa2, x=X1)
dev.new()
plot( X1, Y2, cex.lab=1.5, cex.axis=1.5, type="l", asp=1, xaxs="i",
yaxs="i", xlim=c(0, 1), ylim=c(0, 1),
xlab="Cumulative proportion of the number of infructescences",
ylab="Cumulative proportion of the infructescence length" )
graphics.off()
Run the code above in your browser using DataLab