计算样本中位数，并导出结果至excel中，R语言代码

假设样本数据存储在向量`data`中，可以使用以下R语言代码计算样本中位数并将结果导出到Excel中：

# 导入必要的库
library(xlsx)

# 计算中位数
median_value <- median(data)

# 将中位数导出到Excel
write.xlsx(median_value, file = "median.xlsx", sheetName = "Sheet1", row.names = FALSE, col.names = FALSE)

其中，`xlsx`库提供了用于读写Excel文件的函数。`write.xlsx()`函数将中位数`median_value`导出到名为`median.xlsx`的Excel文件中的`Sheet1`工作表，并且不包含行名和列名。