x=c(1,3,5,7,9)
max(x)
#這樣即可求得平均數(shù)為 ： 5

data = read.csv(“input.csv",sep=",",header=T)
rowMeans(data[10:17])

###################################################
# - Filename : washData.R
# - Author : Johan Version : 1.0 Date : 2018/5/3
# - Discription : 將excel表中的數(shù)據(jù)分10min計(jì)算平均值
#     并保存到excel
# - Function list : 
# 1.
# - Others : 
# 1.本程序可分析.xls或.csv文件
###################################################
# 引用包
library(RODBC)
# 設(shè)置工作目錄
setwd("H:/mySoftware/R/myData")
# 導(dǎo)入數(shù)據(jù)到myDataFrame，文件名根據(jù)需要改變
# 打開th_record2.xls，并讀取表Sheet1
channel <- odbcConnectExcel2007("th_record2.xls")
myDataFrame <- sqlFetch(channel, "Sheet1")
odbcClose(channel)
# 為myDataFrame增加列名
dataColName <- c("temp","humi","time","year","month","day","hour","minute","second")
names(myDataFrame) <- dataColName
# 初始化緩存向量
# 時分秒為起始量，可修改
NUM <- c()   # 編號
TEMP <- c()   # 溫度
HUMI <- c()   # 濕度
t <- 0    # 溫度緩存
h <- 0    # 濕度緩存
num <- 0    # 編號緩存
dn <- 0    # 計(jì)數(shù)器
flag <- FALSE  # 保存指示
# 循環(huán)處理數(shù)據(jù)
for(i in 1 : 31600){
 
 # 當(dāng)前分鐘是否為10的倍數(shù)
 if(myDataFrame$minute[i] %% 10 == 0){
 
 # 計(jì)算上一組數(shù)據(jù)的均值并保存
 if(flag){
  t <- t / dn
  h <- h / dn
  TEMP <- c(TEMP, t)
  HUMI <- c(HUMI, h)
  num <- num + 1
  NUM <- c(NUM, num)
  flag <- FALSE
 }
 
 # 緩存復(fù)位
 dn <- 0
 t <- 0
 h <- 0
 
 # 添加記錄
 t <- t + myDataFrame$temp[i]
 h <- h + myDataFrame$humi[i]
 dn <- dn + 1 
 }
 
 else{
 
 # 添加記錄
 t <- t + myDataFrame$temp[i]
 h <- h + myDataFrame$humi[i]
 dn <- dn + 1
 flag <- TRUE 
 }
}
# 構(gòu)建新數(shù)據(jù)框
newFrame <- data.frame(NUM, TEMP, HUMI)
newName <- c("number","temp","humi")
names(newFrame) <- newName
# 寫入.csv文件
write.csv(newFrame, "new_th_record.csv")
# 繪圖
plot(newFrame$number, newFrame$temp, pch=20, lty=3, col="red")
lines(newFrame$number, newFrame$humi, pch=20, lty=3, col="blue")

pdf("new_th_record.pdf")
plot(newFrame$number, newFrame$humi, pch=20, lty=3, col="blue")
lines(newFrame$number, newFrame$temp, pch=20, lty=3, col="red")
dev.off()