作者shingetsu (shingetsu)
看板R_Language
标题[问题] 如何在取data其中一部份算mean
时间Fri Mar 11 23:17:49 2016
[问题类型]:
[软体熟悉度]:
新手(没写过程式,R 是我的第一次)
[问题叙述]:
我想把data的资料分段算出平均数,例如 gsprice 第1笔到第50笔算出1个平均数,
第51笔到第100笔再取一个平均数
[程式范例]:
rm(list=ls()) #清除所有内容
library(TSA);library(tseries);library(FinTS);library(fGarch);library(dynlm)
datain <- read.table("C:\\R\\mydata.txt",header=TRUE)#读入文字档资料
attach(datain)
lsprice <- log(sprice)
lfprice <- log(fprice)
gsprice <- diff(lsprice)*100
gfprice <- diff(lfprice)*100
obsno <<- length(date)
datam <<-
matrix(cbind(date[-1],lsprice[-1],lfprice[-1],NFPI[-1],gsprice,gfprice),obsno-1,6)
colnames(datam) <- c("date","lsprice","lfprice","NFPI","gsprice","gfprice")
obs <<- length(datam[,1]) # obs is the sample size
y <<- matrix(0,obs,1)
y[,1]<- datam[,5]
[环境叙述]: win10 3.2.3
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.218.199.237
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1457709472.A.814.html
2F:→ shingetsu: 不好意思,我有看过这篇,但是还是不太懂 03/12 00:17
3F:→ celestialgod: library(zoo); ?rollapply看看吧 03/12 00:18
4F:→ shingetsu: 请问 as.Date(31:35)是什麽意思 03/12 00:53
5F:→ Wush978: split + sapply with mean? 03/12 11:22