创建运行多个函数的函数的最佳方法是什么

Question

在R中我试图创建一个只用一个命令输入就可以执行多个其他功能的函数。

我试过了

data_answer<-function(){
data<-read.csv("data.csv",stringsAsFactors=TRUE)
summary(data)
Cor(data[c("x","y","z","h")])
pairs(data[c("x","y","z","h")])
data_train<-data[1,1000]
data_test<-data[1001,1500]
data_model<-lm(h~x+y+z,data=data)
data_pred<-predict(data_model,data_test)
}

所有结果都是一个大的多重散点图窗口。 所以我的问题是： 如何编写运行所有上述命令的函数，并显示每个命令的结果并使用外部数据集作为参数。那么我就可以在R中输入data_answer("_____")，它将运行该数据帧上的所有函数。