Publications by Ken Wood

Practical Time Series Analysis - Week 1 Labs

Concatenation, Five-number summary, Standard Deviation Lab data.1 <- c(35,8,10,23,42) data.1 ## [1] 35 8 10 23 42 print(data.1) ## [1] 35 8 10 23 42 summary(data.1) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 8.0 10.0 23.0 23.6 35.0 42.0 sum(data.1)/5 ## [1] 23.6 sd(data.1) ## [1] 14.97665 Histogram small.size.dat...

106 sym R (830 sym/12 pcs) 2 img

Practical Time Series Analysis - Week 6 Labs

SARIMA simulation x=NULL z=NULL n=10000 z=rnorm(n) x[1:13]=1 for(i in 14:n){ x[i]<-z[i]+0.7*z[i-1]+0.6*z[i-12]+0.42*z[i-13] } par(mfrow=c(2,1)) plot.ts(x[12:120], main='The first 10 months of simulation SARIMA(0,0,1,0,0)_12', ylab='') acf(x, main='SARIMA(0,0,1,0,0,1)_12 Simulation') SARIMA code for J&J data set library(astsa) plot(jj, mai...

1341 sym R (16330 sym/54 pcs) 19 img

Practical Time Series Analysis - Week 5 Labs

‘Discoveries’ data set analysis plot(discoveries,main="Time Series of Number of Major Scientific Discoveries In A Year") stripchart(discoveries, method = "stack", offset=.5, at=.15,pch=19, main="Number of Discoveries Dotplot", xlab="Number of Major Scientific Discoveries in a Year", ylab="Frequency") par(mfcol = c(2,1 )) acf(discoveries, ma...

458 sym R (8451 sym/40 pcs) 14 img