genecount: Count the number of non-zero
In Fang0828/SCMarker: What the package does (short line)

Count the number of non-zero value for a vector

1	genecount(k, data, index)

`k`	The kth row or column
`data`	A matrix
`index`	This must match one of "row" or "column" to extract the kth row or column vector

##---- Should be DIRECTLY executable !! ----
melanoma1=as.matrix(melanoma[,2:dim(melanoma)[2]])
row.names(melanoma1)=melanoma[,1]
genecount(k=6,data=melanoma1,index="row")

## The function is currently defined as
function (k, data, index) 
{
    if (index == "row") {
        x = data[k, ]
    }
    else {
        x = data[, k]
    }
    return(sum(x != 0))
  }