v0.6-2: Fix issues of CRAN check

Author: wulingyun

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: Corbi
-Version: 0.6-1
+Version: 0.6-2
 Title: Collection of Rudimentary Bioinformatics Tools
 Description: Provides a bundle of basic and fundamental bioinformatics tools,
     such as network querying and alignment, subnetwork extraction and search,

R/markrank.R

@@ -118,7 +118,7 @@ markrank <- function(dataset, label, adj_matrix, alpha=0.8, lambda=0.2, eps=1e-1
     dis <- NULL
   }
   if (trace) print("Computing discriminative potential network ...")
-  if (class(Given_NET2) == "NULL"){
+  if (inherits(Given_NET2, "NULL")) {
   	system.time(NET2 <- .markrank.compute_net2(dataset, label, dis, d, trace=trace))
   }
   degs <- rowSums(NET2)
@@ -129,7 +129,7 @@ markrank <- function(dataset, label, adj_matrix, alpha=0.8, lambda=0.2, eps=1e-1
   }
   A <- lambda*A1 + (1-lambda)*A2
 
-  if (class(E_value) == "NULL"){
+  if (inherits(E_value, "NULL")) {
 	  PCC <- NULL														
       for (i in 1:n){
         PCC[i] <- stats::cor(dataset[,i], label, method = "pearson")

R/net_query.R

@@ -187,7 +187,7 @@ net_query <- function(query.net, target.net, node.sim, query.type=4, delta.d=1e-
 decode_heuristic <- function(crf)
 {
 	result <- try(CRF::decode.junction(crf), TRUE)
-	if (class(result) == "try-error")
+	if (inherits(result, "try-error"))
 	{
 		result <- CRF::decode.lbp(crf)
 	}