R 신경망 문제

Question

다음은 업데이트 된 코드입니다. 내 문제는 "결과"의 출력입니다. 아래에서 가독성을위한 형식으로 게시하겠습니다.

library("neuralnet") 
    library("ggplot2") 
    setwd("C:/Users/Aaron/Documents/UMUC/R/Data For Assignments") 
    trainset <- read.csv("SOTS.csv") 
    head(trainset) 
    ## val data classification 
    str(trainset) 
    ## building the neural network 
    risknet <- neuralnet(Overall.Risk.Value ~ Finance + Personnel + Information.Dissemenation.C, trainset, hidden = 10, lifesign = "minimal", linear.output = FALSE, threshold = 0.1) 
    ##plot nn 
    plot(risknet, rep="best") 

    ##import scoring set 
    score_set <- read.csv("SOSS.csv") 
    ##select subsets-training and scoring match 
    score_test <- subset(score_set, select = c("Finance", "Personnel", "Information.Dissemenation.C")) 
    ##display values of score_test 

    head(score_test) 
    ##neural network compute function score_test and the neural net "risknet" 
    risknet.results <- compute(risknet, score_test) 

    ##Actual value of Overall.Risk.Value variable wanting to predict. net.result = a matrix containing the overall result of the neural network 
    results <- data.frame(Actual = score_set$Overall.Risk.Value, Prediction = risknet.results$net.result) 
    results[1:14, ] 

결과가 예상대로 출력되지 않습니다. 예를 들어, 실제 데이터는 5와 8 사이의 숫자이며 "예측"은 각 결과에 대해 .9995의 출력을 표시합니다.

다시 도움을 청하십시오.

Answer 1

이것은 당신이 훈련하고 예측하는 방법이다 : 테스트 데이터에 점수를 예측하는

를 사용하여 매개 변수를 모델 매개 변수 (귀하의 경우 변수 risknet를) 배울 수

1. 를 사용하여 훈련 데이터를

Here은이 작업의 수행 방식을 설명하는 예제와 매우 유사합니다.

Answer 2

신경망의 기본 활성화 기능은 "물류"입니다. linear.output을 FALSE로 설정하면 출력이 활성화 함수에 의해 간격 [0,1]에 매핑됩니다. (R_Journal (neuralnet) - Frauke Günther)

방금 ​​업데이트했습니다. linear.output = TRUE 귀하의 코드와 최종 결과에 훨씬 더 좋아 보인다.

도움 주셔서 감사합니다.