#'@title Rescales the results between values from 0 to 1
#'@name reschedule
#'
#'@description Given the results the data is rescaled for values between 0 and 1, so that the length of the sequences does not influence the results. The rescaling of the mRNA and lncRNA are made separately
#'
#'@param matrix Array with results numerics
#'@param mRNA Integer number of mRNA sequences
#'@param lncRNA Integer number of lncRNA sequences
#'@param sncRNA Integer number of sncRNA sequences
#'
#'
#'@return Returns the array with the rescaled values
#'
#' @author Eric Augusto Ito
#'
#'
reschedule <- function(matrix, mRNA, lncRNA, sncRNA){
maxMin<-range(matrix[1:mRNA,],na.rm = TRUE)
max<-maxMin[2]
min<-maxMin[1]
for(x in 1:mRNA){
for(y in 1:length(matrix[1,])){
matrix[x,y]<-((matrix[x,y]-min)/(max-min))
}
}
maxMin<-range(matrix[(mRNA+1):(mRNA+lncRNA),],na.rm = TRUE)
max<-maxMin[2]
min<-maxMin[1]
for(x in (mRNA+1):(mRNA+lncRNA)){
for(y in 1:length(matrix[1,])){
matrix[x,y]<-((matrix[x,y]-min)/(max-min))
}
}
if(sncRNA!=0){
maxMin<-range(matrix[(mRNA+lncRNA+1):(mRNA+lncRNA+sncRNA),],na.rm = TRUE)
max<-maxMin[2]
min<-maxMin[1]
for(x in (mRNA+lncRNA+1):(mRNA+lncRNA+sncRNA)){
for(y in 1:length(matrix[1,])){
matrix[x,y]<-((matrix[x,y]-min)/(max-min))
}
}
}
return(matrix)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.