解决功能编织时出错。我该如何解决？

Question

我想进行HTML降价。 代码很不错，但是当我尝试编织它时却无法正常工作

我试图更改一些默认值。它不起作用。 而且我已经更新了R studio和Knitr，rmarkdown软件包。

d3 <- (as.matrix(data1[1,]- data1[2,])
       %*% solve(S)
       %*% t(as.matrix(data1[1,]-data1[2,])))
d3 <- sqrt(d3)
print(d3)

  

solve.default（S）中的错误：Lapack例程dgesv：系统完全正确   单数：U [2，2] = 0调用... withVisible-> eval-> eval   ->解决->解决。默认执行停止