xuefliang

大多数Oracle R Enterprise的方法和对象以ore为前缀 ，ore表明它存储了对应于Oracle 数据库的元数据。ore.frame为Oracle R Enterprise元数据对象，对应于数据库中的表。 ore.frame类似于R中的数据框。 ore.drop(table="IRIS_TABLE") iris$id <- 1:150 ore.create(iris,table="IRIS_TABLE") #加载R data frame到Database ore.create(data_frame, table="TABLE_NAME") #将R对象存储到数据库中作为一个临时对象，并返回用于处理的ore对象。 ore.push(data.frame) #测试是否在ORE schema中存在ore.frame对象。但必须先用 ore.sync()进行同步。 ore.exists() #删除数据库中的表v。 ore.drop(table="v") #将数据库中的NARROW表或视图创建为R中名为df_narrow数据框，需要注意数据框的大小，防止超过R的限制。 df_narrow <- ore.pull(NARROW) #数据库中的表没有定义行的数据，不能完全映射到R中的数据结构。可以在数据库中使用ORDER BY语句。 #row.names提供定义排序，但没有添加索引。可用在单列或多列上， row.names用在未排序的数据，产生错误。 #ORE object has no unique key - using random order #检索指定的ore.frame对象，代表数据库中的表或视图，在Oracle R Enterprise会话中提供schema。 IRIS_TABLE <- ore.get("IRIS_TABLE") #将一个无重复无缺失值的变量作为数据框的行名属性 row.names(IRIS_TABLE) <- IRIS_TABLE$id #查看结果 row.names(head(IRIS_TABLE)) #按照索引列出 IRIS_TABLE[c(1L,2L,

运行ore.groupApply(IRIS_TABLE, IRIS_TABLE$partition, function(y) {...}, parallel = TRUE) 提示 Error: role "RQADMIN" is required to perform this operation 解决 sqlplus c##RQUSER/rquser@pdborcl grant RQADMIN to c##rquser;

#查看所有的用户 select * from all_users; #给用户登录权限 grant connect to RQUSER; grant connect to RQSYS; #用户解锁 alter user RQSYS account unlock; #查看当前数据库是否为多租户数据库，v$database的cdb字段显示yes，表明当前数据库为一个CDB数据库： select name,cdb from v$database; #查看当前的CDB数据库中pdb的状态： Select name,con_id,open_mode from v$pdbs; 有mounted和redad wirte两种状态。PDB$SEED，类似于master数据库。 select pdb_id,pdb_name,dbid,status,creation_scn from dba_pdbs; #修改pdb数据库的状态为READ WRITE Alter pluggable database PDBORCL open; #查看当前连接的是cdb还是pdb select name,open_mode from v$database; #使用命令show con_name可以查看当前连接的是哪个数据库 show con_name; #切换cdb和pdb数据库 alter session set container=pdborcl; show con_name; alter session set container = cdb$root; #创建公用用户RQUSER, 需要使用C##或者c##作为该用户名的开头 #在Oracle 12C中，账号分为两种，一种是公用账号，一种是本地账号（亦可理解为私有账号）。共有账号是指在CDB下创建，并在全部PDB中生效的账号，另一种是在PDB中创建的账号。 create user c##RQUSER identified by rquser; grant dba to c##RQUSER container = all; 公用用户分别登录CDB、PDB看看是否通用 sqlplus c##RQUSER/rquser sqlplus c##RQUSER/rquser@pdbor

