Displaying 2 results from an estimated 2 matches for "golddata".
Did you mean:
olddata
2012 Aug 09
2
Olympics: 200m Men Final
...ginal by Markus Gesmann:
#
http://lamages.blogspot.pt/2012/07/london-olympics-and-prediction-for-100m.html
library(XML)
library(drc)
url <-
"http://www.databasesports.com/olympics/sport/sportevent.htm?sp=ATH&enum=120"
data <- readHTMLTable(readLines(url), which=3, header=TRUE)
golddata <- subset(data, Medal %in% "GOLD")
golddata$Year <- as.numeric(as.character(golddata$Year))
golddata$Result <- as.numeric(as.character(golddata$Result))
tail(golddata,10)
logistic <- drm(Result~Year, data=subset(golddata, Year>=1900), fct = L.4())
log.linear <- lm(log(Re...
2008 Jul 23
1
Time series reliability questions
...ation of dep. var. = 12.3617
Mean of innovations = 0.843443
Variance of innovations = 145.801
Log-likelihood = -2021.5668
Akaike information criterion (AIC) = 4051.13
Schwarz Bayesian criterion (BIC) = 4068.13
Hannan-Quinn criterion (HQC) = 4057.79
Finally, R:
gold.data <- cbind(ts(GoldData$Spot), lag(ts(GoldData$X),-1))
gold.2 <- arima(gold.data[,1], order = c(0,1,2),
xreg=gold.data[,2], method="ML")
Call:
arima(x = gold.data[, 1], order = c(0, 1, 2), xreg = gold.data[, 2], method =
"ML")
Coefficients:
ma1 ma2 gold.data[, 2]
0.019 -0...