把测试脚本上传到$HOME目录下，本次示例中命名为test.R
# ============================
cat("==== Hello R ====\n")
print("Hello, R!")
# ----------------------------
# 基础计算
# ----------------------------
x <- 10
y <- 5
z <- x + y
cat("x + y =", z, "\n")
# ----------------------------
# 向量操作
# ----------------------------
v <- c(1, 2, 3, 4, 5)
v2 <- v * 2
cat("向量 v2 =", v2, "\n")
cat("v 的和 =", sum(v), "平均值 =", mean(v), "\n")
# ----------------------------
# 矩阵操作
# ----------------------------
m <- matrix(1:9, nrow=3, ncol=3)
cat("矩阵 m:\n")
print(m)
cat("矩阵 m 转置:\n")
print(t(m))
cat("矩阵 m 自乘:\n")
print(m %*% m)
# ----------------------------
# 数据框操作
# ----------------------------
df <- data.frame(
Name = c("Alice", "Bob", "Charlie"),
Age = c(25, 30, 28),
Score = c(90, 85, 88)
)
cat("数据框 df:\n")
print(df)
cat("Age > 26 的行:\n")
print(subset(df, Age > 26))
# ----------------------------
# 自定义函数
# ----------------------------
my_square <- function(x) {
return(x^2)
}
cat("5 的平方 =", my_square(5), "\n")
cat("==== R 测试完成 ====\n")
