R code used to produce the graph shown below.

plot(Variogram(model), cex=mycex, 
     xlab=list(label="Distance", cex=mycex), ylab=list(label="Semivariogram", cex=mycex), 
     scales=list(x=list(cex=mycex), y=list(cex=mycex)), 
#     col.point="black", col.line="blue", 
     par.settings=simpleTheme(col="black", col.line="black", lwd=3, pch=20)) 
plot(Variogram(model, resType="n"), cex=mycex, 
     xlab=list(label="Distance", cex=mycex), ylab=list(label="Semivariogram", cex=mycex), 
     scales=list(x=list(cex=mycex), y=list(cex=mycex)), 
#     col.point="black", col.line="blue", 
     par.settings=simpleTheme(col="black", col.line="black", lwd=3, pch=20))