Nothing
#' @title GMDH MIA auxiliar functions
#'
#' @description Performs auxiliar tasks to predict.mia
#'
#' @keywords internal
#'
fun.N_1 <- function(x, y) {
nombres <- colnames(x)
resultado <- vector(mode = "list", length = 2)
names(resultado) <- c("coef", "CV")
tol <- sqrt(.Machine$double.eps)
x <- cbind(1, x[, 1], x[, 2],
I(x[, 1]^2), I(x[, 2]^2),
x[, 1] * x[, 2])
Xsvd <- svd(x)
D <- 1 / Xsvd$d
D[D <= tol] <- 0
C <- Xsvd$v %*% (crossprod(Xsvd$u, y) * D)
rownames(C) <- c("Ind", nombres, paste0(nombres, "^2", sep = ""), "interac")
err <- (x %*% C) - y
CV <- sqrt(mean((err / (1 - rowSums(Xsvd$u * Xsvd$u)))^2))
CV <- round(CV, digits = 6)
resultado$coef <- C
resultado$CV <- CV
class(resultado) <- "neurona"
return(resultado)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.