摘要:
1.以下几条代码解决编码问题import sysreload(sys)sys.setdefaultencoding('utf-8')2.图片上传问题需要开通sina的Storage服务,随便建个什么Domain,注意HTML代码,那个enctype属性一定要写,两个上传图片的控件叫avatar和ph... 阅读全文
摘要:
library('foreign')library('ggplot2')data.dir6的是无效,1~3是赞成,4~6是反对票no.pres[,i]6,0,no.pres[,i])no.pres[,i]0&no.pres[,i]1,-1,no.pres[,i])}return(as.matrix(... 阅读全文
摘要:
library('ggplot2')pricesymd('2001-12-31'))dji.prices<-subset(dji.prices,Date!=ymd('2002-02-01'))#道琼斯数据集中数据好多,只拿收盘价和日期来看一下dji<-with(dji.prices,rev(Clos... 阅读全文
摘要:
#凯撒密码:将每一个字母替换为字母表中下一位字母,比如a变成b。english.letterslp1){return(proposed.cipher)}else{#如果旧的比较好,a<-exp(lp2-lp1)#x是均匀分布的0~1间随机数x<-runif(1) if(x<a){return(pro... 阅读全文
摘要:
1.提高程序效率,保证执行速度(1)尽量使用向量化运算(2)尽量使用矩阵,必要时才使用数据框(3)使用read.table时,尽量显式设定colClasses和nrows,设定comment.char="",把不需要的列设置为NULL(4)将外部数据导入矩阵时,使用scan函数(5)删除临时对象和不... 阅读全文
摘要:
1.read.table:可以读TXT也可以读CSV(1)file:文件名(2)header:是否包含表头(3)sep:分隔符,如果不设定默认是空格(4)dec:标志小数点符号,有些国家的小数点是逗号(5)quote:字符串中间如果有引号的处理(6)row.names:行名,行名不能重复。row.n... 阅读全文
摘要:
.Machine$double.eps 阅读全文
摘要:
library(randomForest)model.forest<-randomForest(Species~.,data=iris)pre.forest<-predict(model.forest,iris)table(pre.forest,iris$Species)library(rpart)... 阅读全文