# データの読み込み
FoodFA<-read.csv("Factors_FA0614.csv", skip=2,
header=TRUE, na.strings="NA")
dim(FoodFA)
## [1] 100 14
colnames(FoodFA)
## [1] "Obs" "X01" "X02" "X03" "X04" "X05" "X06"
## [8] "X07" "X08" "X09" "X10" "Factor1" "Factor2" "Factor3"
FoodFA[1:5,]
## Obs X01 X02 X03 X04 X05 X06 X07 X08 X09 X10 Factor1 Factor2
## 1 1 7.69 7.31 7.47 7.76 7.87 7.51 7.24 7.70 7.91 7.95 0.66956 1.82121
## 2 2 6.59 5.56 6.21 6.04 5.81 6.64 6.11 6.53 6.44 6.64 0.16626 -0.19916
## 3 3 4.55 4.18 4.36 4.25 4.53 4.60 3.66 4.04 3.68 4.43 -1.03468 -1.43973
## 4 4 6.78 6.11 6.30 5.98 5.56 6.37 6.29 5.43 5.32 5.28 0.63900 0.22553
## 5 5 6.47 6.24 6.02 5.42 5.88 6.00 5.60 4.60 5.40 5.95 0.18242 0.09152
## Factor3
## 1 1.58069
## 2 1.19252
## 3 -0.47173
## 4 -0.50004
## 5 -0.20811
