<pre>body=read.table("BODY_FAT.txt") d=as.numeric(as.character((body$V1))) bfp<-(495/d)-450 bfp realBFP=round(bfp,digits=1) realBFP[realBFP<0]<-0 realBFP[realBFP>100]<-100 data.frame(body$V2,realBFP) b=as.numeric(as.character(body$V2)) w=as.numeric(as.character((body$V4))) h=as.numeric(as.character(body$V5)) a=as.numeric(as.character(body$V8)) body[,b,w,h,a] body
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)