ディレクトリの変更、ファイルの読込、データフレームの作成、ファイルの保存

> getwd()
[1] "C:/Users/USERNAME/Documents"

> setwd("C:/Users/USERNAME/Desktop/R_Folder")

> file.exists("sample.csv")
[1] TRUE

> file.show("sample.csv")

> dataset<-read.table(file="sample.csv",header=TRUE,sep=",")

> dataset
  x  y
1 1  1
2 2  4
3 3  9
4 4 16
5 5 25

> y2<-dataset[,2]*10

> y2
[1]  10  40  90 160 250

> x<-dataset$x

> dataset2<-data.frame(x,y2)

> dataset2
  x  y2
1 1  10
2 2  40
3 3  90
4 4 160
5 5 250

> file.show("sample2.csv")

> write.table(dataset2,file="sample2.csv",sep=",",quote=FALSE,row.names=FALSE)

> ncol(dataset2)
[1] 2

> nrow(dataset2)
[1] 5

> names(dataset2)
[1] "x"  "y2"
>