data(eegcoord)
mycols <- rep("white",87)
enames <- rownames(eegcoord)
mycols[enames=="A1"] <- "green"
mycols[enames=="A2"] <- "blue"
mycols[enames=="NZ"] <- "red"
eegcap(col.point = mycols)

data(eegcoord)
enames <- rownames(eegcoord)
plot(eegcoord[,4],eegcoord[,5],cex=2,col="green",pch=19)
text(eegcoord[,4],eegcoord[,5],labels=enames,col="blue")

library(rgl)
library(rglwidget)
library(knitr)
knit_hooks$set(webgl = hook_webgl)
data(eegdense)
plot(eegdense[,4],eegdense[,5],cex=1,col="green",pch=19)

open3d(windowRect=c(50,50,1000,1000))
plot3d(eegdense[,1],eegdense[,2],eegdense[,3],size=8,col="green")

library(eegUtils)
demo_epochs

plot_butterfly(demo_epochs,  lwd = 2, by = c("epoch", "recording", "epoch_label", "participant_id") )

topoplot(demo_epochs, 
         time_lim = c(.22, .25 ))

plot_tfr(compute_tfr(demo_epochs,
                     foi = c(4, 30),
                     n_freq = 20,
                     n_cycles = 3))

eeg_case <- eeg_filter(eeg_case,
                          method = "iir",
                          low_freq = .1,
                          high_freq = 40,
                          filter_order = 4)

plot_psd(eeg_case, 
         freq_range = c(0, 60),
         legend = FALSE)