R语言，请问怎么在数据框新增一列为前两列之比？

Question

将以下身高体重数据写入文本文件，然后读取数据至data数据框。（注意文本文件的格式）
身高体重数据
Weight：4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14
Height: 1.75, 1.8, 1.65, 1.9, 1.74, 1.91, 1.75, 1.8, 1.65, 1.9
data数据框新增一列bmi变量，计算weight和height的平方的比值存入bmi变量，然后将更新后的data数据框写入文件。

Answer 1

Weight<-c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14);
Height<-c(1.75, 1.8, 1.65, 1.9, 1.74, 1.91, 1.75, 1.8, 1.65, 1.9);
save1<-data.frame(Weight,Height);
//身高体重数据写入文本文件
write.csv(save1, file = "foo1.csv", sep = ",", col.names = TRUE);
//读取数据至data数据框

foo<-read.csv("foo1.csv", header=T, sep=",");
//data数据框新增一列bmi变量
data.frame(Weight,Height,BMI=Weight/Height);
//计算weight和height的平方的比值存入bmi变量
save2<-data.frame(save1,BMI=foo$1/foo$2);
//将更新后的data数据框写入文件。
write.csv(save2, file = "foo2.csv", sep = ",", col.names = TRUE);