R/get.ahat.R

In ADTSA: Time Series Analysis

Defines functions get.ahat

Documented in get.ahat

get.ahat <- function(x){
	x = na.omit(x)
	x = as.vector(x)
	x.c = mean(x,na.rm = TRUE)- x
	x3 =t(x.c)%*%(x.c^2)
	sd.x = sqrt(t(x.c)%*%x.c)
	a = x3/6/(sd.x^3)
	return(a)
}

Try the ADTSA package in your browser