R脚本函数不返回数据

我已经找了一段时间了，似乎找不到答案。我只是为一些统计数据创建了一个简单的函数，我从列表中提取并处理它，然后创建平均值等等。但是函数没有返回任何内容。没有产生错误，正在创建矩阵

资料来源：

library(matrixStats)
source("Control_Function.R")

mydata <- read.table("DataSmall.txt")
length <- nrow(mydata)
a<-length/11
#begining control limits

control(mydata)

库（matrixStats）
来源（“控制函数”R）
mydata如果您只想查看答案，则需要添加如下“打印”：

 control <- function(arg1){
  mat1 <-matrix(unlist(arg1),11,25)
  print(matAverage <-colMeans(mat1))
  print(matSdAv <- colSds(mat1))
  print(sbar <-mean(matSdAv))
  print(xbarbar<-mean(matAverage))
  newlist<-list(matAverage, matSdAv, sbar, xbarbar)
  return(newlist)

}

控制如何调用脚本？如果同时使用
源代码运行顶级脚本，则需要添加打印语句才能查看结果。
 control <- function(arg1){
  mat1 <-matrix(unlist(arg1),11,25)
  print(matAverage <-colMeans(mat1))
  print(matSdAv <- colSds(mat1))
  print(sbar <-mean(matSdAv))
  print(xbarbar<-mean(matAverage))
  newlist<-list(matAverage, matSdAv, sbar, xbarbar)
  return(newlist)

}

 control <- function(arg1){
  mat1 <-matrix(unlist(arg1),11,25)
  print(matAverage <-colMeans(mat1))
  print(matSdAv <- colSds(mat1))
  print(matSdAv)
  print(sbar <-mean(matSdAv))
  print(xbarbar<-mean(matAverage))
  newlist <<- list(matAverage, matSdAv, sbar, xbarbar)

}