Nothing
# Shift image intensities by given amount
#
# RIA_data_in RIA_image, matrix or array
# Return: RIA_image object croped to smallest bouding box, whith RIA_log updated.
# (c): Márton Kolossváry, 2018
shift_to <- function(RIA_data_in, to = -1024, min_value_in = NULL, use_orig = TRUE, write_orig = TRUE, verbose_in = TRUE)
{
data_in <- check_data_in(RIA_data_in, use_type = "single", use_orig = use_orig, verbose_in = verbose_in)
if (!is.null(min_value_in)) {shift <- (-min_value_in + to)
} else {shift <- to}
RIA_data_mod <- data_in + shift
if(any(class(RIA_data_in) == "RIA_image") )
{
if(write_orig) {RIA_data_in$data$orig <- RIA_data_mod
} else {RIA_data_in$data$modif<- RIA_data_mod}
if(!any(class(RIA_data_in$data) == "RIA_data")) class(RIA_data_in$data) <- append(class(RIA_data_in$data), "RIA_data")
RIA_data_in$log$shift <- shift
RIA_data_in$log$events <- append(RIA_data_in$log$events, paste("Shifted_by_", shift, sep = ""))
return(RIA_data_in)
}
else return(RIA_data_mod)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.