小编And*_*lva的帖子

我有这个for循环来获取目录名列表:

for /d %%g in (%windir%\Assembly\gac_msil\*policy*A.D*) do (
echo %%g
)

输出:

C:\WINDOWS\Assembly\gac_msil\policy.5.0.A.D
C:\WINDOWS\Assembly\gac_msil\policy.5.0.A.D.O
C:\WINDOWS\Assembly\gac_msil\policy.5.20.A.D.O
C:\WINDOWS\Assembly\gac_msil\policy.5.25.A.D.O
C:\WINDOWS\Assembly\gac_msil\policy.5.35.A.D.O
C:\WINDOWS\Assembly\gac_msil\policy.5.55.A.D.O
C:\WINDOWS\Assembly\gac_msil\policy.5.60.A.D.O
C:\WINDOWS\Assembly\gac_msil\policy.5.70.A.D.O
C:\WINDOWS\Assembly\gac_msil\policy.6.0.A.D.O

我想获取以"policy"开头的文件夹名称,但echo %%g:~29不起作用.我也试过set x=%%g,然后echo %x:~29%仍然无法正常工作.

那么,我如何从for循环中的令牌获取子串？

我正在尝试将Weibull模型拟合并绘制成生存数据.该数据只有一个协变量,同期,从2006年到2010年.所以,任何关于如何添加到两行代码的想法,以绘制2010年队列的生存曲线？

library(survival)
s <- Surv(subSetCdm$dur,subSetCdm$event)
sWei <- survreg(s ~ cohort,dist='weibull',data=subSetCdm)

使用Cox PH模型完成相同操作非常简单,具有以下几行.问题是survfit()不接受类型为幸存的对象.

sCox <- coxph(s ~ cohort,data=subSetCdm)
cohort <- factor(c(2010),levels=2006:2010)
sfCox <- survfit(sCox,newdata=data.frame(cohort))
plot(sfCox,col='green')

使用数据肺(来自生存包),这是我想要完成的.

#create a Surv object
s <- with(lung,Surv(time,status))

#plot kaplan-meier estimate, per sex
fKM <- survfit(s ~ sex,data=lung)
plot(fKM)

#plot Cox PH survival curves, per sex
sCox <- coxph(s ~ as.factor(sex),data=lung)
lines(survfit(sCox,newdata=data.frame(sex=1)),col='green')
lines(survfit(sCox,newdata=data.frame(sex=2)),col='green')

#plot weibull survival curves, per sex, DOES NOT RUN
sWei <- survreg(s ~ as.factor(sex),dist='weibull',data=lung)
lines(survfit(sWei,newdata=data.frame(sex=1)),col='red')
lines(survfit(sWei,newdata=data.frame(sex=2)),col='red')

我有一个数据框,例如:

sub   day
1      1
1      2
1      3
1      4
2      1
2      2
2      3
2      4
3      1
3      2
3      3
3      4

我想删除可以通过sub和day的组合识别的特定行.例如,我想删除sub ='1'和day ='2'以及sub = 3和day ='4'的行.我怎么能这样做？我意识到我可以指定行号,但这需要应用于一个巨大的数据帧,这将是繁琐的经历和ID每一行.

我想创建下一个直方图密度图ggplot2.以"正常"方式(基本包)非常简单:

set.seed(46)
vector <- rnorm(500)  
breaks <- quantile(vector,seq(0,1,by=0.1))
labels = 1:(length(breaks)-1)
den = density(vector)
hist(df$vector,
     breaks=breaks,
     col=rainbow(length(breaks)),
     probability=TRUE)
lines(den)

到目前为止,我已经达到了ggplot:

seg <- cut(vector,breaks,
           labels=labels,
           include.lowest = TRUE, right = TRUE)
df = data.frame(vector=vector,seg=seg)

ggplot(df) + 
     geom_histogram(breaks=breaks,
                    aes(x=vector,
                        y=..density..,
                        fill=seg)) + 
     geom_density(aes(x=vector,
                      y=..density..))

