Differences

This shows you the differences between two versions of the page.

--- neuroimagen:bioface_atn [2021/09/09 09:59] – [What we got so far] osotolongo
+++ neuroimagen:bioface_atn [2021/09/10 09:20] – [random Forest] osotolongo
@@ Line 247: / Line 247: @@
 | {{ :neuroimagen:facehbi_nbayes_classifier.png?600 | my pretty cool neurodegeneration classifier output (FACEHBI)}} | {{ :neuroimagen:facehbi_nplus_prob_histogram.png?600 |how the probabilities are distributed?}} |
-==== random Forest ====
+==== Métodos no lineales ====
-Vamos a intentar con métodos no lineales,
+Vamos a intentar con métodos no lineales. Ojo, estos  métodos no tienen interpretación probabilistica. Son construcciones matemáticas que funcionan.
+=== random Forest ===
+** BIOFACE **
 <code>
+rf_cl <- randomForest(ND ~ ., data = xt, na.action = na.omit)
+base$ND <- predict(rf_cl, newdata = base)
+plot(base$AGE, base$Hippocampus, main = "Hippocampus Volume versus Age", xlab="Age", ylab="HV", pch=19, col=ifelse(base$ND==1,"red","green"))
+</code>
+{{ :neuroimagen:rf_classifier_bioface.png?600 |}}
+**FACEHBI**
+<code>
+face$ND <- predict(rf_cl, newdata = face)
+plot(face$AGE, face$Hippocampus, main = "Hippocampus Volume versus Age", xlab="Age", ylab="HV", pch=19, col=ifelse(face$ND==1,"red","green"))
 </code>
+{{ :neuroimagen:rf_classifier_facehbi.png?600 |}}
+=== support-vector machine ===
+**BIOFACE**
+<code>
+svm_cl <- svm(ND ~ ., data = xt, na.action = na.omit)
+base$ND <- predict(svm_cl, newdata = base)
+plot(base$AGE, base$Hippocampus, main = "Hippocampus Volume versus Age", xlab="Age", ylab="HV", pch=19, col=ifelse(base$ND==1,"red","green"))
+</code>
+{{ :neuroimagen:svm_classifier_bioface.png?600 |}}
+** FACEHBI **
+<code>
+face$ND <- predict(svm_cl, newdata = face)
+plot(face$AGE, face$Hippocampus, main = "Hippocampus Volume versus Age", xlab="Age", ylab="HV", pch=19, col=ifelse(face$ND==1,"red","green"))
+</code>
+{{ :neuroimagen:svm_classifier_facehbi.png?600 |}}