showClass("raggedCoefS")
ragA <- new("raggedCoefS", a = list( c(0.5, -0.5), 1),
as = list(0, c(0.3, -0.1) ), s = 12)
ragB <- new("raggedCoefS", a = list( c(0.5, -0.5), 1), p = c(2, 1),
as = list(0, c(0.3, -0.1) ), ps = c(1, 2), s = 12) # same
## Elements selection examples
ragA[] ## matrix of coefficients
ragA[1]; ragA[1, ] ## vector of coefficients from first component
ragA[[2]] ## list of seasonal AR parameters
ragA[[2]][[1]] ## vector of seasonal AR parameters from first component
## Replacement of values in 'raggedCoefS' objects
ragB[[2]] <- list(1, c(-0.5,0.5))
ragB[[2]][[2]] <- c(20, 22)
ragB[[1]][[1]][1] <- 0
Run the code above in your browser using DataLab