Révision 21b8928f src/R/nucleominer.R

b/src/R/nucleominer.R
479 479
    })
480 480
    tmp_strain_maps = do.call("rbind", tmp_strain_map)
481 481
	}
482
  return(data.frame(tmp_strain_maps))
482
  return(data.frame(lapply(data.frame(tmp_strain_maps, stringsAsFactors=FALSE), unlist), stringsAsFactors=FALSE))
483 483
### Returns a dataframe of all clusters obtain from aggregate_intra_strain_nucs function.
484 484
}
485 485

  
......
801 801
    }
802 802
  })
803 803
  }
804
  non_inter_fuzzy = rec_substract_region(region1, region2)
804
  non_inter_fuzzy = rec_substract_region(region1[,1:4], region2[,1:4])
805 805
  if (is.null(non_inter_fuzzy)) {return(non_inter_fuzzy)}
806 806
  tmp_ulist = unlist(non_inter_fuzzy)
807 807
  tmp_names = names(tmp_ulist)[1:4]

Formats disponibles : Unified diff