## Specify illumination correction image
illuCorrection = system.file( "extdata", "SampleFISHillu.jpg", package="FISHalyseR")
## Composite image containing available channels
combinedImage <- system.file( "extdata", "SampleFISH.jpg", package="FISHalyseR")
## Single FISH channels containing the probe signals
red_Og <- system.file( "extdata", "SampleFISH_R.jpg", package="FISHalyseR")
green_Gn <- system.file( "extdata", "SampleFISH_G.jpg", package="FISHalyseR")
## Output directory
writedir = paste(tempdir(),sep='')
## Use provided illumination correction image
bgCorrMethod = list(2,illuCorrection)
## Colour vector for three different probe channels (red, green and blue)
channelColours = list(R=c(255,0,0),G=c(0,255,0))
## Add probe channels to list
channelSignals = list(red_Og,green_Gn)
## Minimum and maximum area allowed for nuclei respectively probes
sizecell = c(1000,20000)
sizeprobe= c(5,20)
## Call processFISH with the specified parameters
processFISH(combinedImage,writedir,bgCorrMethod,channelSignals,
channelColours,sizecell,sizeprobe)
Run the code above in your browser using DataLab