User Tools

Site Tools


neuroimagen:altdti_2020

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
Previous revision
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_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 <- 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 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) 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 F-statistic: 5.549 on 4 and 182 DF,  p-value: 0.0003086
 </code> </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**
neuroimagen/altdti_2020.1582021821.txt.gz ยท Last modified: 2020/08/04 10:47 (external edit)