r中未知的激活函数_R_Neural Network

r中未知的激活函数

r neural-network

r中未知的激活函数,r,neural-network,R,Neural Network,我在r工作。我需要一个神经网络，它将包含四个级别的输出。下面是我编写的代码： wifiLocDat <- read.table("wifi_localization.txt") colnames(wifiLocDat) <- c('Wifi1','Wifi2','Wifi3','Wifi4','Wifi5','Wifi6','Wifi7','Room') #Classifying Rooms into 4 categories Room = c(1,2,3,4)

我在r工作。我需要一个神经网络，它将包含四个级别的输出。下面是我编写的代码：

wifiLocDat <- read.table("wifi_localization.txt")
colnames(wifiLocDat) <- c('Wifi1','Wifi2','Wifi3','Wifi4','Wifi5','Wifi6','Wifi7','Room')

#Classifying Rooms into 4 categories
Room = c(1,2,3,4)
Loc1 <- c(Room==1)
Loc2 <- c(Room==2)
Loc3 <- c(Room==3)
Loc4 <- c(Room==4)

df = data.frame(Loc1,Loc2,Loc3,Loc4)

library(neuralnet)
nnRes <- neuralnet(Room~Loc1+Loc2+Loc3+Loc4,data=df,hidden=4,act.fct = "logistic",   linear.output = FALSE)
plot(nnRes)

您的代码在我的机器上运行良好，您的

软件包版本（“neuralnet”）

？感谢您的回复。软件包版本为1.44.2。它在我的机器上也能工作，我需要有四个输出，但我只有两个。你说的四个输出是什么意思？我在问题中添加了我的绘图图片。计划是有四个级别的输出，而不是像我现在这样。我有4个输入，4个隐藏，我需要4个输出。好的，然后将房间转换为因子应该会产生你想要的：

Room=factor（c（1,2,3,4））

head(wifiLocDat)
  Wifi1 Wifi2 Wifi3 Wifi4 Wifi5 Wifi6 Wifi7 Room
1   -64   -56   -61   -66   -71   -82   -81    1
2   -68   -57   -61   -65   -71   -85   -85    2
3   -63   -60   -60   -67   -76   -85   -84    3
4   -61   -60   -68   -62   -77   -90   -80    4
5   -63   -65   -60   -63   -77   -81   -87    1
6   -64   -55   -63   -66   -76   -88   -83    2