Я хотел бы создать функцию, которая использует входную матрицу и помещает коды значимости (*; ; *) помимо значений в матрице.
значимость <-функция (x) {</p>
для (i в 1: ncol (x)) {
для (j в 1: nrow (x)) {
вставка (круг (x [j, i], цифры = 4)
if (x [j, i]> 2,58) {"***"}
иначе если (x [j, i]> 1,96 {"**"}
еще если (x [j, i]> 1,645 {"*"} {""}, sep = "")
else if (x [j, i]> 1.96) {"**"}
else if (x [j, i]> 1.645) {"*"}
иначе, если (x [j, i] <1.645) {""}, sep = "") </p>
}}}