# \donttest{
# use the data from the BeersProjectiveMapping dataset
data("BeersProjectiveMapping")
# Create the I*J_k*K brick of data
zeBrickOfData <- projMap2Cube(
BeersProjectiveMapping$ProjectiveMapping,
shape = 'flat', nVars = 2)
# Create the cubes of Covariance and Distance
cubes <- createCubeOfCovDis(zeBrickOfData$cubeOfData)
# }
Run the code above in your browser using DataLab