[解決済み】Rで初めてニューラルネットを扱うと、"requires numeric/complex matrix/vector arguments "と表示される。

質問

Rでニューラルネットワークを扱う学習を試みている最中なのですが、学習問題として 以下の問題 にて カグル :

この問題は、特に学習用に作られたもので、報酬はありませんからご安心ください。

最初は簡単なロジスティック回帰から始めたのですが、これは足慣らしに最適でした。今はニューラルネットワークを学びたいと思っています。私の学習データは次のようなものです(Column:Row)。

- survived: 1
- pclass:   3
- sex:      male
- age:      22.0
- sibsp:    1
- parch:    0
- ticket:   PC 17601
- fare:     7.25
- cabin:    C85
- embarked: S

私の開始時のRコードは次のようなものです。

> net <- neuralnet(survived ~ pclass + sex + age + sibsp +
                   parch + ticket + fare + cabin + embarked, 
                   train, hidden=10, threshold=0.01)

この行を実行すると、次のようなエラーが発生します。

Error in neurons[[i]] %*% weights[[i]] : 
  requires numeric/complex matrix/vector arguments

入力変数の表示方法に問題があることは理解しているのですが、初心者のため、これを修正するために何をすればいいのかがわかりません。どなたか教えてください。

ありがとうございます。

解決方法は？

やみくもにコンピュータにデータを渡す前に。 を見るのは良いアイデアです。

d <- read.csv("train.csv")
str(d)
# 'data.frame': 891 obs. of  12 variables:
#  $ PassengerId: int  1 2 3 4 5 6 7 8 9 10 ...
#  $ Survived   : int  0 1 1 1 0 0 0 0 1 1 ...
#  $ Pclass     : int  3 1 3 1 3 3 1 3 3 2 ...
#  $ Name       : Factor w/ 891 levels "Abbing, Mr. Anthony",..: 109 191 358 277 16 559 520 629 417 581 ...
#  $ Sex        : Factor w/ 2 levels "female","male": 2 1 1 1 2 2 2 2 1 1 ...
#  $ Age        : num  22 38 26 35 35 NA 54 2 27 14 ...
#  $ SibSp      : int  1 1 0 1 0 0 0 3 0 1 ...
#  $ Parch      : int  0 0 0 0 0 0 0 1 2 0 ...
#  $ Ticket     : Factor w/ 681 levels "110152","110413",..: 524 597 670 50 473 276 86 396 345 133 ...
#  $ Fare       : num  7.25 71.28 7.92 53.1 8.05 ...
#  $ Cabin      : Factor w/ 148 levels "","A10","A14",..: 1 83 1 57 1 1 131 1 1 1 ...
#  $ Embarked   : Factor w/ 4 levels "","C","Q","S": 4 2 4 4 4 3 4 4 4 2 ...
summary(d)

変数の中には、値が多すぎて使い物にならないものもあります。 (少なくとも最初のモデルにおいては)。 name、ticket、cabin、passengerIdを削除することができます。 また、数値変数(例えばclass)の一部を係数に変換することもできます。 より意味のあるものであれば

以来 neuralnet は量的変数のみを扱います。 すべての質的変数(因子)を変換することができます。 をバイナリ変数（"ダミー"）に変換してください。 model.matrix 関数を使用します。 これは、非常に稀な状況の一つです。 は、Rが変換してくれない。

m <- model.matrix( 
  ~ Survived + Pclass + Sex + Age + SibSp + Parch + Fare + Embarked, 
  data = d 
)
head(m)
library(neuralnet)
r <- neuralnet( 
  Survived ~ Pclass + Sexmale + Age + SibSp + Parch + Fare + EmbarkedC + EmbarkedQ + EmbarkedS, 
  data=m, hidden=10, threshold=0.01
)