## get tables
irefindex_curr_ecoli = get_irefindex("562", "13.0", tempdir())
## execute function
iRef_binary = select_interaction_type("binary", irefindex_curr_ecoli)
iRef_complex = select_interaction_type("complex", irefindex_curr_ecoli)
iRef_polymer = select_interaction_type("polymer", irefindex_curr_ecoli)
## get results
#pie_int_type = pie(c(dim(iRef_binary)[1], dim(iRef_polymer)[1], dim(
#iRef_complex)[1]), labels=c("Binaries","Polymers","Complexes"), main=
#"iRefIndex Records per Interaction Type")
#edit(iRef_complex[1:10,])
Run the code above in your browser using DataLab