powered by
diffmat(x)
n=length(x)
x
x <- c(1,2,3,5,7,11,13,17,19) (A <- diffmat(x))
Run the code above in your browser using DataLab