[问题类型]:
[软件熟悉度]:
新手(没写过程式,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