> path_set <- "H:/"> path_groups <- "proteingroups.txt"> path_psms <- "psms.txt"> path_out <- "proteingroups.csv"> source("H:\\program_home\\p_value_2017-2-5.R")> p_value_get(path_set,path_groups,path_psms,path_out)