数据输入与创建数据框
#C()系列的创建
scores <- c(61,66,90,88,100)
scores
#data.frame 创建数据框
points <- data.frame(
labels=c("Low","Mid","High"),
ubound = c(0.674,1.64,2.33),
lbound = c(0,0.6,1.64)
)
points
#edit data.frame--表格方式输入数据
score <- data.frame()
score <- edit(score)
#plot
#plot(cars)
#-------------
# scan() 输入数据(数字)
x <-scan()
x
digits小数位控制
pi
options(digits = 15)
print(pi,digits = 4) #4位数字
print(100*pi,digits = 4)
cat(pi,"\n")
cat(format(pi,digits = 4),"\n") #4位数字
pnorm(-3:3)
print(pnorm(-3:3),digits = 3)
输出到文件
#cat使用
cat("The answer is",answer,file = "filename",append = TRUE)
cat(data,file = "filename",append = TRUE)
#sink()使用
sink("filename") #屏幕输出被写入文件
# ...other session work...
#source("script.R")
sink() #停止写入文件,输出到屏幕
#文件列表,目录列表
list.files()
list.dirs()
#write 把数据写入文件
write(x,"filename")
write.csv(data,file = "filename",row.names = T)
读取数据
records <- read.fwf("",widths = c(w1,w2,w3,...,w)) #固定宽度的数据格式w-宽度
dfram <- read.table("data.txt",header=TRUE,sep = ":")
tbl <- read.csv("filename",header=FALSE)
tbl <- read.table("http://www.example.com/download/data.txt") #直接读取网络数据
save(mydata,file = "mydata.RData") # 存入
load("mydata.RData") # 读出