R/thresholdPlot.R

In GoodFibes: Detection and Reconstruction of Muscle Fibers from diceCT Image Data

Defines functions thresholdPlot

Documented in thresholdPlot

thresholdPlot <-
function(images, n, threshold){
  slice<-load.image(images[[n]])
  slice[which(slice<threshold)]<-0
  plot(slice, rescale=FALSE)
  return(slice)
}

Try the GoodFibes package in your browser