自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(6)
  • 收藏
  • 关注

原创 11.12

好久好久好久没有看代码,还好老师没有怪我,但是有点害怕,以后还是不要这样子了。之前做的是真实数据kc_house的分块预测和整体预测。(分块的情况下)计算了平均数与中位数分别的RMSE\MAE误差,(整体的情况下)计算了均值的两类误差。然后用了生成虚拟数据的子代码,分别生成了正态、T、卡方三种数据的,分为独立同分布和非独立同分布的各自10万条数据(6种)。其中,生成数据的子代码包括三部分,生成预测值X,生成误差eps,和最后重要的生成随机数的函数genSim. 在服务器上跑的是,从左到右是..

2021-11-12 15:13:20 88

原创 第一次犯大错误!

```javaqrnn.merge <- function(dat_train, dat_test,K, n.hidden, Tau){ Qpred<-matrix(NA,nrow(dat_train),length(Tau) x_train <- list() y_train <- list() n.hidden.opt <- list() for(i in 1:length(Tau)){ qpred<-matrix(NA,nrow(da.

2021-10-27 12:01:50 116

原创 姑且算是可以分开求每块的参数啦!

代码,跑起来了。我也,好起来了。 (突然精神.jpg)qrnn.merge <- function(data, K, n.hidden, Tau){ parms <- list() x_train <- list() y_train <- list() n.hidden.opt <- list() for(i in 1:length(Tau)){ Dat <- Data_split(data,K) for (j in 1:K) {

2021-10-26 15:28:05 81

原创 R语言创建空列表

#方法一:a <- list()#最简单~并且没有限制列表的长度#方法二:a <- vector("list", length = 3)#vector这个函数不光可以生成列表,可以限定长度

2021-10-23 11:13:08 7726

原创 秃!然加更

今晚的我本来应该扎进代码里的,但是明天的组会临时取消啦!!!喜大普奔~接着奏乐接着舞!今天去请教了老师代码怎么改,结果我写的循环套循环太麻烦啦!外面repeat,里面for循环。repeat在不知道要循环几遍的时候用比较好,for循环就可以循环已知长度的~,数据集不能被整除就用ceiling函数,先把它往大了取,k-1个都是大数,最后一个就稍微少点,用数据集总数减去(k-1)×每组数据量,就得到最后一组的数据量啦。for循环的话,要看好每一个变量取不取位数[]取数的话用sample这个函数,可以

2021-10-22 18:41:00 77

原创 读研日记1:正式开始啃代码的一周

两个任务: 1.把大文件分块,对分块数据分别求参数。 2.对参数求均值今天周二,这个循环居然要手动跑,笑哭。而且手动跑跑数出来的数据行数比数据量都大!呜呜。counter <- 0repeat{ index <- index+1 print(paste('processing row:', index*chunk_size)) counter <- counter + nrow(dat) if (nrow(dat)!=c...

2021-10-19 22:10:03 61

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除