Hola:
No he pillado como pasas de 1 a 2.
De 2 a 4 es muy fácil, si m es una matriz (o un data.frame) con los precios como en 2, puedes hacer:
m <- diag(5)
> m
[,1] [,2] [,3] [,4] [,5]
[1,] 1 0 0 0 0
[2,] 0 1 0 0 0
[3,] 0 0 1 0 0
[4,] 0 0 0 1 0
[5,] 0 0 0 0 1
> m[,-1] - m[,-ncol(m)]
[,1] [,2] [,3] [,4]
[1,] -1 0 0 0
[2,] 1 -1 0 0
[3,] 0 1 -1 0
[4,] 0 0 1 -1
[5,] 0 0 0 1
Sólo faltaría multiplicar el resultado por 10000.
Un saludo.