苹果/安卓/wp
积分 19, 距离下一级还需 5 积分
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
开心签到天数: 2 天连续签到: 1 天[LV.1]初来乍到
请教各位高手，我在运行一下代码时老是出现“expected right parenthesis”， 但又不知道怎么改，请高手帮帮忙，谢谢，感激不尽！
代码中的数据部分太多，已省略。
& &for (i in 1:N){& & # N number of datapoints in dataset
& &# time is expressed in months and transformed according powers of fractional polynomial P1 and P2
& &time_transf1[i]&-(equals(P1,0)*log(time[i]) + (1-equals (P1,0))*pow(time[i],P1))
& &time_transf2[i]&-((1-equals(P2,P1))*(equals(P2,0)*log (time[i]) + (1-equals(P2,0))*pow(time[i],P2)) + equals(P2, P1)*(equals(P2,0)*log(time[i])*log(time[i]) + (1-equals (P2,0))*pow(time[i],P2) *log(time[i])))
& &# likelihood
& &# hazard over interval [t,t+dt] expressed as deaths per person-month
& &# r is deaths in interval, n is number at risk, h is hazard
& &r[i]~ dbin(p[i],n[i])
& &p[i]&-1-exp(-h[i]*dt) # cumulative hazard over interval [t,t+dt] expressed as deaths per person-month
& &# random effects model
& &# loop over datapoints
& &# s refers to study, k is intervention k, b is comparator
& &log(h[i])&-Beta[i,1]+ Beta[i,2]*time_transf1[i]+ Beta[i,3]* time_transf2[i]
& &Beta[i,1]&-mu[s[i],1]+delta[s[i],1]*(1-equals(k[i],b[i]))
& &Beta[i,2]&-mu[s[i],2]+delta[s[i],2]*(1-equals(k[i],b[i]))
& &Beta[i,3]&-mu[s[i],3]+delta[s[i],3]*(1-equals(k[i],b[i]))
& &# loop over studies
& &# NS is number of studies
& &# ks is intervention k, bs is comparator
& &for(m in 1:NS){
& &delta[m,1:3]~dmnorm(md[k,1:3],omega[1:3,1:3])
& &md[m,1]&-d[ks[m],1]-d[bs[m],1]
& &md[m,2]&-d[ks[m],2]-d[bs[m],2]
& &md[m,3]&-d[ks[m],3]-d[bs[m],3]
& &# priors
& &# NT is number of treatments
& &d[1,1]&-0
& &d[1,2]&-0
& &d[1,3]&-0
& &for(j in 2:NT){
& &d[j,1:3] ~ dmnorm(mean[1:3],prec2[,])
& &for(k in 1:NS){
& &mu[k,1:3] ~ dmnorm(mean[1:3],prec2[,])
& &omega[1:3, 1:3] ~ dwish(R[1:3,1:3],3)
& &# output SD and correlation based on estimated covariance matrix
& &sigma.theta[1:3,1:3] &- inverse(omega[1:3,1:3])
& &rho[1,2] &-sigma.theta[1,2]/sqrt(sigma.theta[1,1]*sigma.theta[2,2])
& &rho[1,3] &-sigma.theta[1,3]/sqrt(sigma.theta[1,1]*sigma.theta[3,3])
& &rho[3] &-sigma.theta[3]/sqrt(sigma.theta[2,2]*sigma.theta[3,3])
& &sd[1]&-sqrt(sigma.theta[1,1])
& &sd[2]&-sqrt(sigma.theta[2,2])
& &sd[3]&-sqrt(sigma.theta[3,3])
& &# output hazard ratio for month 1 to 60
& &# NT is number of treatments, c is reference treatment, k is treatment of interest, l is month
& &for (c in 1:(NT-1)) {
& &for (j in (c+1):NT) {
& &for (l in 1:60) {
& &t1[l]&-(equals(P1,0)*log(l) + (1-equals(P1,0))*pow(l,P1))
& &t2[l]&-((1-equals(P2,P1))*(equals(P2,0)*log(l) + (1-equals(P2,0))*pow(l,P2)) + equals(P2,P1)*(equals(P2,0)*log(l)*log(l) + (1-equals(P2,0))*pow(l,P2) *log(l)))
& & log(hazard_ratio[c,j,l])&-d[j,1]-d[c,1]+(d[j,2]-d[c,2])*t1[l]+(d[j,3]-d[c,3])*t2[l]
WInbugs data structure
s[] study identifier
& & r[] incident cases in interval
& & n[] at risk at beginning of interval
& & k[] treatment
& & b[] comparator
& & time[] interval number/time point
s[] r[] n[] k[] b[] time[]
支持楼主：、
购买后，论坛将把您花费的资金全部奖励给楼主，以表示您对TA发好贴的支持
载入中......
没人回复啊＠_＠
我按照茆诗松的教材写的,也出现了这个.意思是左括号...了.不甚明白
楼主解决问题了吗？？？求分享经验
& &time_transf2[i]&-((1-equals(P2,P1))*(equals(P2,0)*log (time[i]) + (1-equals(P2,0))*pow(time[i],P2)) + equals(P2, P1)*中((1-equals(P2,P1))多了一个（，应改为(1-equals(P2,P1))
无限扩大经管职场人脉圈！每天抽选10位免费名额，现在就扫& 论坛VIP& 贵宾会员& 可免费加入
加入我们,立即就学扫码下载「就学」app& Join us!& JoinLearn&
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
京ICP证090565号
京公网安备号
论坛法律顾问：王进律师查看: 1320|回复: 7
麻烦各位帮忙逐句解读一下下面的代码（越详细越好），我是vba外行，感激不尽啊！
阅读权限20
在线时间 小时
Sub test1()
' test1 Macro
& & Columns(&B:L&).Select
& & Application.CutCopyMode = False
& & Selection.Delete Shift:=xlToLeft
& & Columns(&A:A&).Select
& & Selection.TextToColumns Destination:=Range(&A1&), DataType:=xlDelimited, _
& && &&&TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
& && &&&Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
& && &&&:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
& & Cells.Select
& & Selection.AutoFilter
& & ActiveSheet.Range(&$A$1:$N$190890&).AutoFilter Field:=2, Criteria1:= _
& && &&&&15:14:00&
& & Cells.Select
& & Selection.Copy
& & Sheets.Add After:=Sheets(Sheets.Count)
& & ActiveSheet.Paste
& & Columns(&A:A&).ColumnWidth = 11.13
& & Columns(&A:A&).EntireColumn.AutoFit
阅读权限100
在线时间 小时
这都是录制宏得到的代码。
对完全没有基础的人解释代码，就如同一个老师要教一个小学生学高等数学，你知道的会有多难。
如果一句也不懂又有强烈兴趣学VBA的，建议从看一本VBA入门书开始学习。
阅读权限20
在线时间 小时
呵呵，我就是正在学习当中，只会一些简单的程序，这段宏代码，我大概晓得是个数据分咧的程序，老师，你能给我解释一下具体的意思吗？感谢了！
阅读权限20
在线时间 小时
& & & & & & & &
那位好心人帮我解答一下呢，我急用。。。。不甚感激啊！
阅读权限20
在线时间 小时
遇到不懂的可以F1应该能明白
阅读权限20
在线时间 小时
[code=vb]Sub test1()& & '子程序 test1()
Columns(&B:L&).Select& & '&列&坐标(&B:L& )的选定
Application.CutCopyMode = False& & ' 应用程序的剪切拷贝模式=False
Selection.Delete Shift:=xlToLeft& & ' 被选项的删除变换=方向向左
Columns(&A:A&).Select& & '&列&坐标(&A:A& )的选定
Selection.TextToColumns Destination:=Range(&A1&), DataType:=xlDelimited, _& & ' 被选项的TextToColumns目标位置=&单元格&区域(&A1&),数据类型=xlDelimited,_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _& & 'TextQualifier=xlDoubleQuote,ConsecutiveDelimiter=True,允许Tab键=True,_
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _& & 'Semicolon=False,Comma=False,Space=True,Other=False,FieldInfo_
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True& & '=&数组&(&数组&(1,1),&数组&(2,1)),TrailingMinusNumbers=True
Cells.Select& & ' 单元格集合的选定
Selection.AutoFilter& & ' 被选项的AutoFilter
ActiveSheet.Range(&$A$1:$N$190890&).AutoFilter Field:=2, Criteria1:= _& & ' 活动工作表的&单元格&区域(&$A$1:$N$190890& )的AutoFilterField=2,Criteria1=_
&15:14:00&& & '&15:14:00&
Cells.Select& & ' 单元格集合的选定
Selection.Copy& & ' 被选项的复制
Sheets.Add After:=Sheets(Sheets.Count)& & ' 表单集合的添加 后面于=&工作表&( 表单集合的计数值)
ActiveSheet.Paste& & ' 活动工作表的粘贴
Columns(&A:A&).ColumnWidth = 11.13& & '&列&坐标(&A:A& )的列宽= 11的13
Columns(&A:A&).EntireColumn.AutoFit& & '&列&坐标(&A:A& )的全部列的自动调整
End Sub& & '子程序结束
阅读权限20
在线时间 小时
谢谢啦！{:soso_e192:}
阅读权限50
在线时间 小时
学习了!!!!!
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师