1、下面以一个例子来说明R语言编写自定义函数的过程。语言如下：
myfun<-function(A,B){
data<-read.table(B)
plot(data&x,data&y,type="1")
title("A")
}
这是一个自定义函数，可以用于上个经验
2、具体如下：
layout(matrix(1:3,3,1))
myfun("title1","data1")
myfun("title2","data2")
myfun("title13","data3")
3、或者用sapply()来实现程序，具体如下：
layout(matrix(1:3,3,1))
names<-c("title1","title2","title3")
file<-c("data1.dat","data2.dat","data1.dat")
sapply(names,myfun,file)
