gistfile1.diff

27,28c27,38
< write.csv(mydata.pca,file=paste("PCA-using-",dataset,".csv", sep=""))
< write.csv(mydata.pca$eig,file=paste("PCA-Eigenvalues-using",dataset,"-memberships.csv", sep=""))
---
> # Table 3 in the paper
> write.csv(round(mydata.pca$eig,digits=2),file=paste("PCA-Eigenvalues-using-",dataset1,"-memberships.csv", sep=""))
> 
> # Table 4 in the paper
> write.csv(round(mydata.pca$var$contrib,digits=2),file=paste("PCA-VarContrib-using-",dataset1,"-memberships.csv", sep=""))
> 
> # Table 5 in the paper
> write.csv(round(mydata2.pca$eig,digits=2),file=paste("PCA-Eigenvalues-using-",dataset2,"-memberships.csv", sep=""))
> 
> # Table 6 in the paper
> write.csv(round(mydata2.pca$var$contrib,digits=2),file=paste("PCA-VarContrib-using-",dataset2,"-memberships.csv", sep=""))
>