utilEnv=new.env()
utilEnv$i4231=c(4L,2L,3L,1L)
utilEnv$d1._1._1.1=c(1, -1, -1, 1)
solve22 = function(x){x[,]=x[i4231]*d1._1._1.1; x/(x[4L]*x[1L]-x[2L]*x[3L])}
environment(solve22)=utilEnv
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.