接受各种R语言难题

cbw1243 发表于 2016-6-30 22:40
Welcome to R!
我发现好多user来到R，其实都不太习惯R的简单，哈哈。S语言的特质就是浅显易懂，相信你的 ...

谢谢~ 做完这个叉乘表，还需要进行后续计算，能不能帮忙写成一个函数， function（data,x,y）,可以直接调用这个函数来计算？

dengwei715 发表于 2016-7-1 09:56
谢谢~ 做完这个叉乘表，还需要进行后续计算，能不能帮忙写成一个函数， function（data,x,y）,可以直接调 ...

你需要函数进行什么运算

cbw1243 发表于 2016-7-1 10:04
你需要函数进行什么运算

调用这个函数，生成一个带变量名字的数据框，然后再进行关联，进行woe转化

cbw1243 发表于 2016-7-1 10:04
你需要函数进行什么运算

调用这个函数，生成一个带变量名字的数据框，然后再进行关联，进行woe转化~~没有变量名没法关联

dengwei715 发表于 2016-7-1 10:33
调用这个函数，生成一个带变量名字的数据框，然后再进行关联，进行woe转化~~没有变量名没法关联

如果你想用R，最好用R语言来表述自己要做的。我不清楚你在说什么。

cbw1243 发表于 2016-6-30 07:27
lme4 是一个很好做mixed effect model的包。这里有一个好的资料链接：
http://lme4.r-forge.r-project.o ...

谢谢你~

对于字符串里面的英文符号，如何批量替换为中文的符号，如下，有何良策？？？
ChineseInterpunction  ("。", "，", "；", "：", "？", "！", "……", "—","～", "〔","〕", "《","》", "‘", "’","“","”")
EnglishInterpunction    (".", ",", ";", ":","?", "!", "…", "-", "~","(", ")", "<", ">","'", "'", """","""")

以下是我做的替换
comments=gsub("\\.","",comments)

1. S <- function(m, n){
   
2.   K <- numeric(1)
   
3.   x=which(配送点信息$Spot_id == "m")
   
4.   y=which(网点信息$Site_id == "n")
   
5.   lng_1=配送点信息$Lng[x]
   
6.   lng_2=网点信息$Lng[y]
   
7.   lat_1=配送点信息$Lat[x]
   
8.   lat_2=网点信息$Lat[y]
   
9.     K=2*6378137*asin(sin(pi/180*(lat_1-lat_2))^2+cos(pi/180*lat_1)*cos(pi/180*lat_2)*sin(pi/180*(lng_1-lng_2))^2)^0.5
   
10.   return(K)
    
11. }

复制代码

lng是经度，lat是纬度，运行之后显示numeric(0)，请大神帮忙看一下是什么问题，谢谢

做非线性格兰杰因果测试中需要算数test statistic，但是总是说出现error，要怎么解决啊？

cbw1243 发表于 2016-6-30 22:32
解决的思路是这样的。先不要急着求和，而是把每一个f(i,u)的值计算并保存下来。
apply类函数就是解决这个 ...

谢谢你的解答，感谢[smile]