ORE连接出现 Error in if (timezone != "") try(.ore.dbGetQuery(sprintf("alter session set time_zone = '%s'", : missing value where TRUE/FALSE needed 解决办法： Sys.setenv(TZ = "EDT")

sudo vi /etc/hosts 添加 10.112.6.251  xuefliang

1、在sqlplus中执行（sqlplus / as sysdba） Select name,con_id,open_mode from v$pdbs; #修改  pluggable database status to READ WRITE. Alter pluggable database PDBORCL open; Select name,con_id,open_mode from v$pdbs; 2、下载ore-server-win-x86_64-1.4.1.zip和ore-supporting-win-x86_64-1.4.1.zip，解压后，将server、supporting和server.bat复制c:\Windows\system32下，以管理员身份运行server.bat --pdb PDBORCL --perm SYSAUX  --temp TEMP  --rqsys rqsys --user-perm SYSAUX  --user-temp TEMP  --pass rquser  --user RQUSER 3、R library(ORE) Sys.setenv(TZ = "EDT") ore.connect(user="system", service_name="PDBORCL", host="10.112.6.251", password="52332580", port=1521, all=F) ore.is.connected() ore.sync() ore.ls() ore.exists("MVIEW_FILTER") ore.get("MVIEW_FILTER") ore.disconnect() 参考：https://explorebigdataanalytics.wordpress.com/2014/12/16/setting-up-ore-1-4-1-with-oracle-12c-12-1-0-1-r-3-1-2-on-windows-machine/ https://docs.oracle.com/cd/E57012_01/doc.

1、安装 Oracle Instant Cilent sudo alien -i oracle-instantclient12.1-basic-12.1.0.2.0-1.x86_64.rpm sudo alien -i oracle-instantclient12.1-sqlplus-12.1.0.2.0-1.x86_64.rpm sudo alien -i oracle-instantclient12.1-devel-12.1.0.2.0-1.x86_64.rpm sudo alien -i oracle-instantclient12.1-odbc-12.1.0.2.0-1.x86_64.rpm 2、sudo gedit /etc/ld.so.conf.d/oracle.conf 添加  /usr/lib/oracle/12.1/client64/lib sudo ldconfig # 导致不能正常启动 # sudo gedit  /etc/profile.d/oracle.sh # 添加 export ORACLE_HOME= /usr/lib/oracle/12.1/client64 3、安装 unixodbc sudo apt-get install unixodc 检查64-bit unixodbc which isql file <the output above> 结果类似 ELF 64-bit LSB executable, x86-64, version 1 (SYSV), dynamically linked (uses shared libs), for GNU/Linux 2.6.24, BuildID 4、配置连接 sudo gedit /etc/odbc.ini 添加 [MYORACLEDSN] Application Attributes = T Attributes = W BatchAutocommitMode = IfAllSuccessful CloseCursor = F DisableDPM = F DisableMTS = T Driver = Oracle EXECSchemaOpt = EXECSyntax = T Failove

一、Linux mint 1、下载instantclient-basic-linux.x64-12.1.0.2.0.zip、instantclient-sdk-linux.x64-12.1.0.2.0.zip和instantclient-sqlplus-linux.x64-12.1.0.2.0.zip 2、 unzip instantclient-basic-linux.x64-12.1.0.2.0.zip unzip instantclient-sqlplus-linux.x64-12.1.0.2.0.zip unzip instantclient-sdk-linux.x64-12.1.0.2.0.zip ln -s libclntsh.so.12.1 libclntsh.so ln -s libocci.so.12.1 libocci.so export LD_LIBRARY_PATH=$(pwd) ./sqlplus  #测试 3、R CMD INSTALL --configure-args='--with-oci-inc=/home/xuefliang/instantclient_12_1/sdk/include --with-oci-lib=/home/xuefliang/instantclient_12_1/' /home/xuefliang/ROracle_1.2-1.tar.gz mkdir rdbms cd rdbms ln -s /home/xuefliang/Downloads/instantclient_12_1/sdk/include  public cd .. mkdir lib #复制 instantclient_12_1 下所有文件到 lib目录 cp ./* ./lib sudo vi /etc/ld.so.conf.d/oracle.conf && sudo chmod o+r /etc/ld.so.conf.d/oracle.conf add the oracle library path /usr/lib/oracle/12.1/client64/lib/ add the oracle library path /home/xu

一、windows 1、安装java 2、下载并解压 instantclient-basic-win32-11.2.0.1.0 3、 方式一 RODBC library(RODBC) #本地连接 channel <- odbcConnect("DSN_xuefliang",uid="system",pwd="52332580") tb_zyf <- sqlQuery(channel,'SELECT * FROM t') odbcClose(channel) #不需要设置ODBC dbconnection <- odbcDriverConnect("Driver=Oracle in OraDB12Home1;                                   Server=127.0.0.1; Database=orcl;                                   uid=system; pwd=52332580") #远程连接 #下载instantclient-odbc-windows.x64-12.1.0.2.0.zip #1、odbc配置TNS service name 10.112.0.6:1521/orcl channel <- odbcConnect("dsn",uid="gssvac",pwd="gssvac") tb_zyf <- sqlQuery(channel,'SELECT * FROM sys_log') odbcClose(channel) tb_zyf <- sqlQuery(dbconnection,'SELECT * FROM t') odbcClose(dbconnection) 方式二 RJDBC Sys.setenv(JAVA_HOME='C:\\Program Files\\Java\\jre1.8.0_66') library(RJDBC) #本地连接 drv <- JDBC(&q

1、sudo apt-get install libglib2.0-dev libdb-dev libgtk-3-dev gnome-common libibus-1.0-dev sqlite3 2、下载libpinyin-1.3.0.tar.gz( git clone https://github.com/libpinyin/libpinyin) ./autogen.sh make sudo make install 3、下载ibus-libpinyin-1.7.3( git clone https://github.com/libpinyin/ibus-libpinyin) ./autogen.sh make sudo make install 4、 sudo cp /usr/local/share/ibus/component/libpinyin.xml /usr/share/ibus/component/

启动Rstudio 后运行 Sys.setenv(http_proxy="http://127.0.0.1:1080") Sys.getenv("http_proxy") 成功 getwd()获得工作目录，在此工作目录下有.Renviron文件，修改文件内容为： http_proxy="http://127.0.0.1:1080" 在Rstudio启动后，可以用Sys.getenv("http_proxy")进行测试。 1、在VPS上安装OpenConnect server（参考http://www.fanyueciyuan.info/fq/ocserv-debian.html） 2、PC上安装Cisco AnyConnect Secure Mobility VPN（下载地址：http://helpdesk.ugent.be/vpn/en/asa.php） sudo apt-get install network-manager-openconnect sudo bash vpn_install.sh 3、使用144.168.56.190:999地址，用户名和密码进行连接。实现全局代理。  测试通过。

1、安装 sudo proxychains apt-get install privoxy 2、配置 privoxy sudo gedit /etc/privoxy/config。 编辑它增加一行： forward-socks5 / 127.0.0.1:1080 . forward-socks5代表转发到socks5代理，/代表所有的URL都转发(也可以在这里写url patten)，127.0.0.1:1080是socks代理的位置，最后的一点.代表没有http代理 privoxy 的监听端口号，默认是 8118，默认绑定的地址是 127.0.0.1（这个地址代表“当前系统”）。由于默认是绑定在 127.0.0.1 这个地址，所以只有当前系统的软件才可以连接到 Privoxy 的监听端口。 修改 privoxy 的监听端口和地址 在尾部增加如下一行 listen-address 0.0.0.0:8118 重启  sudo /etc/init.d/privoxy restart 3、使用：127.0.0.1:8118

ssh-keygen -t rsa -C "xuefliang@gmail.com" 按3个回车，密码为空。  添加 ～/.ssh id_rsa.pub中的内容

sudo apt-get install chromium chromium-l10n  #debian sudo apt-get install chromium-browser  #ubuntu  

sudo vim /etc/sudoers # # This file MUST be edited with the 'visudo' command as root. # # Please consider adding local content in /etc/sudoers.d/ instead of # directly modifying this file. # # See the man page for details on how to write a sudoers file. # Defaults env_reset Defaults mail_badpass Defaults secure_path="/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin" # Host alias specification # User alias specification # Cmnd alias specification # User privilege specification root ALL=(ALL:ALL) ALL xuefliang ALL=(ALL)  ALL # Members of the admin group may gain root privileges %admin ALL=(ALL) ALL xuefliang ALL=(ALL) NOPASSWD:ALL # Allow members of group sudo to execute any command %sudo ALL=(ALL:ALL) ALL xuefliang ALL=(ALL) NOPASSWD:ALL # See sudoers(5) for more information on "#include" directives: #includedir /etc/sudoers.d

wget http://c758482.r82.cf2.rackcdn.com/sublime-text_build-3083_amd64.deb # http://docs.sublimetext.info/en/latest/getting_started/install.html#ubuntu dpkg -i sudo dpkg -i /home/xuefliang/sublime-text_build-3083_amd64.deb Sublime Text 3.x —– BEGIN LICENSE —– Andrew Weber Single User License EA7E-855605 813A03DD 5E4AD9E6 6C0EEB94 BC99798F 942194A6 02396E98 E62C9979 4BB979FE 91424C9D A45400BF F6747D88 2FB88078 90F5CC94 1CDC92DC 8457107A F151657B 1D22E383 A997F016 42397640 33F41CFC E1D0AE85 A0BBD039 0E9C8D55 E1B89D5D 5CDB7036 E56DE1C0 EFCC0840 650CD3A6 B98FC99C 8FAC73EE D2B95564 DF450523 —— END LICENSE —— —– BEGIN LICENSE —– K-20 Single User License EA7E-940129 3A099EC1 C0B5C7C5 33EBF0CF BE82FE3B EAC2164A 4F8EC954 4E87F1E5 7E4E85D6 C5605DE6 DAB003B4 D60CA4D0 77CB1533 3C47F579 FB3E8476 EB3AA9A7 68C43CD9 8C60B563 80FE367D 8CAD14B3 54FB7A9F 4123FFC4 D63312BA 141AF702 F6BBA254 B094B9C0 FAA4B04C 06CC9AFC FD412671 82E3AEE0 0F0FAAA7 8FA773C9 383A9E18 —— END LICENSE —— —– BEGIN LICENSE —– J2T

sudo add-apt-repository ppa:webupd8team/tor-browser sudo apt-get update sudo apt-get install tor-browser

sudo apt-get install python-software-properties sudo apt-get install software-properties-common

修改 ssh 的配置文件 .ssh/config vim .ssh/config Host github.com ProxyCommand nc -X 5 -x 127.0.0.2:1080 %h %p 这样链接到  github.com  的 ssh 都会使用 socks5://127.0.0.2:1080 的代理，ssh 的配置可以参考  man ssh_config  ，nc 命令的使用可以参考  man nc

apt - get install dnsmasq dnsutils ufw vim /etc/dnsmasq.conf    增加 port = 5353 server=8.8.8.8   server=8.8.4.4 容许5353端口 ufw allow 5353   重启dnsmasq：   service dnsmasq start 或 /etc/init.d/dnsmasq restart   测试 vps  dig @127.0.0.1 -p 5353 www.youtube.com   dig @144.168.56.190 -p 5353 www.youtube.com          

sudo apt-get install lib32z1 libc6-i386 下载：http://download.teamviewer.com/download/teamviewer_amd64.deb sudo dpkg -i /home/xuefliang/Downloads/teamviewer_10.0.46203_amd64.deb

sudo add-apt-repository ppa:hzwhuang/ss-qt5 sudo apt-get update sudo apt-get install shadowsocks-qt5

sudo apt-get install python python-dev python-pip python-setuptools #Install Oracle Java JDK/JRE 8 sudo add-apt-repository ppa:webupd8team/java sudo apt-get update sudo apt-get install oracle-java8-installer java -version sudo apt-get install oracle-java8-set-default #Install PyCharm sudo apt-add-repository ppa:mystic-mirage/pycharm sudo apt-get update sudo apt-get install pycharm or sudo apt-get install pycharm-community 用户名：yueting3527 注册码： ===== LICENSE BEGIN ===== 93347-12042010 00001FMHemWIs"6wozMZnat3IgXKXJ 2!nV2I6kSO48hgGLa9JNgjQ5oKz1Us FFR8k"nGzJHzjQT6IBG!1fbQZn9!Vi ===== LICENSE END =====

city = readShapePoly("/home/xuefliang/RInMedicine/city/city_region.shp")  gpclibPermit()  #install.packages("gpclib", type = "source") tract <- fortify(city,region="CNTY_CODE") city@data$USE_CODE8 <- sample(1000,14) dots.rand <- dotsInPolys(city, as.integer(city@data$USE_CODE8)) #table(iconv(city$NAME, from = "GBK")) dots <- data.frame(coordinates(dots.rand)[,1:2]) ggplot(tract, aes(x = long, y = lat)) +   geom_polygon(aes(group = group), size=0.2, fill = "white") +   coord_equal()+geom_point(data=dots, aes(x=x,y=y), size=0.8,colour="red")

city = readShapePoly("/home/xuefliang/RInMedicine/city/city_region.shp")  gpclibPermit()  #install.packages("gpclib", type = "source") tract <- fortify(city,region="CNTY_CODE") gansu <- get_map(location = 'gansu', zoom = 5,maptype = 'roadmap') ggmap(gansu)+   geom_polygon(data = tract, aes(x = long, y = lat, group = group), colour = "black",fill='grey' ,alpha = 0.2) +   theme_nothing(legend = TRUE)+   coord_cartesian(xlim=c(90, 110), ylim=c(32, 43))

doInstall <- TRUE toInstall <- c("XML", "maps", "ggplot2", "sp","RCurl","httr","plyr") if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} lapply(toInstall, library, character.only = TRUE) myURL <- "https://en.wikipedia.org/wiki/United_States_presidential_election,_2012" tabs <- getURL(myURL) allTables <- readHTMLTable(tabs) #library(httr) #tabs <- GET(myURL) #allTables <- readHTMLTable(rawToChar(tabs$content), stringsAsFactors = F) #stateTable = readHTMLTable(readLines(myURL, encoding = "UTF-8"), which = 14, header = T) #str(allTables)  # Look at the allTables object to find the specific table we want stateTable <- allTables[[14]]  # We want the 14th table in the list (maybe 13th?) #head(stateTable) # Clean up: stateTable <- stateTable[2:(nrow(stateTable)-1), ]  # Drop summary lines stateTable <- rename(stateTable,c("V1&q

向量的内积（点积） sum(a*b) 或者 t(a)%*%b 向量的距离 安装 Rtreemix 包 source("http://bioconductor.org/biocLite.R") biocLite("Rtreemix") L1.dist 计算 L1 距离， cosin.dist 计算余弦距离， euclidian.dist 计算欧氏距离， rank.cor.dist 计算排名相关距离。向量必须有相同的长度。当使用 rank.cor.dist 向量必须有长度大于 4 L1.dist(p, q) cosin.dist(p, q) euclidian.dist(x, y) rank.cor.dist(x, y) 对称正交化 正交矩阵 orthogonal matrix： 正交矩阵P是一个方块矩阵，该矩阵的行和列皆为正交的单位向量。 正交矩阵满足下列性质：P^TP=PP^T=I和P^T=P^{-1} 对称矩阵 symmetric matrix：对称矩阵A是一个方块矩阵，其转置和自身等价，即 A^T=A 对角矩阵 diagonal matrix：主对角线之外的元素皆为0的矩阵，对角线上的元素可以为0，也可以不为0。 正交对角化： 矩阵被称为可正交对角化orthogonally diagonalizable，当且仅当一个正交矩阵P使得P^TAP=D, D是一个对角阵。 特征值 eigenvalue 和特征向量 eigenvectors:当方阵A与一个非零向量v相乘等于一个常数 乘以该向量时，v被称为A的特征向量， 被称为特征值,即Av= v。 AA <- matrix ( c ( 7 , 0 , 9 , 0 , 2 , 0 , 9 , 0 , 7 ) , ncol = 3 ) eigen.A <- eigen ( AA ) #get eigenvalues and eigen vectors lam <- eigen.A$values #特征值默认以降序排列 vecs <- eigen.A$vectors #特征向量对应于降序排列的特征值，如果想改变

men <- read.csv("/home/xuefliang/Downloads/men.csv",header = F) b <- grep("社区卫生服务中心",men$V1) length(b) a <- grepl("社区卫生服务中心",men$V1) #grep仅返回匹配项的下标，而grepl返回所有的查询结果，并用逻辑向量表示有没有找到匹配。windows csv文件ANSI编码需用记事本修改为UTF-8

sudo apt-get install mintlocale

sudo apt-get install language-pack-en-base sudo dpkg-reconfigure locales    错误提示 “ Unable to connect to service ”  adduser xuefliang #非root用户组   vi /etc/rstudio/rserver.conf www-port = 8787 rsession-which-r=/usr/bin/R 用rstudio-server verify-installation进行验证     locale::facet::_S_create_c_locale name not valid解决方案    export LC_ALL="C"  

library(combinat) permn(3) length(permn(3)) combn(1000, 2) dim(combn(1000,2))[2] 组合(Combinations)和排列( Permutation )计算公式为 perm = function(n, x) {   return(factorial(n) / factorial(n-x)) } comb = function(n, x) {   return(factorial(n) / (factorial(x) * factorial(n-x))) } 组合数：choose(n, k) 注意：从n个中选出k个 阶乘（k！）：factorial(k) 排列数：choose(n, k) * factorial(k)

library(rSymPy) sympy("limit(1/x, x, oo)") sympy("limit(1/x, x, 0)") sympy("limit(x*log(x), x, 0)")  sympy("limit(sin(x)/x*x, x, 0)") sympy("limit(exp(x)/x*x, x, 0)") sympy("limit(x**x, x, 0)") sympy("limit(x*exp(1)**-x, x, oo)")  ##**代表幂 sympy("limit((cos(x)-1)/x**2, x, 0)")

1.sudo apt-get install goldendict 2.播放语音 sudo apt-get install mplayer sudo apt-get install ubuntu-restricted-addons sudo apt-get install ubuntu-restricted-extras 3.批量解压离线词库 #! /bin/bash # run this script to install goldendict and off-line dictionaries # Only for Ubuntu # created by longbin <beangr@163.com> # 2014-03-28 function goldendict_essential_install(){     for file in ${FILE_LIST}     do         trap 'echo -e "\nInterrupted by user"; exit' INT         echo -e "\n======================================="         echo -e "Preparing to install ${file} ..."         echo -e "======================================="         echo -e "\tsudo apt-get install ${file}"         sudo apt-get install ${file}     done     RET_VAL=$(which goldendict)     if [[ "${RET_VAL}" == "" ]] ;then         echo "goldendict installed error."         exit     else         echo "

1.cp -r ~/R/x86_64-pc-linux-gnu-library/3.1/* ~/R/x86_64-pc-linux-gnu-library/3.2 # at the shell prompt 2.update.packages(checkBuilt=TRUE, ask=FALSE) #at the R prompt

求导通用法则 (u/v)'=(u'v-uv')/v ^2 (uv)'=u'v+uv' (cu)'=cu' (u+v)'=u'+v' dy/dt=dy/dx*dx/dt D_{n}x_{n}=n! 一元初等函数的导数计算公式  函数          原函数            导函数 常数函数      y=C               y'=0 幂函数        y=x^n             y'=n*x^(n-1) 指数函数      y=a^x             y'=a^x*ln(a)               y=exp(1)^x        y'=exp(1)^x 对数函数      y=log(x,base=a)   y'=1/(x*ln(a)) (a>0，且a!=1,x>0)               y=ln(x)           y'=1/x 正弦函数      y=sin(x)          y'=cos(x) 余弦函数      y=cos(x)          y'=-sin(x) 正切函数      y=tan(x)          y'=sec(x)^2=1/cos(x)^2 余切函数      y=cot(x)          y'=-csc(x)^2=1/sin(x)^2 正割函数      y=sec(x)          y'=sec(x)*tan(x) 余割函数      y=csc(x)          y'=-csc(x)*cot(x) 反正弦函数    y=arcsin(x)       y'=1/sqrt(1-x^2) 反余弦函数    y=arccos(x)       y'=-1/sqrt(1-x^2) 反正切函数    y=arctan(x)       y'=1/(1+x^2) 反余切函数    y=arccot(x)       y'=-1/(1+x^2) 反正割函数    y=arcsec(x)       y

1 建立R脚本文件  demo.r a<-1+1;a;matrix(rnorm(10),5); if(a>2) { b=c('11',832);"#a>2";} else print('a is invalid!!') x = "demo.r" tidy_source(x) 2 GUI 工具 formatR::tidy_app()

1 biOps安装 sudo apt-get install libfftw3-dev libtiff5-dev devtools::install_github("cran/biOps") 2 使用 library(biOps) # 读取本地的图像文件，观察到此图像是320*320像素的rgb图片 x <-  readJpeg("d:\\xccds.jpg") print(x) # 先尝试缩放操作，后面的参数是缩放的比例，可以采用四种方式进行插值，这里用的是最近邻法 plot(imgScale(x,1.3,1.3,interpolation='nearestneighbor')) #之后进行柔化降噪，此处采用的是中位数滤镜 plot(imgBlockMedianFilter(x,5)) # 也很方便进行图片裁剪，先设定好左上角的坐标像素，再设定好图片的宽度和高度即可 plot(imgCrop(x,1,1,320,200)) # 修改后的结果可以用writeJpeg函数存到本地磁盘中 y <- imgCrop(x,1,1,320,200) writeJpeg(filename='test.jpg',imgdata=y) # 另外还有一些有用的处理函数 # 图像聚类以进行颜色的压缩 plot(imgKMeans(x,8)) # 翻转图像 plot(imgHorizontalMirroring(x)) # 负片效果 plot(imgNegative(x)) # 转灰度效果 plot(imgRGB2Grey(x)) #图像背景色更换 y <- unclass(x) y1 <- y[,,1] y2 <- y[,,2] y3 <- y[,,3] #白色255 255 255 z <- y1>220&y2>220&y3>220 y1[z] <- 255  #r y2[z] <-0       #g y3[z]<- 0       #b # 修改后的矩阵再重新组合为图片格式 y <- imagedata(array(data=c

1 矩阵转置 A为m×n矩阵，求a'在R中可用函数t() >A <- matrix(c(2,1,1,2),nrow = 2) t>(A) 2 矩阵相加减 R中对同行同列矩阵相加减，可用符号：“＋”、“－”， 3 数与矩阵相乘 A为m×n矩阵，c>0，在R中求cA可用符号：“*” 4  矩阵相乘 A为m×n矩阵，B为n×k矩阵，在R中求AB可用符号：“％*％” > A=matrix(1:12,nrow=3,ncol=4) > B=matrix(1:12,nrow=4,ncol=3) > A%*%B 5 矩阵秩 >library(Matrix) >rankMatrix(A) 6 矩阵的特征值与特征向量 >eigen(A)  #A为方阵 7 矩阵求逆 矩阵求逆可用函数solve()，应用solve(a, b)运算结果是解线性方程组ax = b，若b缺省，则系统默认为单位矩阵，因此可用其进行矩阵求逆 > solve(a) 8 矩阵对角元素相关运算 取一个方阵的对角元素 >diag(A) 函数将产生以这个向量为对角元素的对角矩阵 >diag(diag(A)) 对一个正整数z应用diag()函数将产生以z维单位矩阵 >diag(3) 9 行列式的值 det(a)  行列式的值=方阵的特征值的乘积 A的迹（矩阵对角元素的和）= 方阵的特征值的和 prod<- function(b){   prod<- 1   for(i in 1:length(b)){     prod<- prod*b[i]   }   prod } prod(b$value)=det(a) sum(b$value)=sum(diag(a)) 10 对角阵 diag(eigen(a)$values) 例题  R解多元一次方程，方程如下 x+2y+2=7 2x-y+3z=7 3x+y+2z=18 R中求解如下 a <- matrix(c(1,2,3,2,-1,1,1,3,2),nrow = 3) b <- c(7,7,18) solve(a,b)

Step 1: Update Sources.List File - Edit the  sources.list  file sudo gedit /etc/apt/sources.list - Add following entry deb http://cran.rstudio.com/bin/linux/ubuntu utopic/ Step 2: Add the Public Keys gpg --keyserver keyserver.ubuntu.com --recv-key E084DAB9 gpg -a --export E084DAB9 | sudo apt-key add - Step 3: Install R-base sudo apt-get update sudo apt-get upgrade sudo apt-get install r-base build-essential gfortran libxml2-dev libcurl4-openssl-dev libfreetype6-dev libbz2-dev liblapack-dev  libpcre++-dev  r-base-dev  liblzma-dev r-cran-rcpp r-cran-rjava openjdk-7-jre wants <- c("knitr","rmarkdown","devtools","epicalc","mosaic","showtext","pander","PerformanceAnalytics","fitdistrplus","CircStats","MASS","mixtools","boot","TrialSize","vcd","ggplot2","pspearman","gvlma","car","

1.安装proxychains sudo apt-get install proxychains 2. 修改配置 sudo /etc/proxychains.conf [ProxyList] # add proxy here ... # meanwile # defaults set to "tor" socks5     127.0.0.1 1080 3.使用 sudo proxychains apt-get install ×××× sudo proxychains apt-get update