R/lavaan-deprecated.R

In nietsnel/psindex: Parameter Stability Index

# deprecated (or renamed) psindex functions
# created 29 March 2015, pre 0.5-18 by YR

vech <- function(S, diagonal = TRUE) {
    .Deprecated("lav_matrix_vech", package = "psindex")
    lav_matrix_vech(S = S, diagonal = diagonal)
}

vechr <- function(S, diagonal = TRUE) {
    .Deprecated("lav_matrix_vechr", package = "psindex")
    lav_matrix_vechr(S = S, diagonal = diagonal)
}

vechu <- function(S, diagonal = TRUE) {
    .Deprecated("lav_matrix_vechu", package = "psindex")
    lav_matrix_vechu(S = S, diagonal = diagonal)
}

vechru <- function(S, diagonal = TRUE) {
    .Deprecated("lav_matrix_vechru", package = "psindex")
    lav_matrix_vechru(S = S, diagonal = diagonal)
}


vech.reverse <- function(x, diagonal = TRUE) {
    .Deprecated("lav_matrix_vech_reverse",  package = "psindex")
    lav_matrix_vech_reverse(x = x, diagonal = diagonal)
}

vechru.reverse <- function(x, diagonal = TRUE) {
    .Deprecated("lav_matrix_vechru_reverse",  package = "psindex")
    lav_matrix_vechru_reverse(x = x, diagonal = diagonal)
}

vechr.reverse <- function(x, diagonal = TRUE) {
    .Deprecated("lav_matrix_vechr_reverse",  package = "psindex")
    lav_matrix_vechr_reverse(x = x, diagonal = diagonal)
}

vechu.reverse <- function(x, diagonal = TRUE) {
    .Deprecated("lav_matrix_vechu_reverse",  package = "psindex")
    lav_matrix_vechu_reverse(x = x, diagonal = diagonal)
}

lower2full <- function(x, diagonal = TRUE) {
      .Deprecated("lav_matrix_lower2full",  package = "psindex")
    lav_matrix_lower2full(x = x, diagonal = diagonal)
}

upper2full <- function(x, diagonal = TRUE) {
    .Deprecated("lav_matrix_upper2full",  package = "psindex")
    lav_matrix_upper2full(x = x, diagonal = diagonal)
}

duplicationMatrix <- function(n = 1L) {
    .Deprecated("lav_matrix_duplication",  package = "psindex")
    lav_matrix_duplication(n = n)     
}

commutationMatrix <- function(m = 1L, n = 1L) {
    .Deprecated("lav_matrix_commutation",  package = "psindex")
    lav_matrix_commutation(m = m, n = n)
}

sqrtSymmetricMatrix <- function(S) {
    .Deprecated("lav_matrix_symmetric_sqrt", package = "psindex")
    lav_matrix_symmetric_sqrt(S = S)
}