library(eegAnalysis)
#### Simulating EEG data
X<-randEEG(n.classes = 2, n.rec = 10, n.channels = 20, n.signals = 250,
vars = c(1, 2))
#### What do we have here?
names(X)
#### length of classes.Id and rec.Id are equal to the number of rows of data:
length(X$classes.Id)==nrow(X$data)
length(X$rec.Id)==nrow(X$data)
#### We have two classes:
unique(X$classes.Id)
#### We have 10 recordings for each class:
unique(X$rec.Id[which(X$classes.Id==1)])
unique(X$rec.Id[which(X$classes.Id==2)])
#### We have 20 channels:
ncol(X$data)
#### We have 250 signals for each class, recording and channel:
length(X$data[which(X$classes.Id==1 & X$rec.Id==1),1])
Run the code above in your browser using DataLab