注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

阿弥陀佛

街树飘影未见尘 潭月潜水了无声 般若观照心空静...

 
 
 

日志

 
 
关于我

一直从事气象预报、服务建模实践应用。 注重气象物理场、实况场、地理信息、本体知识库、分布式气象内容管理系统建立。 对Barnes客观分析, 小波,计算神经网络、信任传播、贝叶斯推理、专家系统、网络本体语言有一定体会。 一直使用Java、Delphi、Prolog、SQL编程。

网易考拉推荐

R 计算rmse  

2016-11-01 21:51:35|  分类: R |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
library(zoo)
library(hydroGOF)
library(termstrc)

filePathReal <-"/data/calf/csv/eleh/csvreal/2016/20161028/201610280100.csv"
filePathFit  <-"/data/calf/csv/eleh/csvfit/2016/20161028/201610280100.csv"

data1 <- data.frame(read.csv(filePathReal,header = F))
head(data1)
length(data1[,2])

# data1<-read.csv(filePathReal,header = F)
data2<-read.csv(filePathFit,header = F)
names(data1)[names(data1)=='V8'] ='real'
names(data2)[names(data2)=='V8'] ='fit'
res<-merge(data1,data2,by.x = 'V2',by.y = 'V2')
res0 <- subset(res, res$V2 <= '60000')
length(res0[,1])
res1 <- subset(res0, res0$real != 'NaN')
length(res1[,1])
# a<-result[c('real')]
# b<-result[c('fit')]
mse <- rmse(res1[c('real')],res1[c('fit')])
  评论这张
 
阅读(56)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017