[R] polychor error

[Janet]

Hi.

Does anyone know whether the following error is a result of a bug or  
a feature?
I can eliminate the error by making ML=F, but I would like to see the  
values of the cut-points and their variance.


tmp.vec<-c(0,  0,  0 , 0  ,0 , 1,  0,  2,  0 , 0,  5  ,5  ,3  ,1,   
0 , 1,  5, 10, 27, 20,  9,  0,  1,  1, 12, 29, 57, 34,  0,  0,  1,   
2, 11, 31, 32)
tmp.mat<-matrix(tmp.vec, nrow=7)
rownames(tmp.mat)<-1:7
colnames(tmp.mat)<-3:7
tmp.pcc<-polychor(tmp.mat, ML=T, std.err=T)
Error in checkmvArgs(lower = lower, upper = upper, mean = mean, corr  
= corr,  :
	at least one element of ‘lower’ is larger than ‘upper’

Thanks,

Janet