非参数实验：中位数符号检验

如存在疏漏之处，恳请各位专家予以指正。

一、实验目标

1. 编制 R 语言程序实现中位数符号检验功能。

二、实验任务

1. 构建用于执行中位数符号检验的 R 语言函数。具体要求如下：

i）该函数应包含以下输入参数：待检验的样本数据向量、假设的中位数值 _me_0、设定的显著性水平以及备择假设的形式；

ii）若未明确指定，显著性水平将默认设置为 0.05；

iii）备择假设可选类型包括双边假设、单边左尾假设及单边右尾假设，对应的参数值分别为：alternative == “two.sided”；alternative == “less”；alternative == “greater”，其中双边假设为默认选项；

iv）该函数最终应返回一个结构化列表，其中包含检验统计量的实际观测值、对应的 p 值以及是否拒绝原假设的判断结果。

2. 完成相关练习内容：

在某一保险产品类别中，对 2006 年索赔金额（单位：元）进行随机抽样调查得到如下数据：

4632, 4728, 5052, 5064, 5484, 6972, 7696, 9048, 14760, 15013, 18730, 21240, 22836, 52788, 67200

已知在前一年即 2005 年时，该类保险产品的索赔金额中位数为 6064 元。

i）请明