input_file <- system.file("extdata","CE_RP_toydata.txt",package="GenRank")
CE_ranks <- ComputeCE(input_file,PC = "equal")
evid.weight <- c(1,1,0.8,0.8,0.5,1)
CE_ranks_cust <- ComputeCE(input_file,PC = "custom", cust.weights = evid.weight)
Run the code above in your browser using DataLab