Error in `LSgarchKalmanFit(ipsa, c = c(0.05, 0.05), alpha = c(0.05, 0.05), 
    beta = c(0.05, 0.05), type = c("trigonometrico", "trigonometric", 
        "trigonometric"), trig = "cos", arg = "3*(1-log(u))")`: could not find function "LSgarchKalmanFit"

expect_error(LSgarchKalmanFit(ipsa, c = c(0.05,0.05), alpha = c(0.05,0.05), beta = c(0.05,0.05),
type = c("trigonometrico","trigonometric","trigonometric"), trig ="cos", arg = "3*(1-log(u))"),"invalid type for c", fixed=T)
type = c("trigonometric","trigonometrico","trigonometric"), trig ="cos", arg = "3*(1-log(u))"),"invalid type for a", fixed=T)
type = c("trigonometric","trigonometric","trigonometrico"), trig ="cos", arg = "3*(1-log(u))"),"invalid type for b", fixed=T)
expect_equal(ncol(indipsa), 1)  # verificar el número de columnas
expect_equal(nrow(indipsa), 3186) # Verificar el número de filas
type = c("trigonometric","trigonometric","trigonometric"), trig ="cos", arg = "3*(1-log(u))")
model<-LSgarchKalmanPrint(fit, ipsa, c = c(0.05,0.05), alpha = c(0.05,0.05), beta = c(0.05,0.05), type = c("trigonometric","trigonometric","trigonometric"),
trig ="cos", arg = "3*(1-log(u))", predict = 10)

Error in `LSgarchKalmanFit(ipsa, c = c(0.05, 0.05), alpha = c(0.05, 0.05), 
    beta = c(0.05, 0.05), type = c("trigonometric", "trigonometric", 
        "trigonometric"), trig = "cos", arg = "3*(1-log(u))")`: could not find function "LSgarchKalmanFit"