getWindEstimate {moveWindSpeed}

Estimate wind speed from a sample of ground speeds

Description

Estimate wind speed from a sample of ground speeds

Usage

getWindEstimate(groundSpeeds, phi, windStart = c(0, 0))

## S4 method for signature 'matrix,numeric'
getWindEstimate(groundSpeeds, phi, windStart = c(0, 0))

Arguments

groundSpeeds

matrix with two columns representing the ground speeds.

phi

numeric of length one giving the auto correlation.

windStart

numeric of length 2 giving the wind speed where to optimize from.

Value

an list with parameter estimates

Examples

s<-seq(0,2*pi, .1)
set.seed(34)
getWindEstimate(cbind(4*cos(s)+3+rnorm(length(s)), 4*sin(s)+2+rnorm(length(s))),0)
getWindEstimate(cbind(4*cos(s)+3+rnorm(length(s),sd=.2), 4*sin(s)+2+rnorm(length(s),sd=.2)),0)