符号检验和置信区间R代码，可以直接使用，第一次发代码，还望谅解。