Method to create a.wght component from the LKinfo object.

Share:

Description

This method takes a vector or more complicated object and based on the geometry creates a list with the a.wght information.

Usage

1
2
3
4
5
LKrigSetupAwght(object, ...)
## Default S3 method:
LKrigSetupAwght(object, ...)
## S3 method for class 'LKRectangle'
LKrigSetupAwght(object, ...)

Arguments

object

The partial LKinfo object created within LKrigSetup.

...

Any additional arguments to this method.

Details

The simplest function of this method is to convert the sequence of a.wght values into a list. If only a scalar a.wght value is supplied then the default method just repeats this for each level. The attribute fastNormalize (either TRUE or FALSE) is attached to this list to indicate how the marginal variance of the process should be found.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
 	 	
  LKinfo<- LKrigSetup( x,LKGeometry="LKInterval", alpha=c( 1,.2,.01),
                   nlevel=3, a.wght=4.5, NC= 3)
  LKrigSetupAwght( LKinfo)
  
[[1]]
[1] 4.5

[[2]]
[1] 4.5

[[3]]
[1] 4.5

attr(,"fastNormalize")
[1] FALSE

Currently the only geometry with fastNormalization being TRUE is for a rectangular domain.

For the LKRectangle geometry, however, more complicated anisotropic and nonstationary a.wght specifications are possible. See LKrig for details. Also in the case that the fastNormalization is TRUE for rectangles several more attributes are added to the a.wght list that precompute some matrices of the SAR.

Value

A list with nlevel components. The attribute fastNormalize is added to this list. In the case that the geometry is LKRectangle several more attributes are added indicating the type of covariance model and possibly an eigen decomposition of the SAR matrix exploiting Kronecker products.

Author(s)

Doug Nychka

See Also

LKrigSetup, LKrigSetupAlpha, LKrigSAR, LKrig

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
  x<- cbind( c(0,1))
  LKinfo<- LKrigSetup( x,LKGeometry="LKInterval", alpha=c( 1,.2,.01),
                   nlevel=3, a.wght=4.5, NC= 3)
  a.wghtList<- LKrigSetupAwght( LKinfo)
  
  x<- cbind( c(0,1), c(0,1))
  LKinfo<- LKrigSetup( x, alpha=c( 1,.2,.01),
                   nlevel=3, a.wght=4.5, NC= 3)
  a.wghtList<- LKrigSetupAwght( LKinfo)
# see   
  names(attributes( a.wghtList))
 
  

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.