但是"y"尺度具有错误的尺寸.我注意到下一次运行得到了正确的"y".

 ggplot(df) + 
     geom_histogram(breaks=breaks,
                    aes(x=vector,
                    y=..density..,
                    fill=seg)) + 
     geom_density(aes(x=vector,
                      y=..density..))

我只是不明白.y=..density..在那里,应该是高度.那么为什么我试图填充它时我的尺度会被修改？

我确实需要颜色.我只想要一个直方图,其中根据默认的ggplot填充颜色定向设置每个块的中断和颜色.

我一直在网上搜索试图找到Unix Bash脚本的例子,它可以处理基本的文本样式(粗体/下划线/斜体),但找不到任何东西？这样的事情可以吗？

例如:

1. Embolden/Underline/Italicize以":"结尾的所有行？
2. (关闭)Embolden/Underline/Italicize以":"结尾的所有行？

我想通过Automator将其设置为服务; 所以使用/bin/bash和操作"选定的文本"(当然,在富文本兼容的文件中).

我已在Windows 8上安装(并重新安装)Octave 3次,但我仍然无法正确使用它.第一个也是最明显的问题是缺少提示; 屏幕仅显示提示后面的闪烁下划线.这不是主要问题,因为系统正确响应命令.

主要问题是Octave在遇到语法错误时崩溃,而不是礼貌地给出诊断.这使得软件开发非常繁琐.

有没有解决这个问题的方法,或者我们只是等待一方或另一方提出住宿？

我目前正在尝试将各种"ASC"文件中的信息提取到R中,以便对数据进行分析.

问题是我不确定如何读取文件.我尝试了标准的read.table函数,但所有数字都完全相同(-9999.00).为了排除数据损坏的可能性,我在另一个ASC文件中读取并得到了相同的结果.我唯一知道的是,它们之间的文件大小完全相同.

无论如何我可以阅读这些文件吗？我可以看看任何R包吗？

我绑了这个:

    x = read.table("Dropbox/MVZ/aet2009sep.asc")
    y = read.table("Dropbox/MVZ/aet2009oct.asc")

我的产出是

    > head(x, n =20)
         V1        V2
    1         ncols    3486.0
    2         nrows    4477.0
    3     xllcorner -374495.8
    4     yllcorner -616153.3
    5      cellsize     270.0
    6  NODATA_value   -9999.0
    7      -9999.00   -9999.0
    8      -9999.00   -9999.0
    9      -9999.00   -9999.0
    10     -9999.00   -9999.0
    11     -9999.00   -9999.0
    12     -9999.00   -9999.0
    13     -9999.00   -9999.0
    14     -9999.00   -9999.0
    15     -9999.00   -9999.0
    16     -9999.00   -9999.0
    17     -9999.00   -9999.0
    18     -9999.00   -9999.0
    19     -9999.00   -9999.0
    20     -9999.00   -9999.0

    head(y, n =20) …

我想减少/改变微调器尺寸,包括:

1. 微调器对象大小
2. 显示的字体(大小和颜色)
3. 当我打开微调器时显示的列表视图(其字体大小和颜色)

我有一个大约有20列的查询,我想将其导出到带有列标题的Excel文件中.

我觉得这很容易搞清楚,但没有运气!我在网上搜索了一个没有最终工作的建议,所以我被卡住了.

我在X中每个值有7个不同的类别.我使用条形图来绘制这些类别.这样的图形在彩色打印机中看起来很好,但如果我希望它在黑白中很好的话.您可以查看下面的图表.我想要有不同的颜色纹理,所以图形看起来很好的颜色和黑白打印机.

我在barplot函数中使用密度= c(10,30,40,50,100,60,80)作为密度参数.在barplot中还有其他方法可以做不同的纹理吗？

注意:我在barplot中尝试了角度值.然而,在这种情况下,它不是一个好的解决方案,因为并非所有的条都具有高值(即条的高度).