Nothing
#' min2maxD
#' negative Data conversion use reciprocal method
#' @param x The Data that needs to be maximized.
#' @param i Index column.
#'
#' @return Index column maximized
min2maxD<-function(x,i){
sampleData2<-x
i=i
sampleData3<-sampleData2[,c(1,i)]
sampleData3[,2][which(sampleData3[,2]==0)]<-0.0001
sampleData3$FZZH<-1/sampleData3[,2]
sampleData4<-sampleData3[,c(1,3)]
transDatacol<-sampleData4
names(transDatacol)[1] <- names(sampleData2[1])
names(transDatacol)[2] <- names(sampleData2[i])
return(transDatacol)
}
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.