ASTM D2216-10 - Preliminary Workflow

Script

BufferedReader getReader (String fileUrl, String encoding) throws IOException {
		InputStreamReader reader;
		try {
			if (encoding == null) {
				reader = new FileReader(fileUrl);
			} else {
				reader = new InputStreamReader(new FileInputStream(fileUrl),encoding); 
			}
		}
		catch (FileNotFoundException e) {
			// try a real URL instead
			URL url = new URL(fileUrl);
			if (encoding == null) {
				reader = new InputStreamReader (url.openStream());
			} else {
				reader = new InputStreamReader (url.openStream(), encoding);
			}
		}
		return new BufferedReader(reader);
	}



StringBuffer sb = new StringBuffer(4000);

if (encoding == void) {
	encoding = null;
}

BufferedReader in = getReader(fileurl, encoding);
String str;
String lineEnding = System.getProperty("line.separator");

while ((str = in.readLine()) != null) {
	sb.append(str);
	sb.append(lineEnding);
}
in.close();
filecontents = sb.toString();
  

Value

Script

specimenData<-read.table(file=data,head=TRUE,sep=",");
mw<-specimenData["ContMoistSpecMass"] - specimenData["FinalContDrySpecMass"];
colnames(mw)[1]<-"MassOfWaters";
ms<-specimenData["FinalContDrySpecMass"] - specimenData["ContMass"]; 
colnames(ms)[1]<-"MassOfSolids";
w<-(mw/ms)*100;
colnames(w)[1]<-"WaterContent";
totalData<-cbind(specimenData,mw,ms,w);
write.csv(totalData, file=results, row.names=TRUE)

R Server