Извлечение подогнанных значений модели вариограммы

Как я могу извлечь подогнанные значения (не параметры!) модели вариограммы? Я намерен нарисовать теоретическую вариограмму в программе Excel.

Я использовал fit.variogram в пакете gstat следующим образом:

library(sp)
data(meuse)
coordinates(meuse) = ~x+y
vgm1 <- variogram(log(zinc)~1, meuse)
fit.variogram(vgm1, vgm(1, "Sph", 300, 1))
fit.variogram(vgm1, vgm("Sph")) 

Мне нужен набор данных, используемых в сюжетной функции в R.