Описательная статистика

Точность классификации

Данные по точности классификации при исследовании моторного воображения правой и левой ног при помощи ЭЭГ с различным количеством электродов

library (readxl)

## Warning: пакет 'readxl' был собран под R версии 4.2.3

bayovadata <- read_excel("bayovadata.xlsx")
summary(bayovadata)

##   electrodes           accuracy    
##  Length:24          Min.   :31.75  
##  Class :character   1st Qu.:34.96  
##  Mode  :character   Median :36.66  
##                     Mean   :37.83  
##                     3rd Qu.:40.00  
##                     Max.   :51.43

mean (bayovadata$accuracy)

## [1] 37.83125

sd (bayovadata$accuracy)

## [1] 4.356797

min (bayovadata$accuracy)

## [1] 31.75

max (bayovadata$accuracy)

## [1] 51.43

quantile (bayovadata$accuracy)

##     0%    25%    50%    75%   100% 
## 31.750 34.960 36.665 40.000 51.430

quantile (bayovadata$accuracy, probs = c(10, 90)/100)

##    10%    90% 
## 33.842 43.240

hist (bayovadata$accuracy, breaks = 20)

Пакет gtsummary был установлен (по крайней мере было написано об этом), но при library(gtsummary) его нет

Пакет tidyverse есть

library(tidyverse)

## Warning: пакет 'tidyverse' был собран под R версии 4.2.3

## Warning: пакет 'tibble' был собран под R версии 4.2.3

## Warning: пакет 'tidyr' был собран под R версии 4.2.3

## Warning: пакет 'purrr' был собран под R версии 4.2.3

## Warning: пакет 'dplyr' был собран под R версии 4.2.3

## Warning: пакет 'forcats' был собран под R версии 4.2.3

## Warning: пакет 'lubridate' был собран под R версии 4.2.3

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors

bayovadata %>% filter(electrodes == "32e")

## # A tibble: 6 × 2
##   electrodes accuracy
##   <chr>         <dbl>
## 1 32e            44.3
## 2 32e            40  
## 3 32e            39.0
## 4 32e            34.3
## 5 32e            40.5
## 6 32e            51.4

el32 <- subset (bayovadata, electrodes == '32e')
el6 <- subset (bayovadata, electrodes == '6e')
el12 <- subset (bayovadata, electrodes == '12e')
el12c <- subset (bayovadata, electrodes == '12ec')