make id for chain in format sp|P30443|1A01_HUMANs25
makeID(sequence, id, sp)
sequence | - aa sequence as string |
---|---|
id | uniprot id id: sp|P30443|1A01_HUMAN |
sp | start position of chain numeric |
string consisting of id,"s",sp
seq <- "MAVMAPRTLLLLLSGALALTQTWAGSHSMRYFFTSVSRPGR\ GEPRFIAVGYVDDTQFVRFDSDAASQKMEPRAPWIEQEGPEYWDQETRN\ MKAHSQTDRANLGTLRGYYNQSEDGSHTIQIMYGCDVGPDGRFLRGYRQ\ DAYDGKDYIALNEDLRSWTAADMAAQITKRKWEAVHAAEQRRVYLEGRC\ VDGLRRYLENGKETLQRTDPPKTHMTHHPISDHEATLRCWALGFYPAEI\ TLTWQRDGEDQTQDTELVETRPAGDGTFQKWAAVVVPSGEEQRYTCHVQ\ HEGLPKPLTLRWELSSQPTIPIVGIIAGLVLLGAVITGAVVAAVMWRRK\ SSDRKGGSYTQAASSDSAQGSDVSLTACKV" nam <-"sp|P30443|1A01_HUMAN" sp <- 24 makeID(seq, nam, sp) #> [1] "sp|P30443|1A01_HUMANs24"