data <- read.table(data.txt,sep = "t")
rois <- seq(1,90,by = 1)
for ( i in 1:length(rois) ) {
a <- data[,i]
b <- wavMODWT(a, wavelet = "s14", n.levels = 4)
data1.d1[i] <- b$data$d1
data1.d2[i] <- b$data$d2
data1.d3[i] <- b$data$d3
data1.d4[i] <- b$data$d4
}