摘要：
1.以下几条代码解决编码问题import sysreload(sys)sys.setdefaultencoding('utf-8')2.图片上传问题需要开通sina的Storage服务,随便建个什么Domain,注意HTML代码,那个enctype属性一定要写,两个上传图片的控件叫avatar和ph... 阅读全文
posted @ 2015-11-13 18:36
地表最强队队员
阅读(411)
评论(0)
推荐(0)
摘要：
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(... 阅读全文
posted @ 2015-11-08 19:55
地表最强队队员
阅读(414)
评论(0)
推荐(0)
摘要：
library('ggplot2')pricesymd('2001-12-31'))dji.prices<-subset(dji.prices,Date!=ymd('2002-02-01'))#道琼斯数据集中数据好多,只拿收盘价和日期来看一下dji<-with(dji.prices,rev(Clos... 阅读全文
posted @ 2015-11-08 19:04
地表最强队队员
阅读(1142)
评论(0)
推荐(0)
摘要：
#凯撒密码：将每一个字母替换为字母表中下一位字母，比如a变成b。english.letterslp1){return(proposed.cipher)}else{#如果旧的比较好,a<-exp(lp2-lp1)#x是均匀分布的0~1间随机数x<-runif(1) if(x<a){return(pro... 阅读全文
posted @ 2015-11-08 16:52
地表最强队队员
阅读(336)
评论(1)
推荐(0)
摘要：
1.提高程序效率，保证执行速度(1)尽量使用向量化运算(2)尽量使用矩阵，必要时才使用数据框(3)使用read.table时，尽量显式设定colClasses和nrows，设定comment.char=""，把不需要的列设置为NULL(4)将外部数据导入矩阵时，使用scan函数(5)删除临时对象和不... 阅读全文
posted @ 2015-11-04 14:17
地表最强队队员
阅读(2386)
评论(0)
推荐(0)
摘要：
1.read.table：可以读TXT也可以读CSV(1)file：文件名(2)header：是否包含表头(3)sep：分隔符，如果不设定默认是空格(4)dec：标志小数点符号，有些国家的小数点是逗号(5)quote：字符串中间如果有引号的处理(6)row.names：行名，行名不能重复。row.n... 阅读全文
posted @ 2015-11-04 13:59
地表最强队队员
阅读(5671)
评论(1)
推荐(0)
摘要：
.Machine$double.eps 阅读全文
posted @ 2015-11-01 15:41
地表最强队队员
阅读(890)
评论(0)
推荐(0)
摘要：
library(randomForest)model.forest<-randomForest(Species~.,data=iris)pre.forest<-predict(model.forest,iris)table(pre.forest,iris$Species)library(rpart)... 阅读全文
posted @ 2015-11-01 14:03
地表最强队队员
阅读(3280)
评论(0)
推荐(0)
摘要：
在CRAN中没有，如果通过R下载经常会出错，使用以下地址下载后加载本地包http://R-Forge.R-project.org/bin/windows/contrib/3.0/Rwordseg_0.2-1.zip 阅读全文
posted @ 2015-10-31 15:08
地表最强队队员
阅读(671)
评论(0)
推荐(0)
摘要：
library(AMORE)data=1.5)] <- 2sum = 0for(i in 1:500){if(y[i]==test[i,25]){sum =sum+1}}cat("正确率", sum/500, "n") 阅读全文
posted @ 2015-10-31 14:31
地表最强队队员
阅读(8317)
评论(2)
推荐(0)
浙公网安备 33010602011771号