| Title: | Calculate MeDiA_K Distance |
|---|---|
| Description: | Calculates MeDiA_K (means Mean Distance Association by K-nearest neighbor) in order to detect nonlinear associations. |
| Authors: | Zizhuo Ren, Hesen Peng, Tianwei Yu |
| Maintainer: | Zizhuo Ren<[email protected]> |
| License: | GPL |
| Version: | 1.0 |
| Built: | 2025-03-06 03:49:25 UTC |
| Source: | https://github.com/cran/MediaK |
This function is created to calculate p values about MeDiA_k
Media_pvalue(iTest,jTest,times,selectvec)Media_pvalue(iTest,jTest,times,selectvec)
iTest |
a numeric matrix |
jTest |
a numeric matrix which has the same rows as iTest |
selectvec |
an integer vector which contains a series of K values you want to get |
times |
an integer indicates permutation times |
Media_pvalue(iTest,jTest,times,selectvec) return a numeric vectors contains p values based on the selectvec(K value you want to select)
iTest <- matrix(rnorm(1000),100) jTest<- matrix(rnorm(200),100) times<- 100 selectvec <- c(1:10) Media_pvalue(iTest,jTest,times,selectvec)iTest <- matrix(rnorm(1000),100) jTest<- matrix(rnorm(200),100) times<- 100 selectvec <- c(1:10) Media_pvalue(iTest,jTest,times,selectvec)
These two functions are created to calculate different values about MeDiA_k
dis_value(iTest,jTest,select) permute(iTest,jTest,times,selectvec)dis_value(iTest,jTest,select) permute(iTest,jTest,times,selectvec)
iTest |
a numeric matrix |
jTest |
a numeric matrix which has the same rows as iTest |
select |
an integer which means get k values you want to get |
selectvec |
an integer vector which contains a series of K values you want to get |
times |
an integer indicates permutation times |
dis_val(iTest,jTest,select) returns a distance
permute(iTest,jTest,times,selectvec) return a list contains mean and sd values based on the selectvec(K value you want to select)
iTest <- matrix(rnorm(1000),100) jTest<- matrix(rnorm(200),100) select<- 5 times<- 100 selectvec <- c(1:10) dis_value(iTest,jTest,select) permute(iTest,jTest,times,selectvec)iTest <- matrix(rnorm(1000),100) jTest<- matrix(rnorm(200),100) select<- 5 times<- 100 selectvec <- c(1:10) dis_value(iTest,jTest,select) permute(iTest,jTest,times,selectvec)