小编Shr*_*uti的帖子

我想在矩阵中得到非零元素的索引.例如

X <- matrix(c(1,0,3,4,0,5), byrow=TRUE, nrow=2);

应该给我这样的东西

row col
1    1
1    3
2    1
2    3

任何人都可以告诉我该怎么做？

我有两个文件,一个文件子集的其他,我想获得一个文件,其中包含两者都不常见的内容.例如

文件1

apple
mango
banana
orange
jackfruit
cherry
grapes
eggplant
okra
cabbage

文件2

apple
banana
cherry
eggplant
cabbage

结果文件,以上两个文件的区别

mango
orange
jackfruit
grapes
okra

对此有任何想法表示赞赏.

我有一个bash shell脚本,需要ctrl-D才能打破终端.任何人都告诉我如何在shell脚本中使用它

例

ssh host last --->显示登录到该主机的用户列表

我有不同的主机输出附加到一个最后,当我执行这个特定的shell脚本以及其他系列的命令时,我正在使用ctrl-D来查看输出

假设我的shell脚本是myscript.sh来执行myscript.sh

./myscript.sh

CTL-d

与主机的连接已关闭

输出显示

相反,我想在我的脚本文件中使用ctrl-D

可能重复:
R中的异常处理

有没有人知道如何在R中捕获错误或异常？

任何人都可以告诉我如何用1代替0,反之亦然代替R中的对角矩阵.

我有一个R程序,它结合了10个文件,每个文件的大小为296MB,我将内存大小增加到8GB(RAM的大小)

--max-mem-size=8192M

当我运行这个程序时,我得到一个错误说

In type.convert(data[[i]], as.is = as.is[i], dec = dec, na.strings = character(0L)) :
  Reached total allocation of 7646Mb: see help(memory.size) 

这是我的R计划

S1 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_1_400.txt");
S2 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_401_800.txt");
S3 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_801_1200.txt");
S4 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_1201_1600.txt");
S5 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_1601_2000.txt");
S6 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_2001_2400.txt");
S7 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_2401_2800.txt");
S8 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_2801_3200.txt");
S9 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_3201_3600.txt");
S10 <- read.csv2("C:/Sim_Omega3_results/sim_omega3_3601_4000.txt");
options(max.print=154.8E10);
combine_result <- rbind(S1,S2,S3,S4,S5,S6,S7,S8,S9,S10)
write.table(combine_result,file="C:/sim_omega3_1_4000.txt",sep=";",
             row.names=FALSE,col.names=TRUE, quote = FALSE);

谁能帮我这个

谢谢,

思鲁提.