シックパッケージの主機能からのデータ出力をデータフレームとして抽出

Question

次のコードのようにプリンシパル関数を使用すると、すべての標準化されたローディングを与える素敵なテーブルと、固有値と比率と累積比率が説明されています。

rotatedpca <- principal(PCFdataset, nfactors = 8, rotate = "varimax", scores = T) 

私は（WriteXLSを使用して）E​​xcelファイルにこの出力を輸出したいと思いますが、私はデータフレームのために、そしてrotatedpcaは、データフレームではないことだけを行うことができますし、それはそう1に強制することはできません。特に、固有値と割合、

loadings<-as.data.frame(unclass(rotatedpca$loadings)) 

しかし、私は単に主要関数を呼び出すときに通常表示されるその他の情報にアクセスする方法を見つけ出すことはできません：私は、次のコードを使用することによって標準化された負荷を抽出することができています累積分散が説明されています。私はrotatecpa $値を試しましたが、それは私が理解していない回転のない要素として12個の元の変数すべての固有値のように見えます。そして、私は分散を説明する値を抽出しようとする方法を見つけ出すことができませんでした。どのようにして、私は単純に、主な機能から下に出るR出力のようなデータフレームを作成できますか？

     RC2 RC3 RC8 RC1 RC4 RC5 RC6 RC7 
SS loadings   1.52 1.50 1.45 1.44 1.01 1.00 0.99 0.98 
Proportion Var  0.13 0.12 0.12 0.12 0.08 0.08 0.08 0.08 
Cumulative Var  0.13 0.25 0.37 0.49 0.58 0.66 0.74 0.82 
Proportion Explained 0.15 0.15 0.15 0.15 0.10 0.10 0.10 0.10 
Cumulative Proportion 0.15 0.31 0.45 0.60 0.70 0.80 0.90 1.00 

私の投稿を読んでくれてありがとう！

Answer 1

なぜ、この：

capture.output(print(rotatedpca), file="pc.txt") 

あなたは/データ]メニューの[オフそのText to Columns...機能を使用してExcelに所望の部分を読むことができます。または、開いている空のExcelドキュメントに貼り付けて、変換する行を選択することもできます。おそらく自動的に提供される "固定"オプションを使用してください。

Answer 2

私はこの機能をpsych 1.3.10.11の最新（今日）のリリースに追加しました。 ご提案やご質問を再サイケパッケージを持っている場合は、直接私に連絡する場合のいずれかの一般的

f3 <- fa(Thurstone,3) 
    #or 
    p3 <- principal(Thurstone,3) 
    #then 
    p <- print(f3) 
    p # will give you 
    p 
    $Vaccounted 
          MR1  MR2  MR3 
    SS loadings   2.6411150 1.8621522 1.4951831 
    Proportion Var  0.2934572 0.2069058 0.1661315 
    Cumulative Var  0.2934572 0.5003630 0.6664945 
    Proportion Explained 0.4402995 0.3104389 0.2492616 
    Proportion   0.4402995 0.7507384 1.0000000 

は、あなたがより速く答えを得るれます。

ビル