R/kou.R

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

kou <- function(light, colour, temp1, temp2, temp3)
{
  if(light == "LD")
  {
    if(colour == "B")
    {
      png(file = paste(light, "_", colour, "_",
                       temp1, "_", "kou", ".png", sep = ""),
          width = 1000, height = 400)
      COWorRAT(light)
      par(new = T)
      arrow(colour, temp1, temp2, temp3)
      dev.off()
    }
    else if(colour == "R")
    {
      png(file = paste(light, "_", colour, "_",
                       temp1, "_", "kou", ".png", sep = ""),
          width = 1000, height = 400)
      COWorRAT(light)
      par(new = T)
      arrow(colour, temp1, temp2, temp3)
      dev.off()
    }
    else if(colour == "BRB")
    {
      png(file = paste(light, "_", colour, "_",
                       temp1, temp2, temp3, "_",
                       "kou", ".png", sep = ""),
          width = 1000, height = 400)
      COWorRAT(light)
      par(new = T)
      arrow(colour, temp1, temp2, temp3)
      dev.off()
    }
    else if(colour == "RBR")
    {
      png(file = paste(light, "_", colour, "_",
                       temp1, temp2, temp3, "_",
                       "kou", ".png", sep = ""),
          width = 1000, height = 400)
      COWorRAT(light)
      par(new = T)
      arrow(colour, temp1, temp2, temp3)
      dev.off()
    }
    else
    {
      noquote("error colour argument")
    }
  }
  else if(light == "DD")
  {
    if(colour == "B")
    {
      png(file = paste(light, "_", colour, "_",
                       temp1, "_", "kou", ".png", sep = ""),
          width = 1000, height = 400)
      COWorRAT(light)
      par(new = T)
      arrow(colour, temp1, temp2, temp3)
      dev.off()
    }
    else if(colour == "R")
    {
      png(file = paste(light, "_", colour, "_",
                       temp1, "_", "kou", ".png", sep = ""),
          width = 1000, height = 400)
      COWorRAT(light)
      par(new = T)
      arrow(colour, temp1, temp2, temp3)
      dev.off()
    }
    else if(colour == "BRB")
    {
      png(file = paste(light, "_", colour, "_",
                       temp1, temp2, temp3, "_",
                       "kou", ".png", sep = ""),
          width = 1000, height = 400)
      COWorRAT(light)
      par(new = T)
      arrow(colour, temp1, temp2, temp3)
      dev.off()
    }
    else if(colour == "RBR")
    {
      png(file = paste(light, "_", colour, "_",
                       temp1, temp2, temp3, "_",
                       "kou", ".png", sep = ""),
          width = 1000, height = 400)
      COWorRAT(light)
      par(new = T)
      arrow(colour, temp1, temp2, temp3)
      dev.off()
    }
    else
    {
      noquote("error colour argument")
    }
  }
  else
  {
    noquote("error light argument")
  }
}