if (interactive()) {
  energy.file <- system.file("exampleData", "pdnn-energy-parameter_hg-u95av2.txt", package="affypdnn")
  params.chiptype <- pdnn.params.chiptype(energy.file, probes.pack="hgu95av2probe")
}Run the code above in your browser using DataLab