User Tools

Site Tools


neuroimagen:bioface_atn

Differences

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

Link to this comparison view

Both sides previous revision Previous revision
Next revision Both sides next revision
neuroimagen:bioface_atn [2021/09/10 09:20]
osotolongo [random Forest]
neuroimagen:bioface_atn [2021/09/12 10:21]
osotolongo [Métodos no lineales]
Line 257: Line 257:
 rf_cl <- randomForest(ND ~ ., data = xt, na.action = na.omit) rf_cl <- randomForest(ND ~ ., data = xt, na.action = na.omit)
 base$ND <- predict(rf_cl, newdata = base) base$ND <- predict(rf_cl, newdata = base)
 +base$post <- predict(rf_cl, newdata = base, type="prob")
 plot(base$AGE, base$Hippocampus, main = "Hippocampus Volume versus Age", xlab="Age", ylab="HV", pch=19, col=ifelse(base$ND==1,"red","green")) plot(base$AGE, base$Hippocampus, main = "Hippocampus Volume versus Age", xlab="Age", ylab="HV", pch=19, col=ifelse(base$ND==1,"red","green"))
 +hist(base$post[,2], col="red", density = 50, probability=TRUE, breaks = 10, main="Probabilities profile", xlab = "Probability of N+")
 </code> </code>
  
Line 266: Line 268:
 <code> <code>
 face$ND <- predict(rf_cl, newdata = face) face$ND <- predict(rf_cl, newdata = face)
 +face$post <- predict(rf_cl, newdata = face, type = "prob")
 plot(face$AGE, face$Hippocampus, main = "Hippocampus Volume versus Age", xlab="Age", ylab="HV", pch=19, col=ifelse(face$ND==1,"red","green")) plot(face$AGE, face$Hippocampus, main = "Hippocampus Volume versus Age", xlab="Age", ylab="HV", pch=19, col=ifelse(face$ND==1,"red","green"))
 +hist(face$post[,2], col="red", density = 50, probability=TRUE, breaks = 10, main="Probabilities profile", xlab = "Probability of N+")
 </code> </code>
  
neuroimagen/bioface_atn.txt · Last modified: 2022/06/14 08:22 by osotolongo