Description Usage Details Value Author(s) References See Also Examples
View source: R/Autoplotprotein.R
Keep all the information of the painted protein in a file
1 | data()
|
Save information, including protein mutation point information, domain information, option information, enlargement information, protein information, length information and site information
Data of various kinds of information
Xiaoyu Zhang
https://cran.r-project.org/doc/manuals/R-exts.html
codehelp
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function ()
{
library("ade4")
library("seqinr")
library("plotrix")
protein = read.table("Protein.txt", sep = "\t", stringsAsFactors = F)
domain = read.table("Domain.txt", sep = "\t", stringsAsFactors = F)
length = read.table("Length.txt", sep = "\t", stringsAsFactors = F)
site = read.table("Site.txt", sep = "\t", stringsAsFactors = F)
muta = read.table("Mutagenesis.txt", sep = "\t", stringsAsFactors = F)
option = read.table("Option.txt", sep = "\t", stringsAsFactors = F)
zoomin = read.table("ZoomIn.txt", sep = "\t", stringsAsFactors = F)
c <- merge(muta, domain, all = T, sort = FALSE)
c <- merge(c, option, all = T, sort = FALSE)
c <- merge(c, zoomin, all = T, sort = FALSE)
c <- merge(c, protein, all = T, sort = FALSE)
c <- merge(c, length, all = T, sort = FALSE)
c <- merge(c, site, all = T, sort = FALSE)
write.table(c, file = "data.txt", sep = "\t", quote = FALSE,
row.names = F, col.names = F)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.