Displaying 1 result from an estimated 1 matches for "getbsdata".
2013 Apr 04
5
Help for bootstrapping‏
...ubscript out of bounds" Please help!
library("quadprog")
##############################Preparing for datarawdata = read.table("C:/Desktop/data.txt", header=T)Rf = rawdata[,1]US = rawdata[,2]data = data.frame(Rf,US)OriData = as.matrix(data)
##############################the GetBSData functionGetBSData<-function(data){x = 1:396s = sample(x,6,replace=T)bsdata = data[(s[1]):(s[1]+59),] for (j in 2:6) { a = data[(s[j]):(s[j]+59),] bsdata = rbind(bsdata,a) }return(bsdata)}
#set.seed(1234)#trial<-GetBSData(OriData)
##############################the Minimisation functionOp...