Neural network in R to analyze diabetes data











up vote
0
down vote

favorite












This is my first attempt at writing a neural network and I am experiencing immense difficulty in reducing the error value which is relatively high and thus reduces the accuracy of the model.



library(neuralnet)

normalize <- function(x) {
return ((x - min(x)) / (max(x) - min(x)))
}

df <- read.csv('C:/Users/CaitlinG/data.diabetes.csv', header=T)

df <- as.data.frame(lapply(df, normalize))

training <- df[1:614,]
testing <- df2[615:768,]

my.neural.net <- neuralnet(Outcome ~ Pregnancies + Glucose + BloodPressure + SkinThickness + Insulin + BMI + DiabetesPedigreeFunction + Age, data=training, hidden=c(3,1), linear.output= F, threshold = 0.01)

df <- apply(df, 1, function(row) all(row != 0))

my.neural.net$result.matrix

plot(my.neural.net)









share|improve this question









New contributor




CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.




















  • Welcome to Code Review. Your question is rather sketchy. Please tell us more about what your CSV file looks like and what you intend to calculate.
    – 200_success
    2 days ago















up vote
0
down vote

favorite












This is my first attempt at writing a neural network and I am experiencing immense difficulty in reducing the error value which is relatively high and thus reduces the accuracy of the model.



library(neuralnet)

normalize <- function(x) {
return ((x - min(x)) / (max(x) - min(x)))
}

df <- read.csv('C:/Users/CaitlinG/data.diabetes.csv', header=T)

df <- as.data.frame(lapply(df, normalize))

training <- df[1:614,]
testing <- df2[615:768,]

my.neural.net <- neuralnet(Outcome ~ Pregnancies + Glucose + BloodPressure + SkinThickness + Insulin + BMI + DiabetesPedigreeFunction + Age, data=training, hidden=c(3,1), linear.output= F, threshold = 0.01)

df <- apply(df, 1, function(row) all(row != 0))

my.neural.net$result.matrix

plot(my.neural.net)









share|improve this question









New contributor




CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.




















  • Welcome to Code Review. Your question is rather sketchy. Please tell us more about what your CSV file looks like and what you intend to calculate.
    – 200_success
    2 days ago













up vote
0
down vote

favorite









up vote
0
down vote

favorite











This is my first attempt at writing a neural network and I am experiencing immense difficulty in reducing the error value which is relatively high and thus reduces the accuracy of the model.



library(neuralnet)

normalize <- function(x) {
return ((x - min(x)) / (max(x) - min(x)))
}

df <- read.csv('C:/Users/CaitlinG/data.diabetes.csv', header=T)

df <- as.data.frame(lapply(df, normalize))

training <- df[1:614,]
testing <- df2[615:768,]

my.neural.net <- neuralnet(Outcome ~ Pregnancies + Glucose + BloodPressure + SkinThickness + Insulin + BMI + DiabetesPedigreeFunction + Age, data=training, hidden=c(3,1), linear.output= F, threshold = 0.01)

df <- apply(df, 1, function(row) all(row != 0))

my.neural.net$result.matrix

plot(my.neural.net)









share|improve this question









New contributor




CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











This is my first attempt at writing a neural network and I am experiencing immense difficulty in reducing the error value which is relatively high and thus reduces the accuracy of the model.



library(neuralnet)

normalize <- function(x) {
return ((x - min(x)) / (max(x) - min(x)))
}

df <- read.csv('C:/Users/CaitlinG/data.diabetes.csv', header=T)

df <- as.data.frame(lapply(df, normalize))

training <- df[1:614,]
testing <- df2[615:768,]

my.neural.net <- neuralnet(Outcome ~ Pregnancies + Glucose + BloodPressure + SkinThickness + Insulin + BMI + DiabetesPedigreeFunction + Age, data=training, hidden=c(3,1), linear.output= F, threshold = 0.01)

df <- apply(df, 1, function(row) all(row != 0))

my.neural.net$result.matrix

plot(my.neural.net)






r neural-network






share|improve this question









New contributor




CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











share|improve this question









New contributor




CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









share|improve this question




share|improve this question








edited 2 days ago









200_success

127k15148412




127k15148412






New contributor




CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









asked 2 days ago









CaitlinG

1011




1011




New contributor




CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.





New contributor





CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.






CaitlinG is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.












  • Welcome to Code Review. Your question is rather sketchy. Please tell us more about what your CSV file looks like and what you intend to calculate.
    – 200_success
    2 days ago


















  • Welcome to Code Review. Your question is rather sketchy. Please tell us more about what your CSV file looks like and what you intend to calculate.
    – 200_success
    2 days ago
















Welcome to Code Review. Your question is rather sketchy. Please tell us more about what your CSV file looks like and what you intend to calculate.
– 200_success
2 days ago




Welcome to Code Review. Your question is rather sketchy. Please tell us more about what your CSV file looks like and what you intend to calculate.
– 200_success
2 days ago















active

oldest

votes











Your Answer





StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
});
});
}, "mathjax-editing");

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "196"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});






CaitlinG is a new contributor. Be nice, and check out our Code of Conduct.










draft saved

draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodereview.stackexchange.com%2fquestions%2f208629%2fneural-network-in-r-to-analyze-diabetes-data%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown






























active

oldest

votes













active

oldest

votes









active

oldest

votes






active

oldest

votes








CaitlinG is a new contributor. Be nice, and check out our Code of Conduct.










draft saved

draft discarded


















CaitlinG is a new contributor. Be nice, and check out our Code of Conduct.













CaitlinG is a new contributor. Be nice, and check out our Code of Conduct.












CaitlinG is a new contributor. Be nice, and check out our Code of Conduct.
















Thanks for contributing an answer to Code Review Stack Exchange!


  • Please be sure to answer the question. Provide details and share your research!

But avoid



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


Use MathJax to format equations. MathJax reference.


To learn more, see our tips on writing great answers.





Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


Please pay close attention to the following guidance:


  • Please be sure to answer the question. Provide details and share your research!

But avoid



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodereview.stackexchange.com%2fquestions%2f208629%2fneural-network-in-r-to-analyze-diabetes-data%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







Popular posts from this blog

Morgemoulin

Scott Moir

Souastre