wrong management of V (logratio balance matrix) in as.gstat.gmSpatialModel

R/gmSpatialModel.R

@@ -301,7 +301,7 @@ as.gstat.gmSpatialModel <- function(object, ...){
     if(is.null(aux <- object@model@structure)){
       lrvgLMC = NULL
     }else{
-      lrvgLMC = as.LMCAnisCompo(aux, V=V) 
+      lrvgLMC = as.LMCAnisCompo(aux, V=Vinv) 
     }
     formulaterm = paste(as.character(object@model@formula), collapse="")
     beta = object@model@beta