Fehler in der Formel (Formel): '.' in der Formel und kein "Daten" -Argument

Ich bin tring zu verwenden, neuralnet, die für die Vorhersage.

Erstellen X:

x <- cbind(seq(1, 50, 1), seq(51, 100, 1))

Erstellen Y:

y <- x[,1]*x[,2]

Geben Sie einen Namen

colnames(x) <- c('x1', 'x2')
names(y) <- 'y'

Daten.Rahmen:

dt <- data.frame(x, y)

Und jetzt, ich habe Fehler

model <- neuralnet(y~., dt, hidden=10, threshold=0.01)

Fehler in Bezug auf.Formel(formula) : '.' in formula and no 'data'
argument

Beispielsweise in lm(linear model) dies ist gearbeitet.

InformationsquelleAutor der Frage luckyi | 2013-07-22

  1. 41

    Als mein Kommentar Mitgliedstaaten, das sieht wie ein bug in der nicht-exportierten Funktion neuralnet:::generate.initial.variables. Als eine Arbeit um, bauen Sie gerade eine lange Formel aus dem Namen der dtohne y z.B.

    n <- names(dt)
f <- as.formula(paste("y ~", paste(n[!n %in% "y"], collapse = " + ")))
f

## gives
> f
y ~ x1 + x2

## fit model using `f`
model <- neuralnet(f, data = dt, hidden=10, threshold=0.01)

> model
Call: neuralnet(formula = f, data = dt, hidden = 10, threshold = 0.01)

1 repetition was calculated.

        Error Reached Threshold Steps
1 53975276.25     0.00857558698  1967

    InformationsquelleAutor der Antwort Gavin Simpson

  2. 2

    Bietet eine einfachere alternative zu der vorherigen Antwort, können Sie eine Formel erstellen, die aus Namen von dt mit reformulate():

    f <- reformulate(setdiff(colnames(dt), "y"), response="y")

    reformulate() erfordert nicht die Verwendung von paste() und fügt automatisch den Bedingungen zusammen.

    InformationsquelleAutor der Antwort Megatron

Schreibe einen Kommentar