##設(shè)置工作空間
#把“數(shù)據(jù)及程序” 文件夾復(fù)制到F盤下， 再用setwd設(shè)置工作空間
setwd（"F： /數(shù)據(jù)及程序/chapter4/示例程序"）
#數(shù)據(jù)讀取
inputfile=read.csv（'./data/electricity_data.csv'， he=T）
#構(gòu)造屬性
loss=100*（inputfile［， 1］ -inputfile［， 2］ ） /inputfile［， 1］ #數(shù)據(jù)第一列為供入電量， 第二列為供出
#保存結(jié)果
outputfile=data.frame（inputfile， '線損率（%） '=loss） #變量重命名， 存入數(shù)據(jù)