Running examples in ‘MOJOV-Ex.R’ failed
The error most likely occurred in:

> ### Name: MOJOV.analysis
> ### Title: Analysis between rare variants and quantatitive traits using
> ###   CMC.
> ### Aliases: MOJOV.analysis
> 
> ### ** Examples
> 
>   file1<-system.file("data","geno.csv.gz",package="MOJOV")
>   file2<-system.file("data","phen.csv.gz",package="MOJOV")
>   x<-MOJOV.read(genofile=file1,phenofile=file2)
>   x<-MOJOV.phenotype(x=x)
>   x<-MOJOV.analysis(x=x)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
MOJOV
 --- call from context --- 
MOJOV.genoVector(x = tmp, y = adjustData, codeMethod = codeMethod, 
    weightMethod = weightMethod, ...)
 --- call from argument --- 
if (class(x) != "matrix") stop("The data x should be a matrix.")
 --- R stacktrace ---
where 1: MOJOV.genoVector(x = tmp, y = adjustData, codeMethod = codeMethod, 
    weightMethod = weightMethod, ...)
where 2: MOJOV.analysis(x = x)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (x = NULL, y = NULL, codeMethod = c("Proportion", "Indicator", 
    "ChuanhuaXin"), weightMethod = c("ChuanhuaXin")) 
{
    if (is.null(x) | is.null(y)) 
        stop("You need specify your data.")
    if (class(x) != "matrix") 
        stop("The data x should be a matrix.")
    if (length(y) != dim(x)[1]) 
        stop("The genotype matrix x is not conformable.")
    codeMethod <- match.arg(codeMethod)
    if (codeMethod == "ChuanhuaXin") {
        weight <- MOJOV.weight(x = x, y = y, weightMethod = weightMethod)
        X <- apply(x, 1, function(x) sum(x * weight))
    }
    if (codeMethod == "Proportion") {
        X <- apply(x, 1, sum)/(dim(x)[2] * 2)
    }
    if (codeMethod == "Indicator") {
        X <- apply(x, 1, sum)
        X <- unlist(lapply(X, function(x) ifelse(x > 0, 1, 0)))
    }
    return(X)
}
<bytecode: 0x8d37520>
<environment: namespace:MOJOV>
 --- function search by body ---
Function MOJOV.genoVector in namespace MOJOV has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(x) != "matrix") stop("The data x should be a matrix.") : 
  the condition has length > 1
Calls: MOJOV.analysis -> MOJOV.genoVector
Execution halted