#### edit() x.data<-edit(data.frame()) edit(data.frame(x.data)) #### #### read.table() # read.csv() # Data Managements DMTKR.read.table<-read.table("DMTKRblank.dat", header=TRUE, row.names=NULL, dec=".") DMTKR.read.table # Data Managements DMTKR.read.table.csv<-read.table("DMTKRcsv.csv", header=TRUE, row.names=NULL, sep=",", dec=".") DMTKR.table.csv # DMTKRread.csv<-read.csv("DMTKRcsv.csv", header = TRUE, sep = ",", dec=".") DMTKR.read.csv ######################## data() # 查看內建資料框架名稱 data(Orange) # 載入 {R} 內建資料框架 Orange help(Orange) Orange # library(MASS) help(package=MASS) data(package="MASS") # 查看 MASS 套件內建資料框架名稱 data(VA, package="MASS") # 載入 MASS 套件內建資料框架 VA help(VA) VA ################### DMTKRtable$age attach(DMTKRtable) age mean(age) names(DMTKRtable) # detach(DMTKRtable) age #################### write.table(Orange, file = "Orange.csv", sep = ",", col.names = NA) ?write.table library(MASS) ?write.matrix write.matrix(Orange, file = "OrangeMASS.csv", sep = ",")