#test.vec<-rep(0,6)
#test.vec<-1:6
if(identical(all.equal(test.vec,rep(0,times=length(test.vec))), TRUE))
{
output<-"we have a zero vector";
print(output)
} else
{
output<-"nope, no zero vector here";
print(output)
}