Brain regions for Isppa values

Cortical

Subcortical

Boxplots

Isppa (brain)

Duty cycle

Pulse Repetition Frequency

Sonication duration

Summary statistics

Effect variable n mean sd
Disruption Isppa_brain 16 11.499 12.266
Disruption DC 16 16.719 17.159
Disruption PRF 16 462.188 490.554
Disruption SD 16 29.612 41.369
Enhancement Isppa_brain 21 5.034 4.949
Enhancement DC 21 29.952 23.252
Enhancement PRF 21 719.762 772.362
Enhancement SD 21 14.619 28.736

Correlation Matrix

Principal Component Analysis

Logistic Regression

# Run the model
# Note: Effect = Disruption vs. Enhancement
#       Type = Online vs. Offline

model <- glm(data = df_valuesLog,
             Effect ~ 1 + Isppa_brain  + DC + Type,
             family = "binomial")

summary(model)
## 
## Call:
## glm(formula = Effect ~ 1 + Isppa_brain + DC + Type, family = "binomial", 
##     data = df_valuesLog)
## 
## Coefficients:
##             Estimate Std. Error z value Pr(>|z|)  
## (Intercept) -0.09881    1.20076  -0.082   0.9344  
## Isppa_brain -0.48039    0.37704  -1.274   0.2026  
## DC           0.86027    0.40962   2.100   0.0357 *
## Type        -1.86617    1.02712  -1.817   0.0692 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 50.615  on 36  degrees of freedom
## Residual deviance: 39.422  on 33  degrees of freedom
## AIC: 47.422
## 
## Number of Fisher Scoring iterations: 4

Regression plots