收到错误-model.frame.default（formula.reverse，data）中的错误：可变长度不同（为'CRIM'找到）

Question

尝试为Boston Housing组创建神经网络模型，但收到错误消息。任何帮助表示赞赏。下面是代码：   ＃URL链接读取数据   UrlToRead <- "http://lib.stat.cmu.edu/datasets/boston"

＃读取URL中存在的数据集   library(readr)  DataRead <- read_table("http://lib.stat.cmu.edu/datasets/boston", skip = 22, col_names = FALSE)

＃提取奇数行   DR1 <- DataRead[seq(1, 1011, 2), ]

＃在数据集中添加列名   colnames(DR1) <- c("CRIM", "ZN", "INDUS", "CHAS", "NOX", "RM", "AGE", "DIS", "RAD", "TAX", "PTRATIO")

＃提取偶数行   DR2 <- DataRead[seq(2, 1012, 2), 1:3]

＃在数据集中添加列名   colnames(DR2) <- c("B", "LSTAT", "MEDV")

＃在一个数据帧中组合两个数据集

myData <- data.frame(c(DR1), c(DR2))  ＃创建Trianing数据 traindata <- myData[1:150,] traindata

创建测试数据

testdata <- myData[151:506,]

运行神经网络公式

MEDVnet <- neuralnet(myData$MEDV ~ CRIM + ZN + CHAS + NOX + RM + DIS + RAD + TAX + PTRATIO + B + LSTAT, traindata, hidden = 4, lifesign= 'minimal', linear.output=TRUE, threshold = 0.1)

错误-Error in model.frame.default(formula.reverse, data) : variable lengths differ (found for 'CRIM')