Differences

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

--- neuroimagen:altdti_2020 [2020/02/18 10:30]
osotolongo [Composites?]
+++ neuroimagen:altdti_2020 [2020/08/04 10:58] (current)
@@ Line 150: / Line 150: @@
 denom_go <- denom_go[complete.cases(denom_go),]
 denom <- data.frame(denom_go$fdl.Action_Namimg_Libre_FAC, denom_go$fdl.Action_Naming_Clave_Fonetica_FAC, denom_go$fdl.Action_Naming_Clave_Semant_FAC, denom_go$fdl.Boston_Clave_Fonetica_FAC,denom_go$fdl.Boston_Clave_Semantica_FAC, denom_go$fdl.Boston_Libre_FAC, denom_go$fdl.Boston_Total_FAC)
+denom_cs <- fa(denom, scores="regression")
 denom_go$cs <- denom_cs$scores
 mod_fpc <-lm(denom_go$cs ~ denom_go$fdl.FPCustom_FA + denom_go$fdl.Edad + denom_go$fdl.Escolaridad +denom_go$fdl.male)
@@ Line 177: / Line 178: @@
 F-statistic: 5.549 on 4 and 182 DF,  p-value: 0.0003086
 </code>
+{{ :neuroimagen:denom_fpc.png |}}
+**Contenido Semantico**
+<code R>
+seman_go <- data.frame(fdl$PSubject,fdl$Edad, fdl$Escolaridad, fdl$male, fdl$DMN_FA, fdl$DMN_MD, fdl$FPCustom_FA, fdl$FPCustom_MD, fdl$LN_FA, fdl$LN_MD, fdl$SN_FA, fdl$SN_MD ,fdl$Piramides_Y_Palmeras_Palab_FAC, fdl$Piramides_Y_Plameras_Imag_FAC, fdl$Kissing_Dancing_Imagenes_FAC, fdl$Kissing_Dancing_Palabras_FAC)
+seman_go <- seman_go[complete.cases(seman_go),]
+seman <- data.frame(seman_go$fdl.Piramides_Y_Palmeras_Palab_FAC, seman_go$fdl.Piramides_Y_Plameras_Imag_FAC, seman_go$fdl.Kissing_Dancing_Imagenes_FAC, seman_go$fdl.Kissing_Dancing_Palabras_FAC)
+seman_cs <- fa(seman, scores="regression")
+seman_go$cs <- seman_cs$scores
+mod_fpc <-lm(seman_go$cs ~ seman_go$fdl.FPCustom_FA + seman_go$fdl.Edad + seman_go$fdl.Escolaridad +seman_go$fdl.male)
+summary(mod_fpc)
+Call:
+lm(formula = seman_go$cs ~ seman_go$fdl.FPCustom_FA + seman_go$fdl.Edad +
+    seman_go$fdl.Escolaridad + seman_go$fdl.male)
+Residuals:
+    Min      1Q  Median      3Q     Max
+-3.5541 -0.2416  0.2389  0.5299  1.3893
+Coefficients:
+                         Estimate Std. Error t value Pr(>|t|)
+(Intercept)               0.56511    2.06213   0.274    0.785
+seman_go$fdl.FPCustom_FA  1.37844    6.00285   0.230    0.819
+seman_go$fdl.Edad        -0.01763    0.01296  -1.361    0.177
+seman_go$fdl.Escolaridad  0.01969    0.02009   0.980    0.330
+seman_go$fdl.male        -0.22749    0.19717  -1.154    0.252
+Residual standard error: 0.8712 on 91 degrees of freedom
+Multiple R-squared:  0.05015,	Adjusted R-squared:  0.008399
+F-statistic: 1.201 on 4 and 91 DF,  p-value: 0.3158
+</code>
+{{ :neuroimagen:seman_fpc.png |}}
+**Nombres**
+<code R>
+names_go <- data.frame(fdl$PSubject,fdl$Edad, fdl$Escolaridad, fdl$male, fdl$DMN_FA, fdl$DMN_MD, fdl$FPCustom_FA, fdl$FPCustom_MD, fdl$LN_FA, fdl$LN_MD, fdl$SN_FA, fdl$SN_MD ,fdl$Boston_Clave_Fonetica_FAC, fdl$Boston_Clave_Semantica_FAC, fdl$Boston_Libre_FAC, fdl$Boston_Total_FAC, fdl$Piramides_Y_Palmeras_Palab_FAC, fdl$Piramides_Y_Plameras_Imag_FAC)
+names_go <- names_go[complete.cases(names_go),]
+nombres <- data.frame(names_go$fdl.Boston_Clave_Fonetica_FAC, names_go$fdl.Boston_Clave_Semantica_FAC, names_go$fdl.Boston_Libre_FAC, names_go$fdl.Boston_Total_FAC, names_go$fdl.Piramides_Y_Palmeras_Palab_FAC, names_go$fdl.Piramides_Y_Plameras_Imag_FAC)
+</code>
+**Algo va mal con este composite**

Detritus Wiki

User Tools

Site Tools

Differences

Page Tools