> path_set <- "H:/"
> path_groups <- "BPI_12416_ZHUXUEQING_A_static_uniprot-_pig_9823_proteingroups.txt"
> path_psms <- "BPI_12416_ZHUXUEQING_A_static_uniprot-_pig_9823_psms.txt"
> path_out <- "12416_ZHUXUEQING_A_static_uniprot-_pig_9823_proteingroups.csv"
> source("H:\\program_home\\p_value_2017-2-5.R")
> p_value_get(path_set,path_groups,path_psms,path_out)

p-value