0

SPSS 形式 (.por) のファイルを読み込んで、R でクリーンアップしてから、クリーンな .csv ファイルとしてエクスポートしています。データの読み取り/消去/エクスポートに使用しているコードを保存して、データと一緒に保存することはできますか? つまり、後でデータファイルをロードして、それがどのように作成されたかを正確に思い出すことができるようにしたいと考えています。

4

2 に答える 2

3

コンソールからすべてやりたい場合は、次のハックがあります。

foo<-attributes(myfunc)$srcref
write.table(as.character(foo),'myfunc.txt')

編集: ポールの質問に答えるために、ここに私の 'toys' の 1 つからの出力があります。各行の要素 (引用符のペアごとに 1 つの要素) は、タブで区切られています。

"x"
"1" "function(x, numdig=3, na.rm=TRUE,printit=TRUE)"
"2" "{"
"3" "   x<-as.vector(x)"
"4" "   if (na.rm)   x <- x[!is.na(x)]"
"5" "   skewx<-theskew(x)"
"6" "   kurtosisx<-thekurt(x)"
"7" "   #allstats<-list(min=min(x), max=max(x), mean=mean(x), median=median(x),sdev=sd(x), skew=theskew(x), kurtosis=thekurt(x))"
"8" "   #looks nicer w/ dataframe rather than pure list"
"9" "   allstats<-data.frame(cbind(min=min(x), max=max(x), mean=mean(x), median=median(x),sdev=sd(x), skew=theskew(x), kurtosis=thekurt(x)),row.names='')"
"10" "  #too long for one line"
"11" "  if(printit)"
"12" "      {"
"13" "      print(format(allstats[1:4],digits=numdig))"
"14" "      print(format(allstats[5:7],digits=numdig))"
"15" "  }"
"16" "  return(invisible(allstats))"
"17" "  }"

そのテキストを関数コードに変換するためのコンソール ハックを見つけようとしたことはありませんが、単純なもの gsub('"','',textobject[,2])でうまくいくと思います。

于 2013-05-21T11:29:04.637 に答える