R/Doubleplot1.R

In Killua-github/Killua01: This package is for the advanced analysis of DAM detas.

Doubleplot1 <- function()
{
  library(flysleep)
  Marray <- importMarray2()
  barplotall(Marray)
  Ddoubleplotall(Marray)
  sleep <- act2sleep(Marray)
  stat <- DDAMstat(Marray, sleep)
  write.table(stat, "stat.txt", col.names = FALSE, row.names = TRUE,
              sep = "\t", quote = FALSE)
  return(Marray)
}