R/shannon.R
In eritema/inseqDiv: Diversity analysis of Viral Insertion site in Gene Therapy
shannon<-function(x,base=2) {
shann<-numeric(ncol(x))
for(i in 1:dim(x)[2]) {
freq<-prop.table(t(x)[i,])
shann[i]<--sum(freq[freq>0]*log(freq[freq>0],base))
}
return(shann)
}
eritema/inseqDiv documentation built on May 16, 2019, 8:48 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
shannon<-function(x,base=2) {
shann<-numeric(ncol(x))
for(i in 1:dim(x)[2]) {
freq<-prop.table(t(x)[i,])
shann[i]<--sum(freq[freq>0]*log(freq[freq>0],base))
}
return(shann)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.