data-raw/correctISFreqsAll.R

In RGLab/BioCorpus: Biological Terms Corpus for Language Processing and Text Tidying

# word one on 2018-04-04 12:32:11
spellCheckRes <- function(x){
	x <- gsub(pattern = 'adalumimab', replacement = 'adalimumab', x, ignore.case = TRUE)
	x <- gsub(pattern = 'additon', replacement = 'addition', x, ignore.case = TRUE)
	x <- gsub(pattern = 'addtition', replacement = 'addition', x, ignore.case = TRUE)
	x <- gsub(pattern = 'aerosal', replacement = 'aerosol', x, ignore.case = TRUE)
	x <- gsub(pattern = 'alfacept', replacement = 'alefacept', x, ignore.case = TRUE)
	x <- gsub(pattern = 'anergy', replacement = 'energy', x, ignore.case = TRUE)
	x <- gsub(pattern = 'appropiated', replacement = 'appropriated', x, ignore.case = TRUE)
	x <- gsub(pattern = 'aquisition', replacement = 'acquisition', x, ignore.case = TRUE)
	x <- gsub(pattern = 'arthitis', replacement = 'arthritis', x, ignore.case = TRUE)
	x <- gsub(pattern = 'arthristis', replacement = 'arthritis', x, ignore.case = TRUE)
	x <- gsub(pattern = 'arthrits', replacement = 'arthritis', x, ignore.case = TRUE)
	x <- gsub(pattern = 'assessmentsp', replacement = 'assessments', x, ignore.case = TRUE)
	x <- gsub(pattern = 'autoimmue', replacement = 'autoimmune', x, ignore.case = TRUE)
	x <- gsub(pattern = 'bodys', replacement = 'bodies', x, ignore.case = TRUE)
	x <- gsub(pattern = 'celcius', replacement = 'celsius', x, ignore.case = TRUE)
	x <- gsub(pattern = 'celland', replacement = 'cell', x, ignore.case = TRUE)
	x <- gsub(pattern = 'characteriization', replacement = 'characterization', x, ignore.case = TRUE)
	x <- gsub(pattern = 'characterised', replacement = 'characterized', x, ignore.case = TRUE)
	x <- gsub(pattern = 'chemokins', replacement = 'chemokines', x, ignore.case = TRUE)
	x <- gsub(pattern = 'cholerae', replacement = 'cholera', x, ignore.case = TRUE)
	x <- gsub(pattern = 'chronicially', replacement = 'chronically', x, ignore.case = TRUE)
	x <- gsub(pattern = 'concurrrent', replacement = 'concurrent', x, ignore.case = TRUE)
	x <- gsub(pattern = 'contiue', replacement = 'continue', x, ignore.case = TRUE)
	x <- gsub(pattern = 'currrent', replacement = 'current', x, ignore.case = TRUE)
	x <- gsub(pattern = 'cyclosporin', replacement = 'cyclosporine', x, ignore.case = TRUE)
	x <- gsub(pattern = 'dentritic', replacement = 'dendritic', x, ignore.case = TRUE)
	x <- gsub(pattern = 'derimis', replacement = 'dermis', x, ignore.case = TRUE)
	x <- gsub(pattern = 'determing', replacement = 'determining', x, ignore.case = TRUE)
	x <- gsub(pattern = 'difficille', replacement = 'difficile', x, ignore.case = TRUE)
	x <- gsub(pattern = 'diifferent', replacement = 'different', x, ignore.case = TRUE)
	x <- gsub(pattern = 'dyspnea', replacement = 'dyspnoea', x, ignore.case = TRUE)
	x <- gsub(pattern = 'exibit', replacement = 'exhibit', x, ignore.case = TRUE)
	x <- gsub(pattern = 'expres', replacement = 'express', x, ignore.case = TRUE)
	x <- gsub(pattern = 'generalised', replacement = 'generalized', x, ignore.case = TRUE)
	x <- gsub(pattern = 'genotying', replacement = 'genotyping', x, ignore.case = TRUE)
	x <- gsub(pattern = 'genrally', replacement = 'generally', x, ignore.case = TRUE)
	x <- gsub(pattern = 'gerneration', replacement = 'generation', x, ignore.case = TRUE)
	x <- gsub(pattern = 'hemaglutinin', replacement = 'hemagglutinin', x, ignore.case = TRUE)
	x <- gsub(pattern = 'homeostatis', replacement = 'homeostasis', x, ignore.case = TRUE)
	x <- gsub(pattern = 'immunesuppressive', replacement = 'immunosuppressive', x, ignore.case = TRUE)
	x <- gsub(pattern = 'immunizaed', replacement = 'immunized', x, ignore.case = TRUE)
	x <- gsub(pattern = 'immuno', replacement = 'immune', x, ignore.case = TRUE)
	x <- gsub(pattern = 'immunocompromise', replacement = 'immunocompromised', x, ignore.case = TRUE)
	x <- gsub(pattern = 'immunodeficiancy', replacement = 'immunodeficiency', x, ignore.case = TRUE)
	x <- gsub(pattern = 'immunomodulary', replacement = 'immunomodulatory', x, ignore.case = TRUE)
	x <- gsub(pattern = 'immunosupporessive', replacement = 'immunosuppressive', x, ignore.case = TRUE)
	x <- gsub(pattern = 'indentify', replacement = 'identify', x, ignore.case = TRUE)
	x <- gsub(pattern = 'indivduals', replacement = 'individuals', x, ignore.case = TRUE)
	x <- gsub(pattern = 'indiviuals', replacement = 'individuals', x, ignore.case = TRUE)
	x <- gsub(pattern = 'infeciton', replacement = 'infection', x, ignore.case = TRUE)
	x <- gsub(pattern = 'influennza', replacement = 'influenza', x, ignore.case = TRUE)
	x <- gsub(pattern = 'influenzae', replacement = 'influenza', x, ignore.case = TRUE)
	x <- gsub(pattern = 'infuenza', replacement = 'influenza', x, ignore.case = TRUE)
	x <- gsub(pattern = 'inidividuals', replacement = 'individuals', x, ignore.case = TRUE)
	x <- gsub(pattern = 'intranazal', replacement = 'intranasal', x, ignore.case = TRUE)
	x <- gsub(pattern = 'iymphocytes', replacement = 'lymphocytes', x, ignore.case = TRUE)
	x <- gsub(pattern = 'lacental', replacement = 'placental', x, ignore.case = TRUE)
	x <- gsub(pattern = 'mainatined', replacement = 'maintained', x, ignore.case = TRUE)
	x <- gsub(pattern = 'maintanance', replacement = 'maintenance', x, ignore.case = TRUE)
	x <- gsub(pattern = 'mechnism', replacement = 'mechanism', x, ignore.case = TRUE)
	x <- gsub(pattern = 'medicaion', replacement = 'medication', x, ignore.case = TRUE)
	x <- gsub(pattern = 'metatastic', replacement = 'metastatic', x, ignore.case = TRUE)
	x <- gsub(pattern = 'migate', replacement = 'migrate', x, ignore.case = TRUE)
	x <- gsub(pattern = 'mucosae', replacement = 'mucosa', x, ignore.case = TRUE)
	x <- gsub(pattern = 'mulitple', replacement = 'multiple', x, ignore.case = TRUE)
	x <- gsub(pattern = 'nonresponsiveness', replacement = 'unresponsiveness', x, ignore.case = TRUE)
	x <- gsub(pattern = 'omilazumab', replacement = 'omalizumab', x, ignore.case = TRUE)
	x <- gsub(pattern = 'ontarget', replacement = 'target', x, ignore.case = TRUE)
	x <- gsub(pattern = 'periperal', replacement = 'peripheral', x, ignore.case = TRUE)
	x <- gsub(pattern = 'phenptype', replacement = 'phenotype', x, ignore.case = TRUE)
	x <- gsub(pattern = 'pneumoccocal', replacement = 'pneumococcal', x, ignore.case = TRUE)
	x <- gsub(pattern = 'pneunomax', replacement = 'pneumovax', x, ignore.case = TRUE)
	x <- gsub(pattern = 'populationu', replacement = 'population', x, ignore.case = TRUE)
	x <- gsub(pattern = 'pparticipants', replacement = 'participants', x, ignore.case = TRUE)
	x <- gsub(pattern = 'predicitive', replacement = 'predictive', x, ignore.case = TRUE)
	x <- gsub(pattern = 'predisone', replacement = 'prednisone', x, ignore.case = TRUE)
	x <- gsub(pattern = 'pretrem', replacement = 'preterm', x, ignore.case = TRUE)
	x <- gsub(pattern = 'prinicipal', replacement = 'principal', x, ignore.case = TRUE)
	x <- gsub(pattern = 'prolferative', replacement = 'proliferative', x, ignore.case = TRUE)
	x <- gsub(pattern = 'psoriais', replacement = 'psoriasis', x, ignore.case = TRUE)
	x <- gsub(pattern = 'psoritatic', replacement = 'psoriatic', x, ignore.case = TRUE)
	x <- gsub(pattern = 'reciepients', replacement = 'recipients', x, ignore.case = TRUE)
	x <- gsub(pattern = 'recipents', replacement = 'recipients', x, ignore.case = TRUE)
	x <- gsub(pattern = 'recombinaiton', replacement = 'recombination', x, ignore.case = TRUE)
	x <- gsub(pattern = 'recominant', replacement = 'recombinant', x, ignore.case = TRUE)
	x <- gsub(pattern = 'refernce', replacement = 'reference', x, ignore.case = TRUE)
	x <- gsub(pattern = 'regualtory', replacement = 'regulatory', x, ignore.case = TRUE)
	x <- gsub(pattern = 'reponse', replacement = 'response', x, ignore.case = TRUE)
	x <- gsub(pattern = 'repsonse', replacement = 'response', x, ignore.case = TRUE)
	x <- gsub(pattern = 'repsonses', replacement = 'responses', x, ignore.case = TRUE)
	x <- gsub(pattern = 'rheumatiod', replacement = 'rheumatoid', x, ignore.case = TRUE)
	x <- gsub(pattern = 'scleosis', replacement = 'sclerosis', x, ignore.case = TRUE)
	x <- gsub(pattern = 'sclereosis', replacement = 'sclerosis', x, ignore.case = TRUE)
	x <- gsub(pattern = 'seperated', replacement = 'separated', x, ignore.case = TRUE)
	x <- gsub(pattern = 'signalling', replacement = 'signaling', x, ignore.case = TRUE)
	x <- gsub(pattern = 'steriod', replacement = 'steroid', x, ignore.case = TRUE)
	x <- gsub(pattern = 'subejcts', replacement = 'subjects', x, ignore.case = TRUE)
	x <- gsub(pattern = 'succesful', replacement = 'successful', x, ignore.case = TRUE)
	x <- gsub(pattern = 'tranplant', replacement = 'transplant', x, ignore.case = TRUE)
	x <- gsub(pattern = 'tranplantation', replacement = 'transplantation', x, ignore.case = TRUE)
	x <- gsub(pattern = 'transplanation', replacement = 'transplantation', x, ignore.case = TRUE)
	x <- gsub(pattern = 'treatmed', replacement = 'treated', x, ignore.case = TRUE)
	x <- gsub(pattern = 'tumour', replacement = 'tumor', x, ignore.case = TRUE)
	x <- gsub(pattern = 'usteinumab', replacement = 'ustekinumab', x, ignore.case = TRUE)
}