R help - Jul 2005 - compare two lists with differents levels

Hi,
I would like to compare 2 lists resulted from a sql query! bu there are
different levels, so when I want to do:
 

release1<-sqlQuery(channel,paste("select distinct c.ID,c.Title TitleCrit
from category cat, category_criteria cc, criteria c, question_criteria qc,
question q, form_question fq, form f, release_form rf, release r,
product_release pr, product p where cat.ID=cc.category and cc.criteria=c.ID and
c.ID=qc.criteria and qc.question=q.ID and fq.question=q.ID and fq.form=f.ID and
f.ID=rf.form and rf.release=r.ID and r.ID=pr.release and pr.product=p.ID and
r.ID='",param1,"';",sep=""))

release2<-sqlQuery(channel,paste("select distinct c.ID,c.Title TitleCrit
from category cat, category_criteria cc, criteria c, question_criteria qc,
question q, form_question fq, form f, release_form rf, release r,
product_release pr, product p where cat.ID=cc.category and cc.criteria=c.ID and
c.ID=qc.criteria and qc.question=q.ID and fq.question=q.ID and fq.form=f.ID and
f.ID=rf.form and rf.release=r.ID and r.ID=pr.release and pr.product=p.ID and
r.ID='",param2,"';",sep=""))

data_NA<-matrix(data=0,nrow=length(release$Title),ncol=length(formv$TitleCrit),byrow=TRUE,
dimnames=list(as.factor(release$Title),paste(as.factor(formv$TitleCrit),"(",formv$first_letter,")",sep="")))

for (i in 1:length(formv$TitleCrit))
{
    for(k in 1: length(release1$TitleCrit))
    {
         if(formv$TitleCrit[i]==release1$TitleCrit[k])
         {
            data_NA[1,formv$TitleCrit[[i]]]<-1
         }
         else{data_NA[1,formv$TitleCrit[[i]]]<-NA}
   }
}

for (i in 1:length(formv$TitleCrit))
{
       for(k in 1: length(release2$TitleCrit))
       {
            if(formv$TitleCrit[i]==release2$TitleCrit[k])
            {
                data_NA[2,formv$TitleCrit[[i]]]<-1
            }
            else{data_NA[2,formv$TitleCrit[[i]]]<-NA}
       }
}

 

On R: Error in Ops.factor(formv$TitleCrit[i], release2$TitleCrit[k]) : level
sets of factors are different

How can I compare these 2 lists?

Thanks

 

SABINE

 


		
---------------------------------


	[[alternative HTML version deleted]]

Navarre Sabine wrote:


Make all factor objects to include *all* levels, I guess (since the huge 
exmple stuff below is not reproducible).

Uwe Ligges
> Hi,
> I would like to compare 2 lists resulted from a sql query! bu there are
different levels, so when I want to do:
>  
> 
> release1<-sqlQuery(channel,paste("select distinct c.ID,c.Title
TitleCrit from category cat, category_criteria cc, criteria c, question_criteria
qc, question q, form_question fq, form f, release_form rf, release r,
product_release pr, product p where cat.ID=cc.category and cc.criteria=c.ID and
c.ID=qc.criteria and qc.question=q.ID and fq.question=q.ID and fq.form=f.ID and
f.ID=rf.form and rf.release=r.ID and r.ID=pr.release and pr.product=p.ID and
r.ID='",param1,"';",sep=""))
> 
> release2<-sqlQuery(channel,paste("select distinct c.ID,c.Title
TitleCrit from category cat, category_criteria cc, criteria c, question_criteria
qc, question q, form_question fq, form f, release_form rf, release r,
product_release pr, product p where cat.ID=cc.category and cc.criteria=c.ID and
c.ID=qc.criteria and qc.question=q.ID and fq.question=q.ID and fq.form=f.ID and
f.ID=rf.form and rf.release=r.ID and r.ID=pr.release and pr.product=p.ID and
r.ID='",param2,"';",sep=""))
> 
>
data_NA<-matrix(data=0,nrow=length(release$Title),ncol=length(formv$TitleCrit),byrow=TRUE,
dimnames=list(as.factor(release$Title),paste(as.factor(formv$TitleCrit),"(",formv$first_letter,")",sep="")))
> 
> for (i in 1:length(formv$TitleCrit))
> {
>     for(k in 1: length(release1$TitleCrit))
>     {
>          if(formv$TitleCrit[i]==release1$TitleCrit[k])
>          {
>             data_NA[1,formv$TitleCrit[[i]]]<-1
>          }
>          else{data_NA[1,formv$TitleCrit[[i]]]<-NA}
>    }
> }
> 
> for (i in 1:length(formv$TitleCrit))
> {
>        for(k in 1: length(release2$TitleCrit))
>        {
>             if(formv$TitleCrit[i]==release2$TitleCrit[k])
>             {
>                 data_NA[2,formv$TitleCrit[[i]]]<-1
>             }
>             else{data_NA[2,formv$TitleCrit[[i]]]<-NA}
>        }
> }
> 
>  
> 
> On R: Error in Ops.factor(formv$TitleCrit[i], release2$TitleCrit[k]) :
level sets of factors are different
> 
> How can I compare these 2 lists?
> 
> Thanks
> 
>  
> 
> SABINE
> 
>  
> 
> 
> 		
> ---------------------------------
> 
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html