# Example data
xt <- c(640, 684, 713, 745, 809, 811, 883, 893, 904, 935, 1044, 1069)
yt <- c(50, 64, 93, 113, 131, 152, 164, 201, 224, 268, 286, 290)
zt <- c(550,504,493,413,431,352,364,301,294,268,286,230)
data <- cbind(xt, yt, zt)
# Apply the multigreyfit function
multigreyforecast(data, h=3)
Run the code above in your browser using DataLab