jimmy <- function(a,b,m = 2){
  (a+b)^m
}
jimmy(a = 1,b = 2)

## [1] 9

jimmy(1,2)

## [1] 9

jimmy(3,6)

## [1] 81

jimmy(3,6,-2)

## [1] 0.01234568

#当一个代码需要复制粘贴三次，就应该写成函数或使用循环

jimmy <- function(i){
  plot(iris[,i],col=iris[,5])
}

jimmy(1)

jimmy(2)

jimmy(3)

jimmy(4)

# R包安装

options("repos"=c(CRAN="http://mirrors.tuna.tsinghua.edu.cn/CRAN/"))
options(BioC_mirror="http://mirrors.ustc.edu.cn/bioc/")

# install.packages("tidyr")
# install.packages('BiocManager')
# BiocManager::install("ggplot2")
# install.packages('devtools')
# devtools::install_github("jmzeng1314/idmap1") #括号里写作者用户名加包名

# 清华镜像
# http://mirrors.tuna.tsinghua.edu.cn/CRAN/
# http://mirrors.tuna.tsinghua.edu.cn/bioconductor/
  
# 中科大镜像
# http://mirrors.ustc.edu.cn/CRAN/
# http://mirrors.ustc.edu.cn/bioc/