我正在尝试根据教程向 IBM dashDB REST 端点发送和执行 R 脚本。
一切都很好,但是当我使用以下代码时
timestamp=as.numeric(strptime(df$TIMESTAMP, \"%Y-%m-%d %H:%M:%S.000000\"));
dashDB REST 服务仅返回:
发生内部错误。请检查 URL,然后重试。
使用 dashDB 服务中的 R Web 控制台,脚本运行良好。我已在此消息的末尾附加了整个脚本。
有任何想法吗?
library(ibmdbR)
mycon <- idaConnect("BLUDB", "", "")
idaInit(mycon)
df <- as.data.frame(ida.data.frame('"DASH110683"."TEMPERATURE"')[ ,c('NAME', 'TEMPERATURE', 'TIMESTAMP')])
pattern="%Y-%m-%d %H:%M:%S.000000"
timestamp=as.numeric(strptime(df$TIMESTAMP, pattern))
maxTimestamp=max(timestamp)
cutOffTimestamp=maxTimestamp - 10
idx = which(timestamp>cutOffTimestamp)
workingSubset=df[idx,]
devideIds=unique(workingSubset$NAME)
scores = 1:length(devideIds)
for (i in 1:length(devideIds)) {
idx = which(workingSubset$NAME==devideIds[i])
df=workingSubset[idx,]
values=as.numeric(df$TEMPERATURE)
#scores[i]=(sqrt((globalMean- mean(values))^2) +sqrt((globalSD- sd(values))^2))/2
#scores[i]=abs(globalSD- sd(values))
scores[i]=sd(values)
}
if (max(scores)>1) {
devideIdOutlier=devideIds[scores==max(scores)]
} else {
devideIdOutlier=0;
}