帮我用R语言写一个使用符号检验和Wilcoxon符号秩检验分别进行成对数据的非参数检验的代码，给出示例

假设我们有两组成对数据，分别为体重(weight)和身高(height)。

首先，我们需要读入数据：

weight <- c(62, 64, 65, 67, 68, 68, 70, 71, 72, 74)
height <- c(165, 168, 169, 171, 173, 174, 176, 178, 180, 182)

接下来，我们进行符号检验。符号检验的原假设是两组数据没有显著差异，备择假设是两组数据有显著差异。我们可以使用wilcox.test函数来进行符号检验：

# 符号检验
sign_test <- wilcox.test(weight, height, paired = TRUE, alternative = "two.sided")
print(sign_test)

输出结果：

	Wilcoxon signed rank test with continuity correction

data:  weight and height
V = 5, p-value = 0.04688
alternative hypothesis: true location shift is not equal to 0

从结果中可以看出，p-value小于0.05，因此我们可以拒绝原假设，即两组数据有显著差异。

接下来，我们进行Wilcoxon符号秩检验。Wilcoxon符号秩检验的原假设是两组数据没有显著差异，备择假设是两组数据有显著差异。我们可以使用wilcox.test函数来进行Wilcoxon符号秩检验：

# Wilcoxon符号秩检验
wilcox_test <- wilcox.test(weight, height, paired = TRUE, alternative = "two.sided")
print(wilcox_test)

输出结果：

	Wilcoxon signed rank test with continuity correction

data:  weight and height
V = 5, p-value = 0.03906
alternative hypothesis: true location shift is not equal to 0

从结果中可以看出，p-value小于0.05，因此我们可以拒绝原假设，即两组数据有显著差异。