摘要:
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)
浙公网安备 33010602011771号