一个很简单的R应用问题~

snowyapple 发表于 2014-5-18 18:50
又要请教下你了，太不好意思了~下面是我写的代码：
问题是也如下：
十分抱歉啊，好多问题~请问这里哪里 ...

两个思路吧：
#1

1. data_subset<-subset(data,data$ID==id)

复制代码

这个用法当id一数组c（2,4,8,10,12）时报错的，按你的思路，建议可以检查ID是否在id的范围内。比如：

1. data_subset<-subset(data,!is.na(match(data$ID,id)))

复制代码

这样似乎比较麻烦。

有个更好的办法：

1. complete<- function(directory,id=1:332){
   
2.     files_list <- dir(directory, full.names=T)[id]
   
3.     data_list<-lapply(files_list,read.csv)
   
4.     nobs<-sapply(lapply(data_list,complete.cases),sum)
   
5.     return (cbind(id,nobs)) }

复制代码

asprine 发表于 2014-5-18 20:41
两个思路吧：
#1
这个用法当id一数组c（2,4,8,10,12）时报错的，按你的思路，建议可以检查ID是否在id的 ...

哦~谢谢哈！终于把三个都弄好了，最后提交好像又有了点小问题，
Which part are you submitting [1-10]? 1-10
Error in partPrompt() : please specify part number
In addition: Warning message:
In partPrompt() : NAs introduced by coercion
[1-10]?后面我输了很多种都不可以，而且不太明白part1,2,3,4指的是什么，你是怎么交的呢？

snowyapple 发表于 2014-5-18 22:35
哦~谢谢哈！终于把三个都弄好了，最后提交好像又有了点小问题，
Which part are you submitting [1-10]? ...

每个部分的Part都是不同的初始值。第一个有4个初始值。submit()后，选不同的序号就可以了。
我手动交的，输入submit(1)，把txt传上去。R里面我没有成功。

asprine 发表于 2014-5-18 22:36
每个部分的Part都是不同的初始值。第一个有4个初始值。submit()后，选不同的序号就可以了。
我手动交的， ...

> submit(1)
[1] 'pollutantmean' part 1
[2] 'pollutantmean' part 2
[3] 'pollutantmean' part 3
[4] 'pollutantmean' part 4
[5] 'complete' part 1
[6] 'complete' part 2
[7] 'complete' part 3
[8] 'corr' part 1
[9] 'corr' part 2
[10] 'corr' part 3
Which part are you submitting [1-10]?

输入后显示的还是这个，我看别人直接输入1好像就有个结果~直接交是Part1重复交4次？

asprine 发表于 2014-5-18 22:36
每个部分的Part都是不同的初始值。第一个有4个初始值。submit()后，选不同的序号就可以了。
我手动交的， ...

手动交竟然说都是错误的，郁闷，我再上forum看看~

snowyapple 发表于 2014-5-18 22:43
> submit(1)
[1] 'pollutantmean' part 1
[2] 'pollutantmean' part 2

submit()  不带参数就是直接在R里提交，十道题，顺序提交就好了。会显示结果，不正确就报错或别的。  

submit(1) 或者submit(TRUE)是手动提交，选择完十道题的一题，会自动生成一个txt答案文件，在页面上交也可以，我是这样。

snowyapple 发表于 2014-5-18 22:50
手动交竟然说都是错误的，郁闷，我再上forum看看~

可以先试试程序的，这个是第二题的：
https://d396qusza40orc.cloudfron ... Fcomplete-demo.html

asprine 发表于 2014-5-18 22:53
可以先试试程序的，这个是第二题的：
https://d396qusza40orc.cloudfront.net/rprog%2Fdoc%2Fcomplete-d ...

嗯，谢谢！我是之前试过程序才往后做题的，我再去检查下！

asprine 发表于 2014-5-18 22:53
可以先试试程序的，这个是第二题的：
https://d396qusza40orc.cloudfront.net/rprog%2Fdoc%2Fcomplete-d ...

比如第二题，结果都没问题啊，显示的是：
> complete("specdata", 3)
     id nobs
[1,]  3  243
> complete("specdata", 30:25)
     id nobs
[1,] 30  932
[2,] 29  711
[3,] 28  475
[4,] 27  338
[5,] 26  586
[6,] 25  463

跟矩阵的[2,]这样的格式有关么？