m******r
发帖数: 1033 | 1 问题看似极其简单， 是从?eval抄录而来，略作修改。
ev <- function() {
a <- expression(x+y)
list(eval = eval(a ) )
}
tst.ev <- function(a = 7) { x <- pi; y <- 1; ev() }
tst.ev() #-> aa : 7, eval : 4.14
上面这个运行不通，如果加上第二个参数，parent.frame() 就可以了。
按照eval的定义：
Usage
eval(expr, envir = parent.frame(),
enclos = if(is.list(envir) || is.pairlist(envir))
parent.frame() else baseenv())
我不理解的地方是：如果我只指定一个参数，按照eval定义， R应该会默认如下：
eval(a, envir=parent.frame(), enclos = parent.frame())
因为我没有指定envi... 阅读全帖 |
|
y*****e
发帖数: 72 | 2 第一次跟房东租房（以前都是住在Apartment），准房东给我们发的Documents里除了
Residential Lease Agreement和Rental Application以外，还收到一份罗列非常详细
的Move-Out Charges。每个细小项目都在后面列了修复的金额，看到这个表有些被吓到
了。请大家看看，这样的Move-Out Charges是属于标准流程里的吗？大家租房的时候都
收到这个吗？另外，怎么确定如下的东西是好的，还是需要被Charge的？当我们搬进去
的时候，是不是要和房东一起检查房间内的各样东西的状况，好有一个对房子维护的基
本的共识？
请参考如下的列表，
Cleaning Plumbing
Clean refrigerator $30.00 Replace kitchen faucet $60.00
Clean stove top $20.00 Replace bathroom faucet $55.00
Clean oven $40.00 Replace fauc... 阅读全帖 |
|
c*****y
发帖数: 4016 | 3 有一种女人，她们象征着浪漫、优雅又精致的世界，拥有婚姻束缚不了的自主自立，无
视世俗眼光的信心，令人欣羡向往。
她们具有难以摧毁的自信，她们认为自己很美，知道自己很美，也善于表现这种美。
她们以优雅为美。她们优雅除了化妆品以及优雅的仪态，更多是来自于一种优雅的生活
方式，她们是真正的优雅，雅到骨头里了。优雅的打扮可以学，但优雅的气质是学不来
的，那来自于一种生活态度，那种态度就是：优雅过生活。
对时尚潮流了如指掌，她们却总是坚持自己的穿衣准则，她们不会投资全套流行服饰，
却会大胆尝试新的配饰，新一季的手袋、珠宝、帽子，第一时间被消化融合在她们的身
上，哪怕是一个新的别针，也要以完美的方式来佩戴。
这种女性对流行拥有高度敏锐和自信，打扮是一种游戏，运用创意混合不同价位、设计
的衣着，让旁人称赞自己好看才是高手，不够自信才需要靠牌子炫耀。即便在轻松的时
刻，也要打扮的漂漂亮亮，这就是她们风格的金科玉律。她们痛恨不会打扮，除了品味
不佳，还包括穿错场合。香水是不可缺少的日用品，每日精心描绘妆容，她们对于一切
让自己变得更完美的事情都非常热衷，她们注意自己身上的每个细节。
对她们来说，在任何年... 阅读全帖 |
|
|
j***d
发帖数: 18 | 5 【 以下文字转载自 JobHunting 讨论区 】
发信人: JOBID (小猪), 信区: JobHunting
标 题: 回馈JOB版，我的找工tips（无经验，无身份）
发信站: BBS 未名空间站 (Tue Aug 10 14:35:56 2010, 美东)
马上要开始上班了，写写我的经历，希望能提供帮助和鼓励。
我是会计硕士，今年5月刚毕业，无任何工作经验，需要sponsorship,非美女，英语中
上。
今年4月正式开始找工作，期间有2个电面，2个onsite,7月拿到offer.过程比较痛苦，
结果还算满意。
以下个人经验，供参考。为了表达方便，请原谅中英夹杂。
Where to apply
推荐monster, indeed, 特别是学校的career center website的job postings,因为那
有针对性，命中率高。
What to apply
要有的放矢，有good match再申请。不然既浪费时间，又打击热情。比如会计硕士申请
bookkeeper就容易让人家说overqualified了。
Cover Letter
Always enclo |
|
l***y
发帖数: 184 | 6 用R的时候，fit 一个model，然后去求test error， 出现了一个错误提示，看不懂，
也没有google出来，是这样的：
一下是PCA的后半部分，前半部分太长了，就不贴了，
x.score <- x.train.center %*% x.svd$v
n.score<-nrow(x.score)
y=y.train
library(boot)
set.seed(1)
nfolds<-5
folds<-split(sample(n.score),rep(1:nfolds,length=n.score))
train <- data.frame(y=y.train,x.score)
ols.model<-glm(y~.,data=train)
cost <- function(y, y.hat) mean((y.hat>.5)!=y)
test.error.ols <- rep(NA, 256)
for(i in 1:256){
pc.pred <- predict(ols.model,x.test,n.score=i)
test.error.ols[i]... 阅读全帖 |
|
|
|
|
