dataseta <- array(c(
1.0000, 0.6375, 0.6000, 0.3417, 0.3670, 0.3626, 0.1566, 0.2083, 0.1701,
0.6375, 1.0000, 0.6375, 0.3604, 0.3454, 0.4277, 0.2106, 0.1697, 0.1945,
0.6000, 0.6375, 1.0000, 0.3819, 0.3303, 0.3817, 0.1762, 0.1325, 0.1521,
0.3417, 0.3604, 0.3819, 1.0000, 0.4979, 0.5179, 0.4072, 0.3596, 0.3887,
0.3670, 0.3454, 0.3303, 0.4979, 1.0000, 0.5674, 0.4364, 0.3908, 0.4105,
0.3626, 0.4277, 0.3817, 0.5179, 0.5674, 1.0000, 0.3699, 0.4390, 0.4039,
0.1566, 0.2106, 0.1762, 0.4072, 0.4364, 0.3699, 1.0000, 0.6504, 0.5388,
0.2083, 0.1697, 0.1325, 0.3596, 0.3908, 0.4390, 0.6504, 1.0000, 0.6106,
0.1701, 0.1945, 0.1521, 0.3887, 0.4105, 0.4039, 0.5388, 0.6016, 1.0000
),dim=c(9,9))
colnames(dataseta) <- rownames(dataseta) <- c("Abil1",
  "Abil2", "Abil3", "Moti1", "Moti2", "Moti3", "Aspi1", "Aspi2", "Aspi3")
dataset<-data.frame(dataseta)
n.obs<-250