用R

我是R新手，这是我第一次使用SOM。 我想用自组织映射预测生存

以下是我用来接收数据的代码：

加载原始数据

train <- read.csv("train.csv", header = TRUE)
test <- read.csv("test.csv", header = TRUE)

列车SOM

som.train.1 <- data.combined[1:891, c("pclass", "title")]
som.label <- as.factor(train$survived)

table(som.train.1)
table(som.label)
som.train.1.grid <- somgrid(xdim = 20, ydim=20, topo="hexagonal")

set.seed(1234)

som.model <- som(som.label, 
             grid=som.train.1.grid, 
             rlen = 100, 
             alpha = c(0.05, 0.01),
             keep.data = TRUE, 
             normalizeDataLayers = TRUE)

plot(som.model)

---

som.train.1您能否提供列车和测试数据，以便我可以重建您的问题？
data.combined <- rbind(train, test.survived)

data.combined$Survived <- as.factor(data.combined$survived)
data.combined$Pclass <- as.factor(data.combined$pclass)

library(kohonen)

som.train.1 <- data.combined[1:891, c("pclass", "title")]
som.label <- as.factor(train$survived)

table(som.train.1)
table(som.label)
som.train.1.grid <- somgrid(xdim = 20, ydim=20, topo="hexagonal")

set.seed(1234)

som.model <- som(som.label, 
             grid=som.train.1.grid, 
             rlen = 100, 
             alpha = c(0.05, 0.01),
             keep.data = TRUE, 
             normalizeDataLayers = TRUE)

plot(som.model)