# NOT RUN {
image=readFITS(system.file("extdata", 'VIKING/mystery_VIKING_Z.fits', package="ProFound"))
profound=profoundProFound(image, magzero=30, plot=TRUE)
#Now we remove the brightest central source:
profound$segim[profound$segim==1]=0
#And now we find it again:
segim_extend=profoundSegimExtend(image=image, segim=profound$segim, skycut=2)
profoundSegimPlot(image=image$imDat, segim=segim_extend)
# }
Run the code above in your browser using DataLab