R 一起保存数据、编码?
我正在读取SPSS格式(.por)的文件,在R中清理它,然后导出为干净的.csv文件。是否可以保存我用于读取/清理/导出数据的代码以将其与数据一起保存?换句话说,我希望能够在以后加载数据文件,并能够准确地回忆它是如何创建的。只需保存一组文件,一个带有R代码的R 一起保存数据、编码?,r,R,我正在读取SPSS格式(.por)的文件,在R中清理它,然后导出为干净的.csv文件。是否可以保存我用于读取/清理/导出数据的代码以将其与数据一起保存?换句话说,我希望能够在以后加载数据文件,并能够准确地回忆它是如何创建的。只需保存一组文件,一个带有R代码的.R文件,一个带有SPSS数据的por文件,以及一个带有数据的csv文件,所有文件都以相同的名称开头: spam.R spam.por spam.csv 要传输它们,您可以将这些文件压缩成spam.zip 或者,您可以在数据上方添加R代码作
.R
文件,一个带有SPSS数据的por
文件,以及一个带有数据的csv
文件,所有文件都以相同的名称开头:
spam.R
spam.por
spam.csv
要传输它们,您可以将这些文件压缩成spam.zip
或者,您可以在数据上方添加R代码作为注释:
# here R code
# Some more code
here the csv data
read.table
将自动跳过这些行,因为它们以#
开头(标准注释字符read.csv
)。如果您想从控制台完成所有操作,这里有一个技巧:
foo<-attributes(myfunc)$srcref
write.table(as.character(foo),'myfunc.txt')
fooHi Carl。。。我不确定我是否明白这里发生了什么。请您详细说明一下好吗?@user702432-我正在使用属性
检索任何闭包、aka函数、对象中“包含”的一些信息。在本例中,属性“srcref”包含函数的源代码。欢迎使用面向对象编程!:-)保罗,这很整洁。谢谢。退房:)
"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" " }"