x <- 2 + 2
x
## [1] 4
y <- 5 * 5
y
## [1] 25
myname <- "Joe"
myname
## [1] "Joe"
objects()
## [1] "myname" "x" "y"
ls()
## [1] "myname" "x" "y"
getwd() #確認
setwd("ディレクトリ名") #変更
save(x, y, myname, file = "ファイル名.RData") #x,y,mynameを保存
load("ファイル名.RData")
rm(x) #xを削除
rm(x, y) #x,y,mynameを削除
rm(list = objects()) #全て削除