plot.crossvariogram: Crossvariogram and lmc fitting plot
In victorvicpal/MGSR: Multivariate Gaussian Subspatial Regression

Description Usage Arguments Author(s) See Also Examples

It displays both crossvariogram and lmc fitting.

1	plot.crossvariogram(CV, RES = NULL)

`CV`	Crossvariogram resulting from `crossvariogram`
`RES`	lmc fitting resulting from `lmc`. If NULL, it only shows the crossvariogram plot.

Victor Vicente Palacios

crossvariogram,lmc

data("iris")
Versicolor <- iris[which(iris$Species=='versicolor'),-5]
##Data Standarization
means_vers <- apply(Versicolor,2,mean)
sd_vers <- apply(Versicolor,2,sd)
Versicolor_st <- Versicolor

for (i in 1:length(Versicolor[1,]))
{Versicolor_st[,i] <- (Versicolor[,i]-means_vers[i])/sd_vers[i]}

##PrComp
PC_train <- princomp(Versicolor_st)
## CrossVariogram Calculation
CV_vers <- crossvariogram(as.data.frame(PC_train$scores[,1:2]),as.data.frame(Versicolor_st),11)
## Plot
plot.crossvariogram(CV_vers)