common.R

#######################################################################################################################################################
####################################################################读入文件#######################################################################
#####################################################################################################################################################
rm(list=ls())
options(stringsAsFactors=F)
read.table("/home/shijian2015/human_meta_clusters.interval",sep="\t",header=F,fill=T,quote=NULL,stringsAsFactors=F) #记录转录因子结合位点以及TFClass
read.csv("/home/shijian2015/human_meta_clusters.csv",sep=",",header=T,fill=T)
scan("/home/shijian2015/human_meta_clusters.interval",what=character(0),sep="\n",quote=NULL)
#################################################################################################################################

#####################################################################################################################################
############################################################导出文件#################################################################
#####################################################################################################################################
write.table(TFBS.region,file="/pub6/temp/shijian/TFBS/TFBS.region.bed",sep="\t",quote=F,row.names=F,col.names=F)
write(data[1:5000],file="D:/R/data/shijian.txt")

###############################查询R包的语句################
library(help="rjson")

##调整绘图全局参数##
par(mai=c(bottom, left, top, right))