data(utahDataList)
attach(utahDataList)
low.miss <- which(apply(is.na(TemperatureVals), 2, mean)<.02)
out <- BSTFA(ymat=TemperatureVals[1:50,low.miss],
dates=Dates[1:50],
coords=Coords[low.miss,],
n.factors=2,
iters=10,
save.time=TRUE)
compute_summary(out)
Run the code above in your browser using DataLab