tri<-trind_generator(3)
tri_mgcv<-mgcv::trind.generator(3)
for(i in 1:3){
print(i==trind(tri, part_deriv_var=c(i)-1)+1)
for(j in i:3){
print(tri_mgcv$i2[i,j]==trind(tri, part_deriv_var=c(i,j)-1)+1)
for(k in j:3){
print(tri_mgcv$i3[i,j,k]==trind(tri, part_deriv_var=c(i,j,k)-1)+1)
for(l in k:3){
print(tri_mgcv$i4[i,j,k,l]==trind(tri, part_deriv_var=c(i,j,k,l)-1)+1)
}
}
}
}
Run the code above in your browser using DataLab