如何解决如何将股票代码转换为R中的唯一整数?
如何将股票行情收录器转换为R中的唯一整数?
例如,这在基于股票报价器符号匹配两个数据库时很有用。该代码应适用于普通的股票行情自动收录器(大写字母,长度为1-4个字符)。
解决方法
hash.ticker <- Vectorize( function(s,M=length(letters),MAXCHARS=4) {
v <- utf8ToInt(s) - utf8ToInt("@")
if (length(v)<MAXCHARS) v <- c(v,rep(0,MAXCHARS-length(v)))
stopifnot( all( (v >= 0) & (v <= M) ) ) ## need 0 to account for empty (0)
sum( v * (M)^(0:(length(v)-1)) )
})
print( hash.ticker( c("A","Z","AA","ZZ","ZZZZ") ) )
A Z AA ZZ ZZZZ
1 26 27 702 475254
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。