Becker09 <-
structure(list(data = structure(list(`1` = structure(c(1, -0.55,
-0.48, 0.66, -0.55, 1, 0.47, -0.38, -0.48, 0.47, 1, -0.46, 0.66,
-0.38, -0.46, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `3` = structure(c(1,
0.53, -0.12, 0.03, 0.53, 1, 0.52, -0.48, -0.12, 0.52, 1, -0.4,
0.03, -0.48, -0.4, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `6` = structure(c(1,
0.44, 0.46, NA, 0.44, 1, 0.67, NA, 0.46, 0.67, 1, NA, NA, NA,
NA, NA), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `10` = structure(c(1,
-0.39, -0.17, 0.19, -0.39, 1, 0.21, -0.54, -0.17, 0.21, 1, -0.43,
0.19, -0.54, -0.43, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `17` = structure(c(1,
0.1, 0.31, -0.17, 0.1, 1, NA, NA, 0.31, NA, NA, NA, -0.17, NA,
NA, NA), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `22` = structure(c(1,
0.23, 0.08, 0.51, 0.23, 1, 0.45, -0.29, 0.08, 0.45, 1, -0.44,
0.51, -0.29, -0.44, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `26` = structure(c(1,
-0.52, -0.43, 0.16, -0.52, 1, 0.57, -0.18, -0.43, 0.57, 1, -0.26,
0.16, -0.18, -0.26, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `28` = structure(c(1,
0.14, 0.02, 0.13, 0.14, 1, 0.56, -0.53, 0.02, 0.56, 1, -0.27,
0.13, -0.53, -0.27, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `36` = structure(c(1,
-0.01, -0.16, 0.42, -0.01, 1, 0.62, -0.46, -0.16, 0.62, 1, -0.54,
0.42, -0.46, -0.54, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence"))), `38` = structure(c(1,
-0.27, -0.13, 0.15, -0.27, 1, 0.63, -0.68, -0.13, 0.63, 1, -0.71,
0.15, -0.68, -0.71, 1), .Dim = c(4L, 4L), .Dimnames = list(c("Performance",
"Cognitive", "Somatic", "Self_confidence"), c("Performance",
"Cognitive", "Somatic", "Self_confidence")))), .Names = c("1",
"3", "6", "10", "17", "22", "26", "28", "36", "38")), n = c(142,
37, 16, 14, 45, 100, 51, 128, 70, 30), Type_of_sport = c("Individual",
"Individual", "Team", "Individual", "Individual", "Individual",
"Team", "Team", "Team", "Individual")), .Names = c("data", "n",
"Type_of_sport"